#!/usr/bin/perl
######### Begin optional setup ###########
# Will be displayed in login screen
$yourname = 'BlueChat';
# 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 and sexual content in the Adult Channel.';
$rules[1] = '2. Reservar el lenguaje obsceno o con contenido sexual para el Canal Adulto.';
# Image for background of login screen
$backgroundimage = '';
# Background color of login screen
$backgroundcolor = 'FFFF66';
# 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 = '
Go Back
';
# $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 . '
';
}
&Mime;
print <
$yourname Chat
$yourname: Welcome/Bienvenido
$TheRules
Color Codes Allowed in name (Códigos de colores permitidos):
`1 `2 `3 `4 `5 `6 `7 `8 `9 `0 `! `\@ `\# `\$ `\%
Example: `1James = James
$additional
Version 2.3