From 98b54de0656122b781c380b756115a49cf607e2f Mon Sep 17 00:00:00 2001 From: joey Date: Sun, 4 Jan 1998 18:17:05 +0000 Subject: [PATCH] mirror --- net/mirror/Makefile | 22 +++++++++++ net/mirror/files/md5 | 1 + net/mirror/patches/patch-aa | 75 +++++++++++++++++++++++++++++++++++ net/mirror/patches/patch-ab | 76 ++++++++++++++++++++++++++++++++++++ net/mirror/patches/patch-ac | 61 +++++++++++++++++++++++++++++ net/mirror/patches/patch-ad | 36 +++++++++++++++++ net/mirror/pkg/COMMENT | 1 + net/mirror/pkg/DESCR | 5 +++ net/mirror/pkg/PLIST | 11 ++++++ net/mirror/scripts/configure | 7 ++++ 10 files changed, 295 insertions(+) create mode 100644 net/mirror/Makefile create mode 100644 net/mirror/files/md5 create mode 100644 net/mirror/patches/patch-aa create mode 100644 net/mirror/patches/patch-ab create mode 100644 net/mirror/patches/patch-ac create mode 100644 net/mirror/patches/patch-ad create mode 100644 net/mirror/pkg/COMMENT create mode 100644 net/mirror/pkg/DESCR create mode 100644 net/mirror/pkg/PLIST create mode 100644 net/mirror/scripts/configure diff --git a/net/mirror/Makefile b/net/mirror/Makefile new file mode 100644 index 00000000000..d6dd152faad --- /dev/null +++ b/net/mirror/Makefile @@ -0,0 +1,22 @@ +# OpenBSD makefile for: mirror +# Version required: 2.8 +# Date created: 4 Dec 1997 +# Whom: ejovi +# +# $OpenBSD: Makefile,v 1.1.1.1 1998/01/04 18:17:05 joey Exp $ +# + +DISTNAME= mirror-2.8 +CATEGORIES= net +MASTER_SITES= ftp://src.doc.ic.ac.uk/computing/archiving/mirror/ + +MAINTAINER= joey@OpenBSD.ORG + +NO_WRKSUBDIR= yes +MAKEFILE= makefile +MAN1= mirror.1 mirrormaster.1 + +pre-install: + ${MKDIR} ${PREFIX}/lib/mirror + +.include diff --git a/net/mirror/files/md5 b/net/mirror/files/md5 new file mode 100644 index 00000000000..382496c7f2c --- /dev/null +++ b/net/mirror/files/md5 @@ -0,0 +1 @@ +MD5 (mirror-2.8.tar.gz) = a0a3ffec4b8e0fd71034cab8a0b1b010 diff --git a/net/mirror/patches/patch-aa b/net/mirror/patches/patch-aa new file mode 100644 index 00000000000..da43444ff3d --- /dev/null +++ b/net/mirror/patches/patch-aa @@ -0,0 +1,75 @@ +*** makefile.orig Thu Jun 1 21:26:26 1995 +--- makefile Sat Mar 16 16:19:59 1996 +*************** +*** 6,12 **** + support/cyber-patches support/lstest.pl new-patches-by + + all: +! echo try make mirror.tar + + mirror.tar: $(FILES) + rev=`./mirror -v | perl -ane 'print "$$F[2]\n";'`; echo $rev; \ +--- 6,12 ---- + support/cyber-patches support/lstest.pl new-patches-by + + all: +! # echo try make mirror.tar + + mirror.tar: $(FILES) + rev=`./mirror -v | perl -ane 'print "$$F[2]\n";'`; echo $rev; \ +*************** +*** 25,50 **** + # mode to install executables + EXMODE = 755 + # group to own all the files +! GRP = gnu + # directory to install .pl (perl library) files +! PLDIR = /usr/local/perl5/lib/perl5 + # directory to install public executables +! BINDIR = /usr/local/sbin + # directory to install man pages +! MANDIR = /usr/local/man/man1 + + install: +! install -m $(PLMODE) -g $(GRP) lchat.pl $(PLDIR) +! install -m $(PLMODE) -g $(GRP) chat2.pl $(PLDIR) +! install -m $(PLMODE) -g $(GRP) dateconv.pl $(PLDIR) +! install -m $(PLMODE) -g $(GRP) ftp.pl $(PLDIR) +! install -m $(PLMODE) -g $(GRP) lsparse.pl $(PLDIR) +! install -m $(EXMODE) -g $(GRP) mirror.pl $(PLDIR) +! install -m $(EXMODE) -g $(GRP) do_unlinks $(BINDIR) +! install -m $(EXMODE) -g $(GRP) pkgs_to_mmin $(BINDIR) +! install -m $(EXMODE) -g $(GRP) mm $(BINDIR)/mirror-master +! install -m $(PLMODE) -g $(GRP) mirror.man $(MANDIR)/mirror.1 +! install -m $(PLMODE) -g $(GRP) mm.man $(MANDIR)/mirror-master.1 + + # directory to install .pl (perl library) files for rperl + RPLDIR = /usr/local/rperl5/lib/perl5 +--- 25,51 ---- + # mode to install executables + EXMODE = 755 + # group to own all the files +! GRP = bin + # directory to install .pl (perl library) files +! PLDIR = ${PREFIX}/lib/mirror + # directory to install public executables +! BINDIR = ${PREFIX}/bin + # directory to install man pages +! MANDIR = ${PREFIX}/man/man1 + + install: +! install -c -m $(PLMODE) -g $(GRP) lchat.pl $(PLDIR) +! # install -c -m $(PLMODE) -g $(GRP) chat2.pl $(PLDIR) +! install -c -m $(PLMODE) -g $(GRP) dateconv.pl $(PLDIR) +! install -c -m $(PLMODE) -g $(GRP) ftp.pl $(PLDIR) +! install -c -m $(PLMODE) -g $(GRP) lsparse.pl $(PLDIR) +! install -c -m $(EXMODE) -g $(GRP) mirror.pl $(BINDIR)/mirror +! install -c -m $(EXMODE) -g $(GRP) do_unlinks $(BINDIR) +! install -c -m $(EXMODE) -g $(GRP) pkgs_to_mmin $(BINDIR) +! install -c -m $(EXMODE) -g $(GRP) mm $(BINDIR)/mirrormaster +! install -c -m $(PLMODE) -g $(GRP) mirror.man $(MANDIR)/mirror.1 +! install -c -m $(PLMODE) -g $(GRP) mm.man $(MANDIR)/mirrormaster.1 +! install -c -m $(PLMODE) -g $(GRP) mirror.defaults $(PLDIR)/mirror.defaults.sample + + # directory to install .pl (perl library) files for rperl + RPLDIR = /usr/local/rperl5/lib/perl5 diff --git a/net/mirror/patches/patch-ab b/net/mirror/patches/patch-ab new file mode 100644 index 00000000000..5eece767c7a --- /dev/null +++ b/net/mirror/patches/patch-ab @@ -0,0 +1,76 @@ +*** mirror.defaults.orig Sat Mar 16 15:42:36 1996 +--- mirror.defaults Sat Mar 16 15:45:41 1996 +*************** +*** 11,37 **** + # The LOCAL hostname - if not the same as `hostname` + # (I advertise the name sunsite.doc.ic.ac.uk but the machine is + # really phoenix.doc.ic.ac.uk.) +! hostname=sunsite.doc.ic.ac.uk + # Keep all local_dirs relative to here +! local_dir=/public/ +! remote_password=ukuug-soft@doc.ic.ac.uk + mail_to= + # Don't mirror file modes. Set all dirs/files to these + dir_mode=0755 + file_mode=0444 +! # By defaults files are owned by root.zero +! user=0 +! group=0 + # # Keep a log file in each updated directory + # update_log=.mirror +! update_log= + # Don't overwrite my mirror log with the remote one. + # Don't pull back any of their mirror temporary files. + # nor any FSP or gopher files... + exclude_patt=(^|/)(\.mirror$|core$|\.cap|\.in\..*\.$|MIRROR\.LOG|#.*#|\.FSP|\.cache|\.zipped|\.notar|\.message|lost\+found/|Network Trash Folder) + # Try to compress everything + compress_patt=. +! compress_prog=compress + # Don't compress information files, files that don't benifit from + # being compressed, files that tell ftpd, gopher, wais... to do things, + # the sources for compression programs... +--- 11,37 ---- + # The LOCAL hostname - if not the same as `hostname` + # (I advertise the name sunsite.doc.ic.ac.uk but the machine is + # really phoenix.doc.ic.ac.uk.) +! # hostname=sunsite.doc.ic.ac.uk + # Keep all local_dirs relative to here +! local_dir=/home/ftp/pub +! # remote_password=ukuug-soft@doc.ic.ac.uk + mail_to= + # Don't mirror file modes. Set all dirs/files to these + dir_mode=0755 + file_mode=0444 +! # By defaults files are owned by root.wheel +! # user=0 +! # group=0 + # # Keep a log file in each updated directory + # update_log=.mirror +! # update_log= + # Don't overwrite my mirror log with the remote one. + # Don't pull back any of their mirror temporary files. + # nor any FSP or gopher files... + exclude_patt=(^|/)(\.mirror$|core$|\.cap|\.in\..*\.$|MIRROR\.LOG|#.*#|\.FSP|\.cache|\.zipped|\.notar|\.message|lost\+found/|Network Trash Folder) + # Try to compress everything + compress_patt=. +! compress_prog=gzip + # Don't compress information files, files that don't benifit from + # being compressed, files that tell ftpd, gopher, wais... to do things, + # the sources for compression programs... +*************** +*** 44,50 **** + # shk is multimedia? used on apple2s. + compress_excl+|-z(\d+)?$|\.tgz|_tgz|\.tar\.Z|\.tar\.gz|\.taz$|\.arc$|\.zip$|\.lzh$|\.zoo$|\.exe$|\.lha$|\.zom$|\.gif$|\.jpeg$|\.jpg$|\.mpeg$|\.au$|\.shk$|read.*me|index|info|faq|gzip|compress|(^|/)\.\.?$ + # Don't delete own mirror log, .notar or .cache files (incl in subdirs) +! # delete_excl=(^|/)\.(mirror|notar|cache)$ + # Ignore any local readme and .mirror files + local_ignore=README.doc.ic|(^|/)\.(mirror|notar)$ + # Automatically delete local copies of files that the +--- 44,50 ---- + # shk is multimedia? used on apple2s. + compress_excl+|-z(\d+)?$|\.tgz|_tgz|\.tar\.Z|\.tar\.gz|\.taz$|\.arc$|\.zip$|\.lzh$|\.zoo$|\.exe$|\.lha$|\.zom$|\.gif$|\.jpeg$|\.jpg$|\.mpeg$|\.au$|\.shk$|read.*me|index|info|faq|gzip|compress|(^|/)\.\.?$ + # Don't delete own mirror log, .notar or .cache files (incl in subdirs) +! delete_excl=(^|/)\.(mirror|notar|cache)$ + # Ignore any local readme and .mirror files + local_ignore=README.doc.ic|(^|/)\.(mirror|notar)$ + # Automatically delete local copies of files that the diff --git a/net/mirror/patches/patch-ac b/net/mirror/patches/patch-ac new file mode 100644 index 00000000000..427f851fb0e --- /dev/null +++ b/net/mirror/patches/patch-ac @@ -0,0 +1,61 @@ +*** mirror.pl.orig Sat Mar 16 15:46:09 1996 +--- mirror.pl Sat Mar 16 15:51:49 1996 +*************** +*** 75,81 **** + + # Try to find the default localation of various programs via + # the users PATH then using $extra_path +! $extra_path = '/usr/local/bin:/usr/new/bin:/usr/public/bin:/usr/ucb:/usr/bin:/bin:/etc:/usr/etc:/usr/local/etc'; + $ENV{ 'PATH' } .= ':' . $extra_path; + + &trap_signals(); +--- 75,81 ---- + + # Try to find the default localation of various programs via + # the users PATH then using $extra_path +! $extra_path = '/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin'; + $ENV{ 'PATH' } .= ':' . $extra_path; + + &trap_signals(); +*************** +*** 128,146 **** + $rm_prog = &find_prog( 'rm' ); + + # Generate checksums +! $sum_prog = &find_prog( 'sum' ); + + # SPECIAL NOTE: This is eval'd, so DONT put double-quotes (") in it. + # You can get local variables to appear as in the second example: +! $mail_subject = '-s \'mirror update\''; +! # $mail_subject = ' -s \'mirror update of $package\''; + + # When scanning the local directory, how often to prod the remote + # system to keep the connection alive + $prod_interval = 60; + + # Put the directory that mirror is actually in at the start of PERLLIB. +! $dir = &real_dir_from_path( $0 ); + unshift( @INC, $dir ); + + # Make sure that your PERLLIB environment variable can get you +--- 128,147 ---- + $rm_prog = &find_prog( 'rm' ); + + # Generate checksums +! $sum_prog = &find_prog( 'md5' ); + + # SPECIAL NOTE: This is eval'd, so DONT put double-quotes (") in it. + # You can get local variables to appear as in the second example: +! # $mail_subject = '-s \'mirror update\''; +! $mail_subject = ' -s \'mirror update of $package\''; + + # When scanning the local directory, how often to prod the remote + # system to keep the connection alive + $prod_interval = 60; + + # Put the directory that mirror is actually in at the start of PERLLIB. +! # $dir = &real_dir_from_path( $0 ); +! $dir = "!!PREFIX!!/lib/mirror"; + unshift( @INC, $dir ); + + # Make sure that your PERLLIB environment variable can get you diff --git a/net/mirror/patches/patch-ad b/net/mirror/patches/patch-ad new file mode 100644 index 00000000000..5ac74eb07ea --- /dev/null +++ b/net/mirror/patches/patch-ad @@ -0,0 +1,36 @@ +*** mirror.pl.orig Sat Aug 10 12:28:16 1996 +--- mirror.pl Sat Aug 10 12:28:54 1996 +*************** +*** 3228,3234 **** + + &msg( "creating assocs ...\n" ) if $debug > 2; + foreach $map ( @assocs ){ +! eval "\$$map = \"\$big_tmp/$map.$$\""; + eval "dbmopen( $map, \$$map, 0644 )"; + } + &msg( "creating assocs done\n" ) if $debug > 2; +--- 3228,3234 ---- + + &msg( "creating assocs ...\n" ) if $debug > 2; + foreach $map ( @assocs ){ +! eval "\$$map = \"\$big_temp/$map.$$\""; + eval "dbmopen( $map, \$$map, 0644 )"; + } + &msg( "creating assocs done\n" ) if $debug > 2; +*************** +*** 3240,3246 **** + + &msg( "deleting assocs ...\n" ) if $debug > 2; + foreach $map ( @assocs ){ +! eval "\$$map = \"\$big_tmp/$map.$$\""; + eval "dbmclose( $map )"; + &unlink_dbm( eval "\$$map" ); + eval "\%$map = ()"; +--- 3240,3246 ---- + + &msg( "deleting assocs ...\n" ) if $debug > 2; + foreach $map ( @assocs ){ +! eval "\$$map = \"\$big_temp/$map.$$\""; + eval "dbmclose( $map )"; + &unlink_dbm( eval "\$$map" ); + eval "\%$map = ()"; diff --git a/net/mirror/pkg/COMMENT b/net/mirror/pkg/COMMENT new file mode 100644 index 00000000000..96ae71ccb59 --- /dev/null +++ b/net/mirror/pkg/COMMENT @@ -0,0 +1 @@ +Mirror packages on remote sites. diff --git a/net/mirror/pkg/DESCR b/net/mirror/pkg/DESCR new file mode 100644 index 00000000000..7392d28afd7 --- /dev/null +++ b/net/mirror/pkg/DESCR @@ -0,0 +1,5 @@ +Mirror is a package written in Perl that uses the ftp protocol to +duplicate a directory hierarchy between the machine it is run on and a +remote host. It avoids copying files unnecessarily by comparing the +file timestamps and sizes before transfering. Amongst other things +can optionally compress, gzip, and split files. diff --git a/net/mirror/pkg/PLIST b/net/mirror/pkg/PLIST new file mode 100644 index 00000000000..3673f7ebedf --- /dev/null +++ b/net/mirror/pkg/PLIST @@ -0,0 +1,11 @@ +bin/mirror +bin/do_unlinks +bin/pkgs_to_mmin +bin/mirrormaster +lib/mirror/lchat.pl +lib/mirror/dateconv.pl +lib/mirror/ftp.pl +lib/mirror/lsparse.pl +lib/mirror/mirror.defaults.sample +man/man1/mirror.1.gz +man/man1/mirrormaster.1.gz diff --git a/net/mirror/scripts/configure b/net/mirror/scripts/configure new file mode 100644 index 00000000000..7702f3eead4 --- /dev/null +++ b/net/mirror/scripts/configure @@ -0,0 +1,7 @@ +#!/bin/sh +# +# $Id: configure,v 1.1.1.1 1998/01/04 18:17:06 joey Exp $ +# + +mv ${WRKSRC}/mirror.pl ${WRKSRC}/mirror.pl.bak +sed <${WRKSRC}/mirror.pl.bak >${WRKSRC}/mirror.pl s+!!PREFIX!!+$PREFIX+g