[an error occurred while processing this directive]

Add to favorites

Search

[an error occurred while processing this directive]
Russian documents

Conception of gender policy of the Federation of independent trade unions of Russia (FITUR)

07-02-2002 Federation of independent trade unions of Russia

  The present document contains conceptual approaches of FITUR to the subject of gender equality and main directions of trade inions activities on practical securing of equal rights and opportunities for men and women in social, labour and political relations.
Details...

Draft of the Federal Law "About state guarantees of equal rights and freedoms and equal opportunities for men and women in the Russian Federation"

07-12-2001 ***

  Federal law is aimed at realization of clauses of articles 17 (part 1) and 19 (part 3) of the Russian Federation Constitution as well as realization of international documents about women's rights that according to the article 15 of the Russian Federation Constitution are integral part of the legal system of Russia.
Details...

National report about fulfilling in the Russian Federation of the Platform of activities approved by the IV World Conference on Women's Situation

07-12-2001 Government of the Russian Federation

  Prepared to the special session of the General Assembly of the United Nations Organization "Women in 2000: equality between men and women, development and peace in the XXI century", Moscow, 2000.
Details...

Approximate regulations about crisis center for women's support

25-10-2001 Ministry of Labour and Social Development of the Russian Federation

  Appendix to the resolution of the Ministry of Labour and Social Development of the Russian Federation dated 10 July 1997.
Details...

National mechanism of the women's situation improvement

15-03-1999 Elisaveta Bozhkova, Tatiana Brovka, Natalia Berezhnaya

  Report for the 43rd session of the UN Commission on women's situation.
Details...

Fifth periodical report of the Russian Federation about measures on realization of regulations of the Convention about liquidation of all the forms of discrimination against women for the period from 1994 until 1998

03-03-1998 ***

  Social and economic transformations carried out in Russia in 1994-1998 resulted in radical changes in all the spheres of social life - in economics, politics, social structure of the society. Russia has made principal steps in the direction of switching to the market type of economics, preceded to deep reforming of the social relations' system.
Details...

Conception of legislative activities aimed at securing of equal rights and equal opportunities for men and women

15-12-1997 State Duma Committee on women, family and youth issues.

  Conception of legislative activities aimed at securing of equal rights and equal opportunities for men and women (further - Conception) is based on the fact that women's rights are an integral part of human rights in general. Equality of rights and freedoms of citizens regardless of the sex is pronounced and secured by the Russian Federation Constitution, legislation of the Russian Federation as well as by the standards of international legislation. Article 19 of the Russian federation Constitution proclaims, "men and women have equal rights and freedoms and equal opportunities for its realization".
Details...

National plan of activities aimed at improvement of women's situation and increasing of their role in the social life till 2000

15-12-1996 Government of the Russian Federation(Approved by the resolution of the Government of the Russian Federation dated 29 August 1996)

  only on Russian
Details...

Conception of the improvement of women's situation in the Russian Federation

08-01-1996 Government of the Russian Federation

  only on Russian
Details...

International documents

Final remarks of United Nations Committee on the economic, social and cultural rights (November, 28, 2003)

20-12-2003 .

  Informal Russian translation
Details...

Convention on struggle against white slavery and exploitation of prostitution by third persons (1951)

22-01-2002 ***

  Approved by the resolution 317 (IV) of the General Assembly dated 2 December 1949. Coming into force: 25 July 1951 according to the article 24.
Details...

Convention on liquidation of all forms of discrimination against women (1981)

22-01-2002 ***

  Opened to signing, ratification and joining by the resolution 34/10 of the General Assembly dated December 18, 1979. Coming into force: September 3, 1081 according to the article 27(1).
Details...

Campaign for equality between men and women and improvement of women's situation.Collected informational materials of the UNO Department for social information, 2001

22-01-2002 ***

  Four global conferences on women's situation, called by UNO during the last quarter of the century, helped to focus attention of the world community on the problem of gender equality. Resolutions of conferences consolidated people of the whole world to achieve common targets and to work out an effective plan of activities in order to improve women's situation in all the spheres of social and private life.
Details...

Women's participation in the municipal governing.Collected informational materials of the Agency for municipal issues UNO (Habitat), 2000

