#!/usr/bin/perl ######### Begin optional setup ########### # Will be displayed in login screen $yourname = 'BlueChat at Canreef Aquatics'; # color of title on login screen $titlecolor = '#800000'; # Rules are shown on login screen. # add or delete as necessary. $rules[0], $rules[1], and so on. $rules[0] = '1. Keep all foul language out of here.'; $rules[1] = '2. No Flaming allowed in any channel.'; # Image for background of login screen $backgroundimage = ''; # Background color of login screen $backgroundcolor = '#F0F0F0'; # Text color of login screen $textcolor = '#000000'; # link color of login screen $linkcolor = '#0000FF'; # Visited link color of login screen $visitedcolor = '#0000FF'; # Active link color of login screen $activecolor = '#FF0000'; # Any additional things you want added to # the bottom of the login screen. $additional = '
'; # $additional .= 'You can add more stuff here.'; # $additional .= 'just uncomment these lines'; ######### End Setup ############# &Parse_Form; if (!$formdata{'cname'}) { if ($backgroundimage ne '') { $backgroundimage = 'background="' . $backgroundimage . '"'; } foreach $rule (@rules) { $TheRules .= $rule . 'Welcome to $yourname
$TheRules
Color Codes Allowed in name:
`1 `2 `3 `4 `5 `6 `7 `8 `9 `0 `! `\@ `\# `\$ `\%
Example: `1James = James
$additional
Version 2.4