Browser script Perl Startseite quelltext Frameset perl script

Perl Script erzeugt HTML

Von: , Frage gestellt am So, 31. Dez 2000

Hi!
Ich hab leider wieder ein Problem...
Ich möchte eine HTML-Seite mit Frames mit einem CGI-Script erzeugen.
Dazu ha ich folgenden Quelltext erstellt:

#!/Programme/Perl/bin/perl -w
$titel = "HTML Startseite";
use CGI;
$query=new CGI;
&create_html_site();
exit;
sub create_html_site {
$seite=<<END;

<frameset border="0" frameborder="NO" framespacing="0" cols="20%,*">
<frame src="http://xxxxxx.ath.cx/cgi-bin/menu.cgi" scrolling="NO" Noresize border="0" Frameborder="NO" framespacing="0">
<frame src="http://xxxxxx.ath.cx/cgi-bin/start.cgi"scrolling="NO" Noresize border="0" Frameborder="NO" framespacing="0">
</frameset>

<noframes>
Ihr Browser unterstützt keine Frames!
</noframes>

END
print $query->header;
print $query->start_html ("$titel");
print $seite."\n";
system "perl http://xxxxxx.ath.cx/cgi-bin/counter.cgi";
print $query->end_html;
}

Im HTML-Editor mit Vorschau funktioniert die Seite, nur das Script will die Seite nicht laden..

Komisch....

Vielleicht weiß einer was ich falsch gemacht habe...
Wartend auf Rückmeldungen,
Martin

2 Antworten zu dieser Frage

1. Antwort von nach einem Tag hilfreich

   Re: Perl Script erzeugt HTML

   Hi Martin,
   ich denke Dein Problem liegt zwischen beiden Ohren und nicht am Rechner! (SCNR)
   Reihenfolge:
   
   print &header;
   print '<frameset border="0" frameborder="NO" framespacing="0" cols="20%,*">'."\n";
   print '<frame src="http://localhost/frame1.html" scrolling="NO" Noresize border="0" Frameborder="NO" framespacing="0">'."\n";
   print '<frame src="http://localhost/frame2.html"scrolling="NO" Noresize border="0" Frameborder="NO" framespacing="0">'."\n";
   print '</frameset>'."\n";
   print &start_html("$titel")."\n";
   
   print '<noframes>'."\n";
   print 'Ihr Browser unterstützt keine Frames!'."\n";
   print '</noframes>'."\n";
   
   print &end_html;
   
   Also Frames gehören in den HTML-Kopf und nicht in den BODY!!
   (Ich hab' das create-Sub hier nur etwas umgeschrieben, da so eindeutiger)
   
   CUL8R (M)ike.
   

   • Antwort von nach einem Tag hilfreich

     Re^2: Perl Script erzeugt HTML

     Oh mein Gott ich bin blöd!!!
     
     Besten Dank für deine Antwort !
     Entschuldige bitte meine Dummheit...
     

Keine passende Antwort gefunden? Jetzt eigene Frage stellen!