#!/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;
&post($room,"($hours:$min:$sec) $alias hat den Chat betreten ...");
}
print <
$style