Autres/audacity
1
0
Fork 0
mirror of https://github.com/cookiengineer/audacity synced 2025-06-15 15:49:36 +02:00
Code Issues Releases Wiki Activity

Remove scripts/mailman-discard.pl

Browse Source 
It was a helper script for audacity's mailing list.

There wasn't any references.

Signed-off-by: fossdd <fossdd@tenacityaudio.org>
This commit is contained in:
fossdd 2021-08-03 19:22:09 +00:00 committed by Semisol
parent 56c953a14d
commit b59753cf2e
No known key found for this signature in database
GPG Key ID: D8035D2873B5D72E
1 changed files with 0 additions and 65 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
scripts/mailman-discard.pl
View File

@ -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