здравствуйте.
скрипт по аплоуду файла на сервер работает только 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здесь видно что он и не будет работать в опере и лисе. Но почему так происходит :)
помогите разобраться.
заранее спасибо.
Потому что скрипт писал дурак, помимо этой проблемы там есть еще дырка в безопасности, не надо этот скрипт использовать, найдите вменяемый вариант.
>Потому что скрипт писал дурак, помимо этой проблемы там есть еще дырка
>в безопасности, не надо этот скрипт использовать, найдите вменяемый вариант.вы на 100% правы. вот здесь рабочий во всех браузерах и похоже вполне вменяемый вариант.
http://www.sitepoint.com/article/uploading-files-cgi-perl/
может кому пригодиться.
>http://www.sitepoint.com/article/uploading-files-cgi-perl/Действительно очень хороший пример.