YaBB Referral System - SP1
2.0
Original Author: MaDD Hatter
Original Author's URL: http://www.ghostcdr.com
*** Original Description ***
This hack allows you to keep track of how many people each member of your forums refers, who they referred, and who they were referred by. It also creates a memberlist option so you can view a list of the top referrers on your board and how many referrals they've made. To give a referral, the user gives the new registrant the url http://www.yoursite.comYaBB.pl?action=register&refid=username replacing 'username' with their username. You MUST enable referrals in the Forums Preferences before it will become active.
Thanks to DaveB for all his help and LukeA for the testing :)
*** SP1 Modifications ***
Rewritten for SP1. No major changes.
Use the following URL syntax to make a referral:
http://www.yoursite.com/cgi-bin/YaBB.pl/?action=register&refid=your-user-id-here
As before, you must enable this feature in Forums Preferences and Settings before it can be used.
Big thanks to throesch and chrishartmann for helping with the conversion of this mod!
*** Installation: ***
Apply Mod
Copy the 6 modified files to your site
Activate, and send the url to your referrals
Zone
http://www.pcandnetworking.com
english.lng
1;
$reftxt{'01'} = "(Not Referred)";
$reftxt{'02'} = "Referred By: ";
$reftxt{'03'} = "Number of Refers: ";
$reftxt{'04'} = "Names of Refers: ";
$reftxt{'05'} = "Who have they referred?";
$reftxt{'06'} = "This person has not referred anyone.";
$reftxt{'07'} = "Refer List";
$reftxt{'08'} = "Referrals";
$reftxt{'09'} = "Enable Referring?";
$reftxt{'10'} = "Allow members and guests to view others' referring details?";
$reftxt{'11'} = "Who have they referred?";
$reftxt{'12'} = "Top Referrers";
$reftxt{'13'} = "View list of top referrers.";
$reftxt{'14'} = "Top Referrers";
$reftxt{'15'} = "You are not authorized to view this page.";
$reftxt{'16'} = "Show 'Referred By:' box on register page?";
YaBB.pl
elsif( $fastfind eq 'n' ) {
if ($action eq 'notify') { require "$sourcedir/Notify.pl"; &Notify; }
elsif ($action eq 'namelist') { require "$sourcedir/Profile.pl"; &NameList; }
elsif( $fastfind eq 'r' ) {
if ($action eq 'register') { require "$sourcedir/Register.pl"; &Register; }
elsif ($action eq 'reflist') { require "$sourcedir/Memberlist.pl"; &reflist; }
Sources/Register.pl
$yymain .= qq~
if($enable_refers eq "0") {
$INFO{'refid'} = "";
}
unless( $emailpassword ) {
if($enable_showrefer) {
$yymain .= qq~
\$enable_ubbc = $enable_ubbc; # Set to 1 if you want to enable UBBC (Uniform Bulletin Board Code)
\$enable_refers = $enable_refers; # Set to 1 if you want to enable referring
\$enable_memrefers = $enable_memrefers; # Set to 1 if you want to allow members to view other members referring details
\$enable_showrefer = $enable_showrefer; # Set to 1 if you want to show the "Referred By:" section on the register page
# If empty fields are submitted, set them to default-values to save yabb from crashing
$enable_refers = $FORM{'enable_refers'} || 0;
$enable_memrefers = $FORM{'enable_memrefers'} || 0;
# Set as 0 or 1 if box was checked or not
push(@onoff, "enable_refers");
push(@onoff, "enable_memrefers");
push(@onoff, "enable_showrefer");
~;}
else {
$Bar = qq~