This will fix the PM Ignore/Buddy List, atleast it did for me.
# UBB.classic PM List Page - for ignore & buddy lists
$MainButtonsLine = &MainButtonOptions;
# standard top of HTML page
print "$Header";
print <<ListGuts;
<center>
$standard_title_table
<table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="100%" align="right"><font size="1" face="$vars_style{FontFace}"><b><a href="$vars_config{CGIURL}/ultimatebb.cgi">$vars_config{BBName}</a> » <a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=my_profile">$vars_wordlets{my_profile_header}</a> » $this_list $vars_wordlets{list}</b></font></td></tr></table>
</td></tr>
</center>
$TBB
<form action="$vars_config{CGIURL}/ultimatebb.cgi" method="post">
<input type="hidden" name="ubb" value="update_$that_list">
$TBT
<center>
<tr bgcolor="$vars_style{AltColumnColor1}">
<td align="left">
<font size="2" face="$vars_style{FontFace}">$list_explained</font>
</td></tr>
</center>
$TBB
$TBT
<tr bgcolor="$vars_style{TableColorStrip}">
<td colspan="3">
<b><font size="$vars_style{TextSize}" face="$vars_style{FontFace}" color="$vars_style{TableStripTextColor}">
$this_list $vars_wordlets{list}
</font></b>
</td>
</tr>
<tr bgcolor="$vars_style{CategoryStripColor}">
<td> </td>
<td>
<font color="$vars_style{CategoryStripTextColor}" size="$vars_style{TextSize}" face="$vars_style{FontFace}"><b>
$vars_wordlets{public_name_field}
</b></font>
</td>
<td>
<font color="$vars_style{CategoryStripTextColor}" size="$vars_style{TextSize}" face="$vars_style{FontFace}"><b>
$vars_wordlets{user_number}
</b></font>
</td>
</tr>
ListGuts
foreach $key (@pm_list) {
if (&FileExists("$vars_config{MembersPath}/$key.cgi")) {
$count++;
$this_name = &get_public_name($key);
if ($this_list eq 'Buddy') {
$this_name .= qq~
<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=private_message&u=$key"><img src="$vars_config{NonCGIURL}/$vars_style{priv_message}" border='0' alt="$vars_wordlets{send_private_message}"></a>
~;
}
print <<list_row;
<tr bgcolor="$vars_style{AltColumnColor1}">
<td valign="top">
<input type="checkbox" name="$key" value="include" checked="checked">
</td>
<td valign="top">
<font size="1" face="$vars_style{FontFace}">
$this_name
</font>
</td>
<td valign="top">
<font size="1" face="$vars_style{FontFace}">
$key
</font>
</td>
</tr>
list_row
}
}
if ($count == 0) {
print <<list_row;
<tr bgcolor="$vars_style{AltColumnColor1}">
<td valign="bottom" colspan="3">
<font size="1" face="$vars_style{FontFace}">
$vars_wordlets{no_one_on_list}
</font>
</td>
</tr>
list_row
} else {
print <<list_row;
<tr bgcolor="$vars_style{AltColumnColor1}">
<td align="center" valign="bottom" colspan="3">
<input type="submit" name="submit" value="$vars_wordlets{update} $this_list $vars_wordlets{list}">
</td>
</tr>
list_row
}
print <<ListBottom;
$TBB
</form>
ListBottom
# standard bootom of HTML page
print "$Footer";
# Nothing below this line should be changed.. and there is no more code!
# This entire program is copyright Infopop Corporation.
# For more info on UBB.classic and other Infopop
# Products/Services, visit:
http://www.infopop.com # You may not distribute this program in any manner, modified or otherwise.
#You make modifications, but only for your own use and within the confines of the UBB.classic License Agreement.
# DANGER: Do not remove the following line!
1;
# $Id: public_pm_list.pl,v 1.6 2002/04/18 22:59:30 cvscapps Exp $
Previous Topic
Index