###############################################################################
# Profile.pl                                                                  #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Version:        YaBB 2 RC 1                                                 #
# Released:       December 27, 2004                                           #
# Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== #
# Copyright (c) 2000-2005 YaBB (www.yabbforum.com) - All Rights Reserved.     #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
# Sponsored by: Xnull Internet Media, Inc. - http://www.ximinc.com            #
#               Your source for web hosting, web design, and domains.         #
###############################################################################

$profileplver = 'YaBB 2 RC 1 $Revision: 1.78 $';
if($action eq 'detailedversion') { return 1; }

LoadLanguage("Profile");

	if(-e ("$vardir/gmodsettings.txt")) {
		require "$vardir/gmodsettings.txt";
	}


sub PrepareProfile {

	my $user = $INFO{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}
	if($iamguest) { &fatal_error($profile_txt{'1'}); }
	if ($user =~ m~/~){ &fatal_error($profile_txt{'224'}); }
	if ($user =~ m~\\~){ &fatal_error($profile_txt{'225'}); }

	if($user ne $username && !$iamadmin && !$iamgmod) {
		&fatal_error($profile_txt{'80'});
	}

	if ($iamgmod && $user ne $username && !$allow_gmod_profile) {
		&fatal_error($profile_txt{'80'});
	}

	if($user eq "admin" && $username ne "admin") {
		&fatal_error($profile_txt{'80'});
	}

	if(!-e ("$memberdir/$user.vars")){ &fatal_error("$profile_txt{'453'} -- $user"); }
	if($allowpics) {
		opendir(DIR, "$facesdir") || fatal_error("$profile_txt{'230'} ($facesdir)!<br \/>$profile_txt{'681'}", 1);
		closedir(DIR);
	}
	$dr = ${$uid.$user}{'regdate'} ? ${$uid.$user}{'regdate'} : $profile_txt{'470'};
	if (${$uid.$user}{'gender'} eq 'Male') { $GenderMale = ' selected="selected" '; }
	if (${$uid.$user}{'gender'} eq 'Female') { $GenderFemale = ' selected="selected" '; }
	&FromHTML(${$uid.$user}{'signature'});
	$signature = ${$uid.$user}{'signature'};
	$signature =~ s/\&\&/\n/g;
	$signature =~ s/\&lt;/</g;
	$signature =~ s/\&gt;/>/g;

	&CalcAge($user, "parse"); # Let's get the birthdate
	${$uid.$user}{'aim'} =~ tr/+/ /;
	${$uid.$user}{'yim'} =~ tr/+/ /;

	if (${$uid.$user}{'timeselect'} == 7) { $tsl7 = ' selected="selected" '; }
	elsif (${$uid.$user}{'timeselect'} == 6) { $tsl6 = ' selected="selected" '; }
	elsif (${$uid.$user}{'timeselect'} == 5) { $tsl5 = ' selected="selected" '; }
	elsif(${$uid.$user}{'timeselect'} == 4) { $tsl4 = ' selected="selected" '; }
	elsif (${$uid.$user}{'timeselect'} == 3) { $tsl3 = ' selected="selected" '; }
	elsif (${$uid.$user}{'timeselect'} == 2) { $tsl2 = ' selected="selected" '; }
	elsif (${$uid.$user}{'timeselect'} == 1) { $tsl1 = ' selected="selected" '; }
	elsif (${$uid.$user}{'timeselect'} == 0) { $tsl0 = ' selected="selected" '; }
	elsif ($timeselected == 7) { $tsl7 = ' selected="selected" '; }
	elsif ($timeselected == 6) { $tsl6 = ' selected="selected" '; }
	elsif ($timeselected == 5) { $tsl5 = ' selected="selected" '; }
	elsif ($timeselected == 4) { $tsl4 = ' selected="selected" '; }
	elsif ($timeselected == 3) { $tsl3 = ' selected="selected" '; }
	elsif ($timeselected == 2) { $tsl2 = ' selected="selected" '; }
	elsif ($timeselected == 1) { $tsl1 = ' selected="selected" '; }
	else { $tsl0 = ' selected="selected" '; }
	$pddd = ((${$uid.$user}{'timeoffset'}*10)+120);
	$pdel{$pddd}=' selected="selected"';

	$dayormonthm = qq~$profile_txt{'564'}<input type="text" name="bday1" size="2" maxlength="2" value="$umonth" />~; $dayormonthd = qq~$profile_txt{'565'}<input type="text" name="bday2" size="2" maxlength="2" value="$uday" />~;
	if ($tsl2 || $tsl3 || $tsl6) {$dayormonth=$dayormonthd.$dayormonthm;} else {$dayormonth=$dayormonthm.$dayormonthd;}

	$proftime=&timeformat((time + (3600*$timeoffset)-(${$uid.$user}{'timeoffset'}*3600)),1);
	@menucolors = qw(catbg catbg catbg catbg catbg);
}

sub ProfileMenu {

$yymain .= qq~

      <table cellspacing="1" cellpadding="4" width="100%" border="0" class="bordercolor">
        <tr>
          <td class="$menucolors[0]" valign="bottom" align="center" width="16%"><span class="small"><b><a href="$scripturl?action=profile;username=$INFO{'username'}">$profile_txt{79}</a></b></span></td>
          <td class="$menucolors[1]" valign="bottom" align="center" width="16%"><span class="small"><b><a href="$scripturl?action=profileContacts;username=$INFO{'username'}">$profile_txt{819}</a></b></span></td>
          <td class="$menucolors[2]" valign="bottom" align="center" width="16%"><span class="small"><b><a href="$scripturl?action=profileOptions;username=$INFO{'username'}">$profile_txt{818}</a></b></span></td>
          <td class="$menucolors[3]" valign="bottom" align="center" width="16%"><span class="small"><b><a href="$scripturl?action=profileIM;username=$INFO{'username'}">$profile_imtxt{56} $profile_txt{323}</a></b></span></td>~;
	if($iamadmin) {
		$yymain .= qq~
          <td class="$menucolors[4]" valign="bottom" width="16%" align="center"><span class="small"><b><a href="$scripturl?action=profileAdmin;username=$INFO{'username'}">$profile_txt{820}</a></b></span></td>~;
	}

	if ($iamgmod && $allow_gmod_profile && $gmod_access2{"profileAdmin"} eq "on") {
		$yymain .= qq~
          <td class="$menucolors[4]" valign="bottom" width="16%" align="center"><span class="small"><b><a href="$scripturl?action=profileAdmin;username=$INFO{'username'}">$profile_txt{820}</a></b></span></td>~;
	}

	$yymain .= qq~
        </tr>
      </table>
~;
}

sub ModifyProfile {
	&PrepareProfile;
	my $user = $INFO{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}
	$menucolors[0] = "titlebg";
	&ProfileMenu;
	if($iamadmin) {
		$confdel_text = "$profile_txt{'775'} $profile_txt{'777'} $INFO{'username'} $profile_txt{'778'}";
		if ($user eq $username) {
			$passtext = qq~$profile_txt{'821'}~;
		} else {
			$passtext = qq~$profile_txt{'2'} $profile_txt{'36'}~;
		}
	}
	else {
		$confdel_text = "$profile_txt{'775'} $profile_txt{'776'} $profile_txt{'778'}";
		$passtext = qq~$profile_txt{'821'}~;
	}

	$passtext .= qq~<br /><span class="small" style="font-weight: normal;">$profile_txt{'895'}</span>~;
	$yymain .= qq~
<form onsubmit="if (document.creator.cpasswrd.value == '') { alert('$profile_txt{'888'}'); return false; }"  action="$scripturl?action=profile2" method="post" name="creator">
<input type="hidden" name="username" value="$INFO{'username'}" />
<table cellspacing="1" cellpadding="4" width="100%" align="center" class="titlebg" border="0">
  <tr>
    <td class="catbg" colspan="2"><img src="$imagesdir/profile.gif" alt="" border="0" /> <b>$profile_txt{79} ($INFO{'username'})</b><br /><span class="small">$profile_txt{'698'}</span></td>
  </tr><tr class="windowbg">
   <td width="220" align="left"><b>$passtext </b></td>
   <td align="left"><input type="password" maxlength="30" name="cpasswrd" size="20" /></td>
 </tr><tr class="windowbg">
   <td width="220" align="left"><b>$profile_txt{81}: </b><br />
<span class="small">$profile_txt{'896'}</span>
</td>
   <td align="left"><input type="password" maxlength="30" name="passwrd1" size="20" /></td>
 </tr><tr class="windowbg">
   <td width="220" align="left"><b>$profile_txt{82}: </b><br />
<span class="small">$profile_txt{'896'}</span>
</td>
   <td align="left"><input type="password" maxlength="30" name="passwrd2" size="20" /></td>
 </tr><tr class="windowbg">
   <td width="220" align="left"><b>$profile_txt{68}: </b></td>
   <td align="left"><input type="text" maxlength="30" name="name" size="30" value="${$uid.$user}{'realname'}" /></td>
 </tr><tr class="windowbg">
   <td width="220" align="left"><b>$profile_txt{231}: </b></td>
   <td align="left"><select name="gender" size="1"><option value=""></option><option value="Male"$GenderMale>$profile_txt{'238'}</option><option value="Female"$GenderFemale>$profile_txt{'239'}</option></select></td>
 </tr><tr class="windowbg">
   <td width="220" align="left"><b>$profile_txt{'563'}: </b></td>
   <td align="left"><span class="small">$dayormonth$profile_txt{'566'}<input type="text" name="bday3" size="4" maxlength="4" value="$uyear" /></span></td>
 </tr><tr class="windowbg">
   <td width="220" align="left"><b>$profile_txt{'227'}: </b></td>
   <td align="left"><input type="text" maxlength="30" name="location" size="50" value="${$uid.$user}{'location'}" /></td>
 </tr>
~;
if ($sessions == 1 && $sessionvalid == 1 && ($iamadmin || $iamgmod || $iammod) && $username eq $user){
	&LoadLanguage("Sessions");
	my $decanswer = &descramble(${$uid.$user}{'sesanswer'},$user);
	$questsel = qq~<select name="sesquest" size="1">\n~;
	while (($key,$val) = each %sesquest_txt){
		if (${$uid.$user}{'sesquest'} eq $key && ${$uid.$user}{'sesquest'} ne ""){
			$sessel = qq~ selected="selected"~;
		} elsif ($key eq "password" && ${$uid.$user}{'sesquest'} eq ""){
			$sessel = qq~ selected="selected"~;
		} else {
			$sessel = "";
		}
		$questsel .= qq~<option value="$key"$sessel>$val</option>\n~;
	}
	$questsel .= qq~</select>\n~;
	$yymain .=qq~
  <tr>
    <td class="catbg" colspan="2"><img src="$imagesdir/session.gif" alt="" border="0" /> <b>$img_txt{'34a'}</b><br /><span class="small">$session_txt{'9'}<br />$session_txt{'9a'}</span></td>
  </tr><tr class="windowbg">
	   <td width="220" align="left">$questsel</td>
	   <td align="left"><input type="text" maxlength="30" name="sesanswer" size="20" value="$decanswer" /></td>
	 </tr>~;
}
$yymain .=qq~
<tr class="catbg">
   <td height="30" valign="middle" align="center" colspan="2"><input type="submit" name="moda" value="$profile_txt{'88'}" /> <input type="submit" name="moda" value="$profile_txt{'89'}" onclick="return confirm('$confdel_text')" /></td>
 </tr>
</table>
</form>
~;
	$yytitle = $profile_txt{'79'};
	&template;
	exit;
}

