Как закачать файл на сервер через www
Делаю NMHTTP1.Post(MyURL,'filename=c:\autoexec.bat');
но в данном случае - КАК УКАЗАТЬ ЧТО ЭТО ФАЙЛ?
Параметр береться просто как значение.
Вот скрипт который обрабатывает закаченные файлы:
#!/usr/bin/perl -w
use lib '..';
use CGI qw(:standard);
use CGI::Carp qw/fatalsToBrowser/;
print header();
print start_html("Загрузка файла на mymesi.pp.ru");
print h1("File Upload");
print start_multipart_form(),
"Введите имя файла с путем:",
filefield('filename','',45),
br,
p,
reset,submit('submit','Послать'),
endform;
open(FTXT,">$ENV{DOCUMENT_ROOT}/file.tmp") or die ("$! Error");
if ($file = param('filename'))
{
while (<$file>)
{
print $_ . br;
print FTXT $_;
}
}
close FTXT;
print b("$file").br."\n";
print end_html;
Мож кто поможет примером?