;
close (DATA);
$have=0;
$i=0;
foreach $pair (@DATA)
{
($id,$count,$to_link,$month,$year,$project,$type,$autors,$names,$publish,$notes)=split(/\|/,$pair);
if($id eq $bufer)
{
if (substr($to_link, 0, 7) eq 'http://') {
$pos = index($to_link,'/');
$url_t1 = substr($to_link,$pos+2);
# die $url_t1;
$url=$url_2.$url_t1;
}
elsif (substr($to_link, 0, 1) eq '?') {
$url="$url_mon$to_link";
}
else {
$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 "";
print "**** Предупреждение: ****";
# 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"]),
td(["(при плохом интернет-подключении настоятельно советуем загружать ссылку выше
через любой download-manager,
если соединение хорошее - жмите на кнопку 'Загрузить' ниже и немного подождите)"]),
]
)
);
# 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 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";
}