HACK NAME : Combined AIM / ICQ / Y!Mess hack

DESCRIPTION : This hack is written for v5.45x combines the AIM Pop-up, ICQ Pop-up, and Y!Mess 
		Pop-ups into one huge modification. It should reduce the time it takes to add 
		all 3 hacks to your board and reduce errors.

AUTHOR : Allen Ayres (AllenAyres) - info@stand318.com
PROPOSED BY : Interrealm
DEMO : http://www.stand318.com
CREDITS : All the numerous authors of the many versions of the 4 original hacks.

If you feel you have contributed but not been given credit please email me - info@stand318.com

REQUIREMENTS :	A full version of the UBB
		You will be editing 
		1. cpanel4.cgi, 
		2. ubb_library.pl, 
		3. Register_lib.cgi, 
		4. ubb_library2.pl, 
		5. ubbmisc.cgi, 
		
Support : 	I will be supporting this hack @ UbbCodeHacking.com in this forum:
		http://ubbcodehacking.com/ubb/Forum7/HTML/000177.html




This takes a while... Most of your mistakes will come from not keeping your profile field numbers 
straight. I would recommend writing down all of them on a sheet of paper and always refer to them 
as you go along.

This hack also assumes you already have the basic icq hack installed. Install that first if you 
don't. I already have it, so I didn't include it here...

Do not copy the lines of #####, >>>>>, and <<<<< that outline the code pieces to your files, they 
will mess up the hack.



######### ONE #############


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



Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

chomp($theprofile[14]);
chomp($theprofile[13]);
chomp($theprofile[12]);
chomp($theprofile[11]);

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add above that: 

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

chomp($theprofile[15]); 
chomp($theprofile[16]);

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Then Find:


code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

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

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

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

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

<TR bgcolor="#C6CFA0">
<td><FONT SIZE="2" FACE="Verdana, Arial"><B>Occupation:</B></font></td>
<td><FONT SIZE="2" FACE="Verdana, Arial">$thisprofile[5] &nbsp;</font>
</td></tr>

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


Right underneath add this:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

<TR bgcolor="#C6CFA0">
<td><FONT SIZE="2" FACE="Verdana, Arial"><B>AIM Screen Name:</B></font></td>
<td><FONT SIZE="2" FACE="Verdana, Arial">$thisprofile[15] &nbsp;</font>
</td></tr>
<TR bgcolor="#C6CFA0">
<td><FONT SIZE="2" FACE="Verdana, Arial"><B>Yahoo ID:</B></font></td>
<td><FONT SIZE="2" FACE="Verdana, Arial">$thisprofile[16] &nbsp;</font>
</td></tr>

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<












###############TWO#######################

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

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

$maxmemfields = 14;

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

change to:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$maxmemfields = 16;

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<







#############THREE#############

####################
ubbmisc.cgi
####################




code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 if ($in{'action'} eq "icqmessage") {
&ICQmessage;
}
 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


Change to:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

if ($in{'action'} eq "icqpanel") {
&ICQpanel;
}

if ($in{'action'} eq "icqpage") {
&ICQpage;
}

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<



Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    if ($Name eq "Occupation") {
            $Occupation = &CleanThis($Value);
            $Occupation = &PipeCleaner($Occupation);
    }

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Right underneath add this:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

    if ($Name eq "AIMname") {
            $AIMname = &CleanThis($Value);
            $AIMname = &PipeCleaner($AIMname);
    }
    if ($Name eq "YahID") {
            $YahID = &CleanThis($Value);
            $YahID = &PipeCleaner($YahID);
    }

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Then Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    $AllowMassMail = $thisprofile[14];

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

    $AIMname = $thisprofile[15];
    $YahID = $thisprofile[16];

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Then Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

$Signature = &ConvertReturns("$Signature");
$OverrideImages = "yes";
$Signature = &UBBCode("$Signature");

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:


Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$AIMname = "$in{'AIMname'}";
$AIMname =~ s/(<IMG SRC)(.*?)(> )//isg;
$AIMname =~ s/</</g;
$AIMname =~ s/>/>/g;

