#!/usr/bin/perl -w # yChat - Copyright by Paul C. Bütow use CGI; CGI->compile(':all'); $q = new CGI; $| = 1; # Cache von Perl ausschalten print $q->header; # HTML-Header erzeugen require config; &secure_checkip($alias); ######################################## ##ANFANG DER ZU STREAMENDEN HTML-DATEI## ######################################## print < END ############################# ##BEGRÜSSUNGSTEXT SCHREIBEN## ############################# my $msgfile; print $q->font( { -size=>1, -color=>"ffffff", -face=>"arial"}, "$title Created & Copyright by Paul C. Bütow $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 PUSH## ############################### my ($times,$online) = (0,"false"); for (;;) { for ($curpos = tell(MSGFILE); ; $curpos = tell(MSGFILE)) { print $_ ; } $times++; if ($times > 14) { # Nach 15 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; } $online = "false" } sleep 1; seek(MSGFILE, $curpos, 0); # Position wiederherstellen }