******************************************************************************
******************************************************************************
*      HACK NAME: Custom User Text - Redoucmented for v5.46                  *
******************************************************************************
*    DESCRIPTION: Allows your users to have custom user text under their     *
*		  usernames in threads.					     *
*									     *		
******************************************************************************
*     CREATED BY: DannyR         dannyboy@xs4all.nl                          *
*           DATE: 07/13/1999                                                 *
*        VERSION: version 1                                                  *
******************************************************************************
*    MODIFIED BY: Allen Ayres       AllenAyres@ubbdev.com                    *
*    MODIFY DATE: 08/28/2000                                                 *
*        VERSION: 1.5.46		                                     *
******************************************************************************
*   REQUIREMENTS: full license                                               *
*  COMPATABILITY: works with all v5.45x - 5.46, you will need to adapt it    *
*		  if you are using a different version.                      *
******************************************************************************
*    FILES ADDED: none		                                             *
* FILES MODIFIED: cpanel2.cgi, cpanel4.cgi, ubb_library.pl, ubb_library2.pl  *
*		  ubbmisc.cgi                                          	     *
******************************************************************************
*     DISCLAIMER: By using this hack, the user implicitly agrees that they   *
*                 are willingly modifying any and all files at their own     *
*                 risk.  Should any errors occur either as a direct or       *
*                 indirect result of said modifications the user agrees not  *
*                 to hold Infopop Corporation or any of the individuals      *
*                 listed above accountable.                                  *
*                                                                            *
*                                                                            *
*    IN OTHER WORDS: PLEASE MAKE BACKUP COPIES OF EVERY FILE YOU PLAN TO     *
*                      MODIFY PRIOR TO MODIFICATION!!                        *
*                                                                            *
*                                                                            *
*     FOR MORE TIPS AND TRICKS FOR USE WITH THE ULTIMATE BULLETIN BOARD      *
*                            PLEASE US AT VISIT:                             *
*                                                                            *
*              			http://www.ubbdev.com/		             *
*                                                                            *
******************************************************************************
******************************************************************************




#############################
CPANEL2.CGI
#############################



## FIND:

elsif ($DaysPruneDefault == 1000) {
	$Days1000 = "SELECTED";
}  else {
	$Days365 = "SELECTED";
}

## PASTE THIS UNDER:

if ($allowutext EQ "NO") {
	$utextoff = "CHECKED"; 
}
elsif ($allowutext EQ "YES") {
	$utexton = "CHECKED"; }
elsif ($allowutext EQ "NOSTATUS") {
	$utextns = "CHECKED"; }
elsif ($allowutext EQ "REPLACE") {
	$utextrp = "CHECKED"; }
else { $utexton = "CHECKED"; }
if ($allowutextedit EQ "YES") {
	$utextediton = "CHECKED"; }
else { $utexteditoff = "CHECKED"; }


## FIND:

THIS8


## PASTE THIS UNDER:

&InputRadioRow("#f7f7f7", "Show specific user texts with each post ?", "(These texts can be customized for every user bij editing the user permissions from the control panel).", "
<INPUT TYPE=\"RADIO\" NAME=\"allowutext\" VALUE=\"YES\" $utexton> Yes, Show Them.<BR>
<INPUT TYPE=\"RADIO\" NAME=\"allowutext\" VALUE=\"NO\" $utextoff> Do Not Show Them.<br>
<INPUT TYPE=\"RADIO\" NAME=\"allowutext\" VALUE=\"NOSTATUS\" $utextns> Show Them, but Don't Show User Status<BR>
<INPUT TYPE=\"RADIO\" NAME=\"allowutext\" VALUE=\"REPLACE\" $utextrp> Replace userstatus only if user text for that user exists");

&InputTextRow("#dedfdf", "Maximum Length of user text in number of characters", "" , "maxutext", "6", "3");

&InputRadioRow("#f7f7f7", "Allow users to edit their own user text ?", "You can allow users to edit their own user text here", "
<INPUT TYPE=\"RADIO\" NAME=\"allowutextedit\" VALUE=\"YES\" $utextediton> Allow users to edit their user text<BR>
<INPUT TYPE=\"RADIO\" NAME=\"allowutextedit\" VALUE=\"NO\" $utexteditoff> Do not allow users to edit their user text");



#############################
cpanel4.cgi
#############################