$AIMname = &ConvertReturns("$AIMname");
$OverrideImages = "yes";
$AIMname = &UBBCode("$AIMname");

$YahID = "$in{'YahID'}";
$YahID =~ s/(<IMG SRC)(.*?)(> )//isg;
$YahID =~ s/</</g;
$YahID =~ s/>/>/g;

$YahID = &ConvertReturns("$YahID");
$OverrideImages = "yes";
$YahID = &UBBCode("$YahID");

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Then Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

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

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Note: if you have other hacked fields installed (ie you've been changing the '15')
then you need to make sure you put this in order.  Like allowmassmail is number 14, 
so the next one should be 15, after that 16, so on...  
Add directly underneath:

New note (AA):there are 2 of the above, put the first group (*name\n) under the first one, and 
the second group (*HTML\n) under the second one

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

   print MEMBERSHIP ("$AIMname\n");
   print MEMBERSHIP ("$YahID\n");

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  
Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

   print MEMBERSHIP ("$AIMnameHTML\n");
   print MEMBERSHIP ("$YahIDHTML\n");

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Then Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

<TR $AltColumnColor2>
<td><FONT SIZE="$TextSize" FACE="$FontFace"><B>Occupation:</B></font></td>
<td><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$thisprofile[5]</font>
</td></tr>

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:


Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

<TR $AltColumnColor1>
<TD valign=top>
<FONT SIZE="$TextSize" FACE="$FontFace"><B>AIM Handle:</B></font></td>
<td><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$thisprofile[15]</font>
</td></tr>

<TR $AltColumnColor2>
<TD valign=top>
<FONT SIZE="$TextSize" FACE="$FontFace"><B>Yahoo ID:</B></font></td>
<td><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$thisprofile[16]</font>
</td></tr>

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Then Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

    $Signature = &EditUBBConvert("$Signature");
    $Signature =~ s/<p>/\n\r\n/isg;
    $Signature =~ s/<br>/\n/isg;

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:


Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

    $AIMname = &EditUBBConvert("$AIMname");
    $AIMname =~ s/<p>/\n\r\n/isg;
    $AIMname =~ s/<br>/\n/isg;
    $YahID = &EditUBBConvert("$YahID");
    $YahID =~ s/<p>/\n\r\n/isg;
    $YahID =~ s/<br>/\n/isg;

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Then Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

<tr $AltColumnColor2>
<td>
<B><FONT SIZE="$TextSize" FACE="$FontFace">Occupation</FONT></B>
</td>
<td>
<INPUT TYPE="TEXT" NAME="Occupation" VALUE="$Occupation" SIZE=30 MAXLENGTH=100>
</td></tr>

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:


Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

<tr $AltColumnColor1>
<TD align=left><FONT SIZE="$TextSize" FACE="$FontFace"><B>AIM Handle: </B></FONT></TD>
<td><INPUT TYPE="TEXT" NAME="AIMname" VALUE="$AIMname" SIZE=30 MAXLENGTH=100>
</td>
</tr>
<tr $AltColumnColor2>
<td>
<B><FONT SIZE="$TextSize" FACE="$FontFace">Yahoo ID:</FONT></B>
</td>
<td>
<INPUT TYPE="TEXT" NAME="YahID" VALUE="$YahID" SIZE=17 MAXLENGTH=20>
</td>
</tr>

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<




Then Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

<TR>
    <TD $AltColumnColor1><FONT SIZE="$TextSize" FACE="$FontFace"><B>Occupation</B></FONT></TD>
    <TD $AltColumnColor2><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$Occupation</font>
</TD>
</tr>

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:


Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

<TR>
    <TD $AltColumnColor1 valign=top><FONT SIZE="$TextSize" FACE="$FontFace"><B>AIMname</B></FONT></TD>
    <TD $AltColumnColor2><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$AIMnameHTML</font>
</TD>
</tr>
<TR>
    <TD $AltColumnColor1><FONT SIZE="$TextSize" FACE="$FontFace"><B>Yahoo ID</B></FONT></TD>
    <TD $AltColumnColor2><FONT SIZE="$TextSize" FACE="$FontFace" COLOR="$LinkColor">$YahIDHTML</font>
</TD>
</tr>

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Then Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 if ($in{'action'} eq "pwrequest") {
 &PWRequest;
 } 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

if ($in{'action'} eq "aimmessage") {
&AIMmessage;
}

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

}  #end SubmitThreadEmail

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:


Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

