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