![]() |
![]() |
4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
if ($filenotgood ne "yes")
{
$fileName = param('FILE1') || "";
my ($filehandle) = CGI::upload('FILE1');
my $serverFile = $basedir . "/" .
(split(/[\\\/]/, param('FILE1')))[-1];
my $buffer;
open (FILE,">$serverFile") or die $!;
binmode $filehandle;
while (my $bytesread=read($filehandle,$buffer,1024))
{
if (print FILE $buffer)
{
$success = $hinweis2;
}
else {$success = $hinweis3;exit;} #Meldung, weil Fehler aufgetreten
}
close (FILE);
}
}
$funktion = system("cp /vonVerzeichnisA/test.pl /nachVerzeichnisB");
$funktion = system("cp", "/vonVerzeichnisA/test.pl", "/nachVerzeichnisB/");
![]() |
![]() |
4 Einträge, 1 Seite |