Testseite

#!C:\xampp\xampp\perl\bin\perl.exe -w use strict ; use CGI ; use CGI::Carp qw/fatalsToBrowser/; my $mycgi = new CGI; my $p = HTML::Parser->new (); my $links_datei='../mails/output_url.html'; my $zyklus=35; my $check1 = "Blöder Text."; my $check2 = "ichweißwas"; my $check3 = "Hau doch ab"; my $line=$mycgi->param("line"); $line=0 if(!$line); if(open(IN, "<", $links_datei)) { # Finde den Nächsten Eintag my @links=(); while(my $i=) { chomp($i); push(@links,$i); } close(IN); $line++; $line=0 if($line>@links); # zeile auf 0, wenn line > Anzahl der Elemente in @links $zyklus = 35; # Seite parsen und Zeit setzen # Seite parsen # den Link ausgeben: print $mycgi->header. ' Testseite <body>Frames müssen darstellbar sein</body> Frames müssen darstellbar sein '; } else { print $mycgi->header. $mycgi->start_html('FEHLER'). $mycgi->h1('FEHLER'). $mycgi->p($_[0]). $mycgi->end_html; }