здравствуйте.
скрипт по аплоуду файла на сервер работает только ie. В лисе и опере не хочет.
вот сам скрипт:
cat testup1.cgi
#!/usr/bin/perluse CGI;
my $cgi = new CGI;
my $file = $cgi->param('file');
open (IN2, ">>/tmp/sitename");
print IN2 "1 - $file\n";
$file=~m/^.*(\\|\/)(.*)/; # strip the remote path and keep the filename
print IN2 "2 - $file\n";
my $name = $2;
print IN2 "3 - $name\n";
open(IN, ">/tmp/$name");
while(<$file>) {
print IN $_;
}
#print FILE while (<$file>);
print $cgi->header();
print "$file has been successfully uploaded... thank you.\n";
вот форма:
cat testcgiw.html
<FORM ENCTYPE="multipart/form-data" ACTION="/cgi-bin/testup1.cgi" METHOD="POST">
<p>
Please select a file to upload: <BR>
<INPUT TYPE="FILE" NAME="file">
<p>
<INPUT TYPE="submit">
</FORM>
вывод при запуске в лисе и опере:
cat sitename
1 - 085.jpg
2 - 085.jpg
3 -
вывод при отправке из ie:
1 - I:\save\pics\1\085.jpg
2 - I:\save\pics\1\085.jpg
3 - 085.jpg
здесь видно что он и не будет работать в опере и лисе. Но почему так происходит :)
помогите разобраться.
заранее спасибо.
Вариант для распечатки
WEB технологии (Public)
(ok) on 27-Авг-09, 10:00 
