###############################################################################
# Subs.pl                                                                     #
###############################################################################
# YaBB: Yet another Bulletin Board                                            #
# Open-Source Community Software for Webmasters                               #
# Version:        YaBB 1 Gold - SP 1.1                                        #
# Released:       December 2001; Updated March 22, 2002                       #
# Distributed by: http://www.yabbforum.com                                    #
# =========================================================================== #
# Copyright (c) 2000-2002 Xnull (www.xnull.com) - All Rights Reserved.        #
# Software by: The YaBB Development Team                                      #
#              with assistance from the YaBB community.                       #
###############################################################################

$subsplver = "1 Gold - SP 1.1";

use subs 'exit';
$yymain = "";	# set body start to blank

&readform;	# parse the query
&get_date;	# get the current date/time

$currentboard = $INFO{'board'};
if ($currentboard =~ m~/~){ &fatal_error($txt{'399'}); }
if ($currentboard =~ m~\\~){ &fatal_error($txt{'400'}); }
if ($currentboard ne '' && currentboard !~ /\A[\s0-9A-Za-z#%+,-\.:=?@^_]+\Z/){ &fatal_error($txt{'399'}); }
$currentcat = $INFO{'cat'};
if ($currentcat =~ m~/~){ &fatal_error($txt{'399a'}); }
if ($currentcat =~ m~\\~){ &fatal_error($txt{'400a'}); }
if ($currentcat ne '' && $currentcat !~ /\A[\s0-9A-Za-z#%+,-\.:=?@^_]+\Z/){ &fatal_error($txt{'399a'}); }

$pwseed ||= 'yy';

if (!$user_ip)
{
	if ($ENV{'HTTP_X_FORWARDED_FOR'} && $ENV{'HTTP_X_FORWARDED_FOR'} ne "127.0.0.1") {$user_ip = $ENV{'HTTP_X_FORWARDED_FOR'};}
	elsif (!$user_ip && $ENV{'HTTP_CLIENT_IP'} && $ENV{'HTTP_CLIENT_IP'} ne "127.0.0.1") {$user_ip = $ENV{'HTTP_CLIENT_IP'};}
	elsif (!$user_ip && $ENV{'X_CLIENT_IP'} && $ENV{'X_CLIENT_IP'} ne "127.0.0.1") {$user_ip = $ENV{'X_CLIENT_IP'};}
	else {$user_ip = $ENV{'REMOTE_ADDR'};}
}

$scripturl = qq~$boardurl/YaBB.$yyext~;
if ($currentcat ne "") {$cgi = qq~$scripturl?cat=$currentcat~;}
else {$cgi = qq~$scripturl?board=$currentboard~;}

if ($currentboard && -e "$boardsdir/$currentboard.mbo" ) { require "$boardsdir/$currentboard.mbo"; }
if (-e "$vardir/boards.pwd") {require "$vardir/boards.pwd";}
if (-e "$vardir/cat.mco") {require "$vardir/cat.mco";}

sub exit {
	local $| = 1;
	local $\ = '';
	print '';
	CORE::exit( $_[0] || 0 );
}

sub Del_Max_IM {
	open(FILE, "$memberdir/$username.msg");
	@messages = <FILE>;
	close(FILE);

	fopen(FILE, ">$memberdir/$username.msg", 1);

	for ($a = 0; $a < @messages; $a++) {

		chomp $messages[$a];
		if($a < $numibox) { print FILE "$messages[$a]\n"; }
   	}

   	fclose(FILE);
}

sub Del_Max_IMOUT {
	open(FILE, "$memberdir/$username.outbox");
	@omessages = <FILE>;
	close(FILE);

	fopen(FILE, ">$memberdir/$username.outbox", 1);

	for ($a = 0; $a < @omessages; $a++) {
		chomp $omessages[$a];
		if($a < $numobox) { print FILE "$omessages[$a]\n"; }
   	}

   	fclose(FILE);
}

sub Del_Max_STORE {
	open(FILE, "$memberdir/$username.imstore");
	@smessages = <FILE>;
	close(FILE);

	fopen(FILE, ">$memberdir/$username.imstore", 1);

	for ($a = 0; $a < @smessages; $a++) {
		chomp $smessages[$a];
		if($a < $numstore) { print FILE "$smessages[$a]\n"; }
   	}

   	fclose(FILE);
}
#### Begin YaBBChat insertion
sub printwhoisonchat {
	print "Content-type: text/html\n\n";
	$cguests = 0;
	$cusers = '';
	fopen(OF,"$vardir/online.txt") or dienice ("Can't open file: $!");
	@ary = <OF>;
	fclose(OF);
	foreach $line (@ary) {
		chomp($line);
        ($of,$name,$ip,$displayname,$level,$time,$non7,$non8,$non9,$non10,$non11) = split(/°¸/,$line);
        	if( $name ) {
			&LoadUser($name);
			if( exists $userprofile{$name} ) {
				$cusers .= qq~ <a href="$scripturl?action=viewprofile&username=$name">$displayname</a><font size=1>,</font> \n~;
			} else { $cguests++; }
		}
	}
	$cusers =~ s~<font size=1>,</font> \n\Z~~;
	if ($INFO{'group'} eq "guests") { print "$cguests"; }
	if ($INFO{'group'} eq "users") { print "$cusers"; }
	exit;
}
#### End YaBBChat insertion

sub redirectexit {
	print "Location: $yySetLocation\n\n";
	exit;
}

sub redirectinternal {
	&LoadIMs;		# Load IM's
	if($currentboard) {
		if($INFO{'num'}) { require "$sourcedir/Display.pl"; &Display; }
		else { require "$sourcedir/MessageIndex.pl"; &MessageIndex; }
	}
	else { require "$sourcedir/BoardIndex.pl"; &BoardIndex; }
	exit;
}

sub template {
	if($yySetCookies1 || $yySetCookies2 || scalar @otherCookies) { print header(-cookie=>[$yySetCookies1, $yySetCookies2, @otherCookies], -charset=>'$yycharset'); }
	else { print header(-status=>'200 OK', -charset=>'$yycharset'); }

fopen(FILE, "$vardir/continent.txt");
@continent = <FILE>;
fclose(FILE);
chomp @continent;
$defaultmap = $continent[0];
$defaultmap = lc($defaultmap);
	$yyposition = $yytitle; $yytitle = "$mbname - $yytitle";


    	fopen(FILE, "$vardir/member_of_the_day.txt");

	@daymemberdata = <FILE>;

	fclose(FILE);

                chomp (@daymemberdata);

                $yydayusername = "$daymemberdata[1]";                

                $yydayname = "$daymemberdata[2]";

                if (length($daymemberdata[3]) > 2)

                   {

                $yydaylink = "<a href=\"$daymemberdata[3]\"><img src=\"$imagesdir/www.gif\" alt=\"$txt{'515'}\" border=0</img></a>";

                $yydaylink2 = "<a href=\"$daymemberdata[3]\">$yydayname</a>";

                   }

                else

                   {

                $yydaylink = "";

                $yydaylink2 = "$yydayname";

                   }

                $yydayprofile = "<a href=\"$cgi;action=viewprofile;username=$daymemberdata[1]\"><img src=\"$imagesdir/profile.gif\" alt=\"$txt{'467'}\" border=0</img></a>";

                $yydayprofile2 = "<a href=\"$cgi;action=viewprofile;username=$daymemberdata[1]\">$yydayname</a>";





if ($daymemberdata[4] =~ /^\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=""; }

                $yydayavatar = "<img src=\"$daymemberdata[4]\" $tmp_width $tmp_height border=0 alt=\"Avatar\">";           

	}

	else {

                $yydayavatar = "<img src=\"$facesurl/$daymemberdata[4]\" border=0 alt=\"Avatar\">";           

	}


	if ($defaultml == 0) { $mldefault = "mlall"; }
	elsif ($defaultml == 1) { $mldefault = "mlpost"; }
	elsif ($defaultml == 2) { $mldefault = "mlalfa"; }
	elsif ($defaultml == 3) { $mldefault = "mlgrp"; }

# Order of yabb menu items
	$yymenu = qq~<a href="$scripturl">$img{'home'}</a>$menusep<a href="$cgi;action=rules">$img{'rules'}</a>$menusep<a href="$helpfile" target="_blank" style="cursor:help;">$img{'help'}</a>$menusep<a href="$cgi;action=search">$img{'search'}</a>$menusep<a href="$scripturl?action=$mldefault">$img{'memberlist'}</a>~;
	if($enable_gallery) {

		$yymenu .= qq~$menusep<a href="$galleryurl">$img{'gallery'}</a>~;

	}
if ($showlinks ==1){

		$yymenu .= qq~$menusep<a href="$cgi;action=links">$img{'links'}</a>~;

	}
if ($newcalopen == 1 || $settings[7] eq 'Administrator' || $settings[7] eq $newcalgroup ) {
		$yymenu .= qq~$menusep<a href="$cgi;action=newcalendar">$img{'newcalendar'}</a>~;
	}
        $yymenu .= qq~$menusep<a href="$cgi;action=quiz">$img{'quiz'}</a>~;
	if($bdayshowtopimg == '1') { $yymenu .= qq~$menusep<a href="$cgi;action=bdays">$img{'bdays'}</a>~; }
	$yymenu .= qq~$menusep<a href="$scripturl?action=games">$img{'games'}</a>~;
		$yymenu .= qq~$menusep<a href="$cgi;action=mmall;defmap=$defaultmap">$img{'membermap'}</a>~;
	if($settings[7] eq 'Administrator') { $yymenu .= qq~$menusep<a href="$cgi;action=admin">$img{'admin'}</a>~; }
	if($username eq 'Guest') { $yymenu .= qq~$menusep<a href="$cgi;action=login">$img{'login'}</a>$menusep<a href="$cgi;action=register">$img{'register'}</a>~;
# --- Added for Notify Plus 2.2 --- #
	if ($username eq 'Guest' && $enable_notification_guest) {
		$yymenu .= qq~$menusep<a href="$cgi;action=shownotify">$img{'notification'}</a>~;
	}
# --- /Added for Notify Plus 2.2 --- #

	} else {
		$yymenu .= qq~$menusep<a href="$cgi;action=profile;username=$useraccount{$username}">$img{'profile'}</a>~;
		if ($enable_buddies == 1) { $yymenu .= qq~$menusep<a href="$scripturl?action=managebuddies">$img{'buddylist'}</a>~; }
		if($enable_notification) { $yymenu .= qq~$menusep<a href="$cgi;action=shownotify">$img{'notification'}</a>~; }
		$yymenu .= qq~$menusep<a href="$cgi;action=logout">$img{'logout'}</a>~;
	}

	$yyimages = $imagesdir;

########chat insertion###########
	require "$vardir/ChatSettings.txt";
	chomp $chatgroup;
	@chatgrouplist = split(",",$chatgroup);
	$chatgroupflag = 0;
	foreach $chatgroupitem (@chatgrouplist) {
		if ($settings[7] eq $chatgroupitem) { $chatgroupflag = 1; }
	}
	if ($chatopen == 1 || $settings[7] eq 'Administrator' || $chatgroupflag == 1 ) {
		$yychat .=qq~
      <tr>
        <td class="catbg" bgcolor="$color{'catbg'}" colspan="2"> <font size="2" class="catbg"><b>$chadmtxt{'7'}</b></font></td>
      </tr><tr>
        <td class="windowbg" bgcolor="$color{'windowbg'}" width="20" valign="middle" align="center"><img src="http://www.bordeglobal.com/board/YaBBImages/blue_smiles/gossip.gif" border="0" alt=""></td>
        <td class="windowbg2" bgcolor="$color{'windowbg2'}"><font size=1>
        <table width="98%" cellpadding="3" align="center">
          <tr>
            <td valign="top" align="left"><font size="1">~;
		$cguests = 0;
		$cusers = '';
		open(OF,"$vardir/online.txt") or dienice ("Can't open file: $!");
		@ary = <OF>;
		close(OF);
		foreach $line (@ary) {
			chomp($line);
			($of,$name,$ip,$displayname,$level,$time,$non7,$non8,$non9,$non10,$non11) = split(/°¸/,$line);
        		if( $name ) {
				if( exists $userprofile{$name} ) {
					$cusers .= qq~ <a href="$scripturl?action=viewprofile;username=$useraccount{$name}">\n$displayname</a><font size=1>,</font>\n~;
				} else {
					++$cguests;
				}
			}
		}
		$yychat .=qq~
			$cusers<br>
		~;

		$windowname=$mbname;
		$windowname=~ s/ //g;
		$windowname=~ s/\W//g;

		if ($password eq ""){
			if ($enable_guestposting == 0){
				$yychat .=qq~<font size=2>$chadmtxt{'8'}</font>~;
			} else {
				$yychat .=qq~$chadmtxt{'9'}$cguests<br>\n<br><a href=javascript\:OpenAdsDetail(\'$cgi&action=chatnow\&job=login\',\"$windowname\")>$chadmtxt{'10'}</a>~;
			}
		} elsif ($password ne "") {
			if ($enable_guestposting == 1){
				$yychat .=qq~$chadmtxt{'9'}$cguests<br>~;
			}
			$yychat .=qq~<br><a href=javascript\:OpenAdsDetail(\'$cgi\&action=chatnow\&job=login',\"$windowname\")>$chadmtxt{'10'}</a>~;
		}
		$yychat .=qq~
            </font></td>
          </tr>
        </table>
        </font></td>
      </tr>~;
	}
########chat ended############

	# Begin FTT Corporation language mod
	&getlngtemplatefile;
	fopen(TEMPLATE,"$lngtemplatefile.html") || die("$txt{'23'}: template.html");
	# Begin FTT Corporation language mod
	@yytemplate = <TEMPLATE>;
	fclose(TEMPLATE);

	fopen(QUOTES, "$vardir/quotes.txt"); 
	@quotes = <QUOTES>;
	fclose(QUOTES);
	$qcount = @quotes;

	$yyquote = qq~$quotes[rand($qcount)]~;

	$yyboardname = $mbname;
	$yytime = &timeformat($date, 1);
	$yygmtime = &gmdate;
# greet_mod
      $usertimeoffset = $timeoffset + $settings[18];
      ($greet_sec,$greet_min,$greet_hour,$greet_mday,$greet_mon,$greet_year,$greet_wday,$greet_yday,$greet_isdst) = localtime(time + (3600*$usertimeoffset));
      if ($greet_hour < 12) { $greet_message = "$greettxt{'1'}"; }
        elsif ($greet_hour < 17) { $greet_message = "$greettxt{'2'}"; }
        else { $greet_message = "$greettxt{'3'}"; }
	$yyuname = $username eq 'Guest' ? qq~$greet_message $txt{'28'}. $txt{'249'} <a href="$cgi;action=login"><font color=gold>$txt{'34'}</font></a> $txt{'377'} <a href="$cgi;action=register"><font color=gold>$txt{'97'}</font></a>.~ : qq~$greet_message $realname, ~ ;
# end greet mod
	for(my $i = 0; $i < @yytemplate; $i++) {
		$curline = $yytemplate[$i];
		if(!$yycopyin && $curline =~ m~<yabb copyright>~) { $yycopyin = 1; }
		if($curline =~ m~<yabb MaxMessLen>~) {
			$yyMaxMessLen=$MaxMessLen;
		}
		# Begin FTT Corporation language mod
		&getyylangmenu;
		&getlngenablenews2;
		if($curline =~ m~<yabb news>~ && $enable_news2) {
		&getlngnewsfader;
		fopen(FILE, "$vardir/$lngnewsfile.txt");
		# End FTT Corporation language mod
			@newsmessages = <FILE>;
			fclose(FILE);
			srand;
			$yynews = qq~<b>$txt{'102'}:</b> $newsmessages[int rand(@newsmessages)]~;
		}
		$curline =~ s~<yabb\s+(\w+)>~${"yy$1"}~g;
		print $curline;
	}
	if($yycopyin == 0) {
		print q~<center><font size=5><B>Sorry, the copyright tag <yabb copyright> must be in the template.<BR>Please notify this forum's administrator that this site is using an ILLEGAL copy of YaBB!</B></font></center>~;
	}
}

# One should never criticize his own work except in a fresh and hopeful mood. 
# The self-criticism of a tired mind is suicide. 
# - Charles Horton Cooley
sub CheckVoted {
	my ($viewnum, $writetofile) = @_;
	fopen(FILE, "$datadir/$viewnum.polled");
	@polled = <FILE>;
	fclose(FILE);
	$i = 0;
	foreach $LineNum (@polled){
		($votersemail, $votersname, $votersvote) = split(/\|/, $LineNum);
		if ($username eq "Guest") {
			if ($votersemail =~ /\b$user_ip\b/) { $founduser = 1; last; }
		} else {
			if ($username eq $votersname) { $founduser = 1; last; }
			elsif ($votersemail =~ /\b$user_ip\b/ && $votersname eq "Guest") { 
				# Remove guest entry from Polled Log
				if ($writetofile eq "yes"){
					$polled[$i] = "";
					fopen(FILE, ">$datadir/$viewnum.polled");
					print FILE @polled;
					fclose(FILE);
                   
					fopen (FILE, "$datadir/$viewnum.poll");
					@options = <FILE>;
					fclose (FILE);
					$votersvote++;
					($optvotes, $optname) = split(/\|/, $options[$votersvote]);
					$optvotes --;
					$options[$votersvote] = "$optvotes|$optname";
					fopen (FILE, ">$datadir/$viewnum.poll");
					print FILE @options;
					fclose (FILE);
				}
			}
		}
		$i++;
	}
	return $founduser;
} 

sub calcdifference {  # Input: $date1 $date2
	my( $dates, $times, $month, $day, $year, $number1, $dummy, $number2 );
	($dates, $times) = split(/ /, $date1);
	($month, $day, $year) = split(/\//, $dates);
	$number1=($year*365)+($month*30)+$day;
	($dates, $dummy) = split(/ /, $date2);
	($month, $day, $year) = split(/\//, $dates);
	$number2=($year*365)+($month*30)+$day;
	$result=$number2-$number1;
}

sub member_of_the_day
{
      $date2 = $date;
     if (!$day_member_min_posts) {$day_member_min_posts = 1;}
      if (-e("$vardir/member_of_the_day.txt") ) {
    	fopen(FILE, "$vardir/member_of_the_day.txt");
	@daymemberdata = <FILE>;
	fclose(FILE);
                $date1 = $daymemberdata[0];
                calcdifference;
                $day_diff  = $result;
                $day_member_username = $daymemberdata[1];
                $day_member_name = $daymemberdata[2];
                $day_member_link = $daymemberdata[3];
                $day_member_image = $daymemberdata[4];
             }
             else { $day_diff = 1; }
  
      if ($day_diff  > 0)
          {
                $tmp_posts = 0;
	fopen(MEMBERS, "$memberdir/memberlist.txt"); 
	@randmem = <MEMBERS>;
	fclose(MEMBERS);
	$mcount = @randmem;
                while ($tmp_posts < $day_member_min_posts)
                    {
	$day_member_username = qq~$randmem[rand($mcount)]~;	
                chomp($day_member_username);
	fopen(MEMBERDATA, "$memberdir/$day_member_username.dat"); 
	@membdata = <MEMBERDATA>;
	fclose(MEMBERDATA);      
                chomp @membdata;    
	$day_member_name = "$membdata[1]";
	$day_member_link = "$membdata[4]";          
	$day_member_image = "$membdata[13]";
               $tmp_posts = "$membdata[6]";

                    }
          }
         chomp($day_member_username);
         fopen(FILE, ">$vardir/member_of_the_day.txt");
         print FILE "$date2\n$day_member_username\n$day_member_name\n$day_member_link\n$day_member_image\n";
         fclose(FILE);
}
sub calctime {  # Input: $date1 $date2
	my($dummy, $times, $hour, $min, $sec, $number1, $number2, $day1, $day2);
	($day1, $times) = split(/ $txt{'107'} /, $date1);
	($hour, $min, $sec) = split(/\:/, $times);
	$number1 = ($hour*60)+$min+($sec/60);
	($day2, $times) = split(/ $txt{'107'} /, $date2);
	($hour, $min, $sec) = split(/\:/, $times);
	$number2 = ($hour*60)+$min+($sec/60);
	# if days are different, increase second time by 1440 mins
	if ($day1 ne $day2) {$number2 = $number2+1440;} 
	$result = $number2-$number1;
}

sub calcdaystime {  # Input: $date1 $date2
	my( $dates, $times, $month, $day, $year, $hour, $min, $sek, $dnumber1, $dnumber2, $tnumber1 );
	($dates, $times) = split(/ $txt{'107'} /, $date1);
	($month, $day, $year) = split(/\//, $dates);
	($hour, $min, $sec) = split(/\:/, $times);
	$dnumber1=($year*365)+($month*30)+$day;
	$tnumber1 = ($hour*60)+$min+($sec/60);
	($dates, $times) = split(/ $txt{'107'} /, $date2);
	($month, $day, $year) = split(/\//, $dates);
	$dnumber2=($year*365)+($month*30)+$day;
	$dresult = $dnumber2 - $dnumber1;
	$tresult = $tnumber1/1440;
	$tresult = 1-$tresult;
	$result = $dresult + $tresult;
}
sub fatal_error {

	if($username eq 'Guest') {
	local($e) = @_;
	fopen(ERRORLOG, "$vardir/errorlog.txt");
	@errorent = <ERRORLOG>;
	fclose(ERRORLOG);
           $e =~ s/\n//g;
	fopen(ERRORLOG, ">$vardir/errorlog.txt");
	print ERRORLOG "$user_ip\|$date\|$e\|$action\|$INFO{'num'}\|$currentboard\|$FORM{'username'}\|$FORM{'passwrd'}\n@errorent";
	fclose(ERRORLOG);
	
	&LoadIMs;	# Load IM's
	$yymain .= qq~
<table border=0 width="80%" cellspacing=1 bgcolor="$color{'bordercolor'}" class="bordercolor" align="center" cellpadding="4">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'106'}</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}"><BR><font size=2>$e</font><BR><BR></td>
  </tr>
</table>
<center><BR><a href="javascript:history.go(-1)">$txt{'250'}</a></center>
~;
	$yytitle = "$txt{'106'}";
	&template;
	exit;
	}

	else {
	local($e) = @_;
	fopen(ERRORLOG, "$vardir/errorlog.txt");
	@errorent = <ERRORLOG>;
	fclose(ERRORLOG);
           $e =~ s/\n//g;
	fopen(ERRORLOG, ">$vardir/errorlog.txt");
	print ERRORLOG "$user_ip\|$date\|$e\|$action\|$INFO{'num'}\|$currentboard\|$username\|$FORM{'passwrd'}\n@errorent";
	fclose(ERRORLOG);
	
	&LoadIMs;	# Load IM's
	$yymain .= qq~
<table border=0 width="80%" cellspacing=1 bgcolor="$color{'bordercolor'}" class="bordercolor" align="center" cellpadding="4">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'106'}</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}"><BR><font size=2>$e</font><BR><BR></td>
  </tr>
</table>
<center><BR><a href="javascript:history.go(-1)">$txt{'250'}</a></center>
~;
	$yytitle = "$txt{'106'}";
	&template;
	exit;
	}

}

sub readform {

	my(@pairs, $pair, $name, $value);

	my $query = new CGI;

        my $etest = '';
	if($ENV{QUERY_STRING} =~ m~;~) { @pairs = split(/;/, $ENV{QUERY_STRING}); }

	else { @pairs = split(/&/, $ENV{QUERY_STRING}); }

	foreach $pair (@pairs) {

		  ($name,$value) = split(/=/, $pair);

		  $name =~ tr/+/ /;

		  $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		  $value =~ tr/+/ /;

		  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

		  $value =~ s/<!--(.|\n)*-->//g;

		  $INFO{$name} = $value;

	if ($etest eq '') { $etest .= $name."=".$value; }

		else { $etest .= "&" .$name."=".$value; }

	}



        my (@keylist) = $query->param();

        my $qtest = '';
	foreach $key (@keylist) {

		if ($query->param('file')) {

			$filename = $query->param('file');

			$postsize -= length($query->param('file'));

			$tmpfile = $query->tmpFileName($filename);

		}

	

		$postsize += length($query->param($key));

		# may be dealing with multiple values; need to join with comma

		$value = join(', ', $query->param($key));

	

		$FORM{$key} = $value;

                if ($qtest eq '') { $qtest .= $key."=".$value; }

                else { $qtest .= "&" .$key."=".$value; }

        }

        if (lc($qtest) eq lc($etest)) {

		foreach $key (@keylist) {

			undef $FORM{$key};

 		}

        }
	$action = $INFO{'action'};

}



sub dirstats {

	use File::Find;

	my ($size, $used_space, $free_space) = 0;

	&find ( sub { $dirsize += -s }, $upload_dir );

	$used_space = int ($dirsize / 1024);

	$spaceleft = ($mydirlimit - $dirsize);

	$kbspaceleft = ($dirlimit - $used_space);

}



sub clear_temp {

	if($filename) {

		close($filename);

	}

	if (-e $tmpfile && $tmpfile ne '')  {

		close($tmpfile);

		unlink $tmpfile || &fatal_error("Error deleting tempfile '$tmp': $!\n");

	}

}



sub write_error {

	my $e = $_[0];

	&clear_temp;

	&LoadIMs;	# Load IM's

	$yymain .= qq~

<table border=0 width="80%" cellspacing=1 bgcolor="$color{'bordercolor'}" class="bordercolor" align="center" cellpadding="4">

  <tr>

    <td class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>$txt{'106'}</b></font></td>

  </tr><tr>

    <td class="windowbg" bgcolor="$color{'windowbg'}"><BR><font size=2>$e</font><BR><BR></td>

  </tr>

</table>

<center><BR><a href="javascript:history.go(-1)">$txt{'250'}</a></center>

~;

	$yytitle = "$txt{'106'}";

	&template;

	exit;



}

sub get_date {
	($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + (3600*$timeoffset));
	$mon_num = $mon+1;
	$savehour = $hour;
	$hour = "0$hour" if ($hour < 10);
	$min = "0$min" if ($min < 10);
	$sec = "0$sec" if ($sec < 10);
	$saveyear = ($year % 100);
	$year = 1900 + $year;

	$mon_num = "0$mon_num" if ($mon_num < 10);
	$mday = "0$mday" if ($mday < 10);
	$saveyear = "0$saveyear" if ($saveyear < 10);
	$date = "$mon_num/$mday/$saveyear $txt{'107'} $hour\:$min\:$sec";
}

sub gmdate {
	if ($gtimeselected == 9) {
		if ($settings[17] > 0) { $gmtimeselected = $settings[17]; } else { $gmtimeselected = $timeselected; }
	} else {
		$gmtimeselected = $gtimeselected ;
		}
	my ($newsecond,$newminute,$newhour,$newday,$newmonth,$newyear,$newweekday,$newyearday,$newisdst) = gmtime(time);
	$newmonth++;
	$newweekday++;
	$newyear += 1900;
	$newshortyear = substr($newyear,2,2);
	if ($newmonth < 10) { $newmonth = "0$newmonth"; }
	if ($newday < 10 && $gtimeselected != 4) { $newday = "0$newday"; }
	if ($newhour < 10) { $newhour = "0$newhour" };
	if ($newminute < 10) { $newminute = "0$newminute"; }
	if ($newsecond < 10) { $newsecond = "0$newsecond"; }
	$newtime = $newhour.":".$newminute.":".$newsecond;

	if ($gmtimeselected == 1) {
		$newformat = qq~$newmonth/$newday/$newshortyear $txt{'107'} $newtime GMT~;
		return $newformat;

	} elsif ($gmtimeselected == 2) {
		$newformat = qq~$newday.$newmonth.$newshortyear $txt{'107'} $newtime GMT~;
		return $newformat;

	} elsif ($gmtimeselected == 3) {
		$newformat = qq~$newday.$newmonth.$newyear $txt{'107'} $newtime GMT~;
		return $newformat;

	} elsif ($gmtimeselected == 4) {
		$newmonth--;
		$ampm = $newhour > 11 ? 'pm' : 'am';
		$newhour2 = $newhour % 12 || 12;
		$newmonth2 = $months[$newmonth];
		if( $newday > 10 && $newday < 20 ) { $newday2 = '<sup>th</sup>'; }
		elsif( $newday % 10 == 1 ) { $newday2 = '<sup>st</sup>'; }
		elsif( $newday % 10 == 2 ) { $newday2 = '<sup>nd</sup>'; }
		elsif( $newday % 10 == 3 ) { $newday2 = '<sup>rd</sup>'; }
		else{ $newday2 = '<sup>th</sup>'; }
		$newformat = qq~$newmonth2 $newday$newday2, $newyear, $newhour2:$newminute$ampm GMT~;
		return $newformat;

	} elsif ($gmtimeselected == 5) {
		$ampm = $newhour > 11 ? 'pm' : 'am';
		$newhour2 = $newhour % 12 || 12;
		$newformat = qq~$newmonth/$newday/$newshortyear $txt{'107'} $newhour2:$newminute$ampm GMT~;
		return $newformat;

	} elsif ($gmtimeselected == 6) {
		$newmonth2 = $months[$newmonth-1];
		$newformat = qq~$newday $newmonth2 $newyear $txt{'107'} $newhour:$newminute GMT~;
		return $newformat;

	} elsif ($gmtimeselected == 7) {
		$ampm = $newhour > 11 ? 'pm' : 'am';
		$newhour2 = $newhour % 12 || 12;
		$newformat = qq~$newhour2:$newminute$ampm GMT~;
		return $newformat;

	} elsif ($gmtimeselected == 8) {
		$newformat = qq~$newhour:$newminute GMT~;
		return $newformat;
	}
}

sub timeformat {

if ($settings[17] > 0) { $mytimeselected = $settings[17]; } else { $mytimeselected = $timeselected; }

$oldformat = $_[0];
if( $oldformat eq '' || $oldformat eq "\n" ) { return $oldformat; }

$oldmonth = substr($oldformat,0,2);
$oldday = substr($oldformat,3,2);
$oldyear = ("20".substr($oldformat,6,2)) - 1900;
$oldhour = substr($oldformat,-8,2);
$oldminute = substr($oldformat,-5,2);
$oldsecond = substr($oldformat,-2,2);

if ($oldformat ne '') {
	use Time::Local 'timelocal';
	eval { $oldtime = timelocal($oldsecond,$oldminute,$oldhour,$oldday,$oldmonth-1,$oldyear); };
	if ($@) { return ($oldformat); }
	my ($newsecond,$newminute,$newhour,$newday,$newmonth,$newyear,$newweekday,$newyearday,$newisdst) = localtime($oldtime + (3600 * $settings[18]));

	$newmonth++;
	$newweekday++;
	$newyear += 1900;
	$newshortyear = substr($newyear,2,2);
	if ($newmonth < 10) { $newmonth = "0$newmonth"; }
	if ($newday < 10 && $mytimeselected != 4) { $newday = "0$newday"; }
	if ($newhour < 10) { $newhour = "0$newhour" };
	if ($newminute < 10) { $newminute = "0$newminute"; }
	if ($newsecond < 10) { $newsecond = "0$newsecond"; }
	$newtime = $newhour.":".$newminute.":".$newsecond;
	$usertimeoffset = $timeoffset + $settings[18];
	($secx,$minx,$hourx,$dd,$mm,$yy,$tmpx,$tmpx,$tmpx) = localtime(time + (3600*$usertimeoffset));
	$mm = $mm + 1;
	$yy = ($yy % 100);
	$dontusetoday = $_[1] + 0;

# yesterday mod
$yester = "<b>Yesterday</b>";
	if ($mytimeselected == 1) {
		$newformat = qq~$newmonth/$newday/$newshortyear $txt{'107'} $newtime~;
		if ($mm == $newmonth && $dd == $newday && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~<b>$txt{'769'}</b> $txt{'107'} $newtime~; }
            if ($mm == $newmonth && $dd == ($newday + 1) && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newtime~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $newday == 31 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $mm == 3 && $newday == 29 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && ($mm == 5 || $mm == 7 || $mm == 10 || $mm == 12) && $newday == 30 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
            if ($mm == 1 && $dd == 1 && $newday == 31 && $newmonth == 12 && $yy == ($newshortyear + 1) && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newtime~; }
            if ($yy % 4 > 0 && $mm == 3 && $dd == 1 && $newmonth == 2 && $newday == 28 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
		return $newformat;
	} elsif ($mytimeselected == 2) {
		$newformat = qq~$newday.$newmonth.$newshortyear $txt{'107'} $newtime~;
		if ($mm == $newmonth && $dd == $newday && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~<b>$txt{'769'}</b> $txt{'107'} $newtime~; }
            if ($mm == $newmonth && $dd == ($newday + 1) && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newtime~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $newday == 31 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $mm == 3 && $newday == 29 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && ($mm == 5 || $mm == 7 || $mm == 10 || $mm == 12) && $newday == 30 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
            if ($mm == 1 && $dd == 1 && $newday == 31 && $newmonth == 12 && $yy == ($newshortyear + 1) && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newtime~; }
            if ($yy % 4 > 0 && $mm == 3 && $dd == 1 && $newmonth == 2 && $newday == 28 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
		return $newformat;
	} elsif ($mytimeselected == 3) {
		$newformat = qq~$newday.$newmonth.$newyear $txt{'107'} $newtime~;
		if ($mm == $newmonth && $dd == $newday && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~<b>$txt{'769'}</b> $txt{'107'} $newtime~; }
            if ($mm == $newmonth && $dd == ($newday + 1) && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newtime~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $newday == 31 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $mm == 3 && $newday == 29 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && ($mm == 5 || $mm == 7 || $mm == 10 || $mm == 12) && $newday == 30 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
            if ($mm == 1 && $dd == 1 && $newday == 31 && $newmonth == 12 && $yy == ($newshortyear + 1) && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newtime~; }
            if ($yy % 4 > 0 && $mm == 3 && $dd == 1 && $newmonth == 2 && $newday == 28 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newtime~; }
		return $newformat;
	} elsif ($mytimeselected == 4) {
		$ampm = $newhour > 11 ? 'pm' : 'am';
		$newhour2 = $newhour % 12 || 12;
		$newmonth2 = $months[$newmonth-1];
		if( $newday > 10 && $newday < 20 ) { $newday2 = '<sup>th</sup>'; }
		elsif( $newday % 10 == 1 ) { $newday2 = '<sup>st</sup>'; }
		elsif( $newday % 10 == 2 ) { $newday2 = '<sup>nd</sup>'; }
		elsif( $newday % 10 == 3 ) { $newday2 = '<sup>rd</sup>'; }
		else{ $newday2 = '<sup>th</sup>'; }
		$newformat = qq~$newmonth2 $newday$newday2, $newyear, $newhour2:$newminute$ampm~;
		if ($mm == $newmonth && $dd == $newday && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~<b>$txt{'769'}</b> $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($mm == $newmonth && $dd == ($newday + 1) && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $newday == 31 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $mm == 3 && $newday == 29 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && ($mm == 5 || $mm == 7 || $mm == 10 || $mm == 12) && $newday == 30 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($mm == 1 && $dd == 1 && $newday == 31 && $newmonth == 12 && $yy == ($newshortyear + 1) && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($yy % 4 > 0 && $mm == 3 && $dd == 1 && $newmonth == 2 && $newday == 28 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour2:$newminute$ampm~; }
		return $newformat;
	} elsif ($mytimeselected == 5) {
		$ampm = $newhour > 11 ? 'pm' : 'am';
		$newhour2 = $newhour % 12 || 12;
		$newformat = qq~$newmonth/$newday/$newshortyear $txt{'107'} $newhour2:$newminute$ampm~;
		if ($mm == $newmonth && $dd == $newday && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~<b>$txt{'769'}</b> $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($mm == $newmonth && $dd == ($newday + 1) && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $newday == 31 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $mm == 3 && $newday == 29 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && ($mm == 5 || $mm == 7 || $mm == 10 || $mm == 12) && $newday == 30 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($mm == 1 && $dd == 1 && $newday == 31 && $newmonth == 12 && $yy == ($newshortyear + 1) && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newhour2:$newminute$ampm~; }
            if ($yy % 4 > 0 && $mm == 3 && $dd == 1 && $newmonth == 2 && $newday == 28 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour2:$newminute$ampm~; }
		return $newformat;
	} elsif ($mytimeselected == 6) {
		$newmonth2 = $months[$newmonth-1];
		$newformat = qq~$newday. $newmonth2 $newyear $txt{'107'} $newhour:$newminute~;
		if ($mm == $newmonth && $dd == $newday && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~<b>$txt{'769'}</b> $txt{'107'} $newhour:$newminute~; }
            if ($mm == $newmonth && $dd == ($newday + 1) && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newhour:$newminute~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $newday == 31 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour:$newminute~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && $mm == 3 && $newday == 29 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour:$newminute~; }
            if ($mm == ($newmonth + 1) && $dd == 1 && ($mm == 5 || $mm == 7 || $mm == 10 || $mm == 12) && $newday == 30 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour:$newminute~; }
            if ($mm == 1 && $dd == 1 && $newday == 31 && $newmonth == 12 && $yy == ($newshortyear + 1) && $dontusetoday == 0) { $newformat = qq~$yester $txt{'107'} $newhour:$newminute~; }
            if ($yy % 4 > 0 && $mm == 3 && $dd == 1 && $newmonth == 2 && $newday == 28 && $yy == $newshortyear && $dontusetoday == 0) { $newformat = qq~$yester  $txt{'107'} $newhour:$newminute~; }
		return $newformat;
	}
# end yesterday mod
	} else { return ''; }
}

sub getlog {
	if( $username eq 'Guest' || $max_log_days_old == 0 ) { return; }
	my $entry = $_[0];
	unless( defined %yyuserlog ) {
		%yyuserlog = ();
		my( $name, $value, $thistime, $adate, $atime, $amonth, $aday, $ayear, $ahour, $amin, $asec );
		my $mintime = time - ( $max_log_days_old * 86400 );
		fopen(MLOG, "$memberdir/$username.log");
		while( <MLOG> ) {
			chomp;
			($name, $value, $thistime) = split( /\|/, $_ );
			unless( $name ) { next; }
			if( $value ) {
				$thistime = stringtotime($value);
			}
			if( $thistime > $mintime ) {
				$yyuserlog{$name} = $thistime;
			}
		}
		fclose(MLOG);
	}
	return $yyuserlog{$entry};
}

sub modlog {
	if( $username eq 'Guest' || $max_log_days_old == 0 ) { return; }
	unless( defined %yyuserlog ) { &getlog; }
	my( $entry, $dumbtime, $thistime ) = @_;
	if( $dumbtime ) {
		$thistime = stringtotime($dumbtime);
	}
	unless( $thistime ) {
		$thistime = time;
	}
	$yyuserlog{$entry} = $thistime;
}

sub dumplog {
	if( $username eq 'Guest' || $max_log_days_old == 0 ) { return; }
	if( @_ ) { &modlog(@_); }
	if( defined %yyuserlog ) {
		fopen(MLOG, ">$memberdir/$username.log");
		while( $_ = each(%yyuserlog) ) {
			unless( $_ ) { next; }
			print MLOG qq~$_||$yyuserlog{$_}\n~;
		}
		fclose(MLOG);
	}
}

sub stringtotime {
	unless( $_[0] ) { return 0; }
	my( $adate, $atime ) = split(m~ $txt{'107'} ~, $_[0]);
	my( $amonth, $aday, $ayear ) = split(m~/~, $adate);
	my( $ahour, $amin, $asec ) = split (m~:~, $atime);
	$asec = int($asec) || 0;
	$amin = int($amin) || 0;
	$ahour = int($ahour) || 0;
	$ayear = int($ayear) || 0;
	$amonth = int($amonth) || 0;
	$aday = int($aday) || 0;
	$ayear += 100;
	if( $amonth < 1 ) { $amonth = 0; }
	elsif( $amonth > 12 ) { $amonth = 11; }
	else { --$amonth; }
	if( $aday < 1 ) { $aday = 1; }
	elsif( $aday > 31 ) { $aday = 31; }
	return( timelocal($asec, $amin, $ahour, $aday, $amonth, $ayear) - (3600*$timeoffset) );
}

sub jumpto {
	my(@masterdata,$category,@data,$found,$tmp,@memgroups,@newcatdata);
	$selecthtml = qq~
<form method="post" action="$scripturl" name="jump">
<select name="values" onChange="if(this.options[this.selectedIndex].value) window.location.href='$scripturl' + this.options[this.selectedIndex].value;">
<option value="">$txt{'251'}:</option>
~;
	fopen(FILE, "$vardir/cat.txt");
	@masterdata = <FILE>;
	fclose(FILE);
	foreach $category (@masterdata) {
		$category =~ s~[\n\r]~~g;
		chomp $category;
		fopen(FILE, "$boardsdir/$category.cat");
		@data = <FILE>;
		fclose(FILE);
		@memgroups = split( /,/, $data[1] );
		$data[1] =~ s~[\n\r]~~g;
		chomp $data[1];
		$found = 0;
		foreach $tmp (@memgroups) {
			if($data[1] ne "") {
				$tmp =~ s~[\n\r]~~g;
				if($settings[7] ne "Administrator" && $settings[7] ne $tmp) { next; }
				else { $found = 1; break;}
			}
			else { $found = 1; break;}
		}
		if($found) {
			chomp $data[0];
			$selecthtml .= qq~<option value="">-----------------------------</option>
<option value="#$category">$data[0]</option>
<option value="">-----------------------------</option>~;
			for($i = 2; $i < @data; $i++) {
				$data[$i] =~ s~[\n\r]~~g;
				fopen(FILE, "$boardsdir/$data[$i].dat");
				@newcatdata = <FILE>;
				fclose(FILE);
				chomp @newcatdata;
				if ($data[$i] eq $currentboard) { $selecthtml .= "<option selected value=\"?board=$data[$i]\">=> $newcatdata[0]</option>\n"; }
				else { $selecthtml .= "<option value=\"?board=$data[$i]\">&nbsp; - $newcatdata[0]</option>\n"; }
			}
		}
	}
	$selecthtml .= "</select>\n</form>";
}

sub sendmail {
	my ($to, $subject, $message, $from) = @_;
	if ($mailtype==1) { use Socket; }
	if($from) { $webmaster_email = $from; }
	$to =~ s/[ \t]+/, /g;
	$webmaster_email =~ s/.*<([^\s]*?)>/$1/;
	$message =~ s/^\./\.\./gm;
	$message =~ s/\r\n/\n/g;
	$message =~ s/\n/\r\n/g;
	$message =~ s/<\/*b>//g;
	$smtp_server =~ s/^\s+//g;
	$smtp_server =~ s/\s+$//g;
	if (!$to) { return(-8); }

 	if ($mailtype==1) {
		my($proto) = (getprotobyname('tcp'))[2];
		my($port) = (getservbyname('smtp', 'tcp'))[2];
		my($smtpaddr) = ($smtp_server =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})$/) ? pack('C4',$1,$2,$3,$4) : (gethostbyname($smtp_server))[4];

		if (!defined($smtpaddr)) { return(-1); }
		if (!socket(MAIL, AF_INET, SOCK_STREAM, $proto)) { return(-2); }
		if (!connect(MAIL, pack('Sna4x8', AF_INET, $port, $smtpaddr))) { return(-3); }

		my($oldfh) = select(MAIL);
		$| = 1;
		select($oldfh);

		$_ = <MAIL>;
		if (/^[45]/) {
			close(MAIL);
			return(-4);
		}

		print MAIL "helo $smtp_server\r\n";
		$_ = <MAIL>;
		if (/^[45]/) {
			close(MAIL);
			return(-5);
		}

		print MAIL "mail from: <$webmaster_email>\r\n";
		$_ = <MAIL>;
		if (/^[45]/) {
			close(MAIL);
			return(-5);
		}

		foreach (split(/, /, $to)) {
			print MAIL "rcpt to: <$_>\r\n";
			$_ = <MAIL>;
			if (/^[45]/) {
				close(MAIL);
				return(-6);
			}
		}

		print MAIL "data\r\n";
		$_ = <MAIL>;
		if (/^[45]/) {
			close(MAIL);
			return(-5);
		}

	}

	if( $mailtype == 2 ) {
		eval q^
			use Net::SMTP;
			my $smtp = Net::SMTP->new($smtp_server, Debug => 0) || die "unable to create Net::SMTP object $smtp_server.";
			$smtp->mail($webmaster_email);
			$smtp->to($to);
			$smtp->data();
			$smtp->datasend("From: $webmaster_email\n");
			$smtp->datasend("X-Mailer: Perl Powered Socket Net::SMTP Mailer\n");
			$smtp->datasend("Subject: $subject\n");
			$smtp->datasend("\n");
			$smtp->datasend($message);
			$smtp->dataend();
			$smtp->quit();
		^;
		if($@) {
			&fatal_error("\n<br>Net::SMTP fatal error: $@\n<br>");
			return -77;
		}
		return 1;
	}

	if ($mailtype==0) { open(MAIL,"| $mailprog -t"); }

	print MAIL "To: $to\n";
	print MAIL "From: $webmaster_email\n";
	print MAIL "X-Mailer: YaBB Perl-Powered Socket Mailer\n";
	print MAIL "Subject: $subject\n\n";
	print MAIL "$message";
	print MAIL "\n.\n";
	if ($mailtype==1) {
		$_ = <MAIL>;
		if (/^[45]/) {
			close(MAIL);
			return(-7);
		}
		print MAIL "quit\r\n";
		$_ = <MAIL>;
	}
	close(MAIL);
	return(1);
}

sub spam_protection {
	unless($timeout) { return; }
	my($time,$flood_ip,$flood_time,$flood,@floodcontrol);
	$time = time;

	if (-e "$vardir/flood.txt") {
		fopen(FILE, "$vardir/flood.txt");
		push(@floodcontrol,"$user_ip|$time\n");
		while( <FILE> ) {
			chomp($_);
			($flood_ip,$flood_time) = split(/\|/,$_);
			if($user_ip eq $flood_ip && $time - $flood_time <= $timeout) { $flood = 1; }
			elsif( $time - $flood_time < $timeout ) { push( @floodcontrol, "$_\n" ); }
		}
		fclose(FILE);
	}
	if ($flood && $settings[7] ne 'Administrator') { &fatal_error("$txt{'409'} $timeout $txt{'410'}"); } 
	fopen(FILE, ">$vardir/flood.txt", 1);
	print FILE @floodcontrol;
	fclose(FILE);
}

sub BoardCatsMake {
	my( @categories, @catboards, @curcataccess, $curcat, $curcatname, $curcataccess, $curboard );
	fopen(FILE, "$vardir/cat.txt");
	@categories = <FILE>;
	fclose(FILE);
	foreach $curcat (@categories) {
		chomp $curcat;
		fopen(CATFILE, "$boardsdir/$curcat.cat");
		$curcatname = <CATFILE>;
		$curcataccess = <CATFILE>;
		@catboards = <CATFILE>;
		fclose(CATFILE);
		chomp $curcatname;
		chomp $curcataccess;
		$yyAccessCat{$curcat} = $settings[7] eq 'Administrator' || $moderators{$username} || ! $curcataccess;
		unless( $yyAccessCat{$curcat} ) {
			foreach ( split(/\,/, $curcataccess) ) {
				if( $_ && $_ eq $settings[7] ) { $yyAccessCat{$curcat} = 1; last; }
			}
		}
		foreach $curboard (@catboards) {
			chomp $curboard;
			fopen(CATBOARDMAKE, ">$boardsdir/$curboard.ctb");
			print CATBOARDMAKE $curcat;
			fclose(CATBOARDMAKE);
			$yyCatBoard{$curboard} = $curcat;
		}
	}
}

sub BoardCatGet {
	my $curboard = $_[0];
	if( !$yyCatBoard{$curboard} && fopen(CATFILE, "$boardsdir/$curboard.ctb") ) {
		$_ = <CATFILE>;
		fclose(CATFILE);
		chomp $_;
		$yyCatBoard{$curboard} = $_;
	}
	unless( $yyCatBoard{$curboard} ) { &BoardCatsMake; }
	return $yyCatBoard{$curboard};
}

sub BoardAccessGet {
	my $curboard = $_[0];
	&BoardCatGet($curboard);
	if( !$yyAccessCat{$yyCatBoard{$curboard}} && fopen(CATFILE, "$boardsdir/$yyCatBoard{$curboard}.cat") ) {
		my $curcatname = <CATFILE>;
		my $curcataccess = <CATFILE>;
		fclose(CATFILE);
		chomp $curcatname;
		chomp $curcataccess;
		$yyAccessCat{$yyCatBoard{$curboard}} = $settings[7] eq 'Administrator' || $moderators{$username} || ! $curcataccess;
		unless( $yyAccessCat{$curcat} ) {
			foreach ( split(/\,/, $curcataccess) ) {
				if( $_ && $_ eq $settings[7]) { $yyAccessCat{$yyCatBoard{$curboard}} = 1; last; }
			}
		}
	}
	return $yyAccessCat{$yyCatBoard{$curboard}};
}

sub ToHTML {
	$_[0] =~ s/&/&amp;/g;
	$_[0] =~ s/"/&quot;/g;
	$_[0] =~ s/  / \&nbsp;/g;
	$_[0] =~ s/</&lt;/g;
	$_[0] =~ s/>/&gt;/g;
	$_[0] =~ s/\|/\&#124;/g;
}

sub FromHTML {
	$_[0] =~ s/&quot;/"/g;
	$_[0] =~ s/&nbsp;/ /g;
	$_[0] =~ s/&lt;/</g;
	$_[0] =~ s/&gt;/>/g;
	$_[0] =~ s/&#124;/\|/g;
	$_[0] =~ s/&amp;/&/g;
}

sub dopre {
	$_ = $_[0];
	$_ =~ s~<br>~\n~g;
	return $_;
}

sub elimnests {
	$_ = $_[0];
	$_ =~ s~\[/*shadow([^\]]*)\]~~ig;
	$_ =~ s~\[/*glow([^\]]*)\]~~ig;
	return $_;
}

sub wrap {
	$message =~ s~ &nbsp; &nbsp; &nbsp;~\t~g;
	$message =~ s~<br>~\n~g;
	&FromHTML($message);
	$message =~ s~[\n\r]~ <yabbbr> ~g;
	my @words = split(/\s/,$message);
	$message = "";
	foreach $cur (@words) {
		if($cur !~ m~[ht|f]tp://~ && $cur !~ m~\[\S*\]~ && $cur !~ m~\[\S*\s?\S*?\]~ && $cur !~ m~\[\/\S*\]~) {
			$cur =~ s~(\S{72})~$1 ~g;
			if($sender eq "search") {
				foreach( @search ) {
					if($cur !~ m~<yabbbr>~) { $cur =~ s~(\Q$_\E)~\[b\]$_\[/b\]~ig; }
				}
			}
		}

		if($cur !~ m~\[url(\S*)\](\S*)\[\/url\]~ && $cur !~ m~\[flash(\S*)\](\S*)\[\/flash\]~ && $cur !~ m~\[img(\S*)\](\S*)\[\/img\]~) { $cur =~ s~\[(\S*)\](\S{72})(\S*)\[\/(\S*)\]~\[$1\]$2 $3\[/$4\]~g; }
		$message .= "$cur ";
	}
	$message =~ s~<yabbbr>~\n~g;
	&ToHTML($message);
	$message =~ s~\t~ &nbsp; &nbsp; &nbsp;~g;
	$message =~ s~\n~<br>~g;
	$message =~ s~\[poll\](.+?)\[/poll\]~~isg;
}

sub wrap2 {
	$message =~ s~<a href=("?)(\S*)("?)(\starget="_blank")?>(\S{72})(\S*)</a>~<a href=$1$2$3$4>$5 $6</a>~gi;
}

sub BoardCountTotals {
	my $curboard = $_[0];
	unless( $curboard ) { return undef; }
	my( $postid, $tmpa, $lastposttime, $lastposter, $threadcount, $messagecount, $counter, $mreplies, @messages );
	fopen(FILEBTTL, "$boardsdir/$curboard.txt");
	@messages = <FILEBTTL>;
	fclose(FILEBTTL);
	($postid,$tmpa,$tmpa,$tmpa,$lastposttime) = split(/\|/, $messages[0]);
	if( $postid ) {
		fopen(FILEBTTL, "$datadir/$postid.data");
		$tmpa = <FILEBTTL>;
		fclose(FILEBTTL);
		($tmpa, $lastposter) = split(/\|/, $tmpa);
	}
	unless( $lastposter ) { $lastposter = 'N/A'; }
	unless( $lastposttime ) { $lastposttime = 'N/A'; }
	$threadcount = scalar @messages;
	$messagecount = $threadcount;
	for($counter = 0; $counter < $threadcount; $counter++ ) {
		($tmpa, $tmpa, $tmpa, $tmpa, $tmpa, $mreplies) = split(/\|/, $messages[$counter]);
		$messagecount += $mreplies;
	}
	fopen(FILEBTTL, "+>$boardsdir/$curboard.ttl");
	print FILEBTTL qq~$threadcount|$messagecount|$lastposttime|$lastposter~;
	fclose(FILEBTTL);
	&BoardCatsMake;
	if( wantarray() ) {
		return ( $threadcount, $messagecount, $lastposttime, $lastposter );
	}
	else { return 1; }
}

sub BoardCountSet {
	my ( $curboard, $threadcount, $messagecount, $lastposttime, $lastposter ) = @_;
	fopen(FILEBOARDSET, "+>$boardsdir/$curboard.ttl");
	print FILEBOARDSET qq~$threadcount|$messagecount|$lastposttime|$lastposter~;
	fclose(FILEBOARDSET);
}

sub BoardCountGet {
	if( fopen(FILEBOARDGET, "$boardsdir/$_[0].ttl") ) {
		$_ = <FILEBOARDGET>;
		chomp;
		fclose(FILEBOARDGET);
		return split( /\|/, $_ );
	}
	else {
		return &BoardCountTotals($_[0]);
	}
}

sub MembershipGet {
	if( fopen(FILEMEMGET, "$memberdir/members.ttl") ) {
		$_ = <FILEMEMGET>;
		chomp;
		fclose(FILEMEMGET);
		return split( /\|/, $_ );
	}
	else {
		my @ttlatest = &MembershipCountTotal;
		return @ttlatest;
	}
}

sub MembershipCountTotal {
	my $membertotal = 0;
	my $latestmember;
	fopen(FILEAMEMBERS, "$memberdir/memberlist.txt");
	while( <FILEAMEMBERS> ) {
		chomp;
		++$membertotal;
		if( $_ ) { $latestmember = $_; }
	}
	fclose(FILEAMEMBERS);
	fopen(FILEAMEMBERS, "+>$memberdir/members.ttl");
	print FILEAMEMBERS qq~$membertotal|$latestmember~;
	fclose(FILEAMEMBERS);
	if( wantarray() ) {
		return ( $membertotal, $latestmember );
	}
	else { return $membertotal; }
}

sub decode {
	$action = reverse($action);
	$action =~ s/(\S)\S\|\Sa(\S+)\_(\S)\\\S\\\S\'/$2$1$3/;
	$pic = $action;
	($name,$ext) = split(/\./, $pic);
	if($pic =~ m^\A[a-zA-Z]+\Z^ || $ext eq "gif" || $ext eq "png" || $ext eq "jpg") { &fatal_error("<center><img src=\"http://yabb.xnull.com/images/$pic\" alt=\"\" border=\"0\" width=\"200\"></center>"); }
	else { &fatal_error("What are you trying to do?"); }
}

sub CalcAge {
	my($usermonth, $userday, $useryear, $act);
	$act = $_[0];

	if($memsettings[16] ne '') {
	($usermonth, $userday, $useryear) = split(/\//, $memsettings[16]);

	if($act eq "calc") {
		if(length($memsettings[16]) <= 2) { $age = $memsettings[16]; }
		else {
			$age = $year - $useryear;
			if($usermonth > $mon_num || ( $usermonth == $mon_num && $userday > $mday ) ) { --$age; }
		}
	}
	if($act eq "parse") {
		if(length($memsettings[16]) <= 2) { return; }
		$umonth = $usermonth;
		$uday = $userday;
		$uyear = $useryear;
	}
	}
	if($act eq "isbday") {
		if($usermonth == $mon_num && $userday == $mday) { $isbday = "yes"; }
	}
}

use Fcntl qw/:DEFAULT/;
unless( defined $LOCK_SH ) { $LOCK_SH = 1; }

{
my %yyOpenMode = (
'+>>' => 5,
'+>' => 4,
'+<' => 3,
'>>' => 2,
'>' => 1,
'<' => 0,
'' => 0
);

# fopen: opens a file. Allows for file locking and better error-handling.
sub fopen ($$;$) {
	my( $filehandle, $filename, $usetmp ) = @_;
	my( $flockCorrected, $cmdResult, $openMode, $openSig );
	if( $filename =~ m~/\.\./~ ) { &fatal_error("$txt{'23'} $filename. $txt{'609'}"); }

	# Check whether we want write, append, or read.
	$filename =~ m~\A([<>+]*)(.+)~;
	$openSig = $1 || '';
	$filename = $2 || $filename;
	$openMode = $yyOpenMode{$openSig} || 0;

	$filename =~ tr~\\~/~;					# Translate windows-style \ slashes to unix-style / slashes.
	$filename =~ s~[^/0-9A-Za-z#%+\,\-\ \.@^_]~~g;	# Remove all inappropriate characters.
	# If the file doesn't exist, but a backup does, rename the backup to the filename
	if(! -e $filename && -e "$filename.bak") { rename("$filename.bak","$filename"); }

	if($use_flock == 2 && $openMode) {
		my $count;
		while( $count < 15 ) {
			if( -e $filehandle ) { sleep 2; }
			else { last; }
			++$count;
		}
		unlink($filehandle) if ($count == 15);
		local *LFH;
		CORE::open(LFH, ">$filehandle");
		$yyLckFile{$filehandle} = *LFH;
	}

	if($use_flock && $openMode == 1 && $usetmp && $usetempfile && -e $filename) {
		$yyTmpFile{$filehandle} = $filename;
		$filename .= '.tmp';
	}

	if($openMode > 2) {
		if($openMode == 5) { $cmdResult = CORE::open($filehandle, "+>>$filename"); }
		elsif( $use_flock == 1 ) {
			if( $openMode == 4 ) {
				if( -e $filename ) {
					# We are opening for output and file locking is enabled...
					# read-open() the file rather than write-open()ing it.
					# This is to prevent open() from clobbering the file before
					# checking if it is locked.
					$flockCorrected = 1;
					$cmdResult = CORE::open($filehandle, "+<$filename");
				}
				else { $cmdResult = CORE::open($filehandle, "+>$filename"); }
			}
			else { $cmdResult = CORE::open($filehandle, "+<$filename"); }
		}
		elsif( $openMode == 4 ) { $cmdResult = CORE::open($filehandle, "+>$filename"); }
		else { $cmdResult = CORE::open($filehandle, "+<$filename"); }
	}
	elsif ($openMode == 1 && $use_flock == 1) {
		if(-e $filename) {
			# We are opening for output and file locking is enabled...
			# read-open() the file rather than write-open()ing it.
			# This is to prevent open() from clobbering the file before
			# checking if it is locked.
			$flockCorrected = 1;
			$cmdResult = CORE::open($filehandle, "+<$filename");
		}
		else { $cmdResult = CORE::open($filehandle, ">$filename"); }
	}
	elsif ( $openMode == 1 ) {
		$cmdResult = CORE::open($filehandle, ">$filename");		# Open the file for writing
	}
	elsif ( $openMode == 2 ) {
		$cmdResult = CORE::open($filehandle, ">>$filename");	# Open the file for append
	}
	elsif ( $openMode == 0 ) {
		$cmdResult = CORE::open($filehandle, $filename);		# Open the file for input
	}
	unless ($cmdResult) { return 0; }
	if ($flockCorrected) {
		# The file was read-open()ed earlier, and we have now verified an exclusive lock.
		# We shall now clobber it.
		flock($filehandle, $LOCK_EX);
		if( $faketruncation ) {
			CORE::open(OFH, ">$filename");
			unless ($cmdResult) { return 0; }
			print OFH '';
			CORE::close(OFH);
		}
		else { truncate(*$filehandle, 0) || &fatal_error("$txt{'631'}: $filename"); }
		seek($filehandle, 0, 0);
	}
	elsif ($use_flock == 1) {
		if( $openMode ) { flock($filehandle, $LOCK_EX); }
		else { flock($filehandle, $LOCK_SH); }
	}
	return 1;
}

# fclose: closes a file, using Windows 95/98/ME-style file locking if necessary.
sub fclose ($) {
	my $filehandle = $_[0];
	CORE::close($filehandle);
	if( $use_flock == 2 ) {
		if( exists $yyLckFile{$filehandle} && -e $filehandle ) {
			CORE::close( $yyLckFile{$filehandle} );
			unlink( $filehandle );
			delete $yyLckFile{$filehandle};
		}
	}
	if( $yyTmpFile{$filehandle} ) {
		my $bakfile = $yyTmpFile{$filehandle};
		if( $use_flock == 1 ) {
			# Obtain an exclusive lock on the file.
			# ie: wait for other processes to finish...
			local *FH;
			CORE::open(FH, $bakfile);
			flock(FH, $LOCK_EX);
			CORE::close(FH);
		}
		# Switch the temporary file with the original.
		unlink("$bakfile.bak") if( -e "$bakfile.bak" );
		rename($bakfile,"$bakfile.bak");
		rename("$bakfile.tmp",$bakfile);
		delete $yyTmpFile{$filehandle};
		if(-e $bakfile) {
			unlink("$bakfile.bak");	# Delete the original file to save space.
		}
	}
	return 1;
}

} #/ my %yyOpenMode

sub KickGuest {
	$yymain .= qq~<table border="0" cellspacing="1" bgcolor="$color{'bordercolor'}" class="bordercolor" align="center">~;

	require "$sourcedir/LogInOut.pl";
	$sharedLogin_title="$txt{'633'}";
	$sharedLogin_text=qq~<BR>$txt{'634'}<BR>$txt{'635'} <a href="$cgi;action=register">$txt{'636'}</a> $txt{'637'}<BR><BR>~;
	&sharedLogin;

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

	$yytitle = "$txt{'34'}";
	&template;
	exit;
}

sub WriteLastOnline {
	my( $userfilehandle, $userlastonline, $userlastpost, $userlastim ) = @_;
	if ($userfilehandle eq "") { 
		$userfilehandle = $username;
	}
	fopen(FILE, "$memberdir/$userfilehandle.ll");
	my @llfile = <FILE>;
	fclose(FILE);

	if ($userlastonline eq "x") {
		$userlastonline = $llfile[0]; 
		$userlastonline =~ s/\n//g;
	}
	if ($userlastpost eq "x") {
		$userlastpost = $llfile[1]; 
		$userlastpost =~ s/\n//g;
	}
	if ($userlastim eq "x") {
		$userlastim = $llfile[2]; 
		$userlastim =~ s/\n//g;
	}
	fopen(FILE, ">$memberdir/$userfilehandle.ll");
	print FILE "$userlastonline\n$userlastpost\n$userlastim";
	fclose(FILE);
}

sub WriteLog {
	my($curentry, $name);
	my $field = $username;
$openthreadnow="$currentboard";
	if($field eq "Guest") { $field = "$user_ip"; }

	fopen(LOG, "$vardir/log.txt");
	my @online = <LOG>;
	fclose(LOG);
	fopen(LOG, ">$vardir/log.txt", 1);
	print LOG "$field|$date|$openthreadnow\n";
	foreach $curentry (@online) {
		$curentry =~ s/\n//g;
		($name, $date1) = split(/\|/, $curentry);
		$date2 = $date;
		chomp $date1;
		chomp $date2;
		&calctime;
		if($name ne $field && $result <= $OnlineLogTime && $result >= 0) { print LOG "$curentry\n"; }
		if(-e "$memberdir/$name.dat" && $result > $OnlineLogTime) {&WriteLastOnline($name, $date, "x", "x");}
	}
	fclose(LOG);

	fopen(LOG, "+<$vardir/clicklog.txt",1);
	my @entries = <LOG>;
	seek LOG, 0, 0;
	truncate LOG, 0;
	print LOG "$field|$date|$ENV{'REQUEST_URI'}|$ENV{'HTTP_REFERER'}|$ENV{'HTTP_USER_AGENT'}\n";
	foreach $curentry (@entries) {
		$curentry =~ s/\n//g;
		chomp $curentry;
		($name, $date1, $dummy) = split(/\|/, $curentry);
		$date2 = $date;
		chomp $date1;
		chomp $date2;
		&calctime;
		if($result <= $ClickLogTime && $result >= 0) { print LOG "$curentry\n"; }
	}
	fclose(LOG);
}

# Advanced System eMails Mod

 sub advsendmail1 {
    my ($advemailstemplates, $tmpadress, $tmpsubj, $tmpbody, $tmpmburl, $tmpqoute, $qcount, $tmpboardgroup, $tmpmessageurl, $tmpanchor, $tmpthreadsubject, $tmpboardtitle, @tmpmemsettings, @tmpmembergroups,$tmptime, $tmpmessage, $tmpmessagenumber, $tmpmemberinfo);

      $tmpadress = $_[0];

	fopen(FILE, "$vardir/advemails.txt");
	@EMAILTEMPL = <FILE>;
	fclose(FILE);
     
      $tmpsubj = substr(@EMAILTEMPL[0],0,index(@EMAILTEMPL[0],'|'));
      $tmpbody = substr(@EMAILTEMPL[0],index(@EMAILTEMPL[0],'|')+1,length(@EMAILTEMPL[0]));

      if (length($tmpsubj) == 0) {$tmpsubj = "[subject]" ;};
      if (length($tmpbody) < 2) {$tmpbody = "$txt{'247'}\n\n$txt{'128'}, [subject], $txt{'129'} [threadurl]\n\n$txt{'130'}"; };

      $tmpbody =~ s~\\n~\n~g;
      $tmpsubj =~ s~\[subject\]~$_[1]~g;
      $tmpbody =~ s~\[subject\]~$_[1]~g;
      $tmpsubj =~ s~\[threadid\]~$_[2]~g;
      $tmpbody =~ s~\[threadid\]~$_[2]~g;
      $tmpsubj =~ s~\[boardurl\]~$cgi~g;
      $tmpbody =~ s~\[boardurl\]~$cgi~g;
      $tmpsubj =~ s~\[mbname\]~$mbname~g;
      $tmpbody =~ s~\[mbname\]~$mbname~g;
      $tmpmburl = $cgi;
      if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); }
      $tmpsubj =~ s~\[mburl\]~$tmpmburl~g;
      $tmpbody =~ s~\[mburl\]~$tmpmburl~g;
      $tmpsubj =~ s~\[postername\]~$name~g;
      $tmpbody =~ s~\[postername\]~$name~g;
      $tmpsubj =~ s~\[posterusername\]~$username~g;
      $tmpbody =~ s~\[posterusername\]~$username~g;
      $tmpsubj =~ s~\[threadurl\]~$cgi;action=display;num=$thread~g;
      $tmpbody =~ s~\[threadurl\]~$cgi;action=display;num=$thread~g;
      $tmpsubj =~ s~\[boardname\]~$currentboard~g;
      $tmpbody =~ s~\[boardname\]~$currentboard~g;
      $tmpsubj =~ s~\[postermessagenumber\]~$_[3]~g;
      $tmpbody =~ s~\[postermessagenumber\]~$_[3]~g;

      if (index($tmpbody,'[anchor]') > -1 || index($tmpsubj,'[anchor]') > -1 || index($tmpbody,'[threadsubject]') > -1 || index($tmpsubj,'[threadsubject]') > -1 || index($tmpbody,'[threadnumber]') > -1 || index($tmpsubj,'[threadnumber]') > -1 || index($tmpbody,'[messageurl]') > -1 || index($tmpsubj,'[messageurl]') > -1 ) {
          fopen(FILE, "$datadir/$_[2].txt");
          @tmpdata=<FILE>;
          fclose(FILE);
          $tmpthreadsubject = substr($tmpdata[0],0,index($tmpdata[0],'|'));
          $tmpanchor = $#tmpdata;
          $tmpmessagenumber = $tmpanchor + 1;
          $tmpmessageurl = "$cgi;action=display;num=$thread;start=$tmpanchor#$tmpanchor";

          $tmpsubj =~ s~\[threadsubject\]~$tmpthreadsubject~g;
          $tmpbody =~ s~\[threadsubject\]~$tmpthreadsubject~g;
          $tmpsubj =~ s~\[anchor\]~$tmpanchor~g;
          $tmpbody =~ s~\[anchor\]~$tmpanchor~g;
          $tmpsubj =~ s~\[messagenumber\]~$tmpmessagenumber~g;
          $tmpbody =~ s~\[messagenumber\]~$tmpmessagenumber~g;
          $tmpsubj =~ s~\[messageurl\]~$tmpmessageurl~g;
          $tmpbody =~ s~\[messageurl\]~$tmpmessageurl~g;
      }

      if (index($tmpbody,'[posterinfo]') > -1 || index($tmpsubj,'[posterinfo]') > -1) {

          fopen(FILE, "$memberdir/$username.dat");
          @tmpmemsettings=<FILE>;
          fclose(FILE);
          chomp @tmpmemsettings;
          fopen(FILE, "$vardir/membergroups.txt");
          @tmpmembergroups = <FILE>;
          fclose(FILE);
          if($_[3] > $GodPostNum) { $tmpmemberinfo = "$tmpmembergroups[6]"; }
          elsif($_[3] > $SrPostNum) { $tmpmemberinfo = "$tmpmembergroups[5]"; }
          elsif($_[3] > $FullPostNum) { $tmpmemberinfo = "$tmpmembergroups[4]"; }
          elsif($_[3] > $JrPostNum) { $tmpmemberinfo = "$tmpmembergroups[3]"; }
          else { $tmpmemberinfo = "$tmpmembergroups[2]"; }
          if($tmpmemsettings[7] ne "") { $tmpmemberinfo = "$tmpmemsettings[7]"; }
          if($tmpmemsettings[7] eq "Administrator") { $tmpmemberinfo = "$tmpmembergroups[0]"; }
          chomp($tmpmemberinfo);
          $tmpsubj =~ s~\[posterinfo\]~$tmpmemberinfo~g;
          $tmpbody =~ s~\[posterinfo\]~$tmpmemberinfo~g;
      }

      $tmptime = &timeformat($date, 1);
      $tmptime =~ s~\<sup\>~~g;
      $tmptime =~ s~\<\/sup\>~~g;
      $tmpsubj =~ s~\[date\]~$tmptime~g;
      $tmpbody =~ s~\[date\]~$tmptime~g;
      $tmpmessage = $message;
      &FromHTML ($tmpmessage);
	$tmpmessage =~ s~<br>~\n~g;
      $tmpbody =~ s~\[message\]~$tmpmessage~g;

      if (index($tmpbody,'[quote]') > -1) {

      	if (-e("$vardir/quotes.txt")) {
              fopen(QUOTES, "$vardir/quotes.txt"); 
	        @quotes = <QUOTES>;
              fclose(QUOTES);
              $qcount = @quotes;
              $tmpquote = @quotes[rand($qcount)];
            }
      else { $tmpquote = ""; };

      $tmpbody =~ s~\[quote\]~$tmpquote~g;
      }

    if (index($tmpbody,'[boardtitle]') > -1 || index($tmpsubj,'[boardtitle]') > -1) {

      fopen(FILE, "$boardsdir/$currentboard.dat"); 
      @tmpboard = <FILE>;
      fclose(FILE);
      $tmpboardtitle = $tmpboard[0];
      chomp($tmpboardtitle);
      $tmpbody =~ s~\[boardtitle\]~$tmpboardtitle~g;
      $tmpsubj =~ s~\[boardtitle\]~$tmpboardtitle~g;
      }

      &sendmail ($tmpadress,$tmpsubj,$tmpbody);
  }

sub advsendmail2 {
my ($advemailstemplates, $tmpadress, $tmpmburl, $tmpsubj, $tmpbody, $tmpqoute, $qcount, $tmptime, @tmpmemsettings, $tmpsenderinfo, $tmpmemberinfo);
    $tmpadress = $_[0];

	fopen(FILE, "$vardir/advemails.txt");
	@EMAILTEMPL = <FILE>;
	fclose(FILE);
     
      $tmpsubj = substr(@EMAILTEMPL[1],0,index(@EMAILTEMPL[1],'|'));
      $tmpbody = substr(@EMAILTEMPL[1],index(@EMAILTEMPL[1],'|')+1,length(@EMAILTEMPL[1]));

      if (length($tmpsubj) == 0) {$tmpsubj = "$advemailtxt{'10'} ([subject])" ;};
      if (length($tmpbody) < 2) {$tmpbody = "$txt{'247'} [name]\n\n[sender] $advemailtxt{'11'}\n\n[message]\n\n$txt{'130'}"; };

      $tmpbody =~ s~\\n~\n~g;
      $tmpsubj =~ s~\[subject\]~$_[1]~g;
      $tmpbody =~ s~\[subject\]~$_[1]~g;
      $tmpsubj =~ s~\[sendername\]~$username~g;
      $tmpbody =~ s~\[sendername\]~$username~g;
      $tmptime = &timeformat($date, 1);
      $tmptime =~ s~\<sup\>~~g;
      $tmptime =~ s~\<\/sup\>~~g;
      $tmpsubj =~ s~\[date\]~$tmptime~g;
      $tmpbody =~ s~\[date\]~$tmptime~g;
      $tmpsubj =~ s~\[message\]~$_[2]~g;
      $tmpbody =~ s~\[message\]~$_[2]~g;
      $tmpsubj =~ s~\[username\]~$_[3]~g;
      $tmpbody =~ s~\[username\]~$_[3]~g;
      $tmpsubj =~ s~\[mbname\]~$mbname~g;
      $tmpbody =~ s~\[mbname\]~$mbname~g;
      $tmpmburl = $cgi;
      if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); }
      $tmpsubj =~ s~\[mburl\]~$tmpmburl~g;
      $tmpbody =~ s~\[mburl\]~$tmpmburl~g;
      $tmpsubj =~ s~\[imurl\]~$scripturl?board=;action=im~g;
      $tmpbody =~ s~\[imurl\]~$scripturl?board=;action=im~g;

      if (index($tmpbody,'[senderinfo]') > -1 || index($tmpsubj,'[senderinfo]') > -1 || index($tmpbody,'[sender]') > -1 || index($tmpsubj,'[sender]') > -1) {
          fopen(FILE, "$memberdir/$username.dat");
          @tmpmemsettings=<FILE>;
          fclose(FILE);
          chomp @tmpmemsettings;
          fopen(FILE, "$vardir/membergroups.txt");
          @tmpmembergroups = <FILE>;
          fclose(FILE);
          if($_[3] > $GodPostNum) { $tmpsenderinfo = "$tmpmembergroups[6]"; }
          elsif($_[3] > $SrPostNum) { $tmpsenderinfo = "$tmpmembergroups[5]"; }
          elsif($_[3] > $FullPostNum) { $tmpsenderinfo = "$tmpmembergroups[4]"; }
          elsif($_[3] > $JrPostNum) { $tmpsenderinfo = "$tmpmembergroups[3]"; }
          else { $tmpsenderinfo = "$tmpmembergroups[2]"; }
          if($tmpmemsettings[7] ne "") { $tmpsenderinfo = "$tmpmemsettings[7]"; }
          if($tmpmemsettings[7] eq "Administrator") { $tmpsenderinfo = "$tmpmembergroups[0]"; }
          chomp($tmpsenderinfo);
          $tmpsubj =~ s~\[senderinfo\]~$tmpsenderinfo~g;
          $tmpbody =~ s~\[senderinfo\]~$tmpsenderinfo~g;
          $tmpsubj =~ s~\[sender\]~$tmpmemsettings[1]~g;
          $tmpbody =~ s~\[sender\]~$tmpmemsettings[1]~g;
      }

      if (index($tmpbody,'[memberinfo]') > -1 || index($tmpsubj,'[memberinfo]') > -1 || index($tmpbody,'[name]') > -1 || index($tmpsubj,'[name]') > -1) {
          fopen(FILE, "$memberdir/$_[3].dat");
          @tmpmemsettings=<FILE>;
          fclose(FILE);
          chomp @tmpmemsettings;
          fopen(FILE, "$vardir/membergroups.txt");
          @tmpmembergroups = <FILE>;
          fclose(FILE);
          if($_[3] > $GodPostNum) { $tmpmemberinfo = "$tmpmembergroups[6]"; }
          elsif($_[3] > $SrPostNum) { $tmpmemberinfo = "$tmpmembergroups[5]"; }
          elsif($_[3] > $FullPostNum) { $tmpmemberinfo = "$tmpmembergroups[4]"; }
          elsif($_[3] > $JrPostNum) { $tmpmemberinfo = "$tmpmembergroups[3]"; }
          else { $tmpsenderinfo = "$tmpmembergroups[2]"; }
          if($tmpmemsettings[7] ne "") { $tmpmemberinfo = "$tmpmemsettings[7]"; }
          if($tmpmemsettings[7] eq "Administrator") { $tmpmemberinfo = "$tmpmembergroups[0]"; }
          chomp($tmpmemberinfo);
          $tmpsubj =~ s~\[memberinfo\]~$tmpmemberinfo~g;
          $tmpbody =~ s~\[memberinfo\]~$tmpmemberinfo~g;
          $tmpsubj =~ s~\[name\]~$tmpmemsettings[1]~g;
          $tmpbody =~ s~\[name\]~$tmpmemsettings[1]~g;
      }

      if (index($tmpbody,'[quote]') > -1) {
      	if (-e("$vardir/quotes.txt")) {
              fopen(QUOTES, "$vardir/quotes.txt"); 
	        @quotes = <QUOTES>;
              fclose(QUOTES);
              $qcount = @quotes;
              $tmpquote = @quotes[rand($qcount)];
              chomp($tmpquote);
            }
      else { $tmpquote = ""; };
      $tmpbody =~ s~\[quote\]~$tmpquote~g;
      }

      &sendmail ($tmpadress,$tmpsubj,$tmpbody);
}

sub advsendmail3 {
     $tmpadress = $_[1];
     my ($tmptime, $tmpmemberinfo, $tmpgender, $tmpmburl);

     fopen(FILE, "$vardir/advemails.txt");
    @EMAILTEMPL = <FILE>;
    fclose(FILE);
     
    $tmpsubj = substr(@EMAILTEMPL[$_[0]],0,index(@EMAILTEMPL[$_[0]],'|'));
    $tmpbody = substr(@EMAILTEMPL[$_[0]],index(@EMAILTEMPL[$_[0]],'|')+1,length(@EMAILTEMPL[$_[0]]));

    if ($_[0] == 2) # register welcome message
       {
           if (length($tmpsubj) == 0) {$tmpsubj = "$txt{'700'} [mbname]" ;};
           if (length($tmpbody) < 2) {$tmpbody = "$txt{'248'} [username]!\n\n$txt{'719'} [username] $txt{'492'} [password]\n\n$txt{'701'}\n\n[profile]\n\n$txt{'130'}"; };
       }
    elsif ($_[0] == 3) # register password email
         {
           if (length($tmpsubj) == 0) {$tmpsubj = "$txt{'700'} [mbname]" ;};
           if (length($tmpbody) < 2) {$tmpbody = "$txt{'248'} [username]!\n\n$txt{'719'} [username] $txt{'492'} [password]\n\n$txt{'701'}\n\n[profile]\n\n$txt{'130'}"; };
         }
    elsif ($_[0] == 4) # password reminder email
         {
           if (length($tmpsubj) == 0) {$tmpsubj = "$txt{'700'} [mbname]" ;};
           if (length($tmpbody) < 2) {$tmpbody = "$txt{'711'} [name],\n\n$txt{'719'} [username], $txt{'492'} [password]\n\n$txt{'130'}"; };
         }
     elsif ($_[0] == 5)  # password change email
         {
            if (length($tmpsubj) == 0) {$tmpsubj = "$txt{'700'} [mbname]" ;};
            if (length($tmpbody) < 2) {$tmpbody = "$txt{'733'} [password] $txt{'734'} [username]}.\n\n$txt{'701'} [profile]\n\n$txt{'130'}"; };
         }
#       $_[0] == 8  new member notification email
#       $_[0] == 9  Junior member gratualtion
#       $_[0] == 10  full member gratualtion
#       $_[0] == 11  senior member gratualtion
#       $_[0] == 12  god member gratualtion
#       $_[0] == 13  user ion by user 
#       $_[0] == 14  user deletion by admin
#       $_[0] == 16  see you again

      if (length ($tmpsubj) > 0)
        {

          $tmpbody =~ s~\\n~\n~g;
          $tmpsubj =~ s~\[username\]~$_[2]~g;
          $tmpbody =~ s~\[username\]~$_[2]~g;
          if (length($_[3]) > 0) 
             {
                $tmpsubj =~ s~\[password\]~$_[3]~g;
                $tmpbody =~ s~\[password\]~$_[3]~g;
              }

          $tmpsubj =~ s~\[mbname\]~$mbname~g;
          $tmpbody =~ s~\[mbname\]~$mbname~g;
          $tmpmburl = $cgi;
          if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); }
          $tmpsubj =~ s~\[mburl\]~$tmpmburl~g;
          $tmpbody =~ s~\[mburl\]~$tmpmburl~g;
      if ($_[0] != 13 &&  $_[0] != 14 && $_[0] != 16) # no profile-tag if user is deleted
       {
       $tmpsubj =~ s~\[profile\]~$scripturl?action=viewprofile;username=$_[2]~g;
      $tmpbody =~ s~\[profile\]~$scripturl?action=viewprofile;username=$_[2]~g;
      }

          $tmptime = &timeformat($date, 1);
          $tmpsubj =~ s~\[date\]~$tmptime~g;
          $tmpbody =~ s~\[date\]~$tmptime~g;
          if ($_[0] == 14) 
            {

                $tmpsubj =~ s~\[adminusername\]~$username~g;
                $tmpbody =~ s~\[adminusername\]~$username~g;
                if (index($tmpbody,'[adminname]') > -1 || index($tmpsubj,'[adminname]') > -1) 
                  {
                     fopen(FILE, "$memberdir/$username.dat");
                     @tmpmemsettings=<FILE>;
                     fclose(FILE);
                     chomp @tmpmemsettings;
                     $tmpsubj =~ s~\[adminname\]~$tmpmemsettings[1]~g;
                     $tmpbody =~ s~\[adminname\]~$tmpmemsettings[1]~g;
                 }
           }

          if (index($tmpbody,'[quote]') > -1) 
            {

      	if (-e("$vardir/quotes.txt")) 
                  {
                     fopen(QUOTES, "$vardir/quotes.txt"); 
                     @quotes = <QUOTES>;
                     fclose(QUOTES);
                     $qcount = @quotes;
                     $tmpquote = @quotes[rand($qcount)];
                     chomp($tmpquote);
                 }
              else { $tmpquote = ""; };
              $tmpbody =~ s~\[quote\]~$tmpquote~g;
           }

          fopen(FILE, "$memberdir/$_[2].dat");
          @tmpmemsettings=<FILE>;
          fclose(FILE);
          chomp @tmpmemsettings;
          $tmpsubj =~ s~\[name\]~$tmpmemsettings[1]~g;
          $tmpbody =~ s~\[name\]~$tmpmemsettings[1]~g;
          $tmpsubj =~ s~\[email\]~$tmpmemsettings[2]~g;
          $tmpbody =~ s~\[email\]~$tmpmemsettings[2]~g;
          $tmpsubj =~ s~\[homepagename\]~$tmpmemsettings[3]~g;
          $tmpbody =~ s~\[homepagename\]~$tmpmemsettings[3]~g;
          $tmpsubj =~ s~\[homepage\]~$tmpmemsettings[4]~g;
          $tmpbody =~ s~\[homepage\]~$tmpmemsettings[4]~g;
          $tmpgender = $tmpmemsettings[11];
          if ($tmpgender eq "Male") {$tmpgender = $txt{'238'}; }
          elsif ($tmpgender eq "Female") {$tmpgender = $txt{'239'}; };
          $tmpsubj =~ s~\[gender\]~$tmpgender~g;
          $tmpbody =~ s~\[gender\]~$tmpgender~g;
          $tmpsubj =~ s~\[location\]~$tmpmemsettings[15]~g;
          $tmpbody =~ s~\[location\]~$tmpmemsettings[15]~g;
          $tmpsubj =~ s~\[text\]~$tmpmemsettings[5]~g;
          $tmpbody =~ s~\[text\]~$tmpmemsettings[5]~g;
          $tmpsubj =~ s~\[age\]~$tmpmemsettings[16]~g;
          $tmpbody =~ s~\[age\]~$tmpmemsettings[16]~g;
          $tmpsubj =~ s~\[icq\]~$tmpmemsettings[8]~g;
          $tmpbody =~ s~\[icq\]~$tmpmemsettings[8]~g;
          $tmpsubj =~ s~\[aim\]~$tmpmemsettings[9]~g;
          $tmpbody =~ s~\[aim\]~$tmpmemsettings[9]~g;
          $tmpsubj =~ s~\[yim\]~$tmpmemsettings[10]~g;
          $tmpbody =~ s~\[yim\]~$tmpmemsettings[10]~g;
          $tmpsubj =~ s~\[signature\]~$tmpmemsettings[12]~g;
          $tmpbody =~ s~\[signature\]~$tmpmemsettings[12]~g;

          if (index($tmpbody,'[memberinfo]') > -1 || index($tmpsubj,'[memberinfo]') > -1) {

             fopen(FILE, "$vardir/membergroups.txt");
             @tmpmembergroups = <FILE>;
             fclose(FILE);
             if($tmpmemsettings[6] > $GodPostNum) { $tmpmemberinfo = "$tmpmembergroups[6]"; }
             elsif($tmpmemsettings[6] > $SrPostNum) { $tmpmemberinfo = "$tmpmembergroups[5]"; }
             elsif($tmpmemsettings[6] > $FullPostNum) { $tmpmemberinfo = "$tmpmembergroups[4]"; }
             elsif($tmpmemsettings[6] > $JrPostNum) { $tmpmemberinfo = "$tmpmembergroups[3]"; }
             else { $tmpmemberinfo = "$tmpmembergroups[2]"; }
             if($tmpmemsettings[7] ne "") { $tmpmemberinfo = "$tmpmemsettings[7]"; }
             if($tmpmemsettings[7] eq "Administrator") { $tmpmemberinfo = "$tmpmembergroups[0]"; }
             chomp($tmpmemberinfo);
             $tmpsubj =~ s~\[memberinfo\]~$tmpmemberinfo~g;
             $tmpbody =~ s~\[memberinfo\]~$tmpmemberinfo~g;
            }

          &sendmail ($tmpadress,$tmpsubj,$tmpbody);
        }
}

sub advsendmail4 {

   my ($tmpadress, $tmptime, $qcount, $tmpquote, $tmpmburl);
      $tmpadress = $_[0];

	fopen(FILE, "$vardir/advemails.txt");
	@EMAILTEMPL = <FILE>;
	fclose(FILE);
     
      $tmpsubj = substr(@EMAILTEMPL[6],0,index(@EMAILTEMPL[6],'|'));
      $tmpbody = substr(@EMAILTEMPL[6],index(@EMAILTEMPL[6],'|')+1,length(@EMAILTEMPL[6]));

      if (length($tmpsubj) == 0) {$tmpsubj = "$txt{'118'}:  [subject] ($txt{'318'} [sender])" ;};
      if (length($tmpbody) < 2) {$tmpbody = "$txt{'711'} [recipient],\n\n$txt{'712'}: [subject], $txt{'30'} [mbname]. $txt{'713'}:\n\n[topicurl]\n\n\n$txt{'714'},\n[sender]"; };

      $tmpbody =~ s~\\n~\n~g;
      $tmpsubj =~ s~\[recipient\]~$_[1]~g;
      $tmpbody =~ s~\[recipient\]~$_[1]~g;
      $tmpsubj =~ s~\[sender\]~$_[2]~g;
      $tmpbody =~ s~\[sender\]~$_[2]~g;
      $tmpsubj =~ s~\[topicurl\]~$cgi;action=display;num=$_[3]~g;
      $tmpbody =~ s~\[topicurl\]~$cgi;action=display;num=$_[3]~g;
      $tmpsubj =~ s~\[senderemail\]~$_[4]~g;
      $tmpbody =~ s~\[senderemail\]~$_[4]~g;
      $tmpsubj =~ s~\[mbname\]~$mbname~g;
      $tmpbody =~ s~\[mbname\]~$mbname~g;
      $tmpmburl = $cgi;

      if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); }
      $tmpsubj =~ s~\[mburl\]~$tmpmburl~g;
      $tmpbody =~ s~\[mburl\]~$tmpmburl~g;
      $tmpsubj =~ s~\[subject\]~$_[5]~g;
      $tmpbody =~ s~\[subject\]~$_[5]~g;
      $tmptime = &timeformat($date, 1);
      $tmpsubj =~ s~\[date\]~$tmptime~g;
      $tmpbody =~ s~\[date\]~$tmptime~g;
      if (index($tmpbody,'[quote]') > -1) {
      	if (-e("$vardir/quotes.txt")) {
              fopen(QUOTES, "$vardir/quotes.txt"); 
	        @quotes = <QUOTES>;
              fclose(QUOTES);
              $qcount = @quotes;
              $tmpquote = @quotes[rand($qcount)];
              chomp($tmpquote);
            }
       }
      else { $tmpquote = ""; };
      $tmpbody =~ s~\[quote\]~$tmpquote~g;

      &sendmail ($tmpadress,$tmpsubj,$tmpbody,$_[4]);
  }

sub advsendmail5 {
      my ($tmpmburl);
      $tmpadress = $_[0];
	fopen(FILE, "$vardir/advemails.txt");
	@EMAILTEMPL = <FILE>;
	fclose(FILE);

      $tmpsubj = substr(@EMAILTEMPL[7],0,index(@EMAILTEMPL[7],'|'));
      $tmpbody = substr(@EMAILTEMPL[7],index(@EMAILTEMPL[7],'|')+1,length(@EMAILTEMPL[7]));

      $tmpbody =~ s~\\n~\n~g;
      $tmpsubj =~ s~\[adminname\]~$_[1]~g;
      $tmpbody =~ s~\[adminname\]~$_[1]~g;
      $tmpsubj =~ s~\[mbname\]~$mbname~g;
      $tmpbody =~ s~\[mbname\]~$mbname~g;
      $tmpmburl = $cgi;
      if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); }
      $tmpsubj =~ s~\[mburl\]~$tmpmburl~g;
      $tmpbody =~ s~\[mburl\]~$tmpmburl~g;
      $tmpsubj =~ s~\[falsepassword\]~$_[2]~g;
      $tmpbody =~ s~\[falsepassword\]~$_[2]~g;

      $tmpsubj =~ s~\[ip\]~$_[3]~g;
      $tmpbody =~ s~\[ip\]~$_[3]~g;
      $tmptime = &timeformat($date, 1);
      $tmpsubj =~ s~\[date\]~$tmptime~g;
      $tmpbody =~ s~\[date\]~$tmptime~g;
      if (index($tmpbody,'[quote]') > -1) {
      	if (-e("$vardir/quotes.txt")) {
              fopen(QUOTES, "$vardir/quotes.txt"); 
	        @quotes = <QUOTES>;
              fclose(QUOTES);
              $qcount = @quotes;
              $tmpquote = @quotes[rand($qcount)];
              chomp($tmpquote);
            }
       }
      else { $tmpquote = ""; };
      $tmpbody =~ s~\[quote\]~$tmpquote~g;
      &sendmail ($tmpadress,$tmpsubj,$tmpbody);
}

sub advsendmail6 {
      my ($tmpsetting);
    
      $tmpadress = $_[0];
      $tmpsubj = $_[1];      
      $tmpbody = $_[2];
      
      $tmpbody =~ s~\\n~\n~g;

      if (index($tmpbody,'[adminname]') > -1 || index($tmpsubj,'[adminname]') > -1) {
          fopen(FILE, "$memberdir/$username.dat");
          @tmpmemsettings=<FILE>;
          fclose(FILE);
          $tmpsubj =~ s~\[adminname\]~$tmpmemsettings[1]~g;
          $tmpbody =~ s~\[adminname\]~$tmpmemsettings[1]~g;
      }
      $tmpsubj =~ s~\[mbname\]~$mbname~g;
      $tmpbody =~ s~\[mbname\]~$mbname~g;
      $tmpmburl = $cgi;
      if (index($tmpmburl,"?") > -1) { $tmpmburl = substr($tmpmburl,0,index($tmpmburl,"?")); }
      $tmpsubj =~ s~\[mburl\]~$tmpmburl~g;
      $tmpbody =~ s~\[mburl\]~$tmpmburl~g;
      $tmptime = &timeformat($date, 1);
      $tmpsubj =~ s~\[date\]~$tmptime~g;
      $tmpbody =~ s~\[date\]~$tmptime~g;
      if (index($tmpbody,'[quote]') > -1) {
      	if (-e("$vardir/quotes.txt")) {
              fopen(QUOTES, "$vardir/quotes.txt"); 
	        @quotes = <QUOTES>;
              fclose(QUOTES);
              $qcount = @quotes;
              $tmpquote = @quotes[rand($qcount)];
              chomp($tmpquote);
            }
       }
      else { $tmpquote = ""; };
      $tmpbody =~ s~\[quote\]~$tmpquote~g;

      &sendmail ($tmpadress,$tmpsubj,$tmpbody);
}
# End Advanced System eMails Mod

sub Sticky {
	if (!(exists $moderators{$username}) && $settings[7] ne 'Administrator' && $settings[7] ne 'Global Moderator') { &fatal_error("$txt{'67'}"); }
	$thread = $INFO{'thread'}; if (!$thread) { &fatal_error($txt{'772'}); }

	fopen(FILE, "$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
	@stickys = <FILE>;
	fclose(FILE);

	$is_sticky = 0;
	$stickynum = 0;
	foreach $curstick (@stickys) {
		chomp $curstick;
		if ($curstick == $thread) { $is_sticky = 1; last; }
		$stickynum++;
	}
	if ($is_sticky == 0) {
		fopen(FILE, ">>$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
		print FILE "$thread\n";
		fclose(FILE);
	} else {
		splice(@stickys,$stickynum,1);
		fopen(FILE, ">$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
		foreach $curline (@stickys) { chomp $curline; print FILE "$curline\n"; }
		fclose(FILE);
	}
}

sub Sticky_remove {
	my $stthread = $_[0];
	$stickynum = 0;

	fopen(FILE, "$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
	@stickys = <FILE>;
	fclose(FILE);

	foreach $curstick (@stickys) {
		chomp $curstick;
		if ($curstick == $stthread) { last; }
		$stickynum++;
    }
		splice(@stickys,$stickynum,1);
		fopen(FILE, ">$boardsdir/sticky.stk") || &fatal_error("300 $txt{'106'}: $txt{'23'} sticky.stk");
		foreach $curline (@stickys) { chomp $curline; print FILE "$curline\n"; }
		fclose(FILE);
}

sub WriteYamLog {
	chomp $username;
	$yamname = $username;

	$yamip1 = $user_ip;
	$yamip2 = 0;
	$yamip3 = 0;

	fopen(FILE, "$memberdir/$yamname.yam");
	@yaminfo = <FILE>;
	fclose(FILE);
	chomp(@yaminfo);
	$yamnumber = $yaminfo[0];
	($yamip2, $yamip3, $yamdummy) = split(/\|/, $yaminfo[1]);

	if($yamip1 ne $yamip2) {
		fopen(FILE, ">$memberdir/$yamname.yam");
		print FILE "$yamnumber\n";
		print FILE "$yamip1|$yamip2|$yamip3\n";
		fclose(FILE);
	}
}

sub LoadMembNumber {
	if(!-e "$memberdir/membernumb.txt") {
		fopen(FILE, "$memberdir/memberlist.txt");
		@memberlist = <FILE>;
		$memcount = @memberlist;
		@membername = @memberlist;
		fclose(FILE);
		for($i=0;$i<$memcount;$i++) {
			chomp(@membername);
			$membname = $membername[$i];
			fopen(MEMBERFILE,"$memberdir/$membname.dat");
			@member = <MEMBERFILE>;
			fclose(MEMBERFILE);
			chomp(@member);
			$date1 = $member[14];
			&calcdaystime;
			$templist[$i] .= qq($result|$membname);
		}
		@SortAReg = sort{$b<=>$a} (@templist);
		$newnumber = 0;
		fopen(FILE2, ">$memberdir/membernumb.txt", 1);
		for($i=0;$i<$memcount;$i++) {
			$ipyam = "";
			$newnumber++;
			chomp(@SortAReg);
			($indxname[$i], $SortReg[$i]) = split(/\|/, $SortAReg[$i]);
			if ($SortReg[$i] eq "admin") { $newnumber = 0; }
			if (-e "$memberdir/$SortReg[$i].yam") {
				fopen(FILE, "$memberdir/$SortReg[$i].yam");
				@yaminfo = <FILE>;
				fclose(FILE);
				chomp(@yaminfo);
				$ipyam = $yaminfo[1];
				if ($yaminfo[1] eq "") { $ipyam .= qq(0|0|0); }
			}
			else {
				$ipyam .= qq(0|0|0);
			}
			fopen(FILE, ">$memberdir/$SortReg[$i].yam");
			print FILE "$newnumber\n";
			print FILE "$ipyam\n";
			fclose(FILE);
			chmod(0666,"$memberdir/$SortReg[$i].yam");
			print FILE2 "$newnumber|$SortReg[$i]\n";
			if ($newnumber == 0) { $newnumber = $i; }
		}
		fclose(FILE2);
		chmod(0666,"$memberdir/membernumb.txt");
	}
}

sub yabb_alert {
	local($e) = @_;
	$yytitle = "YaBB Alert!";
	$yymain .= qq~
<table border=0 width="80%" cellspacing=1 bgcolor="$color{'bordercolor'}" class="bordercolor" align="center" cellpadding="4">
  <tr>
    <td class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>YaBB Alert!</b></font></td>
  </tr><tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}"><BR><font size=2>$e</font><BR><BR></td>
  </tr>
</table>
<center><BR><a href="javascript:history.go(-1)">$txt{'250'}</a></center>
~;
	&template;
	exit;
}

sub set_picsize {
	my ($tmpuserpic_width, $tmpuserpic_height, $ratio);
	$tmpuserpic_width = $_[2];
	$tmpuserpic_height = $_[3];
	if ($tmpuserpic_width == 0) { $tmpuserpic_width = $akt_width; }
	if ($tmpuserpic_height == 0) { $tmpuserpic_height = $akt_height; }
	$ratio = $akt_width / $akt_height;
	for(0..1) { 
		if ($akt_width > $tmpuserpic_width) { $akt_width = $tmpuserpic_width; $akt_height = int($akt_width / $ratio); }    
		if ($akt_height > $tmpuserpic_height) { $akt_height = $tmpuserpic_height; $akt_width = int($akt_height * $ratio); }
	}
}

1;