#!/usr/bin/perl
$bannerspath1="u:/www/show/";
###############################################################################
$content_type = $ENV{\'CONTENT_TYPE\'};
binmode STDIN;
read(STDIN, $buffer, $ENV{\'CONTENT_LENGTH\'});
if ((!$content_type) || ($content_type =~ m#^multipart/form-data#)){
($boundary = $content_type) =~ s/^.*boundary=(.*)$/\\1/;
@pairs = split(/--$boundary/, $buffer);
@pairs = splice(@pairs,1,$#pairs-1);
for $part (@pairs)
{
($dump,$fline,$value) = split(/\\r\\n/,$part,3);
next if $fline =~ /filename=\\"\\"/;
$fline =~ s/^Content-Disposition: form-data; //;
(@columns) = split(/;\\s+/, $fline);
($name = $columns[0]) =~ s/^name="([^"]+)"$/\\1/g;
if ($#columns > 0)
{
if ($value =~ /^Content-Type:/)
{
($dump,$dump,$value) = split(/\\r\\n/,$value,3);
}
else {($dump,$value) = split(/\\r\\n/,$value,2);}}
else {($dump,$value) = split(/\\r\\n/,$value,2);
if (grep(/^$name$/, keys(%CGI))) {
if (@{$FORM{$name}} > 0) {
push(@{$FORM{$name}}, $value);}
else {
$arrvalue = $FORM{$name};
undef $FORM{$name};
$FORM{$name}[0] = $arrvalue;
push(@{$FORM{$name}}, $value);}}
else {
next if $value =~ /^\\s*$/;
$FORM{$name} = $value;}
next;}
$FORM{$name} = $value;}}
else{
@pairs2 = split(/&/, $buffer);
foreach $pair2 (@pairs2)
{
($name2, $value2) = split(/=/, $pair2);
$value2 =~ tr/+/ /;
$value2 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value2 =~ s///g;
$input{$name2} = $value2;
}}
###############################################################################
if($FORM{\'pic\'} ne ""){
######################
$id=time();
$upfile = $FORM{\'pic\'};
$post=".jpg";
$upname = "$id$post";
$filename = $upname;
$FORM{what}=~ s/^\\s+//;$FORM{what}=~ s/\\s+$//;
$namepic=$FORM{pic};
$namepic=~ s/^\\s+//;$namepic=~ s/\\s+$//;
$base=$bannerspath1;$path="banners";
open (NEWINFO, ">>$path/pics.pl");print NEWINFO "$filename $namepic\\n";close (NEWINFO);
chdir($base);
open(FILE1, ">$filename");
binmode FILE1;
print FILE1 $upfile;
close FILE1;
print "Location: script.cgi?action=banners\\n\\n";
}else{
print "Location: script.cgi?action=addbanner\\n\\n";
}
Объясните где в скрипте имя файла, которое я закачиваю. Потому как form{pic} дайет саму картинку, а мне нужно строчку закачки или хотя бы имя.
