|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Vladimir Lech 2:5020/400 07 Nov 2000 15:44:37
To : All
Subject : В чем может быть проблема?
--------------------------------------------------------------------------------
Добрый всем день!
Пишу второй раз, потому что в первый раз по
каким-то причинам мое письмо не было опубликовано.
Возникла какая-то проблема с загрузкой файлов JPG/GIF.
Есть скрипт, который работал и работает на двух машинах.
Hа обех машинах стояли Apache/1.3.9 (Unix), но недавно,
на одной из них я поставил Apache/1.3.12 (Unix) rusPL29.7.
После этого под Apache/1.3.12 (Unix) файлы загружаются, но
"битые", при этом размер оригинала и загруженного одинаковый.
В чем может быть проблема?
Вот скрипт:
# --------------------------------------------------------
my ( $filepath ) = upload( 'upload_banner');
my $var = 1;
if ( $filepath eq "" ) { $var = 2 }
if ( $filepath =~ /([^\/\\]+)$/ ) { $file_name = "$1" }
else { $file_name = "$filepath" }
$file_name =~ s/\s+/_/g;
$file_name =~ tr/A-Z/a-z/;
$file_name = $flogin . "_" . $file_name;
if ( $var == 2 ) {
print qq( 'Вы забыли выбрать файл!'' );
} else {
open ( OUTFILE, "> > $img_dir/$file_name" ) or die ( print
$!,"\n" );
while ( $bytesread = read ( $filepath, $buffer, 1024 ) ) {
$bytes += $bytesread;
print OUTFILE $buffer;
}
close ( OUTFILE );
chmod ( 0644,"$img_dir/$file_name" );
}
print qq(Баннер $file_name загружен. <br> \n);
print qq( <img src="$img_dir/$file_name" border="1"> \n);
# --------------------------------------------------------
Sent via Deja.com http://www.deja.com/
Before you buy.
--- ifmail v.2.15dev5
* Origin: Deja.com - Before you buy. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
