**** Результаты сортировки: ****

#!/usr/bin/perl # Первая строчка - это путь до перла, #обычно это #!/usr/local/bin/perl или #!/usr/bin/perl # Узнайте у вашего провайдера!!!!!!!!!!!!!!!!! # use CGI qw/:standard/; $server_name = $ENV{'SERVER_NAME'}; #require "bsdccsetup.pl"; #require "D:/inetpub/wwwroot/dfni/cgi-bin/bsdccsetup.pl"; #Блокировка файла #Значения # 1 - включенно (для серверов на unix основе) # 0 - отключенно (для серверов на win основе) #$lock_file="0"; #Файл с ссылками #$link_list_file="linklist.bs"; #$link_list_file="D:/inetpub/wwwroot/dfni/cgi-bin/linklist.bs"; if ($server_name eq "www.dfni.dp.ua") { $lock_file="0"; $link_list_file="D:/dbniss/cgi-bin/linklist.bs"; $url_l="http://172.17.3.3/dfni/docs/"; $url_l2="http://172.17.3.3/dfni/cgi-bin/bsdcc.pl?"; $path_l="D:/dfni/docs/"; } else { $lock_file="1"; $link_list_file="linklist.bs"; $url_l="http://www.db.niss.gov.ua/docs/"; $url_l2="http://www.db.niss.gov.ua/cgi-bin/bsdcc.pl?" } #Get data from memory -------- $bufer=$ENV{'QUERY_STRING'}; #End ------------------------- if ((param()) || ($bufer ne "") ) { @types = param('types'); @dates = param('dates'); @deps = param('deps'); $i_types = 0; $i_dates = 0; $i_deps = 0; if ($bufer ne "") { @types = ('Аналитические материалы','Монографии','Научно-технические отчеты','Публикации'); @dates = ('2006','2005','2004','2003','2002','2001','2000'); if ($bufer eq "1") { @deps = ('1'); } elsif ($bufer eq "2") { @deps = ('2'); } elsif ($bufer eq "3") { @deps = ('3'); } elsif ($bufer eq "4") { @deps = ('4'); } elsif ($bufer eq "5") { @deps = ('5'); } elsif ($bufer eq "6") { @deps = ('6'); } } foreach $item (@types) { if ($item eq 'Аналитические материалы' ) { @types_[$i_types] = '1'; } elsif ($item eq 'Монографии') { @types_[$i_types] = '2'; } elsif ($item eq 'Научно-технические отчеты') { @types_[$i_types] = '3'; } elsif ($item eq 'Публикации' ) { @types_[$i_types] = '4'; } $i_types++; } foreach $item (@dates) { $i_dates++; } foreach $item (@deps) { $i_deps++; } #print @types; #print @dates; #print @deps; open (DATA,"$link_list_file") || die "Не могу открыть файл $link_list_file для чтения"; if($lock_file){flock (DATA,1);} @DATA=; close (DATA); $have=0; $i=0; $i2=0; print "Content-Type: text/html\n\n"; # print start_html(-title=>'**** Результаты сортировки: ****', # -meta=>{'charset'=>'windows-1251'} # ); print ""; print "**** Результаты сортировки: ****"; foreach $pair (@DATA) { ($id,$count,$to_link,$month,$year,$project,$type,$autors,$names,$publish,$notes)=split(/\|/,$pair); $hash_{$id} = $year.$month; # $testt = $id.$year.$month; # print "$year\n$month\n"; # print $pair; # print "$testt \n\n"; } $i3=0; foreach $pair (sort { $hash_{$a} cmp $hash_{$b} } keys %hash_ ) { $sortedkeys[$i3] = $pair; # print "$pair is $hash_{$pair}\n" ; # print "$sortedkeys[$i3]\n" ; $i3++; } $i3=0; foreach $pair (@sortedkeys) { foreach $pair1 (@DATA) { ($id,$count,$to_link,$month,$year,$project,$type,$autors,$names,$publish,$notes)=split(/\|/,$pair1); # print "$id---$pair\n"; if ($id eq $pair) { $DATA1[$i3] = $pair1; # $www = $pair1; # print "wwwwwwwwwwwwwwwwwwwwwwwwwwwww\n"; # print "$www\n"; # print "$DATA1[$i3]\n"; $i3++; last; } } } print ""; print ""; # print ""; print ""; print ""; foreach $pair (@DATA1) { ($id,$count,$to_link,$month,$year,$project,$type,$autors,$names,$publish,$notes)=split(/\|/,$pair); if ($type eq 1) { $type2='Ан. м-л'; } elsif ($type eq 2) { $type2='Моногр.'; } elsif ($type eq 1) { $type2='НТО'; } elsif ($type eq 1) { $type2='Публ.'; } foreach $item (@types_) { if ($item eq $type) { foreach $item1 (@dates) { if ($item1 eq $year) { foreach $item2 (@deps) { if ($item2 eq $project) { $i2=3; print ""; # print ""; print ""; print ""; } } } } } } } if ($i2 eq 0) { print ""; } print "