sub ModifyProfileContacts {
	&PrepareProfile;
	my $user = $INFO{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}
	$menucolors[1] = "titlebg";
	&ProfileMenu;
	$yymain .= qq~
<form action="$scripturl?action=profileContacts2;username=$user" method="post" name="creator">
<input type="hidden" name="username" value="$user" />
<table cellspacing="1" cellpadding="4" width="100%" align="center" class="titlebg" border="0">
  <tr>
    <td colspan="2" class="catbg"><img src="$imagesdir/profile.gif" alt="" border="0" /> <b>$profile_txt{79} ($INFO{'username'}) » $profile_txt{819}</b></td>
  </tr><tr class="windowbg">
    <td width="320" align="left"><b>$profile_txt{'69'}: </b><br /><span class="small">$profile_txt{'679'} </span></td>
    <td align="left"><input type="text" maxlength="50" name="email" size="30" value="${$uid.$user}{'email'}" /></td>
  </tr>~;
	if ($allow_hide_email) {
		my $checked = '';
		if( ${$uid.$user}{'hidemail'} eq 'checked') { $checked = 'checked="checked"';}
		$yymain .= qq~<tr class="windowbg">
          <td width="320" align="left"><b>$profile_txt{'721'}</b></td>
          <td align="left"><input type="checkbox" name="hideemail" value="checked" $checked /></td>
        </tr>~;
	}
	$yymain .= qq~<tr class="windowbg">
     <td width="320" align="left"><b>$profile_txt{'513'}: </b><br /><span class="small">$profile_txt{'600'}</span></td>
     <td align="left"><input type="text" maxlength="10" name="icq" size="20" value="${$uid.$user}{'icq'}" /></td>
   </tr><tr class="windowbg">
     <td width="320" align="left"><b>$profile_txt{'603'}: </b><br /><span class="small">$profile_txt{'601'}</span></td>
     <td align="left"><input type="text" maxlength="30" name="aim" size="20" value="${$uid.$user}{'aim'}" /></td>
   </tr><tr class="windowbg">
     <td width="320"><b>$profile_txt{'604'}: </b><br /><span class="small">$profile_txt{'602'}</span></td>
     <td align="left"><input type="text" maxlength="30" name="yim" size="20" value="${$uid.$user}{'yim'}" /></td>
   </tr><tr class="windowbg">
     <td width="320"><b>$profile_txt{'823'}: </b><br /><span class="small">$profile_txt{'824'}</span></td>
     <td align="left"><input type="text" maxlength="50" name="msn" size="20" value="${$uid.$user}{'msn'}" /></td>
   </tr><tr class="windowbg">
     <td width="320" align="left"><b>$profile_txt{'83'}: </b><br /><span class="small">$profile_txt{'598'}</span></td>
     <td align="left"><input type="text" maxlength="30" name="webtitle" size="50" value="${$uid.$user}{'webtitle'}" /></td>
   </tr><tr class="windowbg">
     <td width="320" align="left"><b>$profile_txt{'84'}: </b><br /><span class="small">$profile_txt{'599'}</span></td>
     <td align="left"><input type="text" name="weburl" size="50" value="${$uid.$user}{'weburl'}" /></td>
   </tr><tr class="catbg">
     <td height="30" valign="middle" align="center" colspan="2"><input type="submit" name="moda" value="$profile_txt{'88'}" /></td>
   </tr>
</table>
</form>
~;
	$yytitle = "$profile_txt{'79'} $profile_txt{'819'}";
	&template;
	exit;
}

