#!/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_checkid($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 (-f "data/user/memos/$alias") { # Nach Memonachrichten checken! print "\n
"; &read_file("data/user/memos/$alias"); my $memos = ; close DATEI; print $memos; unlink("data/user/memos/$alias"); } my $msgfile = "data/msgs/$alias"; &write_file_new($msgfile); print DATEI $q->br; close DATEI; 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 }