sub ReportToModerator {

	if($username eq 'Guest') { &fatal_error($txt{'1'}); }

	#get board name
	fopen(FILE, "$boardsdir/$INFO{'board'}.dat");
	my @board =<FILE>;
	fclose(FILE);
	chomp $board[0];

	my $poster = $INFO{'poster'};

	$yymain .= qq~
<script language="JavaScript"> <!--
function confirmDel() {if (confirm("$rtm{'2'}")) {return true;} else {return false;}}
// --> </script>
<table border=0 width="53%" 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>$rtm{'1'}</b></font></td>
    </tr>
    <form action="$cgi\&action=reporttm2" method="POST">
    <tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}" align="left">
			<table width="90%" align="center" cellspacing=4 bgcolor="$color{'windowbg'}" class="windowbg">
			<tr>
			<td class="windowbg" bgcolor="$color{'windowbg'}" align="left">
				<font size=1>$rtm{'3'} <b>$poster</b>.</font>
			</td>
		   </tr>
			<tr>
			<td class="windowbg" bgcolor="$color{'windowbg'}" align="center">
				<textarea name="comment" cols=70 rows=10></textarea>
			</td>
			</tr>
			<tr>
			<td class="windowbg" bgcolor="$color{'windowbg'}" align="center">
				<input type="hidden" name="thread" value="$INFO{'thread'}">
				<input type="hidden" name="board" value="$INFO{'board'}">
				<input type="hidden" name="id" value="$INFO{'id'}">
				<input type="hidden" name="subject" value="$INFO{'subject'}">
				<input type="hidden" name="poster" value="$INFO{'poster'}">
				<input type="hidden" name="email" value="$INFO{'email'}">
				<input type="hidden" name="username" value="$INFO{'username'}">
				<input type=submit value="$rtm{'4'}" onClick="return confirmDel()">
			</td>
			</tr>
			</table>
	</td>
   </tr>
  </form>
</table>
	~;
	$yytitle = $rtm{'1'};
	&template;
	exit;
}

