Скрипт работает на загрузку, но не читает буфер. Подскажите как мне его научить. :) Вот он сам:
#!/usr/bin/perl -w
require '../config.pl';
print "Content-type: text/html\n\n";
use strict;
use CGI qw(param);
my $file = param('file') ? param('file') : 'none';
if ($file eq 'none') {
print "<form action=\"\" method=post enctype=\"multipart/form-data\">\n";
print" <input type=\"file\" size=\"60\" name=\"file\">\n";
print" <input type=\"submit\" value=\"Upload\"></form>\n";
exit;
} else {
my $file_name = 'file.jpg'; # Имя файла на сервере
open FILE, ">$file_name" || die "Can not open file! $file_name!";
#open (FILE, ">$file_name") || die "Can not open file! $file_name!";
binmode FILE;
flock (FILE, 2);
print FILE while (<$file>);
close FILE; close $file_name;
chmod 0770, $file_name;
print "Upload OK! $file_name\n";
exit;}
И конфиг тоже не читает. :(