UBB.Developers Forums UBB.classic V5 Mod Questions Custom User Titles by Jimbo/Skalos

Although its been around for a bit now, I'm just posting this here because it is a very useful hack. I've also modded it for my own use which I will post subsequently.

This hack allows you to assign custom user titles based upon user and/or posts. The hack was written by Jimbo and Skalos added the CP functionality. Here it is:
http://www.jimbosworld.org/ubbtitlehack.html


------------------
Billy Bandit
Bandit Boys

This message has been edited by Billy Bandit on September 27, 2000 at 03:37 PM

Jaxel made a version that combines this with the Stars hack. You can assign a certain number of stars to a user based on who the user is or how many posts they have. His version can be found here:
http://temp.upnetwork.com/ubb/titleparse.txt

The control panel for his version should be used like this:
http://temp.upnetwork.com/ubb/titleparse.gif



------------------
Billy Bandit
Bandit Boys

I had a different need. I wanted to specify custom titles and I wanted special icons depending upon the number of posts. But I wanted it so that if a user had 45 posts he would get 4 'yellow' stars that were worth 10 posts each.. but if he had 65 posts he would get 1 'blue' star worth 50 and 1 'yellow' star worth 10. Am I making sense? Anyways I modified the same script a little bit (only the ParseUserTitles sub). If you want to use this hack just replace the ParseUserTitles sub from the original hack or Jaxel's hack with this sub:

You can specify the images for each post level in the control panel. Just make sure you list the post levels in DESCENDING order. Here is a snapshot of the how the control panel should be used with this alteration.
http://www.banditboys.com/titlerank.gif


------------------
Billy Bandit
Bandit Boys

Ok I did the Star and User Titles hack that you listed:

Jaxel made a version that combines this with the Stars hack. You can assign a certain number of stars to a user based on who the user is or how many posts they have. His version can be found here: http://temp.upnetwork.com/ubb/titleparse.txt

So, I copied everything from top to the bottom of the code I listed below, but when I try to click on User Titles in the Control Panel it gives me the following error:

Error including the required files:

Be sure you uploaded UltBB.setup, Styles.file, mods.file and forums.cgi in ASCII/Text mode to your CGI directory. [This is a manual setting on your FTP software]

Make sure spelling and case are correct: UltBB.setup not ultbb.setup.

Here is the message returned from UBB:

syntax error at ubb_library.pl line 205, near "if"

I know I have the files listed so there must be a problem with my coping and pasting, can anyone help? Oh by the way my board is 5.46.

---------------------------------------------
The Code
---------------------------------------------

#########################
Hacking in ubb_library.pl
#########################

Find code:
----------------------------------------------
$Version = "5.45c";
$VersionNumber = "5R4R5RC";
$maxmemfields = 14; # = 15 max fields for member data
----------------------------------------------
* May be slightly different in your version


Add BELOW code above:
----------------------------------------------
########################################################
# Smart title parsing routine by [email protected] #
########################################################

sub ParseUserTitles{
# Check for Post Count titles
my @posttitles = &OpenFile("$MembersPath/title-list2.file");

foreach $thisline(@posttitles) {
my @postnumtitles = split(/|!!|/, $thisline);
chomp($postnumtitles[2]);

if ($thisprofile[7] > $postnumtitles[0]) {
$CustomStatus = "$postnumtitles[1]";
$NumStars = "$postnumtitles[2]"; &ParseStars;
$ThisStatus = "$CustomStars
$CustomStatus";
}
}

# Check for Admin / Moderator Titles
if ($thisprofile[8] eq "Administrator") {
$CustomStatus = "$AdminTitle";
$NumStars = "8"; &ParseStars;
$ThisStatus = "$CustomStars
$CustomStatus";
}
elsif ($thisprofile[8] eq "Moderator") {
$CustomStatus = "$ModeratorTitle";
$NumStars = "7"; &ParseStars;
$ThisStatus = "$CustomStars
$CustomStatus";
}


# Check for Username Specific Titles
my @spectitles = &OpenFile("$MembersPath/title-list.file");

foreach $thisline(@spectitles) {
my @titles = split(/|!!|/, $thisline);
chomp($titles[2]);

if ($thisprofile[0] eq "$titles[0]") {
$CustomStatus = "$titles[1]";
$NumStars = "$titles[2]"; &ParseStars;
$ThisStatus = "$CustomStars
$CustomStatus";
}
}
} # end smart title parsing routine

sub ParseStars{
$CustomStars = "";
for($i = 1; $i <= $NumStars; $i++) {
$CustomStars .= qq( );
}
} # end smart star parsing routine

#################################################
# Control Panel for Jimbo's Smart Title parsing #
# Written by Skalos #
#################################################

sub UserTitles {
$PageTitle = "U S E R T I T L E S";
&HEADERHTML1;
print<
You must be an administrator
to change custom user titles.

ForumLoginHTML

&IDTable;

print<

ENDIT
}

sub ViewUserTitles {
&VerifyAdminCP($UserName, $Password);
if ($Proceed eq "true") {
#get current user titles
my @spectitles = &OpenFile("$MembersPath/title-list.file");
$titles = join(/n/, @spectitles);
#get the current titles by post
my @spectitles = &OpenFile("$MembersPath/title-list2.file");
$posttitles = join(/n/, @spectitles);
$PageTitle = "U S E R T I T L E S";
&HEADER2HTML;

####################################
# For best visibility on screen,
# you should set $numColumns to:
#
# 55 if you use 640x480 resolution
# 70 if you use 800x600 resolution
# 105 if you use 1024x768 resolution
####################################
$numColumns=70;
####################################

print<

Set user titles below by specifying them in the form of: |!!|