#!/usr/local/bin/perl require "bc_html_util.cgi"; require "bc_setup.cgi"; require "bc_loginsetup.cgi"; &Parse_Form; if (!$formdata{'cname'}) { if ($backgroundimage ne '') { $backgroundimage = 'background="' . $backgroundimage . '"'; } foreach $rule (@rules) { $TheRules .= $rule . '
'; } &Mime; print < $yourname Chat

Welcome to $yourname Chat

$TheRules

Enter a name to use while chatting

Color Codes Allowed in name:
`1 `2 `3 `4 `5 `6 `7 `8 `9 `0 `! `\@ `\# `\$ `\%
Example: `1James = James

$additional

Version 1.5

ENDHTML exit; } if ($formdata{'cname'}){ my $cname = $formdata{'cname'}; $cname =~ s/\`\#/`A/g; $cname =~ s/\#//g; $cname =~ s/ /\%20/g; &Mime; print < $yourname Chat <body> <p>This page uses frames, but your browser doesn't support them.</p> </body> MAINHTML exit; } &Mime; print <Error

BlueSparks Chat

There was an error trying to run BlueSparks Chat script.

ERRORHTML exit;