22-01-2002 ***

  In our urbanist world women's needs differ from men's needs, therefore women's interests should be taken into consideration in the process of forming of municipal infrastructures.
Details...

Integrated approach to the problem of equality between men and women (Gender Mainstreaming)

22-01-2002 ***

  Report of the Specialists group of the Department for equality between men and women issues of the Board for Human Rights in the Council of Europe (Strasburg, May 1998).
Details...

Optional protocol to the Convention about liquidation of all forms of discrimination against women (1999)

22-01-2002 ***

  Is opened to sign and ratification by the resolution of General Assembly of UNO dated October, 6 1999.
Details...

Report of the Special Committee of its full complement of the 23rd special session of UNO General Assembly

22-01-2002 ***

  only on Russian
Details...

Beijing Declaration and Beijing Platform of Activities (1995)

22-01-2002 ***

  only on Russian
Details...

World conference on Human Rights.Vienna Declaration and Program of Activities (1993)

22-01-2002 ***

  On June 25, 1993 representatives of 171 countries accepted in consensus Vienna Declarations and Program of activities of the World Conference on Human Rights, successfully concluding lasted for two weeks World Conference and rendering to the international community the general plan of strengthening activities in the field of human rights globally.
Details...

Announcements

The union of journalists of Russia declares the Second national journalistic competition "Authority is national"

23-03-2004 .

  To participation in competition of publications about local self-management in new legislative conditions republican, regional, regional mass media are invited.
Details...