id	Число закачек	URL	Месяц	Год	№ отдела	Тип	Авторы	Имя работы	Где опубликовано	Примечание	Наименование	Дата	Тип	Тема	Опубликовано
$id	$count	$to_link	$month	$year	$project	$type	$autors	$names	$publish	$notes	$autors $names	$month.$year	$type2	$project	$publish
Записей, соответствующих заданным критериям сортировки, не найдено! …
Сокращения: Ан. м-л - аналитический материал; Моногр. - монография; НТО - научно-технический отчет; Публ. - публикация "; print " "; print "Тематика детально: (расшифровка) "; print " 1: Проблемы региональной стабильности и военной безопасности "; print " 2: Прогнозировние новых видов вооружений "; print " 3: Развитие военно-промышленной базы "; print " 4: Топливно-энергетическая безопасность "; print " 5: Международно-правовое обеспечение военно-технической политики "; print " 6: Мониторинг региональных аспектов национальной безорасности и анализ общественно-политических процессов "; print " "; print "

Число закачек

URL

Месяц

Год

№ отдела

Тип

Авторы

Имя работы

Где опубликовано

Примечание

Наименование

Дата

Тип

Тема

Опубликовано

$id

$count

$to_link

$month

$year

$project

$type

$autors

$names

$publish

$notes

$autors $names

$month.$year

$type2

$project

$publish

Записей, соответствующих заданным критериям сортировки, не найдено!
…

Сокращения:
Ан. м-л - аналитический материал;
Моногр. - монография;
НТО - научно-технический отчет;
Публ. - публикация

"; print "

"; print "Тематика детально:
(расшифровка)
"; print "  1: Проблемы региональной стабильности и военной безопасности
"; print "  2: Прогнозировние новых видов вооружений
"; print "  3: Развитие военно-промышленной базы
"; print "  4: Топливно-энергетическая безопасность
"; print "  5: Международно-правовое обеспечение военно-технической политики
"; print "  6: Мониторинг региональных аспектов национальной безорасности и анализ общественно-политических процессов
"; print "

"; print "

\n"; print button(-name=>'clear',-value=>'Назад',-onClick=>"history.back()"); print "

\n"; print end_html; } else { print "Content-Type: text/html\n\n"; # print start_html(-title=>'**** Сортировка материалов: ****', # -meta=>{'charset'=>'windows-1251'} # ); print ""; print "**** Сортировка материалов: ****"; print startform(); print ""; print ""; print ""; print ""; print "

Тип материала	Год выпуска	Тематика
"; print scrolling_list(-name=>'types', -values=>['Аналитические материалы','Монографии','Научно-технические отчеты','Публикации'], -default=>['Аналитические материалы','Публикации'], -size=>4, -multiple=>'true'); print "	"; print scrolling_list(-name=>'dates', -values=>['2006','2005','2004','2003','2002','2001','2000'], -default=>['2006'], -size=>4, -multiple=>'true'); print "	"; print scrolling_list(-name=>'deps', -values=>['1','2','3','4','5','6'], -default=>['1'], -size=>6, -multiple=>'true'); print "
"; print " "; print "Обратите внимание: вверху можно выбирать множественные данные используя клавишу Ctrl "; print "
"; print "Тематика детально: (расшифровка) "; print " 1: Проблемы региональной стабильности и военной безопасности "; print " 2: Прогнозировние новых видов вооружений "; print " 3: Развитие военно-промышленной базы "; print " 4: Топливно-энергетическая безопасность "; print " 5: Международно-правовое обеспечение военно-технической политики "; print " 6: Мониторинг региональных аспектов национальной безорасности и анализ общественно-политических процессов "; print " "; print submit(-name=>'submit',-value=>'Загрузить'); print reset(-name=>'Отмена',-value=>'Отмена'); print endform(); print "

Тип материала

Год выпуска

Тематика

"; print scrolling_list(-name=>'types', -values=>['Аналитические материалы','Монографии','Научно-технические отчеты','Публикации'], -default=>['Аналитические материалы','Публикации'], -size=>4, -multiple=>'true'); print "

