UltimateBB

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Copyright 04.10.2007 by Muc

    Perl-Quellcode

    1. #!/usr/bin/perl
    2. use CGI;
    3. use CGI ':standard';
    4. use CGI::Carp qw(fatalsToBrowser carpout);
    5. use CGI qw(:cgi-lib);
    6. print "Content-type: text/html\n\n";
    7. require "vars_config.cgi";
    8. require "ubb_lib.cgi";
    9. require "ubb_lib_files.cgi";
    10. my @ubber = cookie("ubber$vars_config{Cookie_Number}");
    11. chomp($ubber[0]); chomp($ubber[1]); chomp($ubber[4]);
    12. if (($ubber[0]) && ($ubber[1]) && ($ubber[4])) {
    13. $public_name = $ubber[2];
    14. } else {
    15. print qq~
    16. <form method="post" action="http://www.frustchat.com/cgi-bin/forum/ultimatebb.cgi">
    17. <input type="hidden" name="ubb" value="do_login" />
    18. <input type="hidden" name="refer" value="http://www.frustchat.com/cgi-bin/forum/muc.pl" />
    19. Usrname: <input type="text" name="username" value="" /><br />
    20. Password: <input type="password" name="password" value="" /><br />
    21. <center><input type="submit" value="Submit" /></center></form>~; exit(0);
    22. }
    23. print <<chatthing;
    24. exit(0);
    25. 1;

    5.596 mal gelesen