cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

mirror

Browse Source
This commit is contained in:
joey 1998-01-04 18:17:05 +00:00
parent a4760ec68d
commit 98b54de065
10 changed files with 295 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
net/mirror/Makefile Normal file
View File

@ -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 <bsd.port.mk>

1
net/mirror/files/md5 Normal file
View File

@ -0,0 +1 @@
MD5 (mirror-2.8.tar.gz) = a0a3ffec4b8e0fd71034cab8a0b1b010

75
net/mirror/patches/patch-aa Normal file
View File

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

76
net/mirror/patches/patch-ab Normal file
View File

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

61
net/mirror/patches/patch-ac Normal file
View File

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

36
net/mirror/patches/patch-ad Normal file
View File

@ -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 = ()";

1
net/mirror/pkg/COMMENT Normal file
View File

@ -0,0 +1 @@
Mirror packages on remote sites.

5
net/mirror/pkg/DESCR Normal file
View File

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

11
net/mirror/pkg/PLIST Normal file
View File

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

7
net/mirror/scripts/configure vendored Normal file
View File

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