sub AIMmessage {
$AIM = &UNHTMLIFY($in{'AIM'});
print<<AIMMessage;
<HTML>
<BODY $AltColumnColor2 text="$TextColor" link="$LinkColor" alink="$ActiveLinkColor" vlink="$VisitedLinkColor">
<font face="$FontFace" size=-1><b>Send a message to $AIM</b>
<table width=140><tr align=right><td><a href="http://dynamic.aol.com/cgi/redir?http://www.aol.com/aim/imreg_download_template?pageset=aol&promo=106695"><img src="$NonCGIURL/aimver_man.gif" width=44 height=55 border=0 alt="Download AIM 3.0"></a><img src="$NonCGIURL/aimver_topsm.gif" width=73 height=55 border=0 alt="AIM Remote"><br><a href="aim:goim?screenname=$AIM&message=Hi.+Are+you+there?"><img src="$NonCGIURL/aimver_im.gif" width=117 height=39 border=0 alt="Send me an Instant Message"></a><br><a href="aim:addbuddy?screenname=$AIM"><img src="$NonCGIURL/aimver_bud.gif" width=117 height=39 border=0 alt="Add me to Your Buddy List"></a><br><a href="aim:gochat?roomname=$AIM+Chat"><img src="$NonCGIURL/aimver_chat.gif" width=117 height=39 border=0 alt="Join my Chat Room"></a><br><a href="javascript:self.close()"><img src="$NonCGIURL/aimver_botdow.gif" width=117 height=29 border=0 alt="Close This Window"></a></td></tr></table>
<!--The following commented lines seem to cause an annoying box to pop-up telling you that you need to be running AIM. If you want them, uncomment them. (but not this line)-->
<!--<SCRIPT LANGUAGE="JavaScript">-->
<!--alert("You must have AIM installed for these features to work.")-->
<!--</script> -->
AIMMessage
}


sub ICQpanel {

$UIN = &UNHTMLIFY($in{'UIN'});

print<<ICQpanel;
<HTML>
<BODY $AltColumnColor2 text="$TextColor" link="$LinkColor" alink="$ActiveLinkColor" vlink="$VisitedLinkColor">

<form action="http://wwp.mirabilis.com/scripts/WWPMsg.dll" method="post">
		<table border="1" width="90%" cellpadding="5"><tr><td>
<center>
<font face="arial" size="-1"><B>Web-page Visitor - Communicate with [$UIN] by using this <nobr>ICQ Respond-Online Panel</nobr></B><BR><br></font>				
<table valign="top" cellspacing="0" cellpadding="0" border="0">
<tr><td colspan="5"><a href="http://public.icq.com/public/panels/respondpanel/links/respondpanel.html" Target=_blank><img src="$NonCGIURL/icqrespond.gif" width=209 height=17 border=0 alt=""></a><a href="http://public.icq.com/public/panels/respondpanel/links/webcomm.html"><img src="http://online.mirabilis.com/scripts/online.dll?icq=$UIN&img=3" width=249 height=17 border=0 alt=""></a></td></tr>
<tr>
<td rowspan="4"><a href="http://public.icq.com/public/panels/respondpanel/links/wwp.html?$UIN" Target=_blank><img src="$NonCGIURL/icqvisit.gif" width=98 height=68 border=0 alt=""></a></td>
<td colspan="3"><img src="$NonCGIURL/icqrespondby.gif" width=261 height=11 border=0 alt=""></td>
<td rowspan="4"><a href="http://public.icq.com/public/panels/respondpanel/links/icq.html" Target=_blank><img src="$NonCGIURL/whatisicq.gif" width=99 height=68 border=0 alt=""></a></td>
</tr>
<tr>
<td><a href="http://public.icq.com/public/panels/respondpanel/links/chat.html?$UIN" Target=_blank><img src="$NonCGIURL/icqchat.gif" width=87 height=23 border=0 alt=""></a></td>
<td><a href="http://public.icq.com/public/panels/respondpanel/links/message.html?$UIN" Target=_blank><img src="$NonCGIURL/icqme.gif" width=88 height=23 border=0 alt=""></a></td>
<td><a href="http://public.icq.com/public/panels/respondpanel/links/add.html?$UIN" Target=_blank><img src="$NonCGIURL/addme.gif" width=87 height=23 border=0 alt=""></a></td>
</tr>
<tr><td colspan="3"><img src="$NonCGIURL/ifyoudont.gif" width=261 height=11 border=0 alt=""></td></tr>
<tr>
<td><a href="$CGIURL/ubbmisc.cgi?action=icqpage&UIN=$ThisICQ" Target=_blank><img src="$NonCGIURL/pageme.gif" width=87 height=23 border=0 alt=""></a></td>
<td><a href="http://public.icq.com/public/panels/respondpanel/links/zoom.html?$UIN" Target=_blank><img src="$NonCGIURL/icqzoom.gif" width=87 height=23 border=0 alt=""></a></td>
<td><a href="http://public.icq.com/public/panels/respondpanel/links/pager.html?$UIN" Target=_blank><img src="$NonCGIURL/icqemail.gif" width=87 height=23 border=0 alt=""></a></td>
</tr>
</table>
<font face="ms sans serif" size="-2">This Site is Powered by the <a href="http://public.icq.com/public/panels/respondpanel/links/respondpanel.html">ICQ Respond-Online Panel</a>
&nbsp;&copy; 1999 ICQ Inc. All Rights Reserved.
</font>
</center><a href="javascript:self.close()">[ Close Window ] </a></center>
</td></tr></table>
</body></html>
ICQpanel
} #end SendThreadForm

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<



Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

