1 files changed, 0 insertions, 47 deletions
diff --git a/bin/create-fetchmailrc b/bin/create-fetchmailrc
deleted file mode 100644
index 11bde0c..0000000
--- a/bin/create-fetchmailrc
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/usr/bin/perl -w
-# this quick hack helps you generate/maintain .fetchmailrc files from
-# FS::acct_snarf data.  it is run from a shellcommands export as:
-# create-fetchmailrc $username $dir $snarf_machine1 $snarf_username1 $snarf__password1 $snarf_machine2 $snarf_username2 $snarf__password2 ...
-
-use strict;
-use POSIX qw( setuid setgid );
-
-my $header = <<END;
-# Configuration created by create-fetchmailrc
-set postmaster "postmaster"
-set bouncemail
-set no spambounce
-set properties ""
-set daemon 240
-END
-
-my $username = shift @ARGV or die "no username specified\n";
-my $homedir  = shift @ARGV or die "no homedir specified\n";
-my $filename = "$homedir/.fetchmailrc";
-
-my $gid = scalar(getgrnam($username)) or die "can't find $username's gid\n";
-my $uid = scalar(getpwnam($username)) or die "can't find $username's uid\n";
-
-exit unless $ARGV[0];
-
-open(FETCHMAILRC, ">$filename") or die "can't open $filename: $!\n";
-chown $uid, $gid, $filename     or die "can't chown $uid.$gid $filename: $!\n";
-chmod 0600, $filename           or die "can't chmod 600 $filename: $!\n";
-print FETCHMAILRC $header;
-
-while ($ARGV[0]) {
-  my( $s_machine, $s_username, $s_password ) = splice( @ARGV, 0, 3 );
-  print FETCHMAILRC <<END;
-poll $s_machine
-	user '$s_username' there with password '$s_password' is '$username' here
-END
-}
-
-close FETCHMAILRC;
-
-setgid($gid) or die "can't setgid $gid\n";
-setuid($uid) or die "can't setuid $uid\n";
-$ENV{HOME} = $homedir;
-
-system(qq(fetchmail -a -K --antispam "550,451" -d 180 -f $filename));
-