#!/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

END