#!/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 "karina.rsd.dom") { $lock_file="0"; #$link_list_file="D:/dbniss/cgi-bin/linklist.bs"; #$url_l="http://www.dfni.dp.ua/docs/"; #$url_2="http://www.dfni.dp.ua/utel/"; #$path_l="D:/dbniss/docs/"; $link_list_file="c:/WebServers/home/karina.rsd.dom/cgi-bin/linklist.bs"; $url_l="http://karina.rsd.dom/docs/"; $url_2="http://karina.rsd.dom/utel/"; $path_l="c:/WebServers/home/karina.rsd.dom/www/docs/"; } else { $lock_file="1"; $link_list_file="linklist.bs"; $url_l="http://www.db.niss.gov.ua/docs/"; $url_mon="http://www.db.niss.gov.ua/monitor/comments.php"; $url_2="http://is.utel.net.ua/~dbnissml/dfni/"; $path_l="/home/dfnidp/public_html/dbniss/docs/"; } #print "Content-Type: text/html\n\n"; #print "\n"; #print "
\n"; #print "Запрашиваемый файл, по мнению испольнителей:
";
print "($autors)
";
print "в настоящее время не может быть открыт на сайте для публичного просмотра.
";
print "Для получения рабочей ссылки необходимо связаться с авторами:
";
# print a({href=>"http://crete.org/"},"Crete");
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 ""; print "\n"; print button(-name=>'submit',-value=>'Загрузить',-onClick=>"location=\"$url\""); # print button(-name=>'clear',-value=>'Отмена',-onClick=>"location=\"$ref_\""); print button(-name=>'clear',-value=>'Отмена',-onClick=>"history.back()"); # 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"; }