UltimateBB

#!/usr/bin/perl
use CGI;
use CGI ':standard';
use CGI::Carp qw(fatalsToBrowser carpout);
use CGI qw(:cgi-lib);
print "Content-type: text/html\n\n";
require "vars_config.cgi";
require "ubb_lib.cgi";
require "ubb_lib_files.cgi";
my @ubber = cookie("ubber$vars_config{Cookie_Number}");
chomp($ubber[0]); chomp($ubber[1]); chomp($ubber[4]);
if (($ubber[0]) && ($ubber[1]) && ($ubber[4])) {
$public_name = $ubber[2];
} else {
print qq~
<form method="post" action="http://www.frustchat.com/cgi-bin/forum/ultimatebb.cgi">
<input type="hidden" name="ubb" value="do_login" />
<input type="hidden" name="refer" value="http://www.frustchat.com/cgi-bin/forum/muc.pl" />
Usrname: <input type="text" name="username" value="" /><br />
Password: <input type="password" name="password" value="" /><br />
<center><input type="submit" value="Submit" /></center></form>~; exit(0);
}
print <<chatthing;
exit(0);
1;

Kontrollzentrum