I think that the moderators currently use some sort of Un*x shell scripts to assist the moderation process. I am no shell script guru, but I am supposing it would not be too difficult to modify them for an automated check if the moderators did not want to keep track of posting frequency and size by hand.
I'm sorry, but as well as being technically difficult it would be numerically unsound. Our moderators use shell scripts which have patterns of 19 which prevent tampering.
Attached at the end is the shell script sent to me by our moderator Ahmad, exactly as I received it.
A "word" is a Unix file-name, an address component, an English word appearing in a comment, or anything else containing at least one letter.
Some of the shell script is commented out, using the character '#'. We will show that the script is correct even including comments.
A1. There are 228=19*12 words,
A2. of which 38=19*2 are file-names.
In addition, we note that the important keywords if-then-else-endif appear altogether 38=19*2 times.
Is there a typo?
Unix users will immediately recognise that the script appears to have an error:
Brendan McKay
#!/bin/csh
# split
set mod = "ahm@smi.med.pitt.edu"
foreach i ($*)
./filter <$i >$i.out
set ident = "`grep From: $i.out` `grep Subject: $i.out`"
if ("$ident" == " ") then
echo $i has no From: line
else
# fgrep "$ident" logfile
# if ($status == 0) then
# echo "$ident"
# echo "Message appears to be a duplicate"
# endif
endif
echo --- $i ---
# more $i.out
while (1)
# echo -n "OK to send? "
# set ok = $<
set ok = "y" #remove with previous line's comment
if ($ok == "y" || $ok == "yes") then
/usr/local/bin/inews -h <$i.out
ack $i.out
cp $i.out sent
echo `date` "$ident" >>logfile
/bin/mv -f $i.out $i.sent
/bin/rm -f $i
break
else if ($ok == "n" || $ok == "no") then
echo `date` "$ident" >>rejectlog
./rej.sh $i
/bin/mv -f $i $i.reject
/bin/rm -f $i.out
break
else if ($ok == "h" || $ok == "hold") then
/bin/mv -f $i $i.hold
/bin/rm -f $i.out
break
else if ($ok == "p") then
/usr/lib/sendmail $mod < $i
/bin/rm -f $i $i.out
break
else if ($ok == "p2") then
/bin/mv -f $i $i.pvt
/bin/rm -f $i.out
break
else if ($ok == "q" || $ok == "quit") then
exit
else if ($ok == "e" || $ok == "edit") then
emacs $i.out
else if ($ok == "s" || $ok == "show") then
more $i.out
else if ($ok == "m" || $ok == "mail") then
onintr -
cat prolog $i.out >$i.mail
mm get $i.mail
onintr
/bin/rm $i.mail
else if ($ok == "|" || $ok == "shell") then
echo Article is $i
$SHELL
else
echo Respond yes, no, hold, edit, show, m>ail, shell, or quit
endif
end
end
Overview on numerical features in different scriptures
Answering Islam Home Page