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.6/modules/input.pm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 0.7.6/modules/input.pm (limited to '0.7.6/modules/input.pm') diff --git a/0.7.6/modules/input.pm b/0.7.6/modules/input.pm new file mode 100644 index 0000000..48df243 --- /dev/null +++ b/0.7.6/modules/input.pm @@ -0,0 +1,14 @@ +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 qq[\n\n\n]; + &style; + print qq[\n\n

\n \n \n \n \n \n

\n \n

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