## FIND:

<td><FONT SIZE="1" FACE="Verdana, Arial">$searchrow[4]</FONT></td>

## PASTE THIS UNDER:

<td><FONT SIZE="1" FACE="Verdana, Arial"><INPUT TYPE="TEXT" NAME="utext::$ProfileNum" VALUE="$searchrow[15]" SIZE=20 MAXLENGTH="$maxutext"></FONT></td>



## FIND:
 
<td><FONT SIZE="1" FACE="Verdana, Arial">$searchrow[7]</FONT></td> 
 
## PASTE THIS UNDER:
 
 <td><FONT SIZE="1" FACE="Verdana, Arial"><INPUT TYPE="TEXT" NAME="utext::$ProfileNumber" VALUE="$usertext" SIZE=20 MAXLENGTH="$maxutext"></FONT></td>
 
 
 
## FIND:
 


}  ## IF match = 1

	$matchDelete = $row2 =~ m/Delete/;
		if ($matchDelete eq "1")  {
		    ($type, $UserNumber) = split(/::/, $Name);
			if ($Value eq "yes") {
			       $Value = "Delete";
				   }  else {
				      $Value = "";
			}
			
			$changeline = ("$UserNumber|$Value");
			$skippush = "no";
			
			if ($arraylength > 0) {
			$arrayline = 0;
			   foreach $checker(@changes) {
			       ($this, $that) = split(/\|/, $checker);
				   
				   if ($this eq "$UserNumber") {
				       $skippush = "yes";
				       $changes[$arrayline] = ("$UserNumber|$that$Value");
					} 
					$arrayline++;
			}  # foreach checker
		} ## if array length greater than 0
		
	if ($skippush eq "no") {
		    push(@changes, $changeline);
			}
          		   
			$arraylength = @changes; 
 
 
 
## PASTE THIS UNDER:
 
 }  ## IF match = 1

                $matchCS = $row2 =~ m/utext/;
                if ($matchCS ne "")  {
                    ($type, $UserNumber) = split(/::/, $Name);
                        if ($Value ne "") {
                               $Value = "$Value";
                                   }  else {
                                      $Value = "";
                        }
                        
                        $changeline = ("$UserNumber|$Value");
                        $skippush = "no";
                        
                        if ($arraylength > 0) {
                        $arrayline = 0;
                           foreach $checker(@changes) {
                               ($this, $that) = split(/\|/, $checker);
                                   
                                   if ($this eq "$UserNumber") {
                                       $skippush = "yes";
                                       $changes[$arrayline] = ("$UserNumber|$that|$Value");
                                        } 
                                        $arrayline++;
                        }  # foreach checker
                } ## if array length greater than 0
                
        if ($skippush eq "no") {
                    push(@changes, $changeline);
                        }
                           
                        $arraylength = @changes;
                        
                        


## FIND:

&CheckPermissions;
$WriteYes = "";
$WriteNo = "";
$AdminYes="";
$AdminNo="";

## PASTE THIS UNDER:

$usertext = $searchrow[15];



## FIND:

$DateReg = $searchrow[10];

## PASTE THIS UNDER:

$usertext = $searchrow[15];


## FIND:

($thisnumber, $ThisPerm) = split(/\|/, $updatename);

## REPLACE WITH:

($thisnumber, $ThisPerm, $usertext) = split(/\|/, $updatename);



## FIND:

print MEMBERSHIP ("$theprofile[14]\n");


## PASTE THIS UNDER:

print MEMBERSHIP ("$usertext\n");



## FIND:

<td valign=bottom><FONT SIZE="1" FACE="Verdana, Arial"><B>Total Posts</B></FONT></td>

## PASTE THIS UNDER:

<td valign=bottom><FONT SIZE="1" FACE="Verdana, Arial"><B>User Text</B></FONT></td>



DONE WITH CPANEL4


################################
ubb_library.pl
################################

## FIND:

$maxmemfields = 14; # = 15 max fields for member data

## Change that to: (may be higher if you have more custom profile fields)

$maxmemfields = 15; # = 15 max fields for member data


################################
ubb_library2.pl
################################



## FIND:

}  else {
	$ThisIcon = qq(<IMG SRC="$NonCGIURL/posticon.gif" BORDER=0>);
}

## PASTE THIS UNDER:

