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.7.1/input.pm | 195 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 195 insertions(+) create mode 100644 0.7.1/input.pm (limited to '0.7.1/input.pm') diff --git a/0.7.1/input.pm b/0.7.1/input.pm new file mode 100644 index 0000000..a659a50 --- /dev/null +++ b/0.7.1/input.pm @@ -0,0 +1,195 @@ +sub input { + + &rm_away($alias,$room); + + $maxVerlauf = "10" + if ($maxVerlauf eq undef); + + $verlaufOrder = "1" + if ($verlaufOrder eq undef); + + if ($tmp eq "login") { + &post($room,"".×tring." $alias hat den Chat im Raum $room betreten ..."); + } + +print < + + +END + +&style; + +print < + +

+ + + + + +

+ +

+ + +END + +$client->$shutdown(2); +exit 0; +} + +1; -- cgit v1.2.3