1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| ################################################################################
## Process Uploaded File
################################################################################
if (-d $session_dir)
{
my $query = new CGI;
my $file_name = $query->param ("filename");
$file_name = ~s /.*[\/\\](.*)/$1/;
my $upload_file_path = $upload_dir.$file_name;
my $upload_filehandle = $query->upload ("filename");
my $tmp_filename = $query->tmpFileName ($upload_filehandle);
close ($upload_filehandle);
print "Moving File to Upload Directory -> ";
if (rename ($tmp_filename, $upload_file_path))
{
print "<b style='color:green;'>Success</b><br>";
}
else
{
print "<font color='red'>Failure</font><br>";
}
print "Removing upload_size file -> ";
if (unlink ($upload_size_file))
{
print "<b style='color:green;'>Success</b><br>";
}
else
{
print "<font color='red'>Failure</font><br>";
}
}
} |
