Forum Webscript.Ru
Программирование => Perl => Тема начата: Lurker от 08 Марта 2003, 13:17:09
-
Помогите пожалуйста ....
Нужно сделать скрипт который по паролю с логином бедет позволять скачивать определенный файл как это сделать
Как организовать download файла через скрипт перла ????
-
Нужно сделать скрипт который по паролю с логином бедет позволять скачивать определенный файл как это сделать
Как организовать download файла через скрипт перла ????
FAQ читаем?
http://wiki.webscript.ru/PerlFAQ
-
А как передать содержимое файла ???
Я поставил заголовок но мне возвращаеться пустой файл.....
-
Chs:
http://wiki.webscript.ru/PerlFAQ
загнул, ты Chs.
Начинать здесь надо с http://yandex.ru/yandsearch?text=%FF%E7%FB%EA+html
-
Большое спасибо Mog. ты мне так помог !!! 8-/
Chs я заголовки вставил, но как правильно выдать содержимое этого архива, дай примерчик чтоли......
-
Lurker:
Большое спасибо Mog. ты мне так помог !!! 8-/
Ну вот, хоть один поблагодарил :)
Lurker:
дай примерчик чтоли......
В http://wiki.webscript.ru/PFWWWUpload же, пример лежит, самый, что ни на есть пример. Что непонятного?
-
Да мне не Upload нужен ............
А наоборот... запускаеш скрипт а он тебе предлагает сохранить такойто файл (т.б. закачька файла с инета к себе на винт)
-
Lurker:
Да мне не Upload нужен ............
А наоборот...
Даунлоад, значит, нужен. Понял :)
Примерно так
#!/usr/bin/perl
use CGI qw( param );
use CGI::Carp qw( fatalsToBrowser );
$name=param(\'name\');
$s_dir="./songs";# каталог где лежат файлы и откуда они будцт скачиваться
if(!$name){&list_files}
&save_file;
sub save_file{ # та часть, которая занимается аплоадом
open(file, "$s_dir/$name");
binmode file;
@xxx=;
$size= -s file;
close file;
print "Content-type: application/octetstream\\n";
print "Content-length: $size\\n";
print "Content-disposition: inline; filename=\\"$name\\"\\n\\n";
for (@xxx){print "$_";}
}
sub list_files{ # формирует список файлов из заданного каталога
opendir (DIR, "$s_dir");
@dir=readdir DIR;
closedir DIR;
print "Content-type: text/html\\n\\n";
for $s(@dir){
if($s!~/(^\\.$)|(^\\.\\.$)/){
@s_f=stat("$s_dir/$s");
$size=sprintf "%.2f",$s_f[7]/1000;
print "Скачать $s ($size Kбайт)
\\n";
}
}
exit;
}
поробуй.
-
Вот СПАСИБО !!!!!
помог.......я с этим скриптом уже недлю мудухаюсь....
Спасибо помог!
-
Mog.
binmode STDOUT
еще рекомендуется.:)
-
Chs:
binmode STDOUT
еще рекомендуется
Буду иметь ввиду, спасибо.
-
А как сделать, чтобы предлагалось скачать файл, а не сразу открывалось?
-
Jurik:
А как сделать, чтобы предлагалось скачать файл, а не сразу открывалось?
print "Content-type: application/octet-stream\\n";
вместо
print "Content-type: application/octetstream\\n";
-
Не работает.
Например, gif-файл сразу открывается в окне Internet Explorer.
-
Например, gif-файл сразу открывается в окне Internet Explorer
Гребанный IE определяет то, что делать с файлом не по Content-type, а по своей внутренней логике.
А вообще вот так:
print "Content-Type: application/octet-stream\\nContent-Length: ", -s \'download.zip\' ,"\\n";
print "Content-Disposition: attachment; filename=download.zip\\n\\n";
-
Скрипт заработал, но не совсем правильно.
Проблема в том, что скрипт сначало закачивает файл, а потом предлагает его сохранить или открыть.
В моем случае это не корректно, по скольку у меня файлы слишком большие.