1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
use Win32::Process;
sub ErrorReport {
die Win32::FormatMessage( Win32::GetLastError() );
}
my $tmp = $ENV{'QUERY_STRING'};
my $pid;
print "Content-type: text/html\n\n";
Win32::Process::Create(
$pid,
"C:\\Programme\\FTP\\FTP.exe",
"ftp ftp://$tmp",
0,
NORMAL_PRIORITY_CLASS,
".")|| ErrorReport();
print 'Erledigt';
print '<script type="text/javascript">window.close()</script>';
\n\n
<!--EDIT|esskar|1109235356-->