nicht angemeldet
Hi Calocybe,
danke erstmal !
Also wenn Du das erst bei close tun willst (dem Titel nach zu urteilen), ist das ein bisschen zu spaet. ;-) Versuch mal eher sowas:
Bin halt noch Newbie :-((
Das ganze ist eigentlich nicht SO kritisch. Es soll nur meinem Freund, dem ich eine Seite gemacht habe, etwas die Pflege vereinfachen (Computer sind eine wirklich andere Welt für ihn..).
In $htmlfile ist der HTML-Dateiname gespeichert, die ich durch ein anderes Unterprogramm vorher abfragen lasse (in $htmldir steht dann natürlich das Verzeichnis).
Geht dann folgendes?
#######################
sub new_file {
if (-f $htmldir/$htmlfile) {
print STDERR "File $htmlfile does already exist!\n";
}
else
{
open(NEWFILE,">$htmldir/$htmlfile");
print NEWFILE "<html><head><title>Auktionen - TK</title>\n";
print NEWFILE "<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">\n";
print NEWFILE "<link rel="stylesheet" type="text/css" href="$path_abs/main/styles.css">\n";
:
:
print NEWFILE "</head><body>\n";
}
}
Danke und Grüsse
Martin