sub ICQmessage {

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Change to:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

sub ICQpage {

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

FIND:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

print<<ICQmessage;

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

change to:


Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

print<<ICQpage;

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

FIND:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

ICQmessage 

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Change to:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

ICQpage

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<



Then Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

$SignatureHTML = &ConvertReturns("$Signature");
if ($AllowSignatureImage eq 'NO'){
$OverrideImages = "yes"; 
} else {
$OverrideImages = "no"; 	
$UBBImages = 'ON';
}
$SignatureHTML = &UBBCode("$SignatureHTML");

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:


Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

#Prepare AIMname - prevent HTML, strip returns, do UBB Code

@censored = split(/ /, $censorwords);
$AIMname = &CensorCheck("$in{'AIMname'}");
$AIMname =~ s/(<IMG SRC)(.*?)(> )//isg;

$AIMname =~ s/</</g;
$AIMname =~ s/>/>/g;


$AIMnameHTML = &ConvertReturns("$AIMname");
$OverrideImages = "yes";
$AIMnameHTML = &UBBCode("$AIMnameHTML");

#Prepare YahID - prevent HTML, strip returns, do UBB Code
@censored = split(/ /, $censorwords);
$YahID = &CensorCheck("$in{'YahID'}");
$YahID =~ s/(<IMG SRC)(.*?)(> )//isg;

$YahID =~ s/</</g;
$YahID =~ s/>/>/g;

$YahIDHTML = &ConvertReturns("$YahID");
$OverrideImages = "yes";
$YahIDHTML = &UBBCode("$YahIDHTML");

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<







##########FOUR############

###########################
Register_lib.cgi
##########################




There are two places the following code must be changed on this page.

find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

<TR $AltColumnColor1>
    <TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>Occupation</B></FONT></TD>
    <TD><INPUT TYPE="TEXT" NAME="Occupation" VALUE="" SIZE=30 MAXLENGTH=50>
</TD>
</tr>

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add directly underneath:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

<tr $AltColumnColor2>
	<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>AIM Handle</B></FONT></TD>
	<td><INPUT TYPE="TEXT" NAME="AIMname" VALUE="$AIMname" SIZE=30 MAXLENGTH=100>
</TD>
</tr>
<TR $AltColumnColor1>
	<TD><FONT SIZE="$TextSize" FACE="$FontFace"><B>Yahoo ID</B></FONT></TD>
	<TD><INPUT TYPE="TEXT" NAME="YahID" VALUE="$YahID" SIZE=7 MAXLENGTH=20>
 </TD></tr>
 
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<








###############FIVE#############




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

Find This:


code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

$ThisThread = qq(<HTML><HEAD><TITLE>$TopicSubject - $BBName</title><META HTTP-EQUIV="Pragma" CONTENT="no-cache">

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add this right after:


Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

<script language="javascript">
function winopen(icqwindow) \{ var MainWindow = window.open (icqwindow, "_blank","toolbar=no,location=no,menubar=no,scrollbars=no,width=505,height=250,resizeable=yes,status=no");\}
</script>
<script language="javascript">
function aimwindow(aimpopupwindow)
{window.open("$CGIURL/ubbmisc.cgi?action=aimmessage&AIM="+aimpopupwindow,"_blank","toolbar=no,location=no,menubar=no,scrollbars=no,width=175,height=275,resizeable=yes,status=no")}
</script>

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<




Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

if ($ThisICQ>1) {
$ThisICQ= qq(<a href="javascript:winopen('$CGIURL/ubbmisc.cgi?action=icqmessage&UIN=$ThisICQ')"><img
src="http://online.mirabilis.com/scripts/online.dll?icq=$ThisICQ&img=5" width=18 height=18 alt="UIN: $ThisICQ"
border=0></a> );
} else {
$ThisICQ=" ";
}

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Change it to:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

if ($ThisICQ>1) {
$ThisICQ= qq(<a href="javascript:winopen('$CGIURL/ubbmisc.cgi?action=icqpanel&UIN=$ThisICQ')"><img
src="http://online.mirabilis.com/scripts/online.dll?icq=$ThisICQ&img=5" width=18 height=18 alt="UIN: $ThisICQ"
border=0></a> );
} else {
$ThisICQ=" ";
}

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


find:

note: there are 2 places, use the first one..

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

$ProfileString = "&nbsp;";

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Add this right after:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$ThisAIM = "";

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

then after the } add:

Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

if ($RegName eq "unreg") {
$ThisAIM = "";}
unless ($ThisAIM eq "") {
$ThisAIM= qq(<a href="javascript:aimwindow('$ThisAIM')"><img 
src="$NonCGIURL/aim_icon.gif" alt="Send an AIM Message to $ThisAIM" 
border=0></a> );
} else {
$ThisAIM=" ";
}

unless ($ThisYID eq "") {
	$ThisYID= qq(<a href="http://edit.yahoo.com/config/send_webmesg?.target=$ThisYID&.src=pg" target="_blank"><img src="http://opi.yahoo.com/online?u=$ThisYID&m=g&t=0" alt="Send a message to $ThisYID" border=0 align=abscenter></a> );
} else {
	$ThisYID=" ";
}

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


Find:

code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

$ThisStatus = $thisprofile[8];

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

 

Add directly underneath:

 
Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

$ThisAIM = $thisprofile[15];
$ThisYID = $thisprofile[16];

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<



Find:


code:
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

<FONT SIZE="1" color="$TimeColor" face="$FontFace">posted $ThisDate $FormatTime &nbsp;&nbsp;&nbsp;
$ProfileString $EmailString &nbsp;&nbsp;$EditLink

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Replace this with:
NOTE: this code is commonly used by other hacks, so if you have other hacks installed,
the only thing your adding here is: &nbsp;&nbsp;$ThisYID &nbsp;&nbsp;$ThisAIM


Code:
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

<FONT SIZE="1" color="$TimeColor" face="$FontFace">posted $ThisDate $FormatTime &nbsp;&nbsp;&nbsp;
$ProfileString $EmailString &nbsp;&nbsp;$EditLink &nbsp;&nbsp;&nbsp;$ThisYID &nbsp;&nbsp;$ThisAIM

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<



DONE!!! Upload all .cgi files and .pl files in ASCII (please!!) and upload all .gif files to your non-cgi directory.

Update general settings and threads