[an error occurred while processing this directive]
Российские документы

Модельный закон "О государственных гарантиях равных прав и равных возможностей для мужчин и женщин"

19-12-2005  

  Закон принят Межпарламентской Ассамблеей государств-участников СНГ 18 ноября 2005 года
Подробнее...

Перечень материалов, включенных в банк данных Комиссии ВКП по вопросам трудящихся женщин

16-11-2005 Комиссия ВКП по вопросам трудящихся женщин

  Заместитель Генерального секретаря ВКП Н. Подшибякина любезно предоставила ИЦ НЖФ перечень (№13) материалов, включенных в банк данных Комиссии ВКП по вопросам трудящихся женщин.
Подробнее...

При Минздравсоцразвитии РФ создан Координационный совет по гендерным проблемам

10-06-2005  

  В соответствии с возложенными на него задачами Совет: готовит предложения по вопросам обеспечения гендерной политики государства; содействует эффективному функционированию национального механизма Российской Федерации по улучшению положения женщин; содействует социальному партнерству государственных структур и неправительственных организаций в решении проблем гендерного равенства; осуществляет анализ и оценку основных гендерных проблем, выработку заключений в рамках совещаний Совета.
Подробнее...

16-17 мая в Госдуме проходила Международная встреча женщин-парламентариев государств-участников СНГ "Женщины-парламентарии государств-участников СНГ в защиту прав семьи и детей"

19-05-2005  

  По итогам встречи принята Резолюция, в которой, в частности, выражена готовность способствовать полному осуществлению Конвенции о правах ребенка и ратификации факультативных протоколов к Конвенции, касающихся участия детей в вооруженных конфликтах, торговли детьми, детской проституции и порнографии. Признано необходимым содействовать реализации в странах СНГ Конвенции о ликвидации всех форм дискриминации в отношении женщин. Участники встречи обратились к главам государств, правительствам и парламентам стран СНГ с призывом принимать и соблюдать законы, осуществлять политику для защиты детей от всех форм насилия, жестокого обращения и эксплуатации. В Резолюции содержится призыв совершенствовать государственную семейную политику и социальную поддержку семьи.
Подробнее...

Цели Развития Тысячелетия (ЦРТ) и положение женщин в Республике Карелия

19-11-2004 Лариса Бойченко

  Текст подготовлен для V1-го Форума женщин Карелии 27 -28 октября 2004 г., г.Петрозаводск
Подробнее...

Федеральный закон "О ратификации Конвенции Организации Объединенных Наций против транснациональной организованной преступности..."

05-04-2004  

  Федеральный закон "О ратификации Конвенции Организации Объединенных Наций против транснациональной организованной преступности и дополняющих ее Протокола против незаконного ввоза мигрантов по суше, морю и воздуху и Протокола о предупреждении и пресечении торговли людьми, особенно женщинами и детьми, и наказании за нее"
Подробнее...

Проект Рекомендации парламентских слушаний на тему "О законотворческой деятельности Комитета Государственной Думы по делам женщин, семьи и молодежи..."

01-04-2004  

  Проект Рекомендации парламентских слушаний на тему "О законотворческой деятельности Комитета Государственной Думы по делам женщин, семьи и молодежи и взаимодействии с федеральными министерствами и ведомствами, органами государственной власти субъектов Российской Федерации, научными учреждениями и неправительственными организациями"
Подробнее...

Информация о деятельности Департамента по делам детей, женщин и семьи Министерства труда и социального развития РФ в 2003 году

01-04-2004  

  В соответствии с Положением о Департаменте основными направлениями работы Департамента по делам детей, женщин и семьи являются разработка предложений и реализация основных направлений и приоритетов государственной социальной политики по социальной защите детей, женщин, семьи, в том числе организации социального обслуживания, обеспечению социальных гарантий, повышению уровня жизни семей с детьми, социального статуса и роли женщин в обществе, совершенствованию законодательства по обеспечению прав и законных интересов детей, женщин и семьи.
Подробнее...

Извлечение из Гражданского кодекса РФ

23-09-2003 ***

  Глава 2. Возникновение гражданских прав и обязанностей, осуществление и защита гражданских прав. Глава 8. Нематериальные блага и их защита
Подробнее...

Извлечение из Конституции РФ

23-09-2003 ***

  Глава 2. Права и свободы человека и гражданина (ст. 17, 18, 19, 21, 29, 31, 33, 45, 46)
