#!/usr/bin/perl
use CGI qw/:standard/;
$| = 1;
$query = new CGI;
$month = $query->param("month");
$year = $query->param("year");
$magazine = $query->param("magazine");
%months = ('January','01','February','02','March','03','April','04','May','05','June','06','July','07',
'August','08','September','09','October','10','November',11,'December','12');
my $mymonth = $year . $months{$month};
my $dir = "/Volumes/*****/pdf/magazines/$magazine/$mymonth";
my $name = $query->cookie("name");
if (!(defined($name)) or ($name eq '')) {
print $query->redirect('pdf_login.cgi');
}
else {
print $query->header();
print "\n
\n$name\n";
print "
\n
";
my $bytes_read=0;
my $size='';
my $buff='';
my $filename='';
my $write_file='';
my $filepath='';
$filepath=$query->param("upload_file");
if ($filepath =~ /([^\/\\]+)$/)
{
$filename="$1";
}
else
{
$filename="$filepath";
}
$write_file="$dir" . "/" . "$filename";
print "$dir,$mymonth,$month,$magazine,$name,$filepath
\n";
print "Filename=$filename
\n";
print "Writefile= $write_file
\n";
if (!open(WFD,">>$write_file"))
{
die("Error opening $write_file for writing");
return;
}
while ($bytes_read=read($filepath,$buff,1024))
{
binmode WFD;
print WFD $buff;
}
close(WFD);
if ((stat $write_file)[7] <= 0)
{
unlink($write_file);
die("Could not upload file: $filename");
return;
}
else
{
print<
File
$filename of size
$size bytes is
uploaded successfully!
|
|
EOF
;
}
print "
\n
\n
";
};
exit 0;