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.6.2/input.pl | 204 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 204 insertions(+) create mode 100644 0.6.2/input.pl (limited to '0.6.2/input.pl') diff --git a/0.6.2/input.pl b/0.6.2/input.pl new file mode 100644 index 0000000..3960501 --- /dev/null +++ b/0.6.2/input.pl @@ -0,0 +1,204 @@ +#!/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 + + +

+ + + + + +

+ +

+ + +END + +&rm_away($alias,$room); \ No newline at end of file -- cgit v1.2.3