Thread 2. Task starten! system() blockt... (23 answers)
Opened by master at 2005-02-24 10:46

esskar
 2005-02-24 10:55
#52056 #52056
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
Code: (dl )
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-->

View full thread 2. Task starten! system() blockt...