#!/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 = '
'; # $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 . '$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