Copyright 04.10.2007 by Muc
Perl-Quellcode
- #!/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;
5.996 mal gelesen