UBB.Developers Forums UBB.classic V5 Mod Questions Requested Logon Cgi File!!

"Well here is the file that everyone has been talking about!"

LOGON.CGI

-------------
Logon CGI Script File

But I'll be dammed if I could get it to work! can someone look at it please.
-------------

www.arlo.net/ubb/hacks this place has the most recent login script. Works like wonders in my UBB (of course otherwise I wouldn't use it )

------------------
The Fusion of Goku & Trunks...GoTorankusuKu

Don't go to save as to download the script. Intead, go to the source page, select all, copy, open notepad or any editor, paste, then save it as login.cgi

------------------
The Fusion of Goku & Trunks...GoTorankusuKu

hmmm... I installed this... however it doesn't logout... It forwards you to the page and says you are logged out, but when it re-directs to Ultimate.cgi the user is still logged in... any ideas why?

------------------
http://www.saehoon.com

I'm havin the same issues as Saehoon.

Im also having the same problem it seems to work good if ya enter the board with your cookies reset. But after ya post a message It wont let ya log out. It keeps saying your loged in.My board is version 5.47a Anyone know how to fix this?
-----------------------------
thanks princess lyanna


This message has been edited by princess lyanna on November 17, 2000 at 07:30 PM

If you do not wish to be forwarded to Ultimate.cgi after logout:
Find:
And change the line:
Change the $CGIURL/Ultimate.cgi?action-intro&BypassCookie=true to the url you wish to be forwarded too. I'm not sure if this is what you where wanting.

Later,
The Prohacker

I don't think this is it. I'm looking for the logon system by: Carling FxP

And change the line:
Change the $CGIURL/Ultimate.cgi?action-intro&BypassCookie=true to the url you wish to be forwarded too. I'm not sure if this is what you where wanting.

Later,
The Prohacker

---

Could this be a browser issue, ie failing to correctly update the page. What happens when you 'reload'?

it shows 500 internal server error.. while I'm sure #!/usr/bin/perl fits my server...

what's wrong?

here is the logon.cgi that i use on my board. and it works...

#!/usr/local/bin/perl

################################################################
# Logon System is copyright Vietmart Network, 2000.
#
# ------------ logon.cgi -------------
#
# This file contains the functionality for the UBB logon system.
#
# I offers no warranties on this script. The owner of the script is
# solely responsible for any problems caused by installation of
# the script or use of the script.
#
# All copyright notices regarding the Vietmart Network
# must remain intact on the scripts and in the HTML for the
# scripts. You may modify the code, but do not sell it.
#
# For more info on the Logon System,
# Contact me,[email protected]
################################################################
eval {
($0 =~ m,(.*)/[^/]+,) && unshift (@INC, "$1"); # Get the script location: UNIX / or Windows /
($0 =~ m,(.*)\[^\]+,) && unshift (@INC, "$1"); # Get the script location: Windows

require "UltBB.setup";
require "Styles.file";
require "ubb_library.pl";
};


#Active Redirect URL? Set 1 for yes, set 0 for no
$RedirectLogon = "1";

#Your Redirect URL (If you set 0 above. Leave it blank)
$RedirectLogonURL = "$CGIURL/Ultimate.cgi";

#Check Bans
$CheckBan = "1";

###################################
#No need to edit below
###################################


if ($CheckBan eq "1"){
&CheckBans;
}

if ($BGColor ne ""){
$BGColor = qq(bgcolor="$BGColor");
}
if ($AltColumnColor1 ne ""){
$AltColumnColor1 = qq(bgcolor="$AltColumnColor1");
}
if ($AltColumnColor2 ne ""){
$AltColumnColor2 = qq(bgcolor="$AltColumnColor2");
}
if ($CategoryStripColor ne ""){
$CategoryStripColor = qq(bgcolor="$CategoryStripColor");
}
if ($TableColorStrip ne ""){
$TableColorStrip = qq(bgcolor="$TableColorStrip");
}
if ($PageBackground ne ""){
$PageBackground = qq(background="$NonCGIURL/$PageBackground");
}

$LVersion = "1.2";
if ($TableBorderColor ne ""){
$TableWidth2 = "90%";
$BorderTop = qq(

); $BorderBottom = qq(

);
} else {
$TableWidth2 = $TableWidth;
$BorderTop = "";
$BorderBottom = "";
}

&ReadParse;
use Socket;

if ($@) {
print ("Content-type: text/htmlnn");
print "Error including required files: $@n";
print "Make sure these files exist, permissions are set properly, and paths are set correctly.";
exit;
}
foreach $row(@in) {
($Name, $Value) = split ("=", $row);
$Name = &decodeURL($Name);
$Value = &decodeURL($Value);

if ($Name eq "UserName") {
$UserName = $Value;
$UserName = &UNHTMLIFY($UserName);
$UserNameFile = $UserName;
$UserNameFile =~ s/ /_/g; #remove spaces
}
if ($Name eq "PasswordConfirm") {
$PasswordConfirm = $Value;
}
} # end FOREACH $row
if ($VariablesPath eq "") {
$VariablesPath = $CGIPath;
}
print ("Content-type: text/htmlnn");
if ($in{'action'} eq "") {
&logon;
}
if ($in{'action'} eq "checkbioid") {
&CheckBioID;
}



## logonHTML ####
sub logon {
if ($DisplayRegistration eq "NO") {
$RegLinkHere = "";
} else {
$RegLinkHere = qq(register |);
}
print<
$HeaderInsert

$BBName $RegLinkHere faq | forgot your password

M E M B E R S A C C E S S

Welcome to $BBName. In order to enter the $BBName Message Board you have to be a registered user. You can REGISTER here. Please identify yourself below and of course enjoy your stay!!
UserName:
Password:

Logon System. $LVersion

$Footer

logonHTML
}
##End logonHTML
sub GetBio {
$ProfileNumber = &GetUserNumber($UserName);
if ($ProfileNumber eq "") {
print<

$HeaderInsert

M E M B E R S S E C T I O N

Sorry. Your username ($UserName) is no longer in our system. Please contact our server administrator for more information.
UserName:
Password:

Logon System. $LVersion


nolongerRG
exit;
}
@thisprofile = &OpenProfile("$ProfileNumber.cgi");
}
## END
sub CheckBioID {
if (($in{'UserName'} eq "") || ($in{'Password'} eq "")) {
if ($in{'UserName'} eq "") {
$RequireUserNameColor = "";
$ShowUserNameInBox = "";
$ErrorUFieldMessage = "username";
} else {
$RequireUserNameColor = "";
$ShowUserNameInBox = "value="$in{'UserName'}"";
}
if ($in{'Password'} eq "") {
$RequirePasswordColor = "";
$ShowPasswordInBox = "";
$ErrorPFieldMessage = "password";
} else {
$RequirePasswordColor = "";
$ShowPassowrdInBox = "value="$in{'Password'}"";
}
if (($in{'UserName'} eq "") && ($in{'Password'} eq "")) {
$ErrorAndMessage ="and";
} else {
$ErrorAndMessage = "";
}

print<

$HeaderInsert

M E M B E R S S E C T I O N

You did not complete the $ErrorUFieldMessage $ErrorAndMessage $ErrorPFieldMessage fields!
$RequireUserNameColor UserName:
$RequirePasswordColor Password:

Logon System. $LVersion

$Footer

notCL
} else {
$NameFound = "no";
$ProfileNumber = &GetUserNumber($UserName);
if ($ProfileNumber ne "") {
$NameFound = "yes";
} else {
$NameFound = "no";
}
if ($NameFound eq "yes") {
#Check Password Now

@thisprofile = &OpenProfile("$ProfileNumber.cgi");

if ($in{'Password'} eq "$thisprofile[1]") {
$pwmatch = "true";
$Password = $thisprofile[1];
if ($RedirectLogon == 1) {
&ProcessEditRedirect
} else {
&ProcessEdit;
}
}
} ## END IF MEMBER = Username.cgi condition
if ($NameFound ne "yes") {
print<

$HeaderInsert

M E M B E R S S E C T I O N

Your username is not registered into our system.
UserName:
Password:

Logon System. $LVersion

$Footer

wrongUN
}
if (($NameFound eq "yes") && ($pwmatch ne "true")) {
print<

$HeaderInsert

M E M B E R S S E C T I O N

Sorry, but the password you entered was not correct.
UserName:
Password:

Logon System. $LVersion

$Footer

wrongPW
}
} # end check for missing fields
} ## END CheckBioID SR ###
sub ProcessEditRedirect {
$Login="yes";
print<


$HeaderInsert

Thank you! We have confirmed your identity and are granting you access to the members section. You will be forwarded to the section automatically within a few seconds.



Click here if you do not want to wait any longer (or if your browser does not automatically forward you).

$Footer

mainHTML
}
sub ProcessEdit {
print<

$HeaderInsert

This is where you put all the protected pages...

$Footer

mainHTML
}

sub CheckBans {

my @banlist = &OpenFile("$NonCGIPath/BanLists/EmailBan.cgi");
#get user's IP number:
my $IPNumber = $ENV{'REMOTE_ADDR'};

#Check IP Ban List--
my @IPbanlist = &OpenFile("$NonCGIPath/BanLists/IPBan.cgi");

if ($IPbanlist[0] ne "") {
my $bannum = "";
CheckIPBanList: for $bannum(@IPbanlist) {
chomp($bannum);
if ($IPNumber =~ m/$bannum/i) {
&StandardHTML("Sorry, but we are currently preventing anyone registering from your IP Number. Your IP Number is: $IPNumber.

Please feel free to email us at $BBEmail if you have any questions.");
$BannedEmail = "true";
exit;
last CheckIPBanList;
}
}
}
#if IPBan list is not empty

}


------------------
TyRaN