/xlog/log/*/event.log
/xlog/log/*/event.log.[0-9]
/xlog/log/*/event.log.[0-9].gz
-/xlog/log/*/nr-*.txt
+/xlog/log/*/public/nr-*.txt
/crontab.part
/stump/etc/modenv
/stump/etc/added-headers
#!/bin/bash
set -e
cd %BASEDIR%/xlog/log
-exec ../bin/report %GROUP% "$@"
+exec ../bin/report %GROUP% %STATICFILESURL%/g.%ABBREV%/messages "$@"
if $local_part_suffix is +%ABBREV%-internal-log+mailout
then
unseen deliver %LOGGROUPEMAILPREFIX%+%ABBREV%+log+mailout
- pipe "%BASEDIR%/xlog/bin/record mailout %GROUP%"
+ pipe "%BASEDIR%/xlog/bin/record %PUBREJOPT% mailout %GROUP%"
finish
endif
# derivative settings:
+PUBREJOPT=''
+if $PUBLISHREJECTIONS; then
+ PUBREJOPT=-P
+fi
+export PUBREJOPT
+
+
test -f persistent-autosettings || touch persistent-autosettings
. persistent-autosettings
case ",$NEWSADMINUSERS," in
*,"`whoami`",*) ;;
-*) echo >&2 "$0 must be run as one of $NEWSADMINUSERS, skipping"
+*) echo >&2 "$0 must be run as one of $NEWSADMINUSERS, skipping"; exit 0;;
esac
exec <mailinglists_dir.part
mkdir -p stump/data
mkdir -p webstump/queues/$GROUP
mkdir -p webstump/log
-mkdir -p xlog/log/$GROUP
+mkdir -p xlog/log/$GROUP/public
ngdir=webstump/config/newsgroups/$GROUP
mkdir -p $ngdir
install_link $BASEDIR/cgi $CGISCRIPTDIR/g.$ABBREV
install_link $BASEDIR/cgi/logs $CGISCRIPTDIR/l.$ABBREV
install_link $BASEDIR/public-html $STATICFILESDIR/g.$ABBREV
-
--- /dev/null
+/home/webstump/live-mtm/xlog/log/misc.test.moderated/public
\ No newline at end of file
x ./install-substitutions
x make -C webstump
x ./install-aggregates
+x ./install-weblinks
x ./install-loggroups
echo ==== DONE ====
#!/usr/bin/perl -p
-s, %OURUSER% \+ [-+/0-9a-z]* \@ (\Q %DOMAIN% | %SLIMYDOMAIN \E) \b
+s, %OURUSER% \+ [-+/0-9a-z]* \@ (\Q%DOMAIN%\E | \Q%SLIMYDOMAIN%\E) \b
,%OURUSER%+?\@$1,igx
unless m/^$/..0;
use IO::Handle;
our %f;
+
+my $publish_rejections= 0;
+if ($ARGV[0] eq '-P') {
+ $publish_rejections= 1;
+ shift @ARGV;
+}
+
our ($how) = @_;
my $dir= $0;
while (<STDIN>) {
$keepheader= 1 unless m/^[ \t]/;
$keepheader= 0
- if m/^(?: received )/ix;
+ if m/^(?: received
+ | envelope-to
+ )/ix;
$keepheader= 'mangle'
if m/^(?: to
| from
$f{Now}= time;
-if ($f{Event} =~ m/^notify reject /) {
- #$ref= $f{MessageID}
- open I, ">$dir/nr-$f{MessageNum}.txt" or die $!;
+if ($publish_rejections &&
+ $f{Event} =~ m/^notify reject /) {
+ $f{CopyRef}= $f{MessageID};
+ $f{CopyRef} =~ s/\W/ sprintf '-%02x', ord($&) /ge;
+ open I, ">$dir/public/nr-$f{CopyRef}.txt" or die $!;
print I $message or die $!;
close I or die $!;
}
$v =~ s/\t/ /g;
$v =~ s/[\r\n]/?/g;
$v;
-} qw(Now MessageNum MessageID From Subject Event);
+} qw(Now MessageNum MessageID From Subject Event CopyRef);
print L join("\t",@s)."\n" or die $!;
close L or die $!;
#!/usr/bin/perl -w
-our ($ng,@ARGV) = @ARGV;
+our ($ng,$staticfiles,@ARGV) = @ARGV;
chdir $ng or die $!;
use strict (qw(vars));
sub processline_print () {
my @sp= @s;
$sp[3] =~ s/\@\w{0,2}/ at .. /;
- my @sp= map { escapeHTML($_) } @sp;
+ @sp= map { escapeHTML($_) } @sp[0..5];
my @spu= map {
s/\W/ sprintf "%%%02x", ord $& /ge;
$_;
$sp[$i]= a({ href=>$url }, $sp[$i] );
}
}
+ if (length $s[6]) {
+ $sp[5]= a({ href=>"$staticfiles/nr-$s[6].txt" }, $sp[5] );
+ }
#print STDERR join('|',@sp),"\n";
print Tr(td([@sp]));
}
$title= "Single message ".escapeHTML($selectmid);
$processline= \&processline_print_ifsingle;
} elsif ($pi =~ m/^$/) {
- $title= "Recent activity";
+ $title= "Recent activity - $ng";
} elsif ($pi =~ m,^/queue,) {
$title= "Activity regarding still-queued messages";
$processline= \&processline_queue_prescan;