report to moderator SP
0.6 SP
Adds a link below every post to allow users to report the post to a moderator.
The user can enter a comment and a mail with
- Comment
- Subject of post
- Poster
- Reply # in thread
- Link to posting
will be sent to every moderator of the correspondig board.
Version History:
0.5: First release
0.6: Bugs fixed (thanks to Lost!)
0.6 SP: made compatible with Service Pack (Jalapeno)
cae (adapted for Service Pack by Jalapeno)
http://boardmod.xnull.com/yabb/YaBB.pl?action=viewprofile&username=cae
english.lng
1;
$rtm{'1'} = "Report this post to moderator(s)";
$rtm{'2'} = "Enter comment:";
$rtm{'3'} = "Reported post";
$rtm{'4'} = "by";
$rtm{'5'} = "The following post has been reported by a user:";
$rtm{'6'} = "Comment by reporting user";
$rtm{'7'} = "Subject";
$rtm{'8'} = "Poster";
$rtm{'9'} = "Reply # in thread";
$rtm{'10'} = "Submit";
Sources/Subs.pl
1;
sub ReportToModerator {
$yymain .= qq~
~;
&template;
exit;
}
sub ReportToModerator2 {
my ($modi,$countm,$mailtext,$mailsub);
foreach $i (%moderators) {
if (-e "$memberdir/$i.dat") {
++$countm;
fopen(FILE, "$memberdir/$i.dat");
@settings=;
fclose(FILE);
chomp($settings[2]);
$mailtext = "$rtm{'6'}: $FORM{'comment'}\n$rtm{'5'}\n$rtm{'7'}: $FORM{'subject'}\n$rtm{'4'}: $FORM{'poster'}\n$rtm{'9'}: $FORM{'id'}\n $cgi&action=display&num=$FORM{'thread'}&start=$FORM{'id'}\n\n";
$mailsub = "$rtm{'3'}\: $FORM{'subject'} $rtm{'4'} $FORM{'poster'}";
&sendmail($settings[2],"$mailsub","$mailtext");
$modi .= "$settings[2]";
}
}
if (!$countm) {&fatal_error("No moderators!");}
}
1;
YaBB.pl
elsif ($action eq 'rebuildmemlist') { require "$sourcedir/Admin.pl"; &RebuildMemList; }
elsif ($action eq 'reporttm') { require "$sourcedir/Subs.pl"; &ReportToModerator; }
elsif ($action eq 'reporttm2') { require "$sourcedir/Subs.pl"; &ReportToModerator2; }
Sources/Display.pl
$yymain .= qq~
$userprofile[11]
$postinfo
$yymain .= qq~
$userprofile[11]
$postinfo
$rtm{'1'}