From 630af0ed6c0af69c7df2e45aef7a87722a3c00c0 Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Sat, 6 Apr 2013 13:14:47 +0200 Subject: tagging ychat-perl-legacy --- 0.4.7a2/input.pl | 194 +++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 194 insertions(+) create mode 100644 0.4.7a2/input.pl (limited to '0.4.7a2/input.pl') diff --git a/0.4.7a2/input.pl b/0.4.7a2/input.pl new file mode 100644 index 0000000..8561aba --- /dev/null +++ b/0.4.7a2/input.pl @@ -0,0 +1,194 @@ +#!/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 -- cgit v1.2.3