Advanced Registration Options
1.1
Now you can choose between these options:
- registration is open for all new members (standard)
- just Administrators can register new members
- registration is complete closed
V1.1 added:
- now you can choose background color
- own table for the admin option
- text warns users that just admins can register new users.
dOCda S!
mailto:docda_s@yahoo.de
Sources/Admin.pl
if ($enable_news) { $newschecked = "checked" }
if ($adminreg) { $adminregs = "checked" }
if ($closereg) { $closeregs = "checked" }
$txt{'378'}
$regtxt{'13'}
$regtxt{'03'}
$regtxt{'04'}
$regtxt{'14'}
\$enable_news = $enable_news; # Set to 1 to turn news on, or 0 to set news off
\$adminreg = $adminreg; # Set to 1 if you just want admins to register new members
\$closereg = $closereg; # Set to 1 if you want to close regs for new members
allowpics showyabbcbutt showbdescrip maintenance guestaccess insert_original enable_ubbc enable_news enable_guestposting enable_notification showlatestmember showrecentbar showmemberbar showmarkread showmodify showuserpic showusertext showgenderimage shownewsfader MenuType curposlinks profilebutton autolinkurls emailpassword RegAgree emailwelcome allow_hide_email usetempfile faketruncation emailnewpass yyForceIIS yyblankpageIIS/;
push @onoff, 'adminreg';
push @onoff, 'closereg';
\$color{'fadertext2'} = "$color{'fadertext2'}"; # Color of text in the NewsFader (news color)
\$color{'regcolor'} = "$color{'regcolor'}"; # Color of text in the Register Option (Admin Name and Pass)
\$color{'regcolor2'} = "$color{'regcolor2'}"; # Color of background in the Register Option (Admin Name and Pass)
$color{'fadertext2'} = $FORM{'fadertext2'} || '#FFFFFF';
$color{'regcolor'} = $FORM{'regcolor'} || '#FFFFFF';
$color{'regcolor2'} = $FORM{'regcolor2'} || '#000000';
Sources/Register.pl
sub Register {
$yytitle = "$txt{'97'}";
&header;
if ($closereg == 1) {
print <<"EOT";
EOT
&footer;
exit;
}
### END CHECK FOR VALID USER ACCOUNT ###
### CHECK IF USER IS AN ADMIN ###
fopen(MEMBERFILEREAD,"$memberdir/$Admin.dat");
@member = ;
fclose(MEMBERFILEREAD);
chomp @member;
if ($member[7] ne 'Administrator') {
&header;
print <<"EOT";
$regtxt{'08'}
$regtxt{'09'} $regtxt{'05'}
EOT
&footer;
exit;
}
### END CHECK IF USER IS AN ADMIN ###
### CHECK IF A PASSWORD WAS ENTERED ###
if ($Passcode eq "") {
$Found = "no";
} else {
$Found = "yes";
}
if($Found eq "no") {
&header;
print <<"EOT";
$regtxt{'08'}
$regtxt{'10'} `$Adminī! $regtxt{'05'}
EOT
&footer;
exit;
}
### END CHECK IF A PASSWORD WAS ENTERED ###
### CHECK IF PASSWORD WAS CORRECT ###
$FORM{'AdminName'} =~ s/\s/_/g;
$Admin = $FORM{'AdminName'};
if(-e("$memberdir/$Admin.dat")) {
fopen(FILE, "$memberdir/$Admin.dat");
@settings = ;
fclose(FILE);
$settings[0] =~ s/[\n\r]//g;
if($settings[0] ne "$FORM{'AdminPass'}") {
&header;
print <<"EOT";
$regtxt{'08'}
$regtxt{'11'} `$Adminī! $regtxt{'05'}
EOT
&footer;
exit;
}
### END CHECK IF PASSWORD WAS CORRECT ###
}
}
Sources/Subs.pl
$yymenu .= qq~$menusep$img{'logout'}~;
}
if ($adminreg == 0) {
$yymenu .= qq~$menusep$img{'logout'}~;
} else {
$yymenu .= qq~$menusep$img{'logout'}$menusep$img{'register'}~;
}
}
english.lng
$txt{'749'} = "The 'number of posts' box can only contain digits.";
$regtxt{'01'} = "Admin Name";
$regtxt{'02'} = "Admin Pass";
$regtxt{'03'} = "Just allow Admins registering new Users?";
$regtxt{'04'} = "Admin Registration Text Color";
$regtxt{'05'} = "Please use your back button!";
$regtxt{'06'} = "No admin name was entered!";
$regtxt{'07'} = "Sorry but this is not a valid members-account!";
$regtxt{'08'} = "!!! ERROR !!!";
$regtxt{'09'} = "Sorry but your are not allowed to register new members!";
$regtxt{'10'} = "Sorry but you forgot to enter your password";
$regtxt{'11'} = "Sorry but this was not the correct password for";
$regtxt{'12'} = "Sorry but registrations are closed for now! Please check back later!";
$regtxt{'13'} = "Close Registrations";
$regtxt{'14'} = "Admin Registration Background Color";
$regtxt{'15'} = "Attention! Just Administrators can register new Users! Please contact an Administrator for an account!";