#!/usr/bin/perl use CGI; $q = new CGI; print "Content-type: text/html\n\n"; $Pager = $ENV{'SCRIPT_NAME'}; $body = ''; ####### SERVER PORT INFO ####### @serv = ("63.239.59.241","24.153.149.121","64.114.74.201","207.176.172.152","217.10.142.37","4.23.70.4","209.194.41.50","206.229.113.208"); $num = rand(@serv); $port = '6668'; $room = $q->param('channel'); $duh = "#"; $CM = 'Chat.addChannelMessage'; $title = "zStar #$room"; if ($room eq "") { &chan_list; } elsif ($room =~ /$duh/) { &room_it; }else { &Main; } sub room_it { $room =~ s/$duh//g; print < EOM } sub Main { print < $title $body



Whisper Join

/me

EOM } sub chan_list{ print < Starlink-IRC.org Active Room List

Room NameTopicChatters

EOM }