##############################
#simple custom avatar hack by ELY_M.
#
#it uses $misc1 profile map 
#
#
#######

to specifiy avatar size in the control panel 


do this hack  FIRST !!! 




open setvariables.cgi


find this  

              <td bgcolor=#FFFFFF valign=middle align=left width=40%>
                <font face=verdana color=#333333 size=1><b>Do you wish to enable avatars on this board?</b><br>Avatars are pictures that your members can use. They are displayed under their name when they make a post.</font></td>
                <td bgcolor=#FFFFFF valign=middle align=left>
                $tempoutput</td>
                </tr>



ADD THIS RIGHT AFTER  ^^^^^^^ 





<tr>
<td bgcolor=#FFFFFF valign=middle align=left width=40%>
<font face=verdana color=#333333 size=1><b></font> 
This is avatar size.  just put in 32 or 64 or 80 
80 is good.  the results will by same as  80 by 80   
</td>
<td bgcolor=#FFFFFF valign=middle align=left>
<input type=text size=2 name="avatar_size" value="$avatar_size" MAXLENGTH=2></td>


###


open topic.cgi 


find number 32  

replace 32 with this $avatar_size


##

open register.cgi  and profile.cgi

find this 

width="64" height="64"

replace BOTH 64 with this $avatar_size    



DO BOTH FILES  register.cgi and profile.cgi 


:)


##################################



do register.cgi 


find this 



### Avatar stuff


if ($avatars eq "on") {

        $dirtoopen = "$imagesdir" . "avatars";
        opendir (DIR, "$dirtoopen") or die "This is not the correct directory ($dirtoopen) please check the \$imagesdir path in the Admin center \&gt\; Set-Variables";
        @dirdata = readdir(DIR);
        closedir (DIR);

        @images = grep(/gif/,@dirdata);

        foreach (@images) {

            $cleanavatar =  $_;
            $cleanavatar =~ s/.gif//i;

            # Skip, if it's an admin/moderator only avatar

            if ($cleanavatar =~ /admin_/) { next; }
            
            if ($cleanavatar eq "noavatar") {            
	            $selecthtml .= qq~<option value="noavatar" selected>$cleanavatar</option>\n~;
                $currentface = "$cleanavatar";
                }
	            else {
                    $selecthtml .= qq~<option value="$cleanavatar">$cleanavatar</option>\n~;
                    }
                }

            $avatarhtml = qq~
            <script language="javascript">
                function showimage()
                {
                //alert("$imagesurl/avatars/"+document.creator.useravatar.options[document.creator.useravatar.selectedIndex].value+".gif");
                document.images.useravatars.src="$imagesurl/avatars/"+document.creator.useravatar.options[document.creator.useravatar.selectedIndex].value+".gif";
                }
            </script>
            
            <tr>

<td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc size=1><b>Avatar:</b>
<br>You may choose an avatar to be displayed under your chosen username when you make a post
                

#######


add this right under  ^^^^^  


<td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc size=1><b>Avatar:</b><br>You may choose an avatar to be displayed under your chosen username when you make a post
 

<p>

Got your own avatar from a url ?  <br>

<input type=text size=40 name="imageurl" value="$misc1"><br>
Be sure to include http://<br>
example: http://www.geocities.com/username/myart.gif  <p>

pick "noavatar" (choice at bottom of the list) <br>
If you want only one image from your url, <br>
or you want nothing for an avatar. <br>
 
<p>        



*** MAKE SURE YOU PUT THIS BEFORE </td>  ****     



***************


Do EXACT SAME thing again for profile.cgi too as you did for register.cgi !!!! 

open profile.cgi and do SAME thing as ABOVE   ^^^^^^^^^^^^^^^^


Or people cant update their profiles with their own avatars.  

*************** 


####################################################################################
### in profile.cgi 


find this      


$inuseravatar           = $query -> param('useravatar');

and add this right under   ^^^^^^


$newimageurl            = $query -> param('imageurl');

###


find this      

$inuseravatar           = &cleaninput("$inuseravatar");

add this right under ^^^^^^^^

$newimageurl            = &cleanarea("$newimageurl");


###  


find  $misc1 


REPLACE this with  $newimageurl  


############################################################################

avatars in profile    still  profile.cgi   



find this  

################ show profile subroutine

then LOOK for  this   $output .= qq~


ADD THIS  ABOVE / BEFORE  !!!   $output .= qq~  


if ($misc1 eq "" ) { $misc1html = "";} else { $misc1html = qq~Own image from a url: &nbsp; <a href=$misc1><img src=$misc1 ALT="$misc1" width=$avatar_size height=$avatar_size border=0> &nbsp; click to see full image</a>~; }
          
if ($useravatar eq "" ) { $avatarhtml = "";} else { $avatarhtml = qq~from the choice: &nbsp; <img src=$imagesurl/avatars/$useravatar width=$avatar_size height=$avatar_size>~; }



then 

find this <td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc size=1>$joineddate</font></td></tr>
	  <tr>

add this right under  ^^^^^^^



<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc size=1><b>Avatar(s):</b></font></td>
<td bgcolor=$miscbacktwo valign=middle align=center>
<font face="$font" color=$fontcolormisc size=1>
$avatarhtml  
     
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
     
$misc1html
 
</font></td></tr>



##########################################################################


open topic.cgi 


find this 


if (($avatars eq "on") && ($useravatar) && ($useravatar ne "noavatar")) {
            $useravatar = qq(<br><img src="$imagesurl/avatars/$useravatar" border=0 width="$avatar_size" height="$avatar_size">);
            }
            else { undef $useravatar; }


ADD THIS under  ^^^^


if ($misc1) { $imageurl = qq~<a href=$misc1 target=newwidow><img src=$misc1 ALT="$misc1" width=$avatar_size height=$avatar_size border=0></a>~; }
            else { undef $imageurl; }



####


find this  <br>$useravatar

add this <br>$imageurl  RIGHT under  <br>$useravatar


like this


<br> $useravatar 
<br> $imageurl













###done####