#!/usr/bin/perl -w use CGI; $q = new CGI; print $q->header; # HTML-Header erzeugen require config; &secure_checkip($alias); ######################################## ##ANFANG DER ZU STREAMENDEN HTML-DATEI## ######################################## print < END $| = 1; # Cache von Perl ausschalten ############################# ##BEGRÜSSUNGSTEXT SCHREIBEN## ############################# my $msgfile; print $q->font( { -size=>1, -color=>"ffffff", -face=>"arial"}, "$title Copyright by Paul C. Bütow 2k $tmp\n"); if ($var eq "push_logs_html") { $msgfile = $tmp; print "

"; } elsif ($var eq "clear_screen") { $msgfile = "data/msgs/$alias"; &write_file_new($msgfile); print DATEI $q->br; close DATEI; } else { $msgfile = "data/msgs/$alias"; print $q->br; } open (MSGFILE, $msgfile); ################################# ##ENDLOSSCHLEIFE FÜR DEN STREAM## ################################# my ($times,$online) = (0,"false"); for (;;) { for ($curpos = tell(MSGFILE); ; $curpos = tell(MSGFILE)) { print $_ ; } $times++; if ($times > 29) { # Nach 30 Sekunden print "\n"; # Ping zum Browser senden $times = 0; # Sekundenzahl auf 0 zurücksetzen $online = "true" if (-e "data/online/users/$alias"); if ($online eq "false") { print "Aus technischen Gründen bitte auf Weiterchatten klicken."; exit; } } sleep 1; seek(MSGFILE, $curpos, 0); # Position wiederherstellen }