"; print scrolling_list(-name=>'dates', -values=>['2006','2005','2004','2003','2002','2001','2000'], -default=>['2006'], -size=>4, -multiple=>'true'); print "

"; print scrolling_list(-name=>'deps', -values=>['1','2','3','4','5','6'], -default=>['1'], -size=>6, -multiple=>'true'); print "

"; print "

"; print "Обратите внимание: вверху можно выбирать множественные данные используя клавишу Ctrl

"; print "

"; print "Тематика детально:
(расшифровка)

"; print "  1: Проблемы региональной стабильности и военной безопасности
"; print "  2: Прогнозировние новых видов вооружений
"; print "  3: Развитие военно-промышленной базы
"; print "  4: Топливно-энергетическая безопасность
"; print "  5: Международно-правовое обеспечение военно-технической политики
"; print "  6: Мониторинг региональных аспектов национальной безорасности и анализ общественно-политических процессов
"; print "

"; print submit(-name=>'submit',-value=>'Загрузить'); print reset(-name=>'Отмена',-value=>'Отмена'); print endform(); print "

"; print end_html; if($bufer eq '0') { } elsif ($bufer eq '1') { foreach $pair (@DATA) { ($id,$count,$to_link,$month,$year,$project,$type,$autors,$names,$publish,$notes)=split(/\|/,$pair); if($id eq $bufer) { $url="$url_l$to_link"; chomp($url); $ext = substr($to_link, -3, 3) ; $url_pre = substr($to_link, 0, 1) ; $file_l = "$path_l$to_link"; $file_size = (-s $file_l); $have=1; $count++; @DATA[$i]=join("\|",$id,$count,$to_link,$month,$year,$project,$type,$autors,$names,$publish,$notes); last; } else {$i++;} } if(!($have)) {die "Такой ссылки в базе ненайденно.";} else { open (DATA,">$link_list_file") || die "Не могу cоздать файл $link_list_file"; if($lock_file){flock (DATA,2);} print DATA @DATA; close (DATA); } $ref_ = referer(); if ($url_pre eq '.') { print "Content-Type: text/html\n\n"; print start_html(-title=>'**** Предупреждение ****', -meta=>{'charset'=>'windows-1251'} ); print "

Запрашиваемый файл, по мнению испольнителей:
"; print "($autors)
"; print "в настоящее время не может быть открыт на сайте для публичного просмотра.
"; print "Для получения рабочей ссылки необходимо связаться с авторами:
"; # print a({href=>"http://crete.org/"},"Crete"); print "

"; print "

\n"; # print button(-name=>'clear',-value=>'Назад',-onClick=>"location=\"$ref_\""); print button(-name=>'clear',-value=>'Назад',-onClick=>"history.back()"); print "

\n"; print end_html; } elsif ($ext eq 'pdf' || $ext eq 'zip') { if ($ext eq 'pdf') { $string_ext = '.PDF-формате'; } elsif ($ext eq 'zip') { $string_ext = 'формате MS WORD и упакован в .ZIP-архив'; } # print header; print "Content-Type: text/html\n\n"; #print "\n"; print start_html(-title=>'**** Предупреждение ****', -meta=>{'charset'=>'windows-1251'} ); # print header, start_html('aaaaaaaaaaa'); # print p($to_link); # print p($ext); # print ($file_l); # print ($file_size); print table( {-border=>0,-align=>CENTER}, Tr( {-align=>CENTER,-valign=>TOP}, [ td(["Запрашиваемый файл представлен в $string_ext"]), td(["Имеет размер $file_size байт"]), td(["и может быть загружен по такому адресу:"]), td(["$url"]) ] ) ); # print startform(-action=>'http://172.17.3.3/dfni/cgi-bin/bsdcc.pl'); print "

\n"; print button(-name=>'submit',-value=>'Загрузить',-onClick=>"location=\"$url\""); print button(-name=>'clear',-value=>'Отмена',-onClick=>"location=\"$ref_\""); # print submit(-name=>'submit',-value=>'Загрузить'); # print submit(-name=>'clear',-value=>'Отмена'); # print endform(); print "

\n"; # print referer(); # print param('submit'); # print param('clear'); print end_html; # if (param('submit') eq 'Загрузить') { # print 'была нажата кнопка загрузить'; # print "Location: $url \n\n"; # print redirect(-URL=>$url); # } # elsif (param('clear') eq 'Отмена') { # print 'была нажата кнопка отмена'; # print "Location: referer() \n\n"; # } } else { print "Location: $url \n\n"; } } } 1;