# UBB Registration Routines Library # # Ultimate Bulletin Board is copyright Infopop Corporation, 1998-2000. # # ------------ register_lib.pl ------------- # sub LostPW { &StandardTopHTML; print<

You can have your username and password emailed to you by providing your email address. We will then email the username and password info we have associated with the email address you provide. This information will be sent to the email address you type below.

Your Email Address:    

LostPassword } sub Agree { if ($SuspendRegister eq "true") { &StandardHTML("We are not accepting new registrations at this time."); exit; } if (($COPPACheck eq 'ON') && ($in{'COPPAcheck'} ne 'OK') ){ &COPPACheck(); exit; } # if no COPPA or if the check is OK then check the print standard agreement: print < $HeaderInsert $Header

$BBName

$BorderTop
Rules, Policies, and Disclaimers
if you agree to abide by our rules below, you should press the "Agree" button, which will enable you to register. If you do not agree, press the "Cancel" button.
$BBRules
$BorderBottom

$Footer Agreement } sub Register { if ($SuspendRegister eq "true") { &StandardHTML("Sorry, we are not accepting new registrations currently."); exit; } if ($ModerateRegs eq 'ON'){ $ModRegsMessage = '

Note: Your registration will not be active until the administrator approves your request. Please be patient'; } if (($UseEmail eq "ON") && ($EmailVerify eq "ON")) { $EmailVerifyHTML = "IMPORTANT: We will email your registration password to the email address you provide. Thus, failure to provide your actual email address will mean you can not post any messages or replies on this bulletin board."; $PasswordWording1 = "UserNames can be up to 25 characters. Please use only letters and numbers."; $PasswordWording2 = ""; } else { $EmailVerifyHTML = qq(Password* Enter Password Again*); $PasswordWording1 = "UserNames can be up to 25 characters and passwords can be a maximum of 13 characters. Please use only letters and numbers. Passwords are case-sensitive. This means that \"Howard\" is distinct from \"HOWARD.\""; $PasswordWording2 = "In addition, your passwords are not encrypted and can be seen by the BB administrators. Do not use a password that you would be afraid to reveal to anyone."; } if ($DaysPruneDefault == 1) { $Select1 = "SELECTED"; } elsif ($DaysPruneDefault == 2) { $Select2 = "SELECTED"; } elsif ($DaysPruneDefault == 5) { $Select5 = "SELECTED"; } elsif ($DaysPruneDefault == 10) { $Select10 = "SELECTED"; } elsif ($DaysPruneDefault == 20) { $Select20 = "SELECTED"; } elsif ($DaysPruneDefault == 30) { $Select30 = "SELECTED"; } elsif ($DaysPruneDefault == 45) { $Select45 = "SELECTED"; } elsif ($DaysPruneDefault == 60) { $Select60 = "SELECTED"; } elsif ($DaysPruneDefault == 75) { $Select75 = "SELECTED"; } elsif ($DaysPruneDefault == 100) { $Select100 = "SELECTED"; } else { $Select365 = "SELECTED"; } if ($AllowSignature eq "YES") { $SigStatus = "enabled"; } else { $SigStatus = "not enabled"; } print< $BBName Registration $HeaderInsert $Header Bulletin Board Registration

$BorderTop $EmailVerifyHTML
In order to use all features of this Bulletin Board, you must register.

$PasswordWording1 $ModRegsMessage

Note: all of the information provided on this page (with the exception of your password) will be viewable by anyone visiting the bulletin board. Thus, if you don't feel comfortable about completing certain fields, just leave them blank. $PasswordWording2 Required fields are marked by an asterisk.
User Name*
Email*
City, State, Country
Occupation
Homepage
Interests
ICQ Number
Signature
Optional signature you may use to appear at bottom of your posts. Note: The Signature feature is currently $SigStatus by this bulletin board's administrator. You may use UBB Code in this field, but not HTML. The UBB Code Image tag is not permitted, however.
Allow Bulletin Board Administrators and Moderators To Send You Email Notices?
yes     no


Set Your Preferences: if you are using a browser that supports cookies, we can store some default preferences on your browser for you. With the exception of the "email view" option below, if your browser does not support cookies, or you have cookies turned off, these preferences will not be set.

Store Username & Password in browser memory for 1 year (otherwise you will have to type your username and password once per browser session)
yes no
Default Topic View:
Keep your email address viewable to other users when you post notes?
yes no
$BorderBottom

$ModRegsMessage
$Footer RegHTML } ## END Register SR ## sub COPPACheck { # age check &GetDateTime; @months = ("blank" , "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"); $COPPADate = "$mday $months[$JSMonth] " . ($JSYear-13); print < $HeaderInsert $Header

$BBName

$BorderTop
Registration - Age Verification

Please click the link that describes your age:

Born On or Before $COPPADate

Born After $COPPADate
 
Privacy Information

The Federal Trade Commission's Children's Online Privacy Protection Act of 1998 (COPPA) is intended to protect the privacy of children using the Internet. As of April 21, 2000, many Web sites are required to obtain parental consent before collecting, using, or disclosing personal information from children under 13.

See COPPA News Release and Full Text of Federal Register Notice [PDF 270K]

Please read $BBName Privacy Statement

Permission Form

A parent or guardian must mail or fax a signed permission form to the administrator of $BBName before a user under age 13 can complete the registration.
Contact Information
For further information contact $RegsAdminEmail.
 
$BorderBottom

Contact Us | $MyHomePage | Privacy Statement

$YourCopyrightNotice



$infopopcopy
Ultimate Bulletin Board $Version

$Footer COPPACheck } sub ShowCOPPAForm { if ($SuspendRegister eq "true") { &StandardHTML("Sorry, we are not accepting new registrations currently."); exit; } if (($UseEmail eq "ON") && ($EmailVerify eq "ON")) { $EmailVerifyHTML = "IMPORTANT: We will email your registration password to the email address you provide. Thus, failure to provide your actual email address will mean you can not post any messages or replies on this bulletin board."; $PasswordWording1 = "UserNames can be up to 25 characters. Please use only letters and numbers."; $PasswordWording2 = ""; } else { $EmailVerifyHTML = qq(Password* Enter Password Again*); $PasswordWording1 = "UserNames can be up to 25 characters and passwords can be a maximum of 13 characters. Please use only letters and numbers. Passwords are case-sensitive. This means that \"Howard\" is distinct from \"HOWARD.\""; $PasswordWording2 = "In addition, your passwords are not encrypted and can be seen by the BB administrators. Do not use a password that you would be afraid to reveal to anyone."; } if ($DaysPruneDefault == 1) { $Select1 = "SELECTED"; } elsif ($DaysPruneDefault == 2) { $Select2 = "SELECTED"; } elsif ($DaysPruneDefault == 5) { $Select5 = "SELECTED"; } elsif ($DaysPruneDefault == 10) { $Select10 = "SELECTED"; } elsif ($DaysPruneDefault == 20) { $Select20 = "SELECTED"; } elsif ($DaysPruneDefault == 30) { $Select30 = "SELECTED"; } elsif ($DaysPruneDefault == 45) { $Select45 = "SELECTED"; } elsif ($DaysPruneDefault == 60) { $Select60 = "SELECTED"; } elsif ($DaysPruneDefault == 75) { $Select75 = "SELECTED"; } elsif ($DaysPruneDefault == 100) { $Select100 = "SELECTED"; } else { $Select365 = "SELECTED"; } if ($AllowSignature eq "YES") { $SigStatus = "enabled"; } else { $SigStatus = "not enabled"; } print< $BBName Registration for Children Under 13 $HeaderInsert $Header
Bulletin Board Registration

$BorderTop $EmailVerifyHTML

Your parent or guardian must approve your registration.

You will not be able to post until this approval is received.

Contact $RegsAdminEmail for more information.

$PasswordWording1

Note: all of the information you provide on this page will be emailed to you and your parent or guardian with instructions for sending in the approval. $PasswordWording2 Required fields are marked by an asterisk.
User Name*
Email*
Parent/Guardian Email
All Other Information Below is Optional. Do not fill in any information that will identify you or where you live. Your parent or guardian will have to approve all information in your profile. By default your email address will be hidden when you post.
City, State, Country
Occupation
Homepage
Interests
ICQ Number
Signature
Optional signature you may use to appear at bottom of your posts. Note: The Signature feature is currently $SigStatus by this bulletin board's administrator. You may use UBB Code in this field, but not HTML. The UBB Code Image tag is not permitted, however.
Allow Bulletin Board Administrators and Moderators To Send You Email Notices?
yes no
Keep your email address viewable to other users when you post notes?
yes no

Set Your Preferences: if you are using a browser that supports cookies, we can store some default preferences on your browser for you. With the exception of the "email view" option below, if your browser does not support cookies, or you have cookies turned off, these preferences will not be set.

Store Username & Password in browser memory for 1 year (otherwise you will have to type your username and password once per browser session)
yes no
Default Topic View:
$BorderBottom



RegHTML &PageBottomHTML; print "
"; } ## END ShowCOPPAForm SR ## sub ShowCOPPAAgree{ if ($SuspendRegister eq "true") { &StandardHTML("We are not accepting new registrations at this time."); exit; } # if print COPPA version of standard agreement: print < $HeaderInsert $Header

$BBName

$BorderTop
Rules, Policies, and Disclaimers
Registration for this bulletin board requires approval of your parent or guardian. If you agree to seek approval from your parent or guardian for this registration, press the "Agree" button, which will enable you to start to register. If you do not agree, press the "Cancel" button.
$COPPAWording
$BorderBottom

$Footer Agreement } # 1;