New config option 'spamurl'.

[homepage.git] / linux / gmanespam

diff --git a/linux/gmanespam b/linux/gmanespam
index 69e2f8537c355c3e1dd0eba21a7467b6b8e92419..3a61ae0aade267651dbbc3def77b8c65cf5425c7 100644 (file)
--- a/linux/gmanespam
+++ b/linux/gmanespam
@@ -23,6 +23,7 @@ use Net::NNTP;
 use LWP::UserAgent;
 
 my $server = "news.gmane.org";
 use LWP::UserAgent;
 
 my $server = "news.gmane.org";

+my $spamurl = "http://spam.gmane.org/{group}:{msgnum}";

 
 # List of groups to process
 my @groups;
 
 # List of groups to process
 my @groups;


@@ -63,6 +64,7 @@ sub loadconfig {
             s/\s*$//g;
             next if (/^$/);
             $server = $1 if (m/^server (.+)$/);
             s/\s*$//g;
             next if (/^$/);
             $server = $1 if (m/^server (.+)$/);

+            $spamurl = $1 if (m/^spamurl (.+)$/);

             push(@groups, $1) if (m/^group (.+)$/);
         }
         close(CFG);
             push(@groups, $1) if (m/^group (.+)$/);
         }
         close(CFG);


@@ -188,8 +190,10 @@ sub process_header {
 
 sub report_spam {
     my ($groupname, $msgnum) = @_;
 
 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 {
     if ($response->is_success) {
         print "Reported $groupname:$msgnum as spam.\n";
     } else {