**************** in ultimatebb.cgi
***search for
exit(0);
} #end get_pm
*********add after it
if ($ubb eq 'send_PM') {
if ($in{R1} eq 'number'){
$ubb ='private_message';
$in{u}=Do8Digit($in{user});
}
else
{
&RequireCode("$vars_config{CGIPath}/ubb_lib.cgi");
$in{u}=&getpublicnamee($in{user});
$ubb ='private_message';
}
} #end private_message
**************** in ubb_lib.cgi
***search for
sub Do6Digit {
return(sprintf ("%.6d", $_[0]));
}
*********add after it
sub getpublicnamee{
my $public_names=$_[0];
my $num;
my $one;
my @line;
@all_member_nums;
@all_members_list = grep(/d{8}/, &OpenFileAsArray("$vars_config{MembersPath}/memberslist.cgi"));
my $count=0;
foreach $one (@all_members_list) {
@line = split (/|!!|/, $one);
chomp($line[1]);
push (@all_member_nums, $line[1]);
$count++;
}
@this_member;
my $found=0;
my @all_members_list2;
@all_member_nums2;
@all_member_name;
my $count2=0;
if (-e "$vars_config{MembersPath}/publicmemberslist.cgi"){
@all_members_list2 = grep(/d{8}/, &OpenFileAsArray("$vars_config{MembersPath}/publicmemberslist.cgi"));
foreach $one (@all_members_list2) {
@line = split (/|!!|/, $one);
chomp($line[1]);
push (@all_member_nums2, $line[1]);
push (@all_member_name, $line[0]);
$count2++;
}
}
if ($count2 != $count){
my @public_name_file;
THIS: foreach $one (@all_member_nums) {
# open profile
@this_member = &OpenProfile($one);
chomp($this_member[15]);
push (@public_name_file, "$this_member[15]|!!|$one");
if ($this_member[15] eq ''){
$this_member[15]=$this_member[0];
}
if ($this_member[15] eq $public_names){
$num=$one;
}
}
&WriteFileAsArray("$vars_config{MembersPath}/publicmemberslist.cgi",@public_name_file);
chmod(0777, "$vars_config{MembersPath}/publicmemberslist.cgi");
}
else
{
$count=0;
THIS: foreach $one (@all_member_nums2) {
if ($all_member_name[$count] eq $public_names){
$num=$one;
}
$count++;
}
}
return $num;
}
**************** in public_my_profile.pl
***search for
<td valign="bottom" align="right">
<font size="1" face="$vars_style{FontFace}">
<a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=ignore_list">$vars_wordlets{ignore_list}</a> | <a href="$vars_config{CGIURL}/ultimatebb.cgi?ubb=buddy_list">$vars_wordlets{buddy_list}</a>
</font>
</td></tr></table>
</center>
*********add after it
<form method="POST" action="ultimatebb.cgi">
<p align="center">
<input type="radio" value="name" checked name="R1"><span lang="en-us">Send by public name
<input type="radio" name="R1" value="number">Send by user number</span>
<input type="text" name="user" size="20">
<INPUT TYPE="HIDDEN" NAME="ubb" VALUE="send_PM">
<input type="submit" value="Send PM" name="B1">
<p align="center">
</form>
