Remove getfetchmail*, outdated.

diff --git a/contrib/README b/contrib/README
index f33fc7d32e0c29e9559b6ee1f58363d17e8cf132..da849827020247fe3e74cc813e68f2cea3a6125d 100644 (file)
--- a/contrib/README
+++ b/contrib/README
@@ -88,22 +88,6 @@ dynamic PPP addressing.  Will need some customizing.
 
        http://www.inetarena.com/~badams/linux/programs/mailqueue.pl
 
-### getfetchmail:
-
-Here's a script that gets Eric's most recent fetchmail source rpm,
-downloads it and (if the rpm's not broken) rebuilds it.
-
-With fairly simple changes it can be used to download the latest i386 rpm
-or tar.gz.
-
-Those who are addicted to having the latest of everything could filter mail
-from fetchmail announce through it and get new versions as they're
-announced. However, if we all did that, Eric's ftp server might feel a
-little stressed.
-
-The script as written works on bash 2.  By John Summerfield
-<summer@os2.ami.com.au>.
-
 ### zsh-completion:
 
 These commands set up command completion for fetchmail under zsh.

diff --git a/contrib/getfetchmail b/contrib/getfetchmail
deleted file mode 100644 (file)
index bcac9d3..0000000
--- a/contrib/getfetchmail
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/bin/bash 
-RH=ftp.ccil.org
-p=`\
-echo dir /pub/esr/fetchmail/f\*src.rpm \
-   | ftp $RH \
-   | grep /pub/esr/fetchmail/fetchmail-[45] \
-   | tail -1`
-#p='-rw-r--r-- 1 23 wheel 478424 Dec 18 03:54 /pub/esr/fetchmail/fetchmail-4.7.1-1.src.rpm'
-#echo $p | sed -e "s=^.^/pub=pub="
-p1=`echo $p | sed -e "s=^.*/pub=pub="`
-#echo $p1
-#basename  $p1
-#dirname $p1
-d=`dirname $p1`
-f=`basename $p1`
-cd /work/incoming
-email=$LOGNAME\@`hostname`
-ftp -n <<ZZ
-open $RH
-user anonymous $email
-cd /$d
-get $f
-bye
-ZZ
-rpm -K $f >/dev/null 2>&1 \
-   || {
-         rpm -K $f 2>&1 | mail $email -s "error getting $f"
-         exit 
-      }
-rpm --rebuild  $f 2>&1 |\
-   mail $email -s "Rebuilding $f"

diff --git a/contrib/getfetchmail.pl b/contrib/getfetchmail.pl
deleted file mode 100644 (file)
index 45bd3c6..0000000
--- a/contrib/getfetchmail.pl
+++ /dev/null
@@ -1,61 +0,0 @@
-#!/usr/bin/perl -w
-# Copyright 2001 John Summerfield, summer@summer.ami.com.au
-# GPL 2 applies.
-#
-($flags, $links, $owner, $gowner, $size, $month, $day, $timeOrDate, $name, $junk, $junk2, $junk1) ='';
-$RemoteHost="ftp.ccil.org";
-$LocalDir="/home/u03/incoming/";
-$FilePattern="/pub/esr/fetchmail/fetchmail\*src.rpm";
-$GrepArgs="fetchmail-[5-9]";
-$no=0;
-$TempFile=`mktemp /var/tmp/getfetchmail.XXXXXX`;
-@files=`echo dir $FilePattern | ftp $RemoteHost  | egrep $GrepArgs`;
-chomp @files;
-open(FTP, "| ftp -d -v $RemoteHost | egrep '^213|MDTM'  >$TempFile");
-foreach $L (@files)
-{
-       ++$no;
-       $L =~ s/  */,/g;
-       ($flags, $links, $owner, $gowner, $size, $month, $day, $timeOrDate, $name, $junk) = split /,/,$L;
-       next unless substr($timeOrDate,2,1) eq ':';
-       print FTP "modtime $name\n";
-#      last if $no > 4;
-}
-close FTP;
-
-$SavedTime=0;
-$time=1;
-$SavedName='';
-open (FILES,$TempFile);
-while ($rec = <FILES>)
-{
-       chomp $rec;
-       ($junk1, $junk2, $filename) = split / /,$rec if substr($rec,0,4) eq '--->';
-       $time = substr($rec,4) if substr($rec,0,3) eq '213';
-       if (($time > $SavedTime) && (substr($rec,0,3) eq '213'))
-       {
-               $SavedTime=$time;
-               $SavedName=$filename;
-       }
-}
-close FILES;
-$LocalName = $SavedName; $LocalName =~ s=.*/==;
-$LocalName = $LocalDir . $LocalName;
-$Y=substr($SavedTime,0,4);
-$M=substr($SavedTime,4,2);
-$D=substr($SavedTime,6,2);
-$h=substr($SavedTime,8,2);
-$m=substr($SavedTime,10,2);
-$s=substr($SavedTime,12,2);
-print "I should get $SavedName and store it in $LocalName\n";
-open(SH,"|/bin/bash");
-print SH <<zz
-set -x
-echo get $SavedName $LocalName \| ftp $RemoteHost 
-rpm -K $LocalName \|\| exit $?
-touch -t $Y$M$D$h$m.$s  $LocalName
-rpm --rebuild $LocalName
-zz
-;
-close SH;
-