hoi,
i tested this mod on my board... can't find any errors... good job

could you change it a bit, so it only sends a mail to the admin?
I don't want to give my moderators too much work.

thanks for the great mod!

i was sort of trying to use the chain of command...

moderators moderate, right? do admins want to be notified if there is a out-of-line post somewhere? maybe they do...

i was thinking of a check box where the member selects 'send to admin as well' or something but i think that would lead to members selecting it every time.

what i'll do is put an option in the admin center, something like 'Notify administrators of reported posts', which when selected will cause the script to email administrators as well as moderators when a report is made.

i don't have time tonight... if you want it'll take two seconds to make the script automatically email administrators.

open ReportToMod.pl and find:

[code]      # no global moderators found? try administrators
     if ($sentto eq "") {
           foreach $curentry (@members) {
                 &LoadUser($curentry);
                 if( $userprofile{$curentry}->[7] eq "Administrator" ) {
                       $sentto .= qq~<b>$userprofile{$curentry}->[1]</b><br>~;
                       &sendmail($userprofile{$curentry}->[2],"$mailsub","$mailtext");
                       $mailto = qq~$rtm{'25'}:~;
                 }
           }
     }[/code]

replace it with:

[code]      # email to administrators also
     fopen(FILE, "$memberdir/memberlist.txt");
     @members = <FILE>;
     fclose(FILE);
     chomp @members;      
     foreach $curentry (@members) {
           &LoadUser($curentry);
           if( $userprofile{$curentry}->[7] eq "Administrator" ) {
                 $sentto .= qq~<b>$userprofile{$curentry}->[1]</b><br>~;
                 &sendmail($userprofile{$curentry}->[2],"$mailsub","$mailtext");
           }
     }[/code]

and that should do it. it will now send to admins as well as the moderators of the board.

i didn't test this, but it should work ok.

@snYpir

Well done!

I remove some \n on "# send mail to modprop" and changed twice

$cgi&action=display&num=$FORM{'thread'}&start=$FORM{'id'}
to
$cgi&action=display&num=$FORM{'thread'}&start=$FORM{'id'}#$FORM{'id'}

I also changed:

	my $offender = $FORM{'poster'};

	$yymain .= qq~
<table border=0 width="65%" 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{'7'}:</b></font></td>
  </tr>
  <tr>
    <td class="windowbg" bgcolor="$color{'windowbg'}" align="left">
~;

	# find email addy of offending poster 

$yymain .= qq~$sentto<br><a m{'21'}</a></td></tr></table>~; 

cu Gekko

Cheers Gekko! I have made the changes, and re-zipped it all.

ok attached is a working version for you mercator. i tested it this time... just upload over your current reporttomod.pl file... 8)