From: Petter Reinholdtsen <pere@hungry.com>
Date: Wed, 28 Dec 2005 22:26:07 +0000 (+0000)
Subject: New config option 'spamurl'.
X-Git-Url: https://pere.pagekite.me/gitweb/homepage.git/commitdiff_plain/b2b479cdcb3a3d6553b324b5e9272f2bd6ccae4d

New config option 'spamurl'.
---

diff --git a/linux/gmanespam b/linux/gmanespam
index 69e2f8537c..3a61ae0aad 100644
--- a/linux/gmanespam
+++ b/linux/gmanespam
@@ -23,6 +23,7 @@ use Net::NNTP;
 use LWP::UserAgent;
 
 my $server = "news.gmane.org";
+my $spamurl = "http://spam.gmane.org/{group}:{msgnum}";
 
 # List of groups to process
 my @groups;
@@ -63,6 +64,7 @@ sub loadconfig {
             s/\s*$//g;
             next if (/^$/);
             $server = $1 if (m/^server (.+)$/);
+            $spamurl = $1 if (m/^spamurl (.+)$/);
             push(@groups, $1) if (m/^group (.+)$/);
         }
         close(CFG);
@@ -188,8 +190,10 @@ sub process_header {
 
 sub report_spam {
     my ($groupname, $msgnum) = @_;
-    # Visit http://spam.gmane.org/gmane.linux.debian.devel.lsb:253
-    my $response = $ua->get("http://spam.gmane.org/$groupname:$msgnum");
+    my $url = $spamurl;
+    $url =~ s/{group}/$groupname/g;
+    $url =~ s/{msgnum}/$msgnum/g;
+    my $response = $ua->get($url);
     if ($response->is_success) {
         print "Reported $groupname:$msgnum as spam.\n";
     } else {