| Server IP : 79.136.114.73 / Your IP : 3.144.104.136 Web Server : Apache/2.4.7 (Ubuntu) PHP/5.5.9-1ubuntu4.29 OpenSSL/1.0.1f System : Linux b8009 3.13.0-170-generic #220-Ubuntu SMP Thu May 9 12:40:49 UTC 2019 x86_64 User : www-data ( 33) PHP Version : 5.5.9-1ubuntu4.29 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority, MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /var/www/icad.astacus.se/customerzon/JavaPowUpload/FileProcessingScripts/PERL/ |
Upload File : |
#!/usr/bin/perl -w
use CGI;
use File::Basename;
use Encode;
$query = new CGI;
my $target_encoding = "ISO-8859-1";
my $i = 0;
my $j = 0;
print $query->header ( );
print "Upload result:<br>";
$upload_dir = dirname($ENV{'PATH_TRANSLATED'})."/UploadedFiles/";
@names = $query->param;
foreach $param (@names) {
my $filename = $query->param($param);
$filename =~ s/.*[\/\\](.*)/$1/;
$filename = encode($target_encoding, decode_utf8($filename));
my $upload_filehandle = $query->upload($param);
if(defined($upload_filehandle))
{
open UPLOADFILE, ">$upload_dir\\$filename";
binmode UPLOADFILE;
while ( <$upload_filehandle> )
{
print UPLOADFILE;
}
close UPLOADFILE;
if(($param cmp ("FileBody_".$i)) == 0)
{
print "file \"$filename\" uploaded sucessfully<br>" ;
print "FilePath: ".$query->param("FilePath_".$i)."<br>";
print "RealFilePath: ".$query->param("RealFilePath_".$i)."<br>";
print "FileSize: ".$query->param("FileSize_".$i)."<br>";
print "FileLastModified: ".$query->param("FileLastModified_".$i)."<br>";
print "FileIndex: ".$query->param("FileIndex_".$i)."<br>";
print "FileMD5: ".$query->param("FileMD5_".$i)."<br><br>";
$i+=1;
}
print "<br>";
}
}