UBB.Developers Forums Community Development Programming PHP and Server-side Scripting So close, but I need some help please!

OK here goes. Another hack gave me the idea as to how to accomplish what I want to do. I have a control panel area that lets me configure who is assigned a scrapbook. Basically, the scrapbooks are already in another part of the board, so all I wanted was to put a link (as I have) for each user who has a scrapbook. It is a up to me to configure a username for a scrapbook in the control panel. What I do is go into the control panel area I created, and I can insert a username and a corresponding scrapbook number. Not everyone has a scrapbook, so I needed to be able to assign a number based on manually entering the data for a username. The info is entered as |!!|, and it is here that the scrap-list file is created. This works...it works for the original hack (which is used by Admin only to assign a custom title, or custom titles based on post counts). Anyway, that part of the hack works as I have checked the members folder for the scrap-list.file and the proper entries. I did not want to add this to the profile, I only want it controlled by Admin.

So, I enter the data for a username, one per line, and it is written to the scrap-list.file (my little database), then it is called by the above bit of code and should give each configured user a blue folder with the proper scrapbook number.

Did any of that make sense??

For the original hack, written by Jimbo (make sure credit given where due), I enter a username in the format described above and the title I want. You notice that it works because all the titles on the page listed above are assigned by that hack. So I figured the same thing should happen with my little addition. Here is the whole sub-routine including what I added. This sub is called by ubb_library2.pl where $ThisStatus is assigned:

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

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

if ($thisprofile[7] > $postnumtitles[0]) {
$ThisStatus = "$postnumtitles[1]";
}
}

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


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

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

if ($thisprofile[0] eq "$titles[0]") {
$ThisStatus = "$titles[1]";
}
}

# Check for Scrapbook
my @scrapbook = &OpenFile("$MembersPath/scrap-list.file");

foreach $thisline(@scrapbook) {
my @scraps = split(/|!!|/, $thisline);
chomp($scraps[1]);
$ThisScrap = "";
if ($thisprofile[0] eq "$scraps[0]") {
$ThisScrap = qq(
);
}
}
} # end smart title parsing routine

Zanardi, I am very happy to have your expertise, and I think you, more than I can put into words here, for your help

------------------
Tony (Vipermad) Rickard
Viper Club UBB Admin