#!/usr/bin/perl -w # cgi-irc v0.2 - http://dgl.cx/irc/ # (C) 1999-2000 David Leadbeater (cgiirc@dgl.cx) # cgi-irc comes with ABSOLUTELY NO WARRANTY # This is free software, and you are welcome to redistribute it # under certain conditions; read the file COPYING for details use strict; my $version="0.2"; use vars qw($channel $say $rand); use CGI; # You may want to change some of these my $default_server="efnet.demon.co.uk"; my $default_port="6667"; my $default_nick="cgi-irc"; my $default_name="$default_nick"; my $default_channels=""; # Change this if you have a differnt temp dir my $tmpfile_prefix="/tmp/cgiirc-"; # Change if you change the name of the jirc script my $irc_script="jirc.cgi"; my $image="http://dgl.cx/irc/cgiirc.jpg"; my $q = new CGI; print $q->header(); if(!$q->param('action')){ print < CGI IRC - Login


Release $version







Basic Usage
Set the settings above for your irc server (help), names and channels, these are the channels you want to join on startup, start them with the # and seperate them with spaces.
To say something select the channel in the select box and click say (or press return) there are also several commands avalible, these are:
/msg nick text...
/whois nick
/leave [#channel] (no option leaves the default channel)
/join #channel
/nick newnick
/me text... (emotes the text)
/quit message (quits with optional message)
EOF }elsif($q->param('action') eq "load"){ $rand=rand_text(12); until(!-e $tmpfile_prefix.$rand){$rand=rand_text(12)} my $tmp=$q->param('nick'); print < CGI IRC - $tmp EOF print "escape($q->param('server')),"&port=",$q->escape($q->param('port')),"&nick=",$q->escape($q->param('nick')),"&name=",$q->escape($q->param('name')),"&channels=",$q->escape($q->param('channels')),"\">"; print "escape($q->param('server')),"&port=",$q->escape($q->param('port')),"&nick=",$q->escape($q->param('nick')),"&name=",$q->escape($q->param('name')),"&channels=",$q->escape($q->param('channels')),"\">"; print < Sorry this script cannot be used without frames, please get a frames complatable browser like Netscape, Mozilla or Internet Explorer
Athough if you are really desperate you could open each of the frames in a seperate window or terminal and use it like that...
EOF }elsif($q->param('action') eq "form"){ $rand=$q->param('rand'); &print_form; }elsif($q->param('action') eq "command"){ $rand=$q->param('rand'); $rand=~ s/[^a-z,0-9]//g; if($channel=$q->param('channel')){ $say=$q->param('say'); $say =~ s/\n//g; $channel =~ s/\n//g; open(ADD, ">>$tmpfile_prefix$rand"); if($channel ne $q->param('chan-default')){ print ADD "/chan $channel\n"; } if($say){ print ADD "$say\n"; } close(ADD); } &print_form($channel); }else{ print "Error unknown action"; } sub print_form{ my $channel=shift; print <Form
EOF } sub rand_text{ my $num=shift; my ($lid,$i); my @rand=('a'..'z', '0'..'9'); for($i=0;$i < $num;$i++){$lid.=$rand[rand()*($#rand+1)]} return($lid); }