sub ModifyProfileOptions {
	&PrepareProfile;
	my $user = $INFO{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}
	$menucolors[2] = "titlebg";
	&ProfileMenu;
	$yymain .= qq~
<form action="$scripturl?action=profileOptions2" method="post" name="creator">
<input type="hidden" name="username" value="$INFO{'username'}" />
<table cellspacing="1" cellpadding="4" width="100%" align="center" class="titlebg" border="0">
  <tr>
    <td colspan="2" class="catbg"><img src="$imagesdir/profile.gif" alt="" border="0" /><b>$profile_txt{'79'} ($INFO{'username'}) » $profile_txt{818}</b></td>
  </tr><tr class="windowbg">~;
	if($allowpics) {
		opendir(DIR, "$facesdir") || fatal_error("$profile_txt{'230'} ($facesdir)!<br />$profile_txt{'681'}", 1);
		@contents = readdir(DIR);
		closedir(DIR);
		$images = "";
		foreach $line (sort @contents){
			($name, $extension) = split (/\./, $line);
			$checked = "";
			if ($line eq ${$uid.$user}{'userpic'}) { $checked = ' selected="selected"'; }
			if (${$uid.$user}{'userpic'} =~ m~\Ahttp://~ && $line eq 'blank.gif') { $checked = ' selected="selected" '; }
			if ($extension =~ /gif/i || $extension =~ /jpg/i || $extension =~ /jpeg/i || $extension =~ /png/i ){
				if ($line eq 'blank.gif') {
					$images = qq~              <option value="$line"$checked>$profile_txt{'422'}</option>\n$images~; }
				else {
					$images .= qq~              <option value="$line"$checked>$name</option>\n~;
				}
			}
		}
		if (${$uid.$user}{'userpic'} =~ m~\Ahttp://~) {
			$pic = 'blank.gif';
			$checked = ' checked="checked" ';
			$tmp = ${$uid.$user}{'userpic'};
		}
		else {
			$pic = ${$uid.$user}{'userpic'};
			$tmp = 'http://';
		}

		$yymain .= qq~
          <td width="320" align="left"><b>$profile_txt{'229'}:</b><br /><span class="small">$profile_txt{'474'} $userpic_limits</span></td>
          <td align="left">
            <script language="JavaScript1.2" type="text/javascript">
            function showimage()
            {
              if (!document.images) return;
              document.images.icons.src="$facesurl/"+document.creator.userpic.options[document.creator.userpic.selectedIndex].value;
            }
            </script>
            <select name="userpic" size="6" onchange="showimage()">
$images            </select>
            &nbsp;&nbsp;<img src="$facesurl/$pic" name="icons" border="0" hspace="15" alt="" />
          </td>
        </tr><tr class="windowbg">
          <td width="320" align="left"><b>$profile_txt{'475'}</b></td>
          <td align="left"><input type="checkbox" name="userpicpersonalcheck" $checked />&nbsp;<input type="text" name="userpicpersonal" size="45" value="$tmp" /></td>
        </tr>~;
	}

	$yymain .= qq~<tr class="windowbg">
          <td width="320" align="left"><b>$profile_txt{'228'}: </b></td>
          <td align="left"><input type="text" name="usertext" size="50" value="${$uid.$user}{'usertext'}" maxlength="50" /></td>
        </tr><tr class="windowbg">
          <td width="320" align="left"><b>$profile_txt{'85'}:</b><br /><span class="small">$profile_txt{'606'}</span></td>
          <td align="left"><textarea name="signature" rows="4" cols="50">$signature</textarea><br />
            <span class="small">$profile_txt{'664'} <input value="$MaxSigLen" size="3" name="msgCL" disabled="disabled" /></span><br /><br />
            <script type="text/javascript" language="JavaScript">
            <!--
            var supportsKeys = false
            function tick() {
              calcCharLeft(document.forms[0])
              if (!supportsKeys) timerID = setTimeout("tick()",$MaxSigLen)
            }

            function calcCharLeft(sig) {
              clipped = false
              maxLength = $MaxSigLen
              if (document.creator.signature.value.length > maxLength) {
                document.creator.signature.value = document.creator.signature.value.substring(0,maxLength)
                charleft = 0
                clipped = true
              } else {
                charleft = maxLength - document.creator.signature.value.length
              }
              document.creator.msgCL.value = charleft
              return clipped
            }

            tick();
            //-->
            </script>
          </td>
        </tr><tr class="windowbg">
          <td width="320" align="left"><b>$profile_txt{'486'}:</b><br />
            <span class="small">$profile_txt{'479'}</span></td>
          <td width="50" align="left">
            <select name="usertimeselect" size="1">
              <option value="1"$tsl1>$profile_txt{'480'}</option>
              <option value="5"$tsl5>$profile_txt{'484'}</option>
              <option value="4"$tsl4>$profile_txt{'483'}</option>
              <option value="2"$tsl2>$profile_txt{'481'}</option>
              <option value="3"$tsl3>$profile_txt{'482'}</option>
              <option value="6"$tsl6>$profile_txt{'485'}</option>
              <option value="7"$tsl7>$profile_txt{'480a'}</option>
            </select>
          </td>
       </tr><tr class="windowbg">
          <td width="320" align="left"><b>$profile_txt{'486a'}:</b><br />
            <span class="small">$profile_txt{'479a'}</span></td>
           <td align="left"><span class="small"><input type="text" name="timeformat" size="40" value="${$uid.$user}{'timeformat'}" /></td>
        </tr><tr class="windowbg">
          <td width="320" align="left"><b>$profile_txt{'371'}:</b><br /><span class="small">$profile_txt{'519'}</span></td>
          <td align="left"><span class="small"><select name="usertimeoffset">
		<option value="">Time zone not selected</option>
		<option value="12"$pdel{'240'}>GMT/UTC+12 (International Date Line East)</option>
		<option value="11"$pdel{'230'}>GMT/UTC+11 (Magadan Time Russia)</option>
		<option value="10"$pdel{'220'}>GMT/UTC+10 (East Australian Time)</option>
		<option value="9.5"$pdel{'215'}>GMT/UTC+9.5 (Central Australian Time)</option>
		<option value="9"$pdel{'210'}>GMT/UTC+9 (Japan Time)</option>
		<option value="8"$pdel{'200'}>GMT/UTC+8 (China Coast Time)</option>
		<option value="8"$pdel{'190'}>GMT/UTC+8 (West Australian Time)</option>
		<option value="6.5"$pdel{'185'}>GMT/UTC+6.5 (North Sumatra)</option>
		<option value="6"$pdel{'180'}>GMT/UTC+6 (Russian Federation Zone 5)</option>
		<option value="5.5"$pdel{'175'}>GMT/UTC+5.5 (Indian)</option>
		<option value="5"$pdel{'170'}>GMT/UTC+5 (Russian Federation Zone 4)</option>
		<option value="4"$pdel{'160'}>GMT/UTC+4 (Russian Federation Zone 3)</option>
		<option value="3.5"$pdel{'155'}>GMT/UTC+3.5 (Iran)</option>
		<option value="3"$pdel{'150'}>GMT/UTC+3 (Baghdad Time/Moscow Time)</option>
		<option value="2"$pdel{'140'}>GMT/UTC+2 (Eastern Europe Time)</option>
		<option value="1"$pdel{'130'}>GMT/UTC+1 (Central European Time)</option>
		<option value="0"$pdel{'120'}>GMT/UTC+0 (Universal Time Coordinated)</option>
		<option value="-1"$pdel{'110'}>GMT/UTC-1 (West Africa Time)</option>
		<option value="-2"$pdel{'100'}>GMT/UTC-2 (Azores Time)</option>
		<option value="-3"$pdel{'90'}>GMT/UTC-3 (Atlantic Time)</option>
		<option value="-3.5"$pdel{'95'}>GMT/UTC-3.5 (Newfoundland)</option>
		<option value="-4"$pdel{'80'}>GMT/UTC-4 (Atlantic Time)</option>
		<option value="-5"$pdel{'70'}>GMT/UTC-5 (Eastern Time)</option>
		<option value="-6"$pdel{'60'}>GMT/UTC-6 (Central Time)</option>
		<option value="-7"$pdel{'50'}>GMT/UTC-7 (Mountain Time)</option>
		<option value="-8"$pdel{'40'}>GMT/UTC-8 (Pacific Time)</option>
		<option value="-9"$pdel{'30'}>GMT/UTC-9 (Alaskan Time)</option>
		<option value="-10"$pdel{'20'}>GMT/UTC-10 (Aleutians-Hawaii Time)</option>
		<option value="-11"$pdel{'10'}>GMT/UTC-11 (Nome Time)</option>
		</select><br />$profile_txt{'741'}: <i>$proftime</i></span></td>
       </tr><tr class="windowbg">
          <td width="320" align="left"><span class="small">$profile_txt{'519a'}</span></td>
          <td align="left"><span class="small"><input type="text" name="dsttimeoffset" size="5" value="${$uid.$user}{'dsttimeoffset'}" /></td>
        </tr>
~;
	&CheckNewTemplates;

	unless ($templatesloaded == 1) {
		require "$vardir/template.cfg";
	}
	while (($curtemplate, $value) = each(%templateset)){
		$selected = "";
		if($curtemplate eq ${$uid.$user}{'template'}) { $selected = qq~ selected="selected"~; $akttemplate = $curtemplate; }
		$drawndirs .= qq~<option value="$curtemplate"$selected>$curtemplate</option>\n~;
	}

	$yymain .= qq~<tr class="windowbg">
          <td width="320" align="left"><b>$profile_txt{'814'}</b></td>
          <td align="left"><select name="usertemplate">$drawndirs</select></td>
        </tr>~;

	opendir(dir,$langdir);
	my @lfilesanddirs = readdir(dir);
	close(dir);
	$drawnldirs .= qq~<option value=""> </option>~;
	foreach $fld (@lfilesanddirs){
		if(-d "$langdir/$fld" && $fld =~ m^\A[0-9a-zA-Z_\#\%\-\:\+\?\$\&\~\,\@/]+\Z^){
			if ($language eq $fld){$drawnldirs .= qq~<option value="$fld" selected="selected">$fld</option>~;}
			else {$drawnldirs .= qq~<option value="$fld">$fld</option>~;}
		}
	}

	$yymain .= qq~<tr class="windowbg">
          <td width="320" align="left"><b>$profile_txt{'817'}</b></td>
          <td align="left"><select name="userlanguage">$drawnldirs</select></td>
        </tr><tr class="catbg">
          <td height="30" valign="middle" align="center" colspan="2"><input type="submit" name="moda" value="$profile_txt{'88'}" /></td>
        </tr>
      </table>
</form>
~;
	$yytitle = "$profile_txt{'79'} $profile_txt{'821'}";
	&template;
	exit;
}

sub ModifyProfileIM {
	&PrepareProfile;
	my $user = $INFO{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}
	$menucolors[3] = "titlebg";
	&ProfileMenu;

	${$uid.$user}{'im_ignorelist'} =~ s/[\n\r]//g;
	${$uid.$user}{'im_ignorelist'} =~ s/\|/\n/g;
	${$uid.$user}{'im_notify'} =~ s/[\n\r]//g;
	if (${$uid.$user}{'im_notify'}) {
		$sel0='';
		$sel1=' selected="selected"';
	} else {
		$sel0=' selected="selected"';
		$sel1='';
	}

	$yymain .= qq~
<form action="$scripturl?action=profileIM2" method="post" name="creator">
<input type="hidden" name="username" value="$INFO{'username'}" />
<table cellspacing="1" cellpadding="4" width="100%" align="center" class="titlebg" border="0">
 <tr>
   <td colspan="2" class="catbg"><img src="$imagesdir/profile.gif" alt="" border="0" /><b>$profile_txt{79} ($INFO{'username'}) » $profile_imtxt{38}</b></td>
 </tr><tr class="windowbg">
   <td valign="top"><b>$profile_txt{'325'}:</b><br /><span class="small">$profile_txt{'326'}</span></td>
   <td><textarea name="ignore" rows="4" cols="50">${$uid.$user}{'im_ignorelist'}</textarea></td>
 </tr>~;
	if($enable_notification) {
	$yymain .= qq~<tr class="windowbg">
   <td valign="top"><b>$profile_txt{'327'}:</b></td>
   <td><select name="notify"><option value="0" $sel0>$profile_txt{'164'}</option><option value="1"$sel1>$profile_txt{'163'}</option></select></td>
 </tr>~;
} else { $yymain .= qq~<input type="hidden" name="notify" value="${$uid.$user}{'im_notify'}" />~; }

	chomp(${$uid.$user}{'im_popup'});
	chomp(${$uid.$user}{'im_imspop'});
	if(${$uid.$user}{'im_popup'} eq "on") { $enable_userimpopup = 'checked'; }
	if(${$uid.$user}{'im_imspop'} eq "on") { $popup_userim = 'checked'; }
	$yymain .= qq~<tr class="windowbg">
    <td width="320"><b>$profile_imtxt{'53'}</b></td>
    <td><input type="checkbox" name="popupims" $popup_userim /></td>
  </tr><tr class="windowbg">
    <td width="320"><b>$profile_imtxt{'05'}</b></td>
    <td><input type="checkbox" name="userpopup" $enable_userimpopup /></td>
  </tr><tr class="catbg">
    <td height="30" valign="middle" align="center" colspan="2"><input type="submit" name="moda" value="$profile_txt{'88'}" /></td>
 </tr>
</table>
</form>
~;
	$yytitle = "$profile_txt{'323'}: $profile_txt{'144'}";
	&template;
	exit;
}

sub ModifyProfileAdmin {
	&is_admin_or_gmod;
	&PrepareProfile;
	my $user = $INFO{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}
	$menucolors[4] = "titlebg";
	&ProfileMenu;

	($MemStatAdmin, $MemStarNumAdmin, $MemStarPicAdmin, $MemTypeColAdmin) = split(/\|/, $Group{"Administrator"});
	($MemStatGMod, $MemStarNumGMod, $MemStarPicGMod, $MemTypeColGMod) = split(/\|/, $Group{"Global Moderator"});
	($MemStatMod, $MemStarNumMod, $MemStarPicMod, $MemTypeColMod) = split(/\|/, $Group{"Moderator"});

	if(${$uid.$user}{'position'} eq 'Administrator') { $tt = $MemStatAdmin; }
	elsif (${$uid.$user}{'position'} eq 'Global Moderator') { $tt = $MemStatGMod; }
	else { $tt = ${$uid.$user}{'position'}; }

	$tta = "";
	if($NoPost[0]) {
		$tta = &DrawGroups(${$uid.$user}{'addgroups'}, ${$uid.$user}{'position'});
		$selsize = $k;
		if($selsize > 6) {$selsize = 6;}
	}

	$userlastlogin = &timeformat(${$uid.$user}{'lastonline'});
	$userlastpost = &timeformat(${$uid.$user}{'lastpost'});
	$userlastim = &timeformat(${$uid.$user}{'lastim'});
	if ($userlastlogin eq "") { $userlastlogin = "$profile_txt{'470'}"; }
	if ($userlastpost eq "") { $userlastpost = "$profile_txt{'470'}"; }
	if ($userlastim eq "") { $userlastim = "$profile_txt{'470'}"; }
	$online =~ s~\?~<i>$profile_txt{'687'}</i>.~;
	if(${$uid.$user}{'postcount'} > 100000) { ${$uid.$user}{'postcount'} = "$profile_txt{'683'}"; }

	$yymain .= qq~
<form action="$scripturl?action=profileAdmin2" method="post" name="creator">
<table cellspacing="1" cellpadding="4" width="100%" align="center" class="titlebg" border="0">
 <tr>
   <td colspan="2" class="catbg"><img src="$imagesdir/profile.gif" alt="" border="0" /> <b>$profile_txt{79} ($INFO{'username'}) » $profile_txt{820}</b><input type="hidden" name="username" value="$INFO{'username'}" /></td>
 </tr><tr class="windowbg">
   <td width="320" align="left"><b>$profile_txt{'21'}: </b></td>
   <td align="left"><input type="text" name="settings6" size="4" value="${$uid.$user}{'postcount'}" /></td>
 </tr><tr class="windowbg">
   <td width="320" align="left"><b>$profile_txt{'87'}: </b></td>
   <td align="left">
           <select name="settings7">
           <option value="${$uid.$user}{'position'}">$tt</option>
           <option value="${$uid.$user}{'position'}">---------------</option>
           <option value=""></option>~;
	$z=0;

unless ($iamgmod) {
	($title, $stars, $starpic, $color) = split(/\|/, $Group{"Administrator"});
	$yymain .= qq~
           <option value="Administrator">$title</option>~;
}

	($title, $stars, $starpic, $color) = split(/\|/, $Group{"Global Moderator"});
	 $yymain .= qq~
           <option value="Global Moderator">$title</option>~;
	while($NoPost[$z]) {
		($title, $stars, $starpic, $color) = split(/\|/, $NoPost[$z]);
		$yymain .= qq~<option value="$title">$title</option>~;
		$z++;
	}
	$yymain .= qq~
           </select></td>

 </tr>
~;
if($tta ne "") {
$yymain .= qq~
 <tr class="windowbg">
   <td width="320" align="left" valign="top"><b>$profile_txt{'87a'}: </b><br /><span class="small">$profile_txt{'87b'}</span></td>
   <td align="left">
           <select name="addgroup" size="$selsize" multiple="multiple">
           $tta
 </td>
 </tr>
~;
}
$yymain .= qq~
 <tr class="windowbg">
    <td width="320" align="left"><b>$profile_txt{'233'}:</b><br /><span class="small">$profile_txt{'421'}</span></td>
    <td align="left"><input type="text" name="dr" size="25" value="$dr" /></td>
 </tr><tr class="windowbg">
    <td width="320" align="left"><b>$profile_amv_txt{'9'}: </b></td>
    <td align="left">$userlastlogin</td>
 </tr><tr class="windowbg">
    <td width="320" align="left"><b>$profile_amv_txt{'10'}: </b></td>
    <td align="left">$userlastpost</td>
 </tr><tr class="windowbg">
    <td width="320" align="left"><b>$profile_amv_txt{'11'}: </b><br /><br /></td>
    <td align="left">$userlastim<br /><br /></td>
 </tr><tr class="catbg">
    <td height="30" valign="middle" align="center" colspan="2"><input type="submit" name="moda" value="$profile_txt{'88'}" /></td>
 </tr>
</table>
</form>
~;
	$yytitle = "$profile_txt{'79'} $profile_txt{'819'}";
	&template;
	exit;
}

sub ModifyProfile2 {
	$currentdate = timetostring(int(time));
	# Get the form values
	my( %member, $key, $value, $newpassemail, @memberlist, $a, @check_settings, @reserve, $matchword, $matchcase, $matchuser, $matchname, $namecheck, $reserved, $reservecheck, @dirdata, $filename, @entries, $entry, $umail, @members, $tempname );
	$FORM{'signature'} =~ s~\n~\&\&~g;
	while( ($key,$value) = each(%FORM) ) {
		$value =~ s~\A\s+~~;
		$value =~ s~\s+\Z~~;
		$value =~ s~[\n\r]~~g;
		$member{$key} = $value;
	}
	my $user = $FORM{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}

	if ($sessions == 1 && $sessionvalid == 1 && ($iamadmin || $iamgmod) && $username eq $user){
		&LoadLanguage("Sessions");
		if ($member{'sesquest'} ne "password" && $member{'sesanswer'} eq ""){ &fatal_error($session_txt{'7'}); }
		if ($member{'sesquest'} eq "password"){$member{'sesanswer'} = "";}
	}
	# make sure this person has access to this profile
	if($user eq "admin" && $username ne "admin") { &fatal_error($profile_txt{'80'}); }
	if($username ne $member{'username'} && !$iamadmin) { &fatal_error($profile_txt{'80'}); }
	if( !$iamadmin ) {
		$member{'username'} = $user;
		$member{'settings6'} = ${$uid.$user}{'postcount'};
		$member{'settings7'} = ${$uid.$user}{'position'};
		$member{'addgroup'} = ${$uid.$user}{'addgroups'};
	}

	if ($member{'username'} =~ /\//){ &fatal_error($profile_txt{'224'}); }
	if ($member{'username'} =~ /\\/){ &fatal_error($profile_txt{'225'}); }
	if (&encode_password($member{'cpasswrd'}) ne ${$uid.$user}{'password'}){
		if ((&encode_password($member{'cpasswrd'}) ne ${$uid.$user}{'password'}) && (!$iamadmin)) {
			&fatal_error("$profile_txt{'822'}");
		}
		if ((&encode_password($member{'cpasswrd'}) ne ${$uid.$username}{'password'}) && ($iamadmin)) {
			&fatal_error("$profile_txt{'897'}");
		}
	}
	if ($member{'passwrd1'} ne '' && $member{'passwrd2'} ne ''){
		&fatal_error("($member{'username'}) $profile_txt{'213'}") if($member{'passwrd1'} ne $member{'passwrd2'});
		&fatal_error("($member{'username'}) $profile_txt{'91'}") if($member{'passwrd1'} eq '');
		&fatal_error("$profile_txt{'240'} $profile_txt{'36'} $profile_txt{'241'}") if($member{'passwrd1'} !~ /\A[\s0-9A-Za-z!@#$%\^&*\(\)_\+|`~\-=\\:;'",\.\/?\[\]\{\}]+\Z/);
		&fatal_error("$profile_txt{'7'}") if($member{'username'} eq $member{'passwrd1'}); 
		$member{'cpasswrd'} = $member{'passwrd1'};
		my $passchanged = 1;
	}

	if($member{'name'} eq '') {
		&fatal_error("$profile_txt{'75'}");
	}

	&LoadCensorList;	# Load Censor List

	$censored_word = &CheckCensor("$member{'name'}");
	$censored_name = &Censor("$member{'name'}");

	if ($censored_name ne $member{'name'}) {
		&fatal_error("$profile_txt{'890'} <b>$censored_word</b>");
	}

	&FromChars($member{'name'});
	$convertstr = $member{'name'};
	$convertcut = 30;
	&CountChars;
	$member{'name'} = $convertstr;
	&fatal_error("$profile_txt{'568'}") if($cliped);

	&fatal_error("$profile_txt{'240'} $profile_txt{'68'} $profile_txt{'241'}") if($member{'name'} !~ /^[\s0-9A-Za-zöäüÖÄÜßñ\[\]#%+,-|\.:=?@^_]+$/);
	&fatal_error("$profile_txt{'75'}") if($member{'name'} eq '|');
	if( $member{'bday1'} ne "" || $member{'bday2'} ne "" || $member{'bday3'} ne "" ) {
		&fatal_error("$profile_txt{'567'} 1 ($member{'bday1'}/$member{'bday2'}/$member{'bday3'})") if( $member{'bday1'} !~ /^[0-9]+$/ || $member{'bday2'} !~ /^[0-9]+$/ || $member{'bday3'} !~ /^[0-9]+$/ || length($member{'bday3'}) < 4 );
		&fatal_error("$profile_txt{'567'} 2 ($member{'bday1'}/$member{'bday2'}/$member{'bday3'})") if( $member{'bday1'} < 1 || $member{'bday1'} > 12 || $member{'bday2'} < 1 || $member{'bday2'} > 31 || $member{'bday3'} < 1901 || $member{'bday3'} > $year-5 );
	}

	if($member{'moda'} eq $profile_txt{'88'}) {
		$member{'bday1'} =~ s/[^0-9]//g;
      		$member{'bday2'} =~ s/[^0-9]//g;
		$member{'bday3'} =~ s/[^0-9]//g;
		if($member{'bday1'}) { $member{'bday'} = "$member{'bday1'}/$member{'bday2'}/$member{'bday3'}"; }
		else { $member{'bday'} = ''; }

		# store the name temorarily so we can restore any _'s later
		$tempname = $member{'name'};
		$member{'name'} =~ s/\_/ /g;

		&ToHTML($member{'gender'});
		&ToHTML($member{'name'});

		# Check to see if name is already taken or reserved
		fopen(FILE, "$memberdir/memberlist.txt");
		@memberlist = <FILE>;
		fclose(FILE);
		
		if (${$uid.$user}{'realname'} ne $member{'name'}){
			my $testloginname = lc $member{'username'};
			my $testname = lc $member{'name'};
			my $numusers = 0;

			foreach $curmem (@memberlist) {
				chomp $curmem;
				($curmemb, $curmail, $curname) = split(/\|/, $curmem);
				if (lc $user eq lc $curmemb){
					#If current member take note to kill this entry later :)
					$curuserplace = $numusers;
				}
				else {
					if (lc $curmemb eq $testloginname) { &fatal_error("($member{'name'}) $testname $testloginname $profile_txt{'473'}"); }
					if (lc $curname eq $testname){fatal_error("$profile_txt{'891'}");}
				}
				$curmem = $curmem."\n";
				$numusers++;
			}
				
			#Since we haven't encountered a fatal error, time to rewrite our memberlist a little.
			$memberlist[$curuserplace] = "$user|${$uid.$user}{'email'}|$member{'name'}\n";
			fopen(MLISTWRITE, ">$memberdir/memberlist.txt",1);
			print MLISTWRITE @memberlist;
			#print MLISTWRITE "\n";
			fclose(MLISTWRITE);
		}
		

		
		fopen(FILE, "$vardir/reserve.txt") || &fatal_error("$profile_txt{'23'} reserve.txt", 1);
		@reserve = <FILE>;
		fclose(FILE);
		fopen(FILE, "$vardir/reservecfg.txt") || &fatal_error("$profile_txt{'23'} reservecfg.txt", 1);
		@reservecfg = <FILE>;
		fclose(FILE);
		for($a = 0; $a < @reservecfg; $a++) { chomp $reservecfg[$a]; }
		$matchword = $reservecfg[0] eq 'checked';
		$matchcase = $reservecfg[1] eq 'checked';
		$matchuser = $reservecfg[2] eq 'checked';
		$matchname = $reservecfg[3] eq 'checked';
		$namecheck = $matchcase eq 'checked' ? $member{'name'} : lc $member{'name'};

		foreach $reserved (@reserve) {
			chomp $reserved;
			$reservecheck = $matchcase ? $reserved : lc $reserved;
			if ($matchname) {
				if ($matchword) {
					if ($namecheck eq $reservecheck) { &fatal_error("$profile_txt{'80'}"); }
				}
				else {
					if ($namecheck =~ $reservecheck) { &fatal_error("$profile_txt{'80'}"); }
				}
			}
		}

		# let's restore the name now
		&ToHTML($tempname);
		$member{'name'} = $tempname;

		# Free code is the best code, like this code
		# Time to print the changes to the username.vars file
		if ($member{'passwrd1'}) { ${$uid.$user}{'password'} = &encode_password($member{'passwrd1'}); }
		${$uid.$user}{'realname'} = "$member{'name'}";
		${$uid.$user}{'gender'} = "$member{'gender'}";
		${$uid.$user}{'location'} = "$member{'location'}";
		${$uid.$user}{'bday'} = "$member{'bday'}";
		${$uid.$user}{'sesquest'} = "$member{'sesquest'}";
		${$uid.$user}{'sesanswer'} = &scramble($member{'sesanswer'},$user);
		${$uid.$username}{'session'} = &encode_password($user_ip);
		&UserAccount($user,"update");
		if ($username eq $user){
			my $pword = &encode_password("$member{'cpasswrd'}");
			my $expiration = "Sunday, 17-Jan-2038 00:00:00 GMT";
			## usage: &UpdateCookie ("delete or write",<userid>,<password>,<session>,<path>,<expiration>); ##
			&UpdateCookie("write",$user,$pword,${$uid.$user}{'session'},"/",$expiration);
			&LoadUser($user);
		}
		&WriteLog;
		$yySetLocation = qq~$scripturl?action=profileContacts;username=$member{'username'}~;
		&redirectexit;
	}
	elsif ($member{'moda'} eq $profile_txt{'89'}) {
	&fatal_error("$profile_txt{'751'}") if($member{'username'} eq 'admin');

	require "$sourcedir/Notify.pl";
	remove_notifications($member{'email'});
	# For security, remove username from mod position
	&KillModerator($member{'username'});

		if($iamadmin) {
			unlink("$memberdir/$member{'username'}.dat");
			unlink("$memberdir/$member{'username'}.vars");
			unlink("$memberdir/$member{'username'}.msg");
			unlink("$memberdir/$member{'username'}.log");
			unlink("$memberdir/$member{'username'}.cat");
	                unlink("$memberdir/$member{'username'}.outbox");
#	                unlink("$memberdir/$member{'username'}.imconfig");
	                unlink("$memberdir/$member{'username'}.buddy");
	                unlink("$memberdir/$member{'username'}.storage");
		}
		elsif( $member{'username'} eq $user ) {
			unlink("$memberdir/$user.dat");
			unlink("$memberdir/$user.vars");
			unlink("$memberdir/$user.msg");
			unlink("$memberdir/$user.log");
			unlink("$memberdir/$user.cat");
	                unlink("$memberdir/$user.outbox");
#	                unlink("$memberdir/$user.imconfig");
	                unlink("$memberdir/$user.buddy");
	                unlink("$memberdir/$user.storage");
		}

		opendir (DIRECTORY,"$datadir");
		@dirdata = readdir(DIRECTORY);
		closedir (DIRECTORY);

		if($iamadmin) {
			$umail=$member{'email'};
		} else {
			$umail=${$uid.$user}{'email'};
		}
		require "$sourcedir/Notify.pl";
		&remove_notifications($umail);

		fopen(FILE, "$memberdir/memberlist.txt");
		@members = <FILE>;
		fclose(FILE);
		fopen(FILE, ">$memberdir/memberlist.txt", 1);
		my $memberfound = 0;
		my $lastvalidmember = '';
		foreach $curmem (@members) {
			chomp $curmem;
			($curmemb, $curmail, $currealname) = split(/\|/, $curmem);
			if($curmemb ne $member{'username'}) { print FILE "$curmemb|$curmail|$currealname\n"; $lastvalidmember = $curmemb; }
			else { ++$memberfound; }
		}
		fclose(FILE);
		my $membershiptotal = @members - $memberfound;
		fopen(FILE, "+>$memberdir/members.ttl");
		print FILE qq~$membershiptotal|$lastvalidmember~;
		fclose(FILE);
		if(!$iamadmin) {
			require "$sourcedir/LogInOut.pl"; &Logout;
		}
		$yySetLocation = qq~$scripturl~;
		&redirectexit;
	} else {
		&fatal_error("$polltxt{'13'}");
	}
	exit;
}

sub ModifyProfileContacts2 {
	# Get the form values
	my( %member, $key, $value, $newpassemail, @memberlist, $a, @check_settings, @reserve, $matchword, $matchcase, $matchuser, $matchname, $namecheck, $reserved, $reservecheck, @dirdata, $filename, @entries, $entry, $umail, @members, $tempname );
	while( ($key,$value) = each(%FORM) ) {
		$value =~ s~\A\s+~~;
		$value =~ s~\s+\Z~~;
		$value =~ s~[\n\r]~~g;
		$member{$key} = $value;
	}
	my $user = $FORM{'username'} || $INFO{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($FORM{'username'});}

	# make sure this person has access to this profile
	if($user ne $member{'username'} && !$iamadmin) { &fatal_error($profile_txt{'80'}); }
	if( !$iamadmin ) {
		$member{'username'} = $user;
		$member{'settings6'} = ${$uid.$user}{'postcount'};
		$member{'settings7'} = ${$uid.$user}{'position'};
		$member{'addgroup'} = ${$uid.$user}{'addgroups'};
	}

	if( $emailnewpass && lc $member{'email'} ne lc ${$uid.$user}{'email'} && !$iamadmin) {
		srand();
		$member{'passwrd1'} = int( rand(100) );
		$member{'passwrd1'} =~ tr/0123456789/ymifxupbck/;
		$_ = int( rand(77) );
		$_ =~ tr/0123456789/q8dv7w4jm3/;
		$member{'passwrd1'} .= $_;
		$_ = int( rand(89) );
		$_ =~ tr/0123456789/y6uivpkcxw/;
		$member{'passwrd1'} .= $_;
		$_ = int( rand(188) );
		$_ =~ tr/0123456789/poiuytrewq/;
		$member{'passwrd1'} .= $_;
		$_ = int( rand(65) );
		$_ =~ tr/0123456789/lkjhgfdaut/;
		$member{'passwrd1'} .= $_;
		${$uid.$user}{'password'} = &encode_password($member{'passwrd1'});
		$newpassemail = 1;
	}

	&fatal_error("$profile_txt{'76'}") if($member{'email'} eq '');
	&fatal_error("$profile_txt{'240'} $profile_txt{'69'} $profile_txt{'241'}") if($member{'email'} !~ /[\w\-\.\+]+\@[\w\-\.\+]+\.(\w{2,4}$)/);
	&fatal_error("$profile_txt{'500'}") if(($member{'email'} =~ /(@.*@)|(\.\.)|(@\.)|(\.@)|(^\.)|(\.$)/) || ($member{'email'} !~ /^.+@\[?(\w|[-.])+\.[a-zA-Z]{2,4}|[0-9]{1,4}\]?$/));

	if($member{'moda'} eq $profile_txt{'88'}) {
        $member{'icq'} =~ s/[^0-9]//g;
        $member{'aim'} =~ s/ /\+/g;
        $member{'yim'} =~ s/ /\+/g;
		$member{'msn'} =~ s/ /\+/g;

		# store the name temorarily so we can restore any _'s later
		$tempname = $member{'name'};
		$member{'name'} =~ s/\_/ /g;

		&ToHTML($member{'aim'});
		&ToHTML($member{'yim'});
		&ToHTML($member{'msn'});
		&ToHTML($member{'weburl'});
		&ToHTML($member{'webtitle'});
		&ToHTML($member{'email'});
		&ToHTML($FORM{'hideemail'});

		# Check to see if email is already taken or reserved
		if (lc(${$uid.$user}{'email'}) ne lc($member{'email'})){
			fopen(MLIST, "$memberdir/memberlist.txt");
			@memberlist = <MLIST>;
			fclose(MLIST);
			$testname = lc $member{'username'}; 
			$testemail = lc $member{'email'}; 
			my $numusers = 0;
			foreach $curmem (@memberlist) {
				chomp $curmem;
				($curmemb, $curmail, $trash) = split(/\|/, $curmem);
				if (lc $user eq lc $curmemb){
					#If current member take note to kill this entry later :)
					$curuserplace = $numusers;
				}
				else {
					if(lc $testname eq lc $curmemb) { &fatal_error("($member{'username'}) $profile_txt{'473'}"); }
					if($testemail eq lc $curmail) { &fatal_error("$profile_txt{'730'} ($member{'email'}) $profile_txt{'731'}"); }
				}
				$curmem = $curmem."\n";
				$numusers++;
			}
			
			#Since we haven't encountered a fatal error, time to reqrite our memberlist a little.
			$memberlist[$curuserplace] = "$user|$member{'email'}|${$uid.$user}{'realname'}\n";
			fopen(MLISTWRITE, ">$memberdir/memberlist.txt",1);
			print MLISTWRITE @memberlist;
			#print MLISTWRITE "\n";
			fclose(MLISTWRITE);
		}
		# let's restore the name now
		&ToHTML($tempname);
		$member{'name'} = $tempname;

		# Time to print the changes to the username.vars file
#		if ($FORM{'hideemail'} ne "checked") { $FORM{'hideemail'} = ""; }
		${$uid.$user}{'email'} = $FORM{'email'};
		${$uid.$user}{'hidemail'} = $FORM{'hideemail'};
		${$uid.$user}{'icq'} = $FORM{'icq'};
		${$uid.$user}{'msn'} = $FORM{'msn'};
		${$uid.$user}{'yim'} = $FORM{'yim'};
		${$uid.$user}{'aim'} = $FORM{'aim'};
		${$uid.$user}{'msn'} = $FORM{'msn'};
		${$uid.$user}{'webtitle'} = $FORM{'webtitle'};
		${$uid.$user}{'weburl'} = $FORM{'weburl'};
		&UserAccount($user,"update");
		&WriteLog;
		require "$sourcedir/Notify.pl";
		&replace_notifications(${$uid.$user}{'email'});

		if($emailnewpass && $newpassemail == 1) {

			# Write log
			fopen(LOG, "$vardir/log.txt");
			@entries = <LOG>;
			fclose(LOG);
			fopen(LOG, ">$vardir/log.txt", 1);
			$field="$user";
			foreach $curentry (@entries) {
					$curentry =~ s/\n//g;
					($name, $value) = split(/\|/, $curentry);
					if($name ne "$field") {
							print LOG "$curentry\n";
					}
			}
			fclose(LOG);

			if ($username eq $user){
				## usage: &UpdateCookie ("delete or write",<userid>,<password>,<session>,<path>,<expiration>); ##
				&UpdateCookie("delete");

				$username = 'Guest';
				$iamguest='1';
				$iamadmin='';
				$iamgmod='';
				$password = '';
				@settings = ();
				@immessages = ();
				$yyim = "";
				$realname = '';
				$realemail = '';
				$ENV{'HTTP_COOKIE'} = '';
				$yyuname = "";
			}
			&FormatUserName($member{'username'});
			&sendmail($member{'email'},qq~$profile_txt{'700'} $mbname~, "$profile_txt{'733'} $member{'passwrd1'} $profile_txt{'734'} $member{'username'}.\n\n$profile_txt{'701'} $scripturl?action=profile;username=$useraccount{$member{'username'}}\n\n$profile_txt{'130'}");
			require "$sourcedir/LogInOut.pl";
			$sharedLogin_title="$profile_txt{'34'}: $user";
			$sharedLogin_text="$profile_txt{'638'}";
			$shared_login = &sharedLogin;
			$yymain .= qq~$shared_login~;
			$yytitle="$profile_txt{'245'}";
			&template;
			exit;
		}
	} else {
		&fatal_error("$polltxt{'13'}");
	}
	$yySetLocation = qq~$scripturl?action=profileOptions;username=$member{'username'}~;
	&redirectexit;
	exit;
}

sub ModifyProfileOptions2 {
	# Get the form values
	my( %member, $key, $value, $newpassemail, @memberlist, $a, @check_settings, @reserve, $matchword, $matchcase, $matchuser, $matchname, $namecheck, $reserved, $reservecheck, @dirdata, $filename, @entries, $entry, $umail, @members, $tempname );
	$FORM{'signature'} =~ s~\&\&~\&amp\;\&amp\;~g;
	$FORM{'signature'} =~ s~\n~\&\&~g;
	while( ($key,$value) = each(%FORM) ) {
		$value =~ s~\A\s+~~;
		$value =~ s~\s+\Z~~;
		$value =~ s~[\n\r]~~g;
		$member{$key} = $value;
	}
	my $user = $FORM{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}

	# make sure this person has access to this profile
	if($user ne $member{'username'} && !$iamadmin) { &fatal_error($profile_txt{'80'}); }
	if(!$iamadmin) {
		$member{'username'} = $user;
		$member{'settings6'} = ${$uid.$user}{'postcount'};
		$member{'settings7'} = ${$uid.$user}{'position'};
		$member{'addgroup'} = ${$uid.$user}{'addgroups'};
	}

	if ($member{'username'} =~ /\//){ &fatal_error($profile_txt{'224'}); }
	if ($member{'username'} =~ /\\/){ &fatal_error($profile_txt{'225'}); }
	$INFO{'username'} = $member{'username'};
	if(length($member{'usertext'}) > 51) { &fatal_error("$profile_txt{'757'}"); }
	if( $member{'userpicpersonalcheck'} && ( $member{'userpicpersonal'} =~ m/\.gif\Z/i || $member{'userpicpersonal'} =~ m/\.jpg\Z/i || $member{'userpicpersonal'} =~ m/\.jpeg\Z/i || $member{'userpicpersonal'} =~ m/\.png\Z/i ) ) {
		$member{'userpic'} = $member{'userpicpersonal'};
	}
	if($member{'userpic'} eq "") { $member{'userpic'} = "blank.gif"; }
	&fatal_error("$profile_txt{'592'}") if($member{'userpic'} !~ m^\A[0-9a-zA-Z_\.\#\%\-\:\+\?\$\&\~\.\,\@/]+\Z^);
	if(!$allowpics) { $member{'userpic'} = "blank.gif"; }

	if($member{'moda'} eq $profile_txt{'88'}) {

		&FromChars($member{'signature'});
		$convertstr = $member{'signature'};
		$convertcut = $MaxSigLen;
		&CountChars;
		$member{'signature'} = $convertstr;

		$member{'signature'} =~ s/</&lt;/g;
		$member{'signature'} =~ s/>/&gt;/g;
#	        $member{'timeformat'} =~ tr/[A-Za-z0-9\+\#\*]//cd;

		# store the name temorarily so we can restore any _'s later
		$tempname = $member{'name'};
		$member{'name'} =~ s/\_/ /g;
		if ($member{'usertemplate'} !~ m^\A[0-9a-zA-Z_\(\)\´\ \.\#\%\-\:\+\?\$\&\~\.\,\@/]+\Z^ && $member{'usertemplate'} ne ""){&fatal_error($profile_txt{'815'});}
		if ($member{'usertemplate'} eq ""){$member{'usertemplate'} = "$template";}
		if ($member{'userlanguage'} !~ m^\A[0-9a-zA-Z_\.\#\%\-\:\+\?\$\&\~\.\,\@/]+\Z^ && $member{'userlanguage'} ne ""){&fatal_error($profile_txt{'815'});}
		if ($member{'userlanguage'} eq ""){$member{'userlanguage'} = "$language";}

		$member{'usertext'} =~ s~(\S{15})(?=\S)~$1 ~g;
		&ToHTML($member{'usertext'});

		if ( length $member{'signature'} > 1000 ) { $member{'signature'} = substr( $member{'signature'}, 0, 1000 ); }
		&ToHTML($member{'signature'});

		$member{'usertimeoffset'} =~ tr/,/./;
		$member{'usertimeoffset'} =~ s/[^\d*|\.|\-|w*]//g;
		if (( $member{'usertimeoffset'} < -23.5) || ( $member{'usertimeoffset'} > 23.5)) { &fatal_error($profile_txt{'487'}); }
		$member{'dsttimeoffset'} =~ tr/,/./;
		$member{'dsttimeoffset'} =~ s/[^\d*|\.|\-|w*]//g;
		if (( $member{'dsttimeoffset'} < -23.5) || ( $member{'dsttimeoffset'} > 23.5)) { &fatal_error($profile_txt{'487'}); }

		# let's restore the name now
		&ToHTML($tempname);
		$member{'name'} = $tempname;

		# Time to print the changes to the username.vars file
		${$uid.$user}{'usertext'} = "$FORM{'usertext'}";
		${$uid.$user}{'userpic'} = "$member{'userpic'}";
		${$uid.$user}{'signature'} = "$member{'signature'}";
		${$uid.$user}{'timeoffset'} = "$member{'usertimeoffset'}";
		${$uid.$user}{'dsttimeoffset'} = "$member{'dsttimeoffset'}";
		${$uid.$user}{'timeselect'} = "$member{'usertimeselect'}";
		${$uid.$user}{'template'} = "$member{'usertemplate'}";
		${$uid.$user}{'language'} = "$member{'userlanguage'}";
		${$uid.$user}{'timeformat'} = "$member{'timeformat'}";
		&UserAccount($user,"update");
		require "$sourcedir/Notify.pl";
		&replace_notifications($user);
		$yySetLocation = qq~$scripturl?action=profileIM;username=$INFO{'username'}~;
		&redirectexit;
	}
	else {
		&fatal_error("$polltxt{'13'}");
	}
	exit;
}

sub ModifyProfileIM2 {
	# Get the form values
	my( $ignorelist, $notify, $popup, $imprev, $imspop, $enableaim, $awayim);
	my $user = $FORM{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}
	$ignorelist = "$FORM{'ignore'}";
	$notify = "$FORM{'notify'}";
	$popup = "$FORM{'userpopup'}";
	$imspop = "$FORM{'popupims'}";

	$ignorelist =~ s~\A\n\s*~~;
	$ignorelist =~ s~\s*\n\Z~~;
	$ignorelist =~ s~\n\s*\n~\n~g;
	$ignorelist =~ s~[\n\r]~\|~g;
	$ignorelist =~ s~\|\|~\|~g;
	$notify =~ s~[\n\r]~~g;
	$popup =~ s~[\n\r]~~g;
	$imspop =~ s~[\n\r]~~g;

		# Time to print the changes to the username.vars file
		${$uid.$user}{'im_ignorelist'} = "$ignorelist";
		${$uid.$user}{'im_notify'} = "$notify";
		${$uid.$user}{'im_popup'} = "$popup";
		${$uid.$user}{'im_imspop'} = "$imspop";
		&UserAccount($user,"update");
		fclose(FILE);
	if (!$iamadmin) {
		$yySetLocation = qq~$scripturl?action=viewprofile;username=$FORM{'username'}~;
		&redirectexit;
	} else {
		$yySetLocation = qq~$scripturl?action=profileAdmin;username=$FORM{'username'}~;
		&redirectexit;
	}
}

sub ModifyProfileAdmin2 {
	&is_admin_or_gmod;
	# Get the form values
	my( %member, $key, $value, $newpassemail, @memberlist, $a, @check_settings, @reserve, $matchword, $matchcase, $matchuser, $matchname, $namecheck, $reserved, $reservecheck, @dirdata, $filename, @entries, $entry, $umail, @members, $tempname );
	$FORM{'signature'} =~ s~\n~\&\&~g;
	while( ($key,$value) = each(%FORM) ) {
		$value =~ s~\A\s+~~;
		$value =~ s~\s+\Z~~;
		$value =~ s~[\n\r]~~g;
		$member{$key} = $value;
	}
	my $user = $FORM{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}

	# make sure this person has access to this profile
	if($user ne $member{'username'} && !$iamadmin) { &fatal_error($profile_txt{'80'}); }
	if(!$iamadmin) {
		$member{'username'} = $user;
		$member{'settings6'} = ${$uid.$user}{'postcount'};
		$member{'settings7'} = ${$uid.$user}{'position'};
		$member{'addgroup'} = ${$uid.$user}{'addgroups'};
	}
	if($member{'settings6'} !~ /\A[0-9]+\Z/) { &fatal_error("$profile_txt{'749'}"); }
	&fatal_error("$profile_txt{'680'}") if ($member{'username'} eq "admin" && $member{'settings7'} ne "Administrator");

	if($member{'moda'} eq $profile_txt{'88'}) {
		if(!$iamadmin) { $member{'dr'} = ${$uid.$user}{'regdate'}; }
		$member{'addgroup'} =~ s/(\,*?\s*?)$member{'settings7'}//;
		$member{'addgroup'} =~ s/\A\, //;
		${$uid.$user}{'postcount'} = "$member{'settings6'}";
		${$uid.$user}{'position'} = "$member{'settings7'}";
		${$uid.$user}{'addgroups'} = "$member{'addgroup'}";
		${$uid.$user}{'regdate'} = "$member{'dr'}";
		&UserAccount($user,"update");
		&WriteLog;
		$yySetLocation = qq~$scripturl?action=viewprofile;username=$member{'username'}~;
		&redirectexit;
	}
	else {
		&fatal_error("$profile_txt{'751'}");
	}
	exit;
}

sub ViewProfile {
	if($iamguest) { &fatal_error("$profile_txt{'223'}"); }
	if ($INFO{'username'} =~ /\//){ &fatal_error("$profile_txt{'224'}" ); }
	if ($INFO{'username'} =~ /\\/){ &fatal_error("$profile_txt{'225'}" ); }
	if(!-e ("$memberdir/$INFO{'username'}.vars")){ &fatal_error("$profile_txt{'453'} -- $INFO{'username'}"); }

	my($memberinfo, $modify, $email, $gender, $pic);

# Convert forum start date to string, if there is no date set,
# Defaults to 1st Jan, 2005
if ($forumstart) {
	$forumstart = &stringtotime($forumstart);
} else {
	$forumstart = "1104537600";
}
	# get the member's info
	my $user = $INFO{'username'};
#	my $user = $member{'username'};
	if (!${$uid.$user}{'password'}){&LoadUser($user);}
	&LoadMiniUser($user);
	&FormatUserName($user);
#	$icq = ${$uid.$user}{'icq'};
	if(${$uid.$user}{'weburl'} !~ m~\Ahttp://~) { ${$uid.$user}{'weburl'} = "http://${$uid.$user}{'weburl'}"; }
	$memsettingsd[9] = ${$uid.$user}{'aim'}; $memsettingsd[9] =~ tr/+/ /;
	$memsettingsd[10] = ${$uid.$user}{'yim'}; $memsettingsd[10] =~ tr/+/ /;
	$dr = "";
	if (${$uid.$user}{'regdate'} eq "") { $dr = "$profile_txt{'470'}"; }
	else { $dr = "${$uid.$user}{'regdate'}"; $dr = &timeformat(stringtotime($dr)); }
	&CalcAge($user, "calc"); # How old is he/she?
	&CalcAge($user, "isbday"); # is it the bday?
	if($isbday) { $isbday = "<img src=\"$imagesdir/bdaycake.gif\" width=\"40\" />"; }
#	&LoadUser($user);

	if ($user eq $username || $iamadmin || ($iamgmod && $allow_gmod_profile)) {
			$modify = qq~&#171; <a href="$scripturl?action=profile;username=$useraccount{$INFO{'username'}}"><span  class="text1">$profile_txt{'66'}</span></a> &#187;~;
	}
	if($user eq "admin" && $username ne "admin") { $modify = ""; }
	if (${$uid.$user}{'hidemail'} ne "checked" || $iamadmin || !$allow_hide_email) {
		$email = qq~<a href="$scripturl?action=mailto;user=$INFO{'username'}" target="_blank">$profile_txt{'889'} ${$uid.$user}{'realname'}</a>~;
	}
	else { $email = qq~<i>$profile_txt{'722'}</i>~; }
	$gender = "";
	if (${$uid.$user}{'gender'} eq "Male") { $gender = qq~$profile_txt{'238'}~; }
	if (${$uid.$user}{'gender'} eq "Female") { $gender = qq~$profile_txt{'239'}~; }

	if($allowpics) {
	$avstyle = "";
	if($ENV{'HTTP_USER_AGENT'} !~ /MSIE/ || $ENV{'HTTP_USER_AGENT'} =~ /Opera/) {
		if($userpic_width > 0 || $userpic_height > 0) {
			$avstyle = qq~ style="~;
			if($userpic_width > 0) { $avstyle .= qq~max-width: $userpic_width\px\; ~; }
			if($userpic_height > 0) { $avstyle .= qq~max-height: $userpic_height\px\;~; }
			$avstyle .= qq~"~;
		}
	}
	if (${$uid.$user}{'userpic'} =~ /^\http:\/\// ) {
		if ($userpic_width ne 0) { $tmp_width = "width=\"$userpic_width\" "; } else { $tmp_width=""; }
		if ($userpic_height ne 0) { $tmp_height = "height=\"$userpic_height\" "; } else { $tmp_height=""; }
#		$pic = qq~<a href="${$uid.$user}{'userpic'}" target="_blank" onClick="window.open('${$uid.$user}{'userpic'}', 'ppic$INFO{username}', 'resizable,width=200,height=200'); return false;">~;
		$pic = qq~<img src="${$uid.$user}{'userpic'}" id="avatar" border="0" alt=""$avstyle />~;
	}
	else {
#		$pic = qq~<a href="$facesurl/${$uid.$user}{'userpic'}" target="_blank" onclick="window.open('$facesurl/${$uid.$user}{'userpic'}', 'ppic$INFO{username}', 'resizable,width=200,height=200'); return false;">~;
		$pic = qq~<img src="$facesurl/${$uid.$user}{'userpic'}" id="avatar" border="0" alt=""$avstyle />~;
	}
	}

	$online = "$profile_txt{'113'} ?";
	fopen(FILE, "$vardir/log.txt");
	@entries = <FILE>;
	fclose(FILE);
	foreach $curentry (@entries) {
		chomp $curentry;
		($name, $value) = split(/\|/, $curentry);
		if($name) {
			&LoadUser($name);
			if(lc $name eq lc $INFO{'username'}) {
				$online =~ s~\?~<i>$profile_txt{'686'}</i>.~;
			}
		}
	}
	$online =~ s~\?~<i>$profile_txt{'687'}</i>.~;

	# Hide empty profile fields from display
if (${$uid.$user}{'icq'}){
	$row_icq = qq~<tr><td align="left"><b>$profile_txt{'513'}:</b></td><td align="left">~;
	if(${$uid.$user}{'icq'} !~ m~\D~) {
	$row_icq .= qq~ <img src="http://web.icq.com/whitepages/online?icq=${$uid.$user}{'icq'}&#38;img=5" alt="${$uid.$user}{'icq'}" border="0" /> ${$uid.$user}{'icq'}~;
		}
		$row_icq .= qq~</td></tr>~;
	} else {
	$row_icq = "";
}

if (${$uid.$user}{'aim'}){
	$row_aim = qq~<tr><td align="left"><b>$profile_txt{'603'}: </b></td><td align="left"><a href="aim:goim?screenname=${$uid.$user}{'aim'}&#38;message=Hi,+are+you+there?"><img src="$imagesdir/aim.gif" alt="${$uid.$user}{'aim'}" border="0" /> &nbsp; $memsettingsd[9]</a></td></tr>~;
	} else {
	$row_aim = "";
}

if (${$uid.$user}{'yim'}){
	$row_yim = qq~<tr><td align="left"><b>$profile_txt{'604'}: </b></td><td align="left"> <img src="http://opi.yahoo.com/online?u=${$uid.$user}{'yim'}&#38;m=g&#38;t=0" border="0" alt="${$uid.$user}{'yim'}" /> <a href="http://edit.yahoo.com/config/send_webmesg?.target=${$uid.$user}{'yim'}">$memsettingsd[10]</a></td></tr>~;
	} else {
	$row_yim = "";
}

if (${$uid.$user}{'msn'}){
	$row_msn = qq~
	<tr><td align="left"><b>$profile_txt{'823'}: </b></td><td align="left">
	<img src="$imagesdir/msn3.gif" alt="" border="0" />
	<a href="#" onclick="window.open('$scripturl?action=setmsn;msnname=$user','','height=80,width=340,menubar=no,toolbar=no,scrollbars=no'); return false">MSN ${$uid.$user}{'realname'}</a>
	</td></tr>
	~;
	} else {
	$row_msn = "";
}

	if (${$uid.$user}{'hidemail'} ne "checked" || $iamadmin || !$allow_hide_email) {
	$row_email = qq~<tr><td align="left"><b>$profile_txt{'69'}: </b></td><td align="left"><a href="$scripturl?action=mailto;user=$INFO{'username'}" target="_blank">$profile_txt{'889'} ${$uid.$user}{'realname'}</a></td></tr>~;
	} else {
	$row_email = "";
}

if (${$uid.$user}{'weburl'} && ${$uid.$user}{'webtitle'}){
	$row_website = qq~<tr><td align="left"><b>$profile_txt{'96'}: </b></td><td align="left"><a href="${$uid.$user}{'weburl'}" target="_blank">${$uid.$user}{'webtitle'}</a></td></tr>~;
	} else {
	$row_website = "";
}

if (${$uid.$user}{'gender'}){
	if (${$uid.$user}{'gender'} eq "Male") {
		$gender = qq~$profile_txt{'238'}~;
	} elsif (${$uid.$user}{'gender'} eq "Female") {
		$gender = qq~$profile_txt{'239'}~;
	}
		$row_gender = qq~<tr><td align="left"><b>$profile_txt{'231'}: </b></td><td align="left">$gender</td></tr>~;
	} else {
	$row_gender = "";
}

if ($age){
	$row_age = qq~<tr><td align="left"><b>$profile_txt{'420'}:</b></td><td align="left">$age &nbsp; $isbday</td></tr>~;
	} else {
	$row_age = "";
}

if (${$uid.$user}{'location'}){
	$row_location = qq~<tr><td align="left"><b>$profile_txt{'227'}: </b></td><td align="left">${$uid.$user}{'location'}</td></tr>~;
	} else {
	$row_location = "";
}

if (${$uid.$user}{'signature'}){

	# do some ubbc on the signature to display in the view profile area
	&FromHTML(${$uid.$user}{'signature'});
	${$uid.$user}{'signature'} =~ s~\&\&~<br />~g;
	$message = ${$uid.$user}{'signature'};
	if($enable_ubbc) { if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; }

	&LoadCensorList;	# Load Censor List

	# Censor the signature.
	$message = &Censor($message);
	&ToChars($message);
	${$uid.$user}{'signature'} = $message;

	# Censor the usertext
	$message = ${$uid.$user}{'usertext'};
	$message = &Censor($message);
	&ToChars($message);
	${$uid.$user}{'usertext'} = $message;

	$row_signature = qq~
  <tr>
    <td align="left" colspan="2"><b>$profile_txt{'85'}:</b></td>
  </tr>
  <tr>
    <td align="left" colspan="2">${$uid.$user}{'signature'}</td>
  </tr>~;
	} else {
	$row_signature = "";
}
	# End empty field checking

	my @words = split(/\s/,${$uid.$user}{'usertext'});
	${$uid.$user}{'usertext'} = "";
	foreach $cur (@words) {
		$cur =~ s~(\S{20})~$1\n~gi;
		${$uid.$user}{'usertext'} .= qq~$cur ~;
	}

# Stuff for statistics.
	foreach $catid (@categoryorder){
		$boardlist = $cat{$catid};
		(@bdlist) = split(/\,/, $boardlist);
		my ($catname, $catperms, $catallowcol) = split(/\|/, $catinfo{"$catid"});
		##Category Permissions Check
		my $access = &CatAccess($catperms);
		if (!$access){next;}
		## next determine all the boards a user has access to ##
		foreach $curboard (@bdlist) {
		## now fill all the neccesary hashes ##
			chomp $curboard;
			my ($boardname, $boardperms, $boardview) = split(/\|/, $board{"$curboard"});
			my $access = &AccessCheck($curboard, '', $boardperms);
			if (!$iamadmin && $access ne "granted" && $boardview != 1) {next;}
			push (@loadboards, $curboard);
		}
	}
	&BoardTotals("load",@loadboards);
	foreach $curboard (@loadboards) {
		$totalm += ${$uid.$curboard}{'messagecount'};
	}

# Just maths below...
$post_count = ${$uid.$user}{'postcount'};
if (!$post_count) { $post_count = 0 }

$string_regdate = &stringtotime(${$uid.$user}{'regdate'});
$string_curdate = int(time);

if ($string_regdate < $forumstart) { $string_regdate = $forumstart }
if ($string_curdate < $forumstart) { $string_curdate = $forumstart }

$member_for_days = int(($string_curdate - $string_regdate)/86400);

if ($member_for_days <= 0) { $member_for_days = 1 }
$post_per_day = sprintf("%.2f", ($post_count / $member_for_days));

if ($totalm > 0) {
	$postspercentage = sprintf("%.2f", $post_count / $totalm * 100);
} else {
	$postspercentage = sprintf("%.2f", 0);
}

# End Stuff for statistics.


	$yymain .= qq~
<div align="center">
<div class="bordercolor" style="padding: 1px; padding-bottom: 0px; width: 75%;">
<table border="0" cellpadding="4" cellspacing="0" align="center" width="100%">
  <tr>
	<td class="titlebg" width="50%" align="left">
        <img src="$imagesdir/profile.gif" alt="" border="0" />&nbsp;
        <span class="text1"><b>$profile_txt{'35'}: $INFO{'username'}</b></span></td>
	<td class="titlebg" align="center" width="20%">
        <span class="text1">$modify</span></td>
	<td class="titlebg" align="center" width="30%">
        <span class="text1">$profile_txt{'232'}</span>
	</td>
  </tr>
</table>
</div>
<div class="bordercolor" style="padding: 1px; padding-bottom: 0px; width: 75%;">
<table border="0" cellpadding="2" cellspacing="0" class="windowbg" align="center" width="100%">
  <tr>
	<td align="left"><b>$profile_txt{'68'}: </b></td>
	<td align="left">${$uid.$user}{'realname'}</td>
	<td class="windowbg" rowspan="19" valign="middle" align="center" width="30%">
		$pic<br /><br />
		<span class="small">${$uid.$user}{'usertext'}</span>
	</td>
  </tr><tr>
    <td align="left" valign="top"><b>$profile_txt{'21'}: </b></td>
    <td align="left"><b>${$uid.$user}{'postcount'}</b><br />
		<b>$postspercentage</b>$profile_txt{'892'}<br />
		<b>$post_per_day</b> $profile_txt{'893'}<br />
	</td>
  </tr><tr>
    <td align="left"><b>$profile_txt{'87'}: </b></td>
    <td align="left">$memberinfo{$user}</td>
  </tr>
~;
if($addmembergroup{$user}) {
$showaddgr = $addmembergroup{$user};
$showaddgr =~ s/<br \/>/\, /g;
$showaddgr =~ s/\A, //;
$showaddgr =~ s/, \Z//;
$yymain .= qq~
  <tr>
    <td align="left" valign="top"><b>$profile_txt{'87a'}: </b></td>
    <td align="left" valign="top">$showaddgr</td>
  </tr>
~;
}
$yymain .= qq~
  <tr>
    <td align="left" valign="top"><b>$profile_txt{'233'}: </b></td>
    <td align="left">$dr<br />
		<b>$member_for_days</b> $profile_txt{'894'}<br />
	</td>
  </tr>
  ~;
  if ($row_icq || $row_aim || $row_yim || $row_msn || $row_email || $row_website) { $yymain .= qq~<tr><td colspan="2"><hr size="1" width="100%" class="hr" /></td></tr>~; }
  $yymain .= qq~
  $row_icq
  $row_aim
  $row_yim
  $row_msn
  $row_email
  $row_website
  ~;
  if ($row_gender || $row_age || $row_location) { $yymain .= qq~<tr><td colspan="2"><hr size="1" width="100%" class="hr" /></td></tr>~; }
  $yymain .= qq~
  $row_gender
  $row_age
  $row_location
  ~;

	$userlastlogin = &timeformat(${$uid.$user}{'lastonline'});
	$userlastpost = &timeformat(${$uid.$user}{'lastpost'});
	$userlastim = &timeformat(${$uid.$user}{'lastim'});
	if ($userlastlogin eq "") { $userlastlogin = "$profile_txt{'470'}"; }
	if ($userlastpost eq "") { $userlastpost = "$profile_txt{'470'}"; }
	if ($userlastim eq "") { $userlastim = "$profile_txt{'470'}"; }
	$online =~ s~\?~<i>$profile_txt{'687'}</i>.~;
	if(${$uid.$user}{'postcount'} > 100000) { ${$uid.$user}{'postcount'} = "$profile_txt{'683'}"; }

$yymain .= qq~<tr><td colspan="2"><hr size="1" width="100%" class="hr" /></td>
   </tr><tr>
     <td align="left"><b>$profile_amv_txt{'9'}: </b></td>
     <td align="left">$userlastlogin</td>
   </tr><tr>
     <td align="left"><b>$profile_amv_txt{'10'}:</b></td>
     <td align="left">$userlastpost</td>
   </tr><tr>
     <td align="left"><b>$profile_amv_txt{'11'}: </b></td>
     <td align="left">$userlastim</td>
   </tr><tr>
     <td align="left" colspan="2">&nbsp;</td>
</table>
</div>
~;

$yymain .= qq~
<div class="bordercolor" style="padding: 1px; width: 75%;">
<table border="0" cellpadding="4" cellspacing="0" class="windowbg" align="center" width="100%">
$row_signature
	 <tr>
    <td class="titlebg" colspan="2" align="left">
    &nbsp;<span class="text1"><b>$profile_txt{'459'}:</b></span></td>
  </tr><tr>
    <td colspan="2" class="windowbg2" valign="middle" width="100%"align="left">
    <form action="$scripturl?action=usersrecentposts;username=$useraccount{$INFO{'username'}}" method="post">
    $online<br /><br />
    <a href="$scripturl?action=imsend;to=$useraccount{$INFO{'username'}}">$profile_txt{'688'}</a>.
    $add2bud <br /><br />
~;
if($maxrecentdisplay > 0){
        $yymain .= qq~
    $profile_txt{'460'} <select name="viewscount" size="1">
     <option value="5" selected="selected">5</option>
     <option value="10">10</option>
     <option value="15">15</option>
     <option value="$maxrecentdisplay">$maxrecentdisplay</option>
     </select> $profile_txt{'461'}. 
     <input type="submit" value="$profile_txt{'462'}" />
~;
}
        $yymain .= qq~
    </form></td>
  </tr>
</table>
</div>
</div>

	<script language="JavaScript1.2" type="text/javascript">
	<!-- //
	var userpic_width = $userpic_width;
	var userpic_height = $userpic_height;

	function ResizeAvatars(){
		if(navigator.appName == "Microsoft Internet Explorer" && navigator.appVersion.charAt(0) >= 4 && navigator.userAgent.indexOf("Opera") < 0) {
		var imgEle=document.getElementById('avatar');
		if (userpic_width == 0) { tmpuserpic_width = imgEle.width; } else {tmpuserpic_width = userpic_width;}
		if (userpic_height == 0) { tmpuserpic_height = imgEle.height; } else {tmpuserpic_height = userpic_height;}
		var ratio = imgEle.width / imgEle.height;
		for(z=0;z<2;z++) { 
			if (imgEle.width > tmpuserpic_width) { imgEle.width = tmpuserpic_width; imgEle.height = parseInt(imgEle.width / ratio); }    
			if (imgEle.height > tmpuserpic_height) { imgEle.height = tmpuserpic_height; imgEle.width = parseInt(imgEle.height * ratio); }
		}
		}
	}
	document.onload = ResizeAvatars();
	// -->
	</script>
~;
	$yytitle = "$profile_txt{'92'} $user";
	&template;
	exit;
}

sub usersrecentposts {
	my $curuser = $INFO{'username'};
	&FormatUserName($curuser);
	if ($curuser =~ m~/~){ &fatal_error($profile_txt{'224'}); }
	if ($curuser =~ m~\\~){ &fatal_error($profile_txt{'225'}); }
	my $display = $FORM{'viewscount'};
	if( $display =~ /\D/ ) { &fatal_error($profile_txt{'337'}); }
	## added to avoid flooding by abusing viewcount form inputs ##
	if($display > $maxrecentdisplay) {$display = $maxrecentdisplay;}
	my(%data, $numfound, $oldestfound, $curcat, %catname, %cataccess, %catboards, $openmemgr, @membergroups, $tmpa, %openmemgr, $curboard, @threads, @boardinfo, $i, $c, @messages, $tnum, $tsub, $tname, $temail, $tdate, $treplies, $tusername, $ticon, $tstate, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $mns, $mtime, $counter, $board, $notify );

	&LoadCensorList;	# Load Censor List

	#$oldestfound = "01/10/37 $profile_txt{'107'} 00:00:00";
	unless ($recentloaded) { &Recent_Load($curuser);}
	unless ($mloaded == 1) { require "$boardsdir/forum.master"; }
	foreach $catid (@categoryorder){$boardlist = $cat{$catid};

		(@bdlist) = split(/\,/, $boardlist);
		($catname, $catperms) = split(/\|/, $catinfo{"$catid"});
		$cataccess = &CatAccess($catperms);
		if (!$cataccess){next;}

		boardcheck: foreach $curboard (@bdlist) {
			($boardname{$curboard}, $boardperms, $boardview) = split(/\|/, $board{"$curboard"});

			my $access = &AccessCheck($curboard, '', $boardperms);
			if (!$iamadmin && $access ne "granted" &&  $boardview != 1) {next;}

			$catname{$curboard} = $catname;

			fopen(FILE, "$boardsdir/$curboard.txt");
			@threads = <FILE>;
			fclose(FILE);

# This needs a bit of work - previous method missed threads if the user wasn't
# a regular poster - is the last posted thread was low down in board.txt
# This works in all cases, but opens all files in user.wlog
# Removed inline conditional here - as I hate them, and no-one understands them

		if (@threads > $display) { $ii = @threads; } else { $ii = $display; }

			threadcheck: for ($i = 0; $i < $ii; $i++) {
				chomp $threads[$i];
				($tnum, $tsub, $tname, $temail, $tdate, $treplies, $tusername, $ticon, $tstate) = split( /\|/, $threads[$i] );
				if( exists($recent{$tnum}) ){# if it exists we will look. otherwise we skip
					unless($tstate =~ /h/){
						fopen(FILE, "$datadir/$tnum.txt") || next;
						@messages = <FILE>;
						fclose(FILE);
	
						for ($c = 0; $c < @messages; $c++) {
							chomp $messages[$c];
							($msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $message, $mns) = split(/\|/,$messages[$c]);
							if ($curuser eq $musername) {
								$mtime = $mdate;
								if( $numfound >= $display && $mtime <= $oldestfound ) {
									next boardcheck;
								} else {
									$data{$mtime} = [$curboard, $tnum, $c, $msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $message, $mns];
									if( $mtime < $oldestfound ) { $oldestfound = $mtime; }
									++$numfound;
								}#end if
							}#end if
						}#end for ($c
					}#end unless($tstate
				} else {
					next;
				}# end if exists
			} #end threadcheck
		}#endboardcheck
	} #end of foreach $catid(

	$yymain .= qq~
<p align=left><a href="$scripturl?action=viewprofile;username=$useraccount{$curuser}"><b>$profile_txt{'92'} $curuser</b></a></p>
~;
	@messages = sort {$b <=> $a } keys %data;
	if( @messages > $display ) { $#messages = $display - 1; }
	$counter = 1;
	for( $i = 0; $i < @messages; $i++ ) {
		($board, $tnum, $c, $msub, $mname, $memail, $mdate, $musername, $micon, $mattach, $mip, $message, $mns) = @{ $data{$messages[$i]} };
		$message = &Censor($message);
		$msub = &Censor($msub);
		&wrap;
		$displayname = $mname;
		if($enable_ubbc) { $ns = $mns; if(!$yyYaBBCloaded) { require "$sourcedir/YaBBC.pl"; } &DoUBBC; }
		&wrap2;
		&ToChars($msub);
		&ToChars($message);
		&ToChars($boardname{$board});
		if($enable_notification) { $notify = qq~$menusep<a href="$scripturl?board=$board;action=notify;thread=$tnum/$c">$img{'notify'}</a>~; }
		$mdate = timeformat($mdate);
		$yymain .= qq~
<table border="0" width="100%" cellspacing="1" class="bordercolor" style="table-layout: fixed;">
  <tr>
    <td width="5%" align="center" class="titlebg"><span class="text1">$counter</span></td>
    <td width="95%" class="titlebg"><span class="text1"><b>&nbsp;$catname{$board} / $boardname{$board} / <a href="$scripturl?num=$tnum/$c#$c"><span class="text1" ><u>$msub</u></span></a></b></span><br />
    &nbsp;<span class="small" >$profile_txt{'30'}: $mdate&nbsp;</span></td>
  </tr><tr height="80">
    <td colspan="2" class="windowbg2" valign="top">$message</td>
  </tr><tr>
    <td colspan="2" class="catbg" align="right">
    <a href="$scripturl?board=$board;action=post;num=$tnum/$c#$c;title=Post+reply">$img{'reply'}</a>$menusep<a href="$scripturl?board=$board;action=post;num=$tnum;quote=$c;title=Post+reply">$img{'recentquote'}</a>$notify &nbsp;
   </td>
  </tr>
</table><br />
~;
		++$counter;
	}
if($counter <= 1) { $yymain .= "<span class=\"text1\"><b>$profile_txt{'755'}</b></span>"; }
else { $yymain .= qq~
<p align=left><a href="$scripturl?action=viewprofile;username=$useraccount{$curuser}"><b>$profile_txt{'92'} $curuser</b></a></p></span>
~; }
	$yytitle = "$profile_txt{'458'} $memset[1]";
	&template;
	exit;
}

sub DrawGroups{
	my ($availgroups) = @_[0];
	my ($userpos) = @_[1];
	my @groups, $foundit, %found, $groupsel, $groupsel2, $name;
	%found = ();
	if ($availgroups eq ""){$availgroups = "xk8yj56ndkal";}
	(@groups) = split(/\, /, $availgroups);
	$groupsel = "\n"; $groupsel2 = "";
	$count = 0;
	foreach $curgroup(@groups){
		$foundit = 0;
  		chomp $curgroup;
		if ($foundit != 1 || $count == $#groups){
			$j = 0; $k = 0;
			while ($NoPost[$j] ne ""){
				($name, $t, $t, $t) = split(/\|/, $NoPost[$j]);
				if($name ne $userpos) {
					if ($curgroup eq $name){ $foundit = 1; $found{$name} = 1;
						$groupsel .= qq~<option value="$name" selected="selected">$name</option>\n~;
					}
					if ($found{$name} != 1 && $count == $#groups) {$groupsel2 .= qq~<option value="$name">$name</option>\n~;}
					$k++;
				}
				$j++;
			}
		}
		$count++;
	}
	$groupsel .= $groupsel2;
	$groupsel .= "</select>";
	return $groupsel;
}


1;