alex007, последний унрегистред - мой:-)
Если не трудно кинь скрипт на мыло
адресочек по-точнее:-)?
Ну да ладно, если тут никто не будет вредничать, то вот мой кривой код:
#!/usr/bin/perl -w
#download.cgi
use strict;
use CGI qw (:standart);
my $Objekt=new CGI;
my $File = $Objekt->param("file");
my $Path= $Objekt->param("path");
if($Path eq "obrazovanie"){
$Path="../www/obrazovanie";
}elsif($Path eq "konferenc"){
$Path="../www/konferenc";
}else{exit;}
print "Content-type: application/WindowsMustDie; name=$File\\n";
my @temp=split(/\\//, $File);
my $t=$#temp;
my $name=$temp[$t];
print "Content-Disposition: attachment; filename=$name\\n\\n";
open(FILE, "< $Path/$File") or die "Ошибка не удаётся открыть файл $File: $!";
print
;
close(FILE);
exit;
Пример вызова скрипта:
download.cgi?file=chtoto.doc&path=obrazovanie
Разберёшься?
