root@server:
cgi-bin> cat uploadf.cgi
#!/usr/bin/perl
print "Content-type: text/html\n\n";
$|=1;
use strict;
use CGI qw (param);
use Fcntl;
my $filename;
my $FL;
my $PATH;
$FL = param("uploadfile");
print "<hr>$FL<hr>";
# полный физ. путь к папке для загрузки файлов
# cо слешем / в конце.
# папка должна иметь права доступа "на запись" для всех пользователей.
$PATH = "/var/www/downloads/";
if ($FL)
{
$FL =~ /[\\\/:]([^\\\/:]+)$/;
$filename = $1;
open(DATA, ">".$PATH.$filename);
binmode (DATA);
print DATA while (<$FL>);
close (DATA);
print "<center><h3>Файл успешно загружен !</h3></center>";
}
root@server:
cgi-bin> ./uploadf.cgi
zsh: no such file or directory: ./uploadf.cgi
zsh: exit 127 ./uploadf.cgi
если запускать его через perl -d uploadf.cgi и выполнять построчно, то все нормально проходит до конца (только if пропускается, т.к. условие получается ложно)
если запускать его чере страницу/форму, то Internal Server Error. В логах апача появляется сообщение:
[Thu Jul 21 21:01:30 2005] [error] (2)No such file or directory: exec of /var/www/cgi-bin/uploadf.cgi failed
[Thu Jul 21 21:01:31 2005] [error] [client 83.167.97.134] Premature end of script headers: /var/www/cgi-bin/uploadf.cgi
Ответ на:
комментарий
от sasha999
Ответ на:
комментарий
от vahvarh
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум Debian & Apache (2004)
- Форум SH CGI (2011)
- Форум Проблема с выполнением cgi (2009)
- Форум Ubuntu 10.04 apache2 + Perl (2012)
- Форум Не работает perl CGI (2013)
- Форум apache и cgi (2005)
- Форум Помогите разобраться с Apache - он ругается на CGI скрипты (2001)
- Форум Апач срезает из HTTP_HOST префикс www. (2016)
- Форум не хватает прав скрипту (2017)
- Форум Perl (2002)