Hallo,
kann ich die Ausgabe:
print "Content-type: text/html\n\n<table border=0 align=center><tr><td height=70> </td></tr><tr height=70><td><font face=Arial,Helvetica><h4>Upload vollständig!</h4></font></td></tr></table>";
in einem anderem Frameset Fenster ausgeben nachdem mein Perlscript abgearbeitet ist.
Hier der Script:
#! /usr/bin/perl
binmode STDIN;
read STDIN, $Daten, $ENV{'CONTENT_LENGTH'};
@Teile = split /-----------------------------.{9}/, $Daten;
@Datei = split /\n/, $Teile[1], 5;
while ($Datei[1] =~ /\/) { $Datei[1] =~ s/^.*\//; }
$Datei[1] =~ s/"//;
chop $Datei[1];
chop $Datei[4]; chop $Datei[4];
open DATEI, ">>../../proddoc-pd/b/$Datei[1]
";
binmode DATEI;
print DATEI $Datei[4];
close DATEI;
Danke für Hilfe!
Ciao
BK