#!/usr/bin/perl require "process.cgi"; require "support.cgi"; require "parseform2.lib"; &Parse_form; $address = "http://www.flwgc.org/chat-bin/chat.cgi"; #PUT PATH TO CHAT HERE $title = "Front Line Wargame Club Chatroom"; $logfile = "files/a.txt"; #where the login information is stored $countfile = "files/b.txt"; #stores information used by the counter $postfile = "files/c.txt"; #contains all the posts used for the main chat screen $banfile = "files/e.txt"; #list of banned IPs $whenfile = "files/f.txt"; #file that keeps track of last login times $ipfile = "files/g.txt"; #list of IPs $whispers = "whispers"; #folder where whispers are stored @foul = ('fuck', 'bitch', 'dick', 'shit'); #restricted words $censor = 0; #Foul language censoring in regular posts #0 means censoring is OFF (default) #1 means censoring is ON $allowhtml = 0; #whether to allow HTML tags in the chat posts #0 means HTML is OFF (default) #1 means HTML is ON $seelist = 2; #determines what ranks can see the online list #see below for list of possible ranks $basestatus = 0; #the status someone receives after registering a new nickname #0 means newbie (complete with newbie restrictions) (default) #1 means regular user #2 means power user #3 means moderator #4 means administrator #You do not need to modify anything below this line $login = $formdata {'login'}; $color = $formdata {'color'}; $rank = $formdata {'rank'}; $r = $formdata{'refresh'}; $action = $formdata{'action'}; $post = $formdata {'postdata'}; $conference = $formdata {'conference'}; print "Content-type:text/html\n\n"; print ""; if ($action eq 'show') { &printPost; &processCounter; print ""; } if ($action eq 'process') { &processPost; print ""; &printPost; } if ($action eq 'get') { &getPost; } if ($action eq 'whisper') { &printWhispers; } if ($action eq 'counter') { &showCount; } if ($action eq '') { open (INFILE, "; close (INFILE); foreach $item (@info) { if ($item eq $ENV{'REMOTE_ADDR'}) { $exists = 1; } } if ($exists) { &kicked; } else { &start; } } if ($action eq 'verify') { &verify; } if ($action eq 'newoptions') { &optionChange; &start; } if ($action eq 'options') { &options; } if ($action eq 'register') { ®istration; } if ($action eq 'regprocess') { ®Process; if ($ok) { &start; } } print ""; sub printPost { print << "end HTML"; end HTML if ($rank > ($seelist-1)) { open (INFILE, "$countfile"); @items = ; close (INFILE); print "
Online:

"; foreach $thing (@items) { $thing =~ s/:.*/ /; print "$thing
"; } print "

"; } open (INFILE, "<$postfile"); @posts = ; close (INFILE); print "@posts"; } sub getPost { print << "end HTML";
Conference:
end HTML } sub printWhispers { print << "end HTML"; end HTML open (INFILE, "$whispers/$login.txt"); @items = ; close (INFILE); print (@items); } sub processPost { @it = split (/ /, $post); if (($it[0] eq '/w') || ($it[0] eq '/msg') || ($it[0] eq '/n')) { open (INFILE, "<$logfile"); @handles = ; close (INFILE); $exists = 0; foreach $handle (@handles) { @check = split (/:/, $handle); if ($check[0] eq $it[1]) { $exists = 1; } } if ($exists == 1) { shift (@it); $target = shift (@it); if ($post =~ /http:\/\/.*/) { foreach $thing (@it) { if ($thing =~ /http:\/\/.*/) { $thing = "$thing"; } } } $neww = "$login: @it
"; $newself = "$login -> $target: @it
"; &whispers($target, $neww); &whispers($login, $newself); } else { &whispers($login, "Error: $it[1] does not exist
"); } } elsif ($it[0] eq '/nick') { &nickChange; } elsif ($it[0] eq '/clear') { &clear; } elsif ($it[0] eq '/promote') { &promote; } elsif ($it[0] eq '/cls') { &clearScreen; } elsif ($it[0] eq '/kick') { &kick; } elsif ($it[0] eq '/protect') { &protected; } elsif ($it[0] eq '/ip') { &showip; } elsif ($it[0] eq '/ban') { &ban; } elsif ($conference) { if ($it[0] ne '>') { @targets = split (/ /, $conference); $neww = "$login: @it
"; $newself = "$login -> @targets: @it
"; foreach $target (@targets) { &whispers($target, $neww); } &whispers($login, $newself); } else { $post =~ s/^> //; if (($post =~ /^\//) && !($post =~ /^\/me /) && !($post =~ /^\/a /) && !($post =~ /^\/sys /)) { &processPost; } else { &makePost; } } } else { if ($rank == 0) { foreach $thing (@foul) { if ($post =~ /$thing/) { &kicked; } } } if (@it) { &makePost; } } }