#!/usr/bin/perl -w
# yChat - Copyright by Paul C. Bütow
use CGI;
$q = new CGI;
require config;
print $q->header();
$alias = $q->param("alias");
$tmpid = $q->param("tmpid");
&secure_checkid($alias);
$room = $q->param("room");
$col = $q->param("col");
$secol = $q->param("secol");
$tmp = $q->param("tmp");
$whisper = $q->param("whisper");
$maxVerlauf = $q->param("maxVerlauf");
$verlaufOrder = $q->param("verlaufOrder");
if ($maxVerlauf eq undef) { $maxVerlauf = "10";}
if ($verlaufOrder eq undef) { $verlaufOrder = "1";}
if ($tmp eq "login") {
&zeit;
if ($alias ne 'Snooper'){
&post($room,"($hours:$min:$sec) $alias hat den Chat betreten ...");
} else {
&post($room,"($hours:$min:$sec) Der Snooper hat den Chat betreten ...");
}
}
print <
$style