Подробнее...

Международные документы

План действий ОБСЕ 2004 года по поддержке гендерного равенства

13-04-2005  

  "Благосостояние всего мира и дело мира требует максимального участия женщин наравне с мужчинами во всех областях" (Резолюция 34/180 Генеральной ассамблеи ООН от 18 декабря 1979 года).
Подробнее...

Включение гендерной проблематики в деятельность ВОЗ

24-03-2005  

  Заявление Генерального директора о гендерной политике ВОЗ: включение гендерных перспектив в работу ВОЗ. Текст документа "Гендерная политика ВОЗ"
Подробнее...

Швеция: проституция и торговля женщинами

09-12-2004  

  Информационный бюллетень Министерства промышленности, занятости, транспорта и связи Швеции, ноябрь 2002 года. Неофициальный перевод со шведского языка
Подробнее...

Доклад "Все в наших руках: остановим насилие в отношении женщин"

18-03-2004 Международная Амнистия

  В докладе рассматриваются причины насилия, его формы и способы борьбы с ним. Рассмотрена взаимосвязь между насилием в отношении женщин и бедностью, дискриминацией и милитаризацией общества. Особое внимание уделено ответственности государства, общества и отдельных граждан по принятию мер по прекращению насилия в отношении женщин. С русской версией доклада можно ознакомиться на сайте Международной Амнистии http://www.amnesty.org.ru/rus/svaw-report-index-rus.
Подробнее...

Заключительные замечания Комитета ООН по экономическим, социальным и культурным правам (28 ноября 2003 г.)

17-12-2003  

  Неофициальный русский перевод
Подробнее...

Извлечение из Европейской Конвенции о защите прав человека и основных свобод

23-09-2003 (Рим, 4 ноября 1950 г.)

  Раздел I. Права и свободы Статья 10 Раздел I. Права и свободы. Статья 10. Свобода выражения мнения. Статья 14. Запрещение дискриминации
Подробнее...

Пятый периодический доклад по CEDAW: представление доклада РФ и заключительные замечания Комитета.

02-06-2003 Комитет СЕDАW

  Комитет рассмотрел пятый периодический доклад Российской Федерации (СЕDАW/USR/5) на своих 543-м и 544-м заседаниях 25 января 2002 года (см СЕDАW/С/SR 543 и 544)
Подробнее...

Обновление коллекции международных правовых инструментов на русском языке Библиотеки по Правам Человека Университета штата Миннесоты

23-05-2003  

  Библиотека значительно обновила информацию на страницах договорных органов ООН, поместив там периодические отчёты Российской Федерации и других стран СНГ, заключительные замечания Комитета к периодическим отчётам, правила процедуры договорных органов, общие рекомендации и замечания общего порядка.
Подробнее...

Послание Генерального Секретаря ООН по случаю Международного женского дня 8 марта 2003 года

03-03-2003  

Получено от Постоянного координатора Системы ООН в Российской Федерации
Подробнее...

Женщины, мир и безопасность: Международно-правовые рамки

27-10-2002 Информационный центр ООН в Москве

  Пресс-релиз, содержащий некоторые выводы и рекомендации нового доклада Генерального секретаря ООН Кофи Аннана "Женщины, мир и безопасность". Документ был представлен Совету Безопасности, и его обсуждение состоялось 25 октября с.г. на открытом заседании СБ. Доклад Генерального секретаря составлен во исполнение резолюции 1325 Совета Безопасности ООН от 31 октября 2000 г.
Подробнее...

Анонсы, 2000-2004

Семинар "Предотвращение трэффика – торговли людьми" (Карелия)

27-12-2004 КЦГИ

  Карельский центр гендерных исследований совместно со Шведским институтом и Администрацией местного самоуправления г. Петрозаводска проводит 18 января 2005 года семинар по теме: "Предотвращение трэффика – торговли людьми"
Подробнее...

наш опрос:
[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; }
Портал создан при содействии Фонда им. Генриха Белля (Германия) и поддержан Посольством США в Москве и женским фондом Mama Cash
Редакция портала "Женщина и общество" благодарит Глобальный Фонд для Женщин (США) за поддержку в 2005 году
[an error occurred while processing this directive]
РОО "Восток-Запад: Женские Инновационные Проекты"
Электронная почта: zhip@owl.ru, zhip@mail.ru
Телефон/факс: +7(499) 940-8294
[an error occurred while processing this directive]