#!/usr/bin/perl -w # yChat - Copyright by Paul C. Bütow use CGI; CGI->compile(':all'); $q = new CGI; print $q->header; require config; $alias = $q->param("alias"); $tmpid = $q->param("tmpid"); &secure_checkid($alias); $room = $q->param("room"); ######################################## ##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 [PID: $$]
\n"); if (-f "data/user/memos/$alias") { open(MEMOS,"; close MEMOS; print $memos; unlink("data/user/memos/$alias"); } ############################### ##ENDLOSSCHLEIFE FÜR DEN PUSH## ############################### my $counter = 0; my $startime; OPENMSGFILE: $startime = time; if (-e "data/online/users/$alias") { open(MSGFILE,"; $curpos = tell(MSGFILE)) { my ($address, $stamp, $command, $action, $message) = split(/<;/, $_); if ($address eq "!" || $address eq $alias) { if ($stamp > $startime) { if ($command eq "cr") { $room = $action; close MSGFILE; goto OPENMSGFILE; } print "$message
\n"; } } } $counter++; if ($counter > 14) { print "\n"; $counter = 0; } sleep 1; seek(MSGFILE, $curpos, 0); }