sub ReportToModerator2 {

	if($username eq 'Guest') { &fatal_error($txt{'1'}); }
	
	my ($messageid,$message,$subject,$curentry,$mailto,@members,@yyBoardInfo,@modprop);
	my $sentflag = 0;

	# set defaults for who messages get sent to (default is chained)
	if ( $chain_mail eq '' ) { $chain_mail = 1; }
	if ( $auto_rtmods eq '' ) { $auto_rtmods = 0; }
	if ( $auto_rtglobals eq '' ) { $auto_rtglobals = 0; }
	if ( $auto_rtadmins eq '' ) { $auto_rtadmins = 0; }

	# construct email message
	&LoadUser($username);
	$message = "$rtm{'6'}: $FORM{'subject'}\n$rtm{'7'}: $FORM{'id'}\n$rtm{'8'}: $FORM{'poster'} ($FORM{'email'}).\n\n$rtm{'9'}:\n$FORM{'comment'}\n\n$rtm{'10'}: $cgi&action=display&num=$FORM{'thread'}&start=$FORM{'id'}#$FORM{'id'}\n\n$rtm{'11'}: $scripturl?action=viewprofile;username=$username";
	if ( $FORM{'username'} ne 'Guest' ) {
		$message .= "\n\n$rtm{'12'}: $scripturl?action=viewprofile;username=$FORM{'username'}"
	}
	else {
		$message .= "\n\n$FORM{'poster'} $rtm{'13'}."
	}
	$subject = "$rtm{'16'}: $FORM{'subject'} $rtm{'5'} $FORM{'poster'}";
	$subject =~ s/\A\s+//;
	$subject =~ s/\s+\Z//;
	$message =~ s/\t/ \&nbsp; \&nbsp; \&nbsp;/g;
	$message =~ s/\cM//g;
	$message =~ s/\n/<br>/g;
	$messageid = $^T.$$;
	
    # loop through all moderators for current board
    if ( $chain_mail || $auto_rtmods ) {
		fopen(FILE, "$boardsdir/$currentboard.dat");
		@yyBoardInfo =<FILE>;
		fclose(FILE);
		chomp @yyBoardInfo;
		foreach (split(/\|/,$yyBoardInfo[2])) {
			if (-e "$memberdir/$_.dat") {
				$curentry = $_;
				fopen(MODERATOR, "$memberdir/$_.dat");
				@modprop = <MODERATOR>;
				fclose(MODERATOR);
				chomp($modprop[2]);

			# send mail to modprop
		if ( $auto_rtmail ) {
		&sendmail($modprop[2],"$subject","$message");
		}
		if ( $auto_rtim ) {
			
	open(FILE, "$memberdir/$_.msg");
	@inmessages = <FILE>;
	close(FILE);

	fopen(FILE, ">$memberdir/$_.msg", 1);
	print FILE "$FORM{'username'}|$subject|$date|$message|$messageid|$ENV{'REMOTE_ADDR'}|1\n";
	print FILE @inmessages;
	fclose(FILE);

	open(FILE, "$memberdir/$_.msg");
	@messages = <FILE>;
	close(FILE);
			
	###	fopen(FILE, ">$memberdir/$_.msg", 1);
	###	print FILE "$FORM{'username'}|$subject|$date|$message|$messageid|$ENV{'REMOTE_ADDR'}|1\n";
	###	print FILE @inmessages;
	###	fclose(FILE);
				}
			}
		}
	}

	# open memberlist?
	if ( ( $sentflag == 0 && $chain_mail ) || $auto_rtglobals || $auto_rtadmins ) {
		fopen(FILE, "$memberdir/memberlist.txt");
		@members = <FILE>;
		fclose(FILE);
		chomp @members;
	}

	# no moderators found? try global moderators
	if ( ( $sentflag == 0 && $chain_mail ) || $auto_rtglobals ) {
		foreach $curentry (@members) {
			&LoadUser($curentry);
			if( $userprofile{$curentry}->[7] eq "Global Moderator" ) {
		if ( $auto_rtmail ) {
		&sendmail($userprofile{$curentry}->[2],"$subject","$message");
		}
		if ( $auto_rtim ) {
		
	
	open(FILE, "$memberdir/$curentry.msg");
	@inmessages = <FILE>;
	close(FILE);

	fopen(FILE, ">$memberdir/$curentry.msg", 1);
	print FILE "$FORM{'username'}|$subject|$date|$message|$messageid|$ENV{'REMOTE_ADDR'}|1\n";
	print FILE @inmessages;
	fclose(FILE);

	open(FILE, "$memberdir/$curentry.msg");
	@messages = <FILE>;
	close(FILE);
	
	###	fopen(FILE,">$memberdir/$curentry.msg", 1);
	###	print FILE "$FORM{'username'}|$subject|$date|$message|$messageid|$ENV{'REMOTE_ADDR'}|1\n";
	###	fclose(FILE);
	
				 }			
			}
		}
	}

	# no global moderators found? try administrators
	if ( ( $sentflag == 0 && $chain_mail ) || $auto_rtadmins ) {
		foreach $curentry (@members) {
			&LoadUser($curentry);
			if( $userprofile{$curentry}->[7] eq "Administrator" ) {
		if ( $auto_rtmail ) {
		&sendmail($userprofile{$curentry}->[2],"$subject","$message");
		}
		if ( $auto_rtim ) {

	 open(FILE, "$memberdir/$curentry.msg");
	 @inmessages = <FILE>;
	 close(FILE);

	fopen(FILE, ">$memberdir/$curentry.msg", 1);
	print FILE "$FORM{'username'}|$subject|$date|$message|$messageid|$ENV{'REMOTE_ADDR'}|1\n";
	print FILE @inmessages;
	fclose(FILE);

	 open(FILE, "$memberdir/$curentry.msg");
	 @messages = <FILE>;
	 close(FILE);
		
	### fopen(FILE,">$memberdir/$curentry.msg", 1);
	### print FILE "$FORM{'username'}|$subject|$date|$message|$messageid|$ENV{'REMOTE_ADDR'}|1\n";
	### fclose(FILE);

			 	}
			}
		}
	}

	$yymain .= qq~
<table border=0 width="65%" cellspacing=1 bgcolor="$color{'bordercolor'}" class="bordercolor" align="center" cellpadding="4">
  <tr>
    <td nowrap class="titlebg" bgcolor="$color{'titlebg'}"><font size=2 class="text1" color="$color{'titletext'}"><b>$rtm{'1'}</b></font></td>
  </tr>
  <tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}" align="center">
	<font size="2"><br>$rtm{'14'}</font>
	<br><br><a href="$cgi&action=display&num=$FORM{'thread'}&start=$FORM{'id'}#$FORM{'id'}"><font size="1">$rtm{'15'}</font></a></td></tr></table>
	~;

	$yytitle = $rtm{'1'};
	&template;
	exit;
}

1;