Your opinion:
[an error occurred while processing this directive] #!/usr/bin/perl -w use CGI; use Poll::Config; use strict; my $buffer; my $input = new CGI (); my %infa; my %allll; $infa{script} = $ENV{SCRIPT_NAME}; #переменная $input->param("show_result") - разрешить просмотр без голосования #переменная $input->param("theme_name") - id темы #переменная $input->param("quest_id") - id вопроса #переменная $input->param("show_res") - выводить результат или опрос print "Content-type: text/html\n"; if ($input->param("quest_id") ne "all") { if ($input->param("theme_name") && $input->param("quest_id") && !$input->param("show_res") && !$input->param("action")) { &show_simple_quest(0)} if ($input->param("theme_name") && $input->param("quest_id") && $input->param("show_res") && !$input->param("action")) { &show_simple_quest(1)} if ($input->param("theme_name") && !$input->param("quest_id") && $input->param("show_res") && !$input->param("action")) { &show_simple_quest(2)} if ($input->param("theme_name") && !$input->param("quest_id") && !$input->param("show_res") && !$input->param("action")) { &show_simple_quest(3)} if (!$input->param("theme_name") && $input->param("quest_id") && !$input->param("show_res") && !$input->param("action")) { &show_simple_quest(4)} if (!$input->param("theme_name") && $input->param("quest_id") && $input->param("show_res") && !$input->param("action")) { &show_simple_quest(5)} if (!$input->param("theme_name") && !$input->param("quest_id") && !$input->param("show_res") && !$input->param("action")) { &show_simple_quest(6)} if (!$input->param("theme_name") && !$input->param("quest_id") && $input->param("show_res") && !$input->param("action")) { &show_simple_quest(7)} } if (!$input->param("theme_name") &&($input->param("quest_id") eq "all") && !$input->param("action")) { &show_all} if ($input->param("theme_name") && ($input->param("quest_id") eq "all") && !$input->param("action")) { &show_theme_all} if ($input->param("action") eq "surv_all") { &surv_all} #Проголосовал if ($input->param("action") eq "volt") {&volt} if ($input->param("action") eq "show_res") { &show_res} sub show_simple_quest { my $mode = shift; my $id; my $theme_name; my %themes_hash; if ($mode == 0)#110 { $id = $input->param("quest_id"); $theme_name = get_theme_name ($input->param("theme_name")); }elsif ($mode == 4)#010 { dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; $id = $input->param("quest_id"); $theme_name = $themes_hash{$id}; dbmclose (%themes_hash); } elsif ($mode == 5)#011 { dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; $id = $input->param("quest_id"); $theme_name = $themes_hash{$id}; dbmclose (%themes_hash); &create_quest ($id,$theme_name); #Создаем html опроса } if ($mode == 0 or $mode == 4) { if (&inspect_user($id)) { &show_result ($id,$theme_name); #Показываем результат }else { &create_quest ($id,$theme_name); #Создаем html опроса } } if ($mode == 6)#000 { dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; my $k=0; my $show_id; my $show_theme; my %tmpHash; my @data_array; while ((my $key,my $value) = each %themes_hash) { unless ($key eq $value) { push (@data_array,$key); } } my $len = $#data_array+1; my $id; my @use_array; my $end=0; while (1) { my $rnd = rand ($len); $rnd = int ($rnd); $id = $data_array[$rnd]; unless (&inspect_user($id)) { $end=0; last; }else { push (@use_array,$id); @use_array = clear_array(\@use_array); if (compare_arrays (\@use_array,\@data_array)) { $end=1; last; } } } if ($end) { my @id_array; while ((my $key, my $value) = each %themes_hash) { unless ($key eq $value) { push (@id_array,$key); } } my $len = $#id_array+1; my $rnd = rand ($len); $rnd = int ($rnd); $id = $id_array[$rnd]; $theme_name = $themes_hash{$id}; dbmclose (%themes_hash); &show_result ($id,$theme_name); #Показываем результат }else { $theme_name = $themes_hash{$id}; &create_quest ($id,$theme_name); #Создаем html опроса dbmclose (%themes_hash); } }elsif ($mode == 3)#100 { $theme_name = get_theme_name ($input->param("theme_name")); dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; my @data_array; while ((my $key, my $value) = each %themes_hash) { unless ($key eq $value) { if ($value eq $theme_name) { push (@data_array,$key); } } } my $len = $#data_array+1; my $id; my @use_array; my $end=0; while (1) { my $rnd = rand ($len); $rnd = int ($rnd); $id = $data_array[$rnd]; unless (&inspect_user($id)) { $end=0; last; }else { push (@use_array,$id); @use_array = clear_array(\@use_array); if (compare_arrays (\@use_array,\@data_array)) { $end=1; last; } } } if ($end) { my @id_array; while ((my $key, my $value) = each %themes_hash) { unless ($key eq $value) { if ($value eq $theme_name) { push (@id_array,$key); } } } my $len = $#id_array+1; my $rnd = rand ($len); $rnd = int ($rnd); $id = $id_array[$rnd]; dbmclose (%themes_hash); &show_result ($id,$theme_name); #Показываем результат }else { $theme_name = $themes_hash{$id}; &create_quest ($id,$theme_name); #Создаем html опроса dbmclose (%themes_hash); } }elsif ($mode == 7)#001 { dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; my @id_array; while ((my $key, my $value) = each %themes_hash) { unless ($key eq $value) { push (@id_array,$key); } } my $len = $#id_array+1; my $rnd = rand ($len); $rnd = int ($rnd); $id = $id_array[$rnd]; $theme_name = $themes_hash{$id}; dbmclose (%themes_hash); &show_result ($id,$theme_name); #Показываем результат }elsif ($mode == 2)#101 { dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; $theme_name = get_theme_name ($input->param("theme_name")); my @id_array; while ((my $key, my $value) = each %themes_hash) { if ($value eq $theme_name) { unless ($key eq $value) { push (@id_array,$key); } } } my $len = $#id_array+1; my $rnd = rand ($len); $rnd = int ($rnd); $id = $id_array[$rnd]; dbmclose (%themes_hash); &show_result ($id,$theme_name); #Показываем результат }elsif ($mode == 1)#111 { $id = $input->param("quest_id"); $theme_name = get_theme_name ($input->param("theme_name")); &show_result ($id,$theme_name); #Показываем результат } } #Создает html для sub create_quest { my $id = shift; my $theme_name = $_[0]; my $fmt = [['name','mode','checked','value']]; $infa{'id'} = $id; $infa{'theme_id'} = $theme_name; $infa{'tname'} = $theme_name; open (DATA, "$data_location/$id.txt") or warn("Unable to create the data file"); if ($flock eq "y") { flock DATA, 2; } my $quest = ; chomp ($quest); my @quest_array = split (/\|/,$quest); $quest = $quest_array [0]; my $multi = $quest_array [1]; $infa {'quest'} = $quest; $infa {'multi_param'} = $multi; my $i=0; if ($multi) { $infa{'multi'} = "checkbox"; }else { $infa{'multi'} = "radio"; } while (my $line = ) { chomp ($line); my @ar = split (/\|/,$line); $line = $ar[0]; my $num = $id."_".$i; unless ($multi) { push (@$fmt,[$num,"mode",$i==0?'CHECKED':'',$line]); }else { push (@$fmt,[$num,"mode_$i",'',$line]); } $i++; } $infa{'count'} = $i; close (DATA); my %nav; if ($input->param("show_result")) { $nav{"show_simple"} = 1; }else { $nav{"show_simple"} = 0; } my $obj = View_HTML->new($quest_dir.$quest_templ); $obj->load(); $obj->{if_no_field} = ''; $allll{'conf'} = $fmt; $infa{cook_action} = "set_answer"; $infa{ccexp} = 48*3600000; $infa{ccpath}='/'; $obj->subst_comments(\%infa); $obj->subst_blocks( \%nav); $obj->subst_formats(%allll); print "Content-type: text/html\n\n"; $obj->print; exit; } #Функция проверяет отвечал ли пользователь на вопрос по его ip-адресу #Возвращает 1 если отвечал, else - 0. sub inspect_user { my $id = shift; return 0; if ($ip_logging == 1) { my $visitor = &get_user_param; open (IP, "$data_location/ip.txt") or warn("Unable to open the data file- ip.txt"); if ($flock eq "y") { flock IP, 2; } my @ip=; close(IP); foreach my $ip(@ip) { chomp($ip); my @dip=split(/\|/, $ip); if (($dip[0] eq $visitor)&&($dip[1] == $id)) { return 1; } } return 0; } } #Типа проголосовал sub volt { my $id = $input->param("id"); my $theme_name = $input->param("theme_id"); my $count = $input->param("count"); my @sel_array; my $multi = $input->param("multi"); my $sel_num; if ($multi) #multiselect defined { for (my $i=0;$i<$count;$i++) { if (defined ($input->param("mode_$i"))) { push (@sel_array,$i); } } }else { my $select = $input->param("mode"); @sel_array = split (/_/,$select); $sel_num = $sel_array[1]; } unless (&inspect_user($id)) { #&save_ip ($id); open (DATA, "$data_location/$id.txt") or warn "Unable to create the data file"; if ($flock eq "y") { flock DATA, 2; } my $quest = ; chomp ($quest); my @data_array; unless ($multi) #SINGLE SELECT { my $i=0; while (my $line = ) { chomp ($line); if ($i==$sel_num) { my @ar = split (/\|/,$line); my $otv = $ar[0]; my $count = $ar[1]; $count++; $line = $otv."\|".$count; } push (@data_array,$line); $i++; } }else #MULTISELECT { my $i=0; while (my $line = ) { chomp ($line); if (array_search (\@sel_array,$i)) { my @ar = split (/\|/,$line); my $otv = $ar[0]; my $count = $ar[1]; $count++; $line = $otv."\|".$count; } push (@data_array,$line); $i++; } } close (DATA); chmod (0664,"$data_location/$id.txt"); open (DATA, ">$data_location/$id.txt") or warn "Unable to create the data file"; if ($flock eq "y") { flock DATA, 2; } print DATA $quest."\n"; foreach my $line (@data_array) { print DATA $line."\n"; } close (DATA); } #Здесь был вывод результата голосования, но так как сказал Леонид, используем куки # &show_result ($id,$theme_name,-1); my $docReferer = $ENV{'HTTP_REFERER'}; my %themes_hash; $docReferer =~ s/\?.*$//; $theme_name = get_theme_id ($theme_name); $docReferer.="?quest_id=$id&show_res=1&theme_name=$theme_name"; print "Location: $docReferer\n\n"; #$input->param("quest_id") && !$input->param("show_res") } #Функция возвращает хэш полей и данных формы sub get_param_hash () { my %hash; foreach my $item ($input->param) { foreach my $item1 ($input->param($item)) { $hash{$item}=$item1; } } return %hash; } #Функция сохраняет в файл ip адрес пользователя и id вопроса, на который он ответил. sub save_ip { my $id = shift; if ($ip_logging == 1) { my $visitor = &get_user_param; chmod (0664,"$data_location/ip.txt"); open (IP, ">>$data_location/ip.txt") or warn "Unable to open the data file- ip.txt"; if ($flock eq "y") { flock IP, 2; } print IP $visitor."\|".$id."\n"; close(IP); } } #Функция показывает результаты голосования sub show_result { my $id = shift; my $theme_name = $_[0]; open (DATA, "$data_location/$id.txt") or warn("Unable to open the survey data file."); if ($flock eq "y") { flock DATA, 2; } my $count=0; #Общее количество ответов my $line = ; while ($line = ) { chomp ($line); my @data_array = split (/\|/,$line); if (defined ($data_array[1])) { $count+=$data_array[1]; } } close(DATA); open (DATA, "$data_location/$id.txt") or warn("Unable to open the survey data file."); if ($flock eq "y") { flock DATA, 2; } my $quest = ; chomp ($quest); my @quest_array = split (/\|/,$quest); $quest = $quest_array [0]; $infa{'quest'} = $quest; $infa{'id'} = $id; $infa{'tname'} = $theme_name; $infa{'all'} = $count; my $fmt = [['name','image','percent','value']]; while (my $line = ) { chomp ($line); my @data_array = split (/\|/,$line); my $cal; unless ($count == 0) { $cal = $data_array[1]/$count; }else { $cal=0; } my $percent = int (100*$cal); #my $percent = sprintf ("%.2f",100*$cal); push (@$fmt,[$data_array[0],$bar,$percent,$data_array[1]]); } close(DATA); my $obj = View_HTML->new($quest_dir.$result_templ); $obj->load(); $obj->{if_no_field} = ''; $allll{'conf'} = $fmt; $infa{cook_action} = "quest"; $infa{ccexp} = 48*360000; $infa{ccpath}='/'; $infa{id} = $id; $obj->subst_comments(\%infa); $obj->subst_formats(%allll); # print "Location: /about/index.shtml\n\n"; # print "Content-type: text/html\n\n"; print "\n"; $obj->print; exit; } sub show_all { my %themes_hash; my $fmt = [['theme_name','quest','script','quest_id','theme_name1']]; dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; my %tmpHash; while ((my $key, my $value) = each %themes_hash) { push (@{$tmpHash{$value}},$key); } while ((my $key, my $value) = each %tmpHash) { my @array = @$value; my $namet = get_theme_id ($key); push (@$fmt,['head',$key,'','','','']); foreach my $item (@array) { unless ($item eq $key) { open (DATA, "$data_location/$item.txt") or warn("Unable to open the survey data file."); if ($flock eq "y") { flock DATA, 2; } my $quest = ; chomp ($quest); my @quest_array = split (/\|/,$quest); $quest = $quest_array[0]; #$key = get_theme_id ($key); push (@$fmt,['head1',$key,$quest,$ENV{SCRIPT_NAME},$item,$namet]); close (DATA); } } } my $obj = View_HTML->new($quest_dir.$all_templ); $obj->load(); $obj->{if_no_field} = ''; $infa{ccexp} = 48*3600000; $infa{ccpath}='/'; $obj->subst_comments(\%infa); $obj->subst_formats( 'good' => $fmt ); print "\n"; $obj->print; dbmclose (%themes_hash); } #Голосование из таблицы вопросов sub surv_all { my $docReferer = $ENV{'HTTP_REFERER'}; my %themes_hash; my $id = $input->param("quest_id"); my $theme_name = $input->param("theme"); my $show_res; unless (&inspect_user($id)) { $show_res=0; }else {$show_res=1} $docReferer =~ s/\?.*$//; $docReferer.="?quest_id=$id&show_res=$show_res&theme_name=$theme_name"; print "Location: $docReferer\n\n"; } #Показывает все вопросы заданной темы sub show_theme_all { my %themes_hash; my $theme_name = $input->param("theme_name"); my $fmt = [['theme_name','quest','script','quest_id']]; dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; my %tmpHash; while ((my $key, my $value) = each %themes_hash) { if ($value eq $theme_name) { push (@{$tmpHash{$value}},$key); } } my @array = @{$tmpHash{$theme_name}}; push (@$fmt,['head',$theme_name,'','','']); foreach my $item (@array) { unless ($item eq $theme_name) { open (DATA, "$data_location/$item.txt") or warn("Unable to open the survey data file."); if ($flock eq "y") { flock DATA, 2; } my $quest = ; chomp ($quest); my @quest_array = split (/\|/,$quest); $quest = $quest_array [0]; push (@$fmt,['head1',$theme_name,$quest,$ENV{SCRIPT_NAME},$item]); close (DATA); } } dbmclose (%themes_hash); my $obj = View_HTML->new($quest_dir.$all_templ); $obj->load(); $obj->{if_no_field} = ''; $infa{ccexp} = 48*3600000; $infa{ccpath}='/'; $obj->subst_comments(\%infa); $obj->subst_formats( 'good' => $fmt ); print "Content-type: text/html\n\n"; $obj->print; } #Показ результатов опроса без голосования sub show_res { show_result ($input->param("quest_id"),$input->param("themes_id")); } sub compare_arrays { my $point1 = shift; my $point2 = $_[0]; my @array1 = @$point1; my @array2 = @$point2; my $flag=0; my $len1 = $#array1+1; my $len2 = $#array2+1; if ($len1 ne $len2) { return 0; } foreach my $item (@array1) { $flag=0; foreach my $item1(@array2) { if ($item eq $item1) { $flag++; } } unless ($flag) { return 0; } } return 1; } #Удаляет повторяющиеся элементы списка sub clear_array { my $pArray = shift; my @list = @$pArray; my %seen = (); my @uniq; foreach my $item (@list) { unless (exists( $seen{$item})) { $seen{$item} = 1; push (@uniq, $item); } } return @uniq; } #Проверяет значение куков #Первый параметр - id вопроса #Второй параметр - действие #set - установить куку action в 1 #reset - установить куку action в 0 sub get_user_param { my $ip; my $user_id; my $browser; my $proxy = $ENV{'HTTP_VIA'}; if($proxy) #у человека стоит прокси сервер { my $ip_from_proxy = $ENV{'HTTP_X_FORWARDED_FOR'}; if($ip_from_proxy) # неанонимный прокси сервер { $ip = $ip_from_proxy; } else # анонимный прокси сервер, делать нечего, воспользуемся тем, что есть { $ip = $ENV{'REMOTE_ADDR'}; } } else { $ip = $ENV{'REMOTE_ADDR'}; } $browser = $ENV{'HTTP_USER_AGENT'}; $user_id = $ip.$browser; return $user_id; } #Подпрограмма возвращает название темы по id sub get_theme_name { my $them_id = shift; my %themeid_hash; dbmopen (%themeid_hash, "$themeid_dbm",0666) || die "cannot open dbmfile $themeid_dbm: $!"; while ((my $key, my $value) = each %themeid_hash) { if ($value eq $them_id) { return $key; } } dbmclose (%themeid_hash); return 0; } #Подпрограмма возвращает название темы по id sub get_theme_id { my $them_id = shift; my %themeid_hash; dbmopen (%themeid_hash, "$themeid_dbm",0666) || die "cannot open dbmfile $themeid_dbm: $!"; my $id = $themeid_hash{$them_id}; dbmclose (%themeid_hash); return $id; } sub array_search { my $ref = shift; my @array = @$ref; my $param = $_[0]; foreach my $data (@array) { if ($data eq $param) { return 1; } } return 0; }

mamacash October 2003 - March 2004 supported by Mama Cash
English version of portal created with financial support of Women's Network Program of Open Society Institute (Soros Foundation).

[an error occurred while processing this directive]
ROO "East-West: Women's Innovation Projects"
E-mail: zhip@owl.ru
[an error occurred while processing this directive]
© 2001 Design site:
Company Internet Project
© Pictures: Ivan Maksimov