if ($RegName eq "unreg") {
	$thisutext = "";
}

elsif ($allowutext EQ "NOSTATUS") {
	$thisutext = $thisprofile[15];
      $ThisStatus = ""; }
elsif ($allowutext eq "REPLACE") {
	if ( $thisprofile[15] ) {
	$thisutext = "<b>$thisprofile[15]</b>";
	$ThisStatus = "";
	} else {
	$thisutext = "";
	}
}
elsif ($allowutext EQ "YES") {
	$thisutext = "<br>$thisprofile[15]";
}
else {$thisutext = ""; }


## FIND:

face="$FontFace">$ThisStatus $AuthorExtra</FONT>


## REPLACE WITH:

face="$FontFace">$ThisStatus$thisutext<br>$AuthorExtra</FONT>



######################################
UBBMISC.CGI
######################################


## FIND:

$AllowMassMail = $thisprofile[14];

## PASTE THIS UNDER:

$usertext = $thisprofile[15];


## FIND:

$DateRegistered = "$profileinfo[10]";

## PASTE THIS UNDER:

$usertext = "$profileinfo[15]";


## FIND:

$Signature = &ConvertReturns("$Signature");

## PASTE THIS UNDER:

$usertxt = &CensorCheck("$in{'usertext'}");
$usertxt =~ s/\"/&quot/g;
$usertxt =~ s/</&lt;/g;
$usertxt =~ s/>/&gt;/g;

## FIND:

print MEMBERSHIP ("$in{'AllowMassMail'}\n");   

########
>>>> This is in 2 places, paste under both <<<<
########

## PASTE THIS UNDER:

print MEMBERSHIP ("$in{'usertext'}\n");



## FIND:

$Signature =~ s/(<IMG SRC)(.*?)(>)//isg;

$Signature =~ s/</&lt;/g;
$Signature =~ s/>/&gt;/g;

## PASTE THIS UNDER:

$usertxt = &CensorCheck("$in{'usertext'}");
$usertxt =~ s/\"/&quot/g;
$usertxt =~ s/</&lt;/g;
$usertxt =~ s/>/&gt;/g;




## FIND:

}  else {
	$ThisStatus = "$JrMemberTitle";
}

## PASTE THIS UNDER:

if ($allowutext eq "NOSTATUS") {
	$thisutext = $thisprofile[15];
	$ThisStatus = "";
	}
elsif ($allowutext eq "REPLACE") {
	if ( $thisprofile[15] ) {
	$thisutext = "$thisprofile[15]";
	$ThisStatus = "";
	} else {
	$thisutext = "";
	}
}
elsif ($allowutext eq "YES") {
	$thisutext = "$thisprofile[15]";
	}
else {$thisutext = ""; }


## FIND:

<td><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$ThisStatus</FONT>

## REPLACE WITH:

<td><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$ThisStatus<br>$thisutext</FONT>


## FIND:

} else {
		$AllowMailYes = "CHECKED";
		$AMM = qq(<INPUT TYPE="HIDDEN" NAME="OldAMM" VALUE="yes">);
	}

## PASTE THIS UNDER:

if ($allowutextedit EQ "YES") {
	$utextfield = "<tr $AltColumnColor2><td>
	<B><FONT SIZE=\"$TextSize\" FACE=\"$FontFace\">User Text (max $maxutext characters long)</FONT></B>
	<BR><FONT SIZE=\"1\" FACE=\"$FontFace\">This text will replace the status shown below your username when you post a message</font>
	</td><td>
	<B><FONT SIZE=\"$TextSize\" FACE=\"$FontFace\">
	<INPUT TYPE=\"text\" NAME=\"usertext\" VALUE=\"$usertext\" size=30 maxlength=\"$maxutext\">
	</FONT></B></td></tr>"; }
	else {
		$utextfield = "<INPUT TYPE=\"HIDDEN\" NAME=\"usertext\" VALUE=\"$usertext\">
	</td></tr>";
	}
	
	
	
## FIND:

<INPUT TYPE="TEXT" NAME="ICQnum" VALUE="$ICQnumber" SIZE=7 MAXLENGTH=20>
</td></tr>


## REPLACE WITH:

<INPUT TYPE="TEXT" NAME="ICQnum" VALUE="$ICQnumber" SIZE=7 MAXLENGTH=20>

$utextfield