From: fossdd <fossdd@tenacityaudio.org>
It was a helper script for audacity's mailing list.
There wasn't any references.
Signed-off-by: fossdd <fossdd@tenacityaudio.org>
---
scripts/mailman-discard.pl | 65 --------------------------------------
1 file changed, 65 deletions(-)
delete mode 100755 scripts/mailman-discard.pl
diff --git a/scripts/mailman-discard.pl b/scripts/mailman-discard.pl
deleted file mode 100755
index 97f8359f3..000000000
--- a/scripts/mailman-discard.pl
@@ -1,65 +0,0 @@
-#!/usr/bin/env perl
-
-# Mailman-discard
-# Written by Dominic Mazzoni, 2003
-# Released into the Public Domain
-# NO WARRANTY
-
-print "This script uses 'curl' to connect to Sourceforge's mailman server\n";
-print "and discard all of the pending messages in a mailbox. This is\n";
-print "useful when an account gets hit with a virus or lots of spam.\n";
-print "\n";
-print "Note that ALL pending messages are discarded, with no notice sent\n";
-print "to anyone! You CANNOT recover messages after running this script!\n";
-print "";
-
-print "Enter Sourceforge list name (such as 'audacity-devel'): ";
-$list = <STDIN>;
-
-print "Enter list password (warning, not hidden): ";
-$pass = <STDIN>;
-chop $pass;
-
-print "Logging in and getting info...\n";
-
-$out = `curl --data 'adminpw=$pass' --dump-header cookiefile https://lists.sourceforge.net/lists/admindb/$list`;
-
-$data = "";
-
-@lines = split("\n", $out);
-
-$count = 0;
-foreach $line (@lines) {
- if ($line =~ 'INPUT name="([0-9]+)" type="RADIO" value="3"') {
- $count++;
- if ($data eq "") {
- $data = "$1=3";
- }
- else {
- $data = "$data&$1=3";
- }
- }
-}
-
-if ($count == 0) {
- print "Couldn't find any messages to discard!\n";
- exit;
-}
-
-print "Discarding $count messages from $list\n";
-
-$out = `curl --cookie cookiefile --data '$data' https://lists.sourceforge.net/lists/admindb/$list`;
-
-@lines = split("\n", $out);
-
-foreach $line (@lines) {
- if ($line =~ 'no pending requests') {
- print "Success!\n";
- exit;
- }
-}
-
-print "Done, but couldn't verify success.";
-
-# arch-tag: dc81de17-0bcb-4131-988e-3a3dad0e8e8d
-
--
2.32.0