head	1.9;
access;
symbols
	RELEASE_8_3_0:1.9
	RELEASE_9_0_0:1.9
	RELEASE_7_4_0:1.7
	RELEASE_8_2_0:1.7
	RELEASE_6_EOL:1.7
	RELEASE_8_1_0:1.7
	RELEASE_7_3_0:1.7
	RELEASE_8_0_0:1.7
	RELEASE_7_2_0:1.7
	RELEASE_7_1_0:1.7
	RELEASE_6_4_0:1.7
	RELEASE_5_EOL:1.7
	RELEASE_7_0_0:1.7
	RELEASE_6_3_0:1.7
	PRE_XORG_7:1.7
	RELEASE_4_EOL:1.7
	RELEASE_6_2_0:1.7
	RELEASE_6_1_0:1.7
	RELEASE_5_5_0:1.7
	RELEASE_6_0_0:1.7
	RELEASE_5_4_0:1.7
	RELEASE_4_11_0:1.7
	RELEASE_5_3_0:1.7
	RELEASE_4_10_0:1.6
	RELEASE_5_2_1:1.6
	RELEASE_5_2_0:1.6
	RELEASE_4_9_0:1.6
	RELEASE_5_1_0:1.6
	RELEASE_4_8_0:1.6
	RELEASE_5_0_0:1.6
	RELEASE_4_7_0:1.6
	RELEASE_4_6_2:1.6
	RELEASE_4_6_1:1.6
	RELEASE_4_6_0:1.6
	RELEASE_5_0_DP1:1.6
	RELEASE_4_5_0:1.6
	RELEASE_4_4_0:1.6
	RELEASE_4_3_0:1.6
	RELEASE_4_2_0:1.6
	RELEASE_4_1_1:1.6
	RELEASE_4_1_0:1.6
	RELEASE_3_5_0:1.6
	RELEASE_4_0_0:1.6
	RELEASE_3_4_0:1.6
	RELEASE_3_3_0:1.6
	RELEASE_3_2_0:1.5
	RELEASE_3_1_0:1.5
	RELEASE_2_2_8:1.5
	RELEASE_3_0_0:1.5
	RELEASE_2_2_7:1.5
	RELEASE_2_2_6:1.4
	RELEASE_2_2_5:1.4
	RELEASE_2_2_1:1.4
	RELEASE_2_2_2:1.4
	mirror_2_3:1.1.1.1
	mirror:1.1.1;
locks; strict;
comment	@# @;


1.9
date	2011.07.18.07.03.14;	author cy;	state Exp;
branches;
next	1.8;

1.8
date	2011.05.02.09.11.32;	author bapt;	state dead;
branches;
next	1.7;

1.7
date	2004.06.01.14.28.36;	author pav;	state Exp;
branches;
next	1.6;

1.6
date	99.09.10.11.45.21;	author torstenb;	state Exp;
branches;
next	1.5;

1.5
date	98.06.08.12.41.13;	author torstenb;	state Exp;
branches;
next	1.4;

1.4
date	96.04.26.21.59.41;	author torstenb;	state Exp;
branches;
next	1.3;

1.3
date	96.03.16.15.29.47;	author torstenb;	state Exp;
branches;
next	1.2;

1.2
date	95.06.15.17.31.25;	author torstenb;	state Exp;
branches;
next	1.1;

1.1
date	95.05.19.07.23.14;	author asami;	state Exp;
branches
	1.1.1.1;
next	;

1.1.1.1
date	95.05.19.07.23.14;	author asami;	state Exp;
branches;
next	;


desc
@@


1.9
log
@Resurrect this port. Adjust master sites and assume maintainership.
@
text
@--- mirror.pl.orig	Mon Jun  8 12:55:27 1998
+++ mirror.pl	Tue Jun  1 16:24:17 2004
@@@@ -104,7 +104,7 @@@@
 # Try to find the default location of various programs via
 # the users PATH then using $extra_path
 if( ! $on_win ){
-	$extra_path = '/usr/local/bin:/usr/new/bin:/usr/public/bin:/usr/ucb:/usr/bin:/bin:/etc:/usr/etc:/usr/local/etc';
+	$extra_path = '/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin';
 }
 if( $extra_path ne '' ){
 	$ENV{ 'PATH' } .= $path_sep . $extra_path;
@@@@ -159,19 +159,20 @@@@
 $rm_prog = &find_prog( 'rm' );
 
 # Generate checksums
-$sum_prog = &find_prog( 'sum' );
+$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\'';
+# $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 = &real_dir_from_path( $0 );
+$dir = "/usr/local/lib/mirror";
 unshift( @@INC, $dir );
 
 # Debian GNU/Linux stores mirror.defaults in /etc/mirror
@@@@ -1322,8 +1323,11 @@@@
 
 		# Create a get_patt from the contents of the local directory
 		if( $update_local && $#get_top >= 0 ){
-			$get_patt = '^' . join( '|^', @@get_top );
-			$get_patt =~ s/$squished//g;
+			my ($path,$re,@@re_patt);
+			#$get_patt = '^' . join( '|^', @@get_top );
+			#$get_patt =~ s/$squished//g;
+			foreach $path ( @@get_top ) { push @@re_patt, "\^\Q$path\E\$"; }
+			$get_patt= join( '|', @@re_patt );
 			&msg( "get_patt = $get_patt\n" ) if $debug;
 		}
 	
@


1.8
log
@Remove unmaintained expired ports from ftp

2011-05-01 ftp/axyftp: Upstream disapear and distfile is no more available
2011-05-01 ftp/emacs-wget: Upstream disapear and distfile is no more available
2011-05-01 ftp/llnlxdir: Upstream disapear and distfile is no more available
2011-05-01 ftp/llnlxftp: Upstream disapear and distfile is no more available
2011-05-01 ftp/mirror: Upstream disapear and distfile is no more available
2011-05-01 ftp/moftpd: Upstream disapear and distfile is no more available
2011-05-01 ftp/wu-ftpd: Upstream disapear and distfile is no more available
2011-05-01 ftp/xrmftp: Upstream disapear and distfile is no more available
2011-05-01 ftp/yale-tftpd: Upstream disapear and distfile is no more available
@
text
@@


1.7
log
@- Fix handling of files with '$' sign in name

PR:		ports/67445
Submitted by:	Dmitry A Grigorovich <odip@@bionet.nsc.ru>
Approved by:	maintainer
@
text
@@


1.6
log
@Fix some paths
@
text
@d1 50
a50 61
*** mirror.pl.orig	Mon Jun  8 12:55:27 1998
--- mirror.pl	Fri Sep 10 10:41:25 1999
***************
*** 104,110 ****
  # Try to find the default location of various programs via
  # the users PATH then using $extra_path
  if( ! $on_win ){
! 	$extra_path = '/usr/local/bin:/usr/new/bin:/usr/public/bin:/usr/ucb:/usr/bin:/bin:/etc:/usr/etc:/usr/local/etc';
  }
  if( $extra_path ne '' ){
  	$ENV{ 'PATH' } .= $path_sep . $extra_path;
--- 104,110 ----
  # Try to find the default location of various programs via
  # the users PATH then using $extra_path
  if( ! $on_win ){
! 	$extra_path = '/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin';
  }
  if( $extra_path ne '' ){
  	$ENV{ 'PATH' } .= $path_sep . $extra_path;
***************
*** 159,177 ****
  $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 );
  
  # Debian GNU/Linux stores mirror.defaults in /etc/mirror
--- 159,178 ----
  $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 = "/usr/local/lib/mirror";
  unshift( @@INC, $dir );
  
  # Debian GNU/Linux stores mirror.defaults in /etc/mirror
@


1.5
log
@- Upgrade to 2.9
- Use perl5
@
text
@d1 2
a2 13
*** mirror.pl.orig	Fri May 29 21:01:42 1998
--- mirror.pl	Mon Jun  8 14:36:52 1998
***************
*** 1,4 ****
! #!/usr/bin/perl
  # Make local directories mirror images of a remote sites
  #
  #
--- 1,4 ----
! #!/usr/local/bin/perl5
  # Make local directories mirror images of a remote sites
  #
  #
@


1.4
log
@Fix a typo which prevents mirro from running properly (division by zero error)

Submitted by:	Mike Peck <mike@@binghamton.edu>
@
text
@d1 2
a2 2
*** mirror.pl.orig	Sat Mar 16 15:46:09 1996
--- mirror.pl	Sat Mar 16 15:51:49 1996
d4 13
a16 3
*** 75,81 ****
  
  # Try to find the default localation of various programs via
d18 7
a24 7
! $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
d26 5
a30 4
! $extra_path = '/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin';
  $ENV{ 'PATH' } .= ':' . $extra_path;
  
  &trap_signals();
d32 1
a32 1
*** 128,146 ****
d51 2
a52 2
  # Make sure that your PERLLIB environment variable can get you
--- 128,147 ----
d69 1
a69 1
! $dir = "!!PREFIX!!/lib/mirror";
d72 1
a72 1
  # Make sure that your PERLLIB environment variable can get you
@


1.3
log
@upgrade to V2.8
@
text
@d58 1
a58 1
! $dir = "!!PREFIX!!"/lib/mirror";
@


1.2
log
@This patch to mirror allows you to specify a "account" too. This
is used by some mainframe FTP's and other bogous machinery.

Submitted by:	phk
@
text
@d1 2
a2 2
*** mirror.pl.orig	Thu Jun 15 19:15:46 1995
--- mirror.pl	Thu Jun 15 19:15:26 1995
d4 1
a4 1
*** 42,48 ****
d8 1
a8 1
! $extra_path = '/usr/local/bin:/usr/new/bin:/usr/public/bin:/usr/ucb:/usr/bin:/bin:/etc:/usr/etc:/usr/local/etc:';
d11 2
a12 2
  # If compressing a local file to send need somewhere to store the temp
--- 42,48 ----
d16 1
a16 1
! $extra_path = '/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:';
d19 1
a19 1
  # If compressing a local file to send need somewhere to store the temp
d21 1
a21 1
*** 90,108 ****
d41 1
a41 1
--- 90,109 ----
d57 2
a58 2
! #$dir = &real_dir_from_path( $0 );
! $dir = "!!PREFIX!!/lib/mirror";
a61 27
***************
*** 156,161 ****
--- 157,163 ----
  $default{ 'local_dir' } = '';	# local directory to copy into
  $default{ 'remote_user' } = 'anonymous';  # the remote guest account name
  $default{ 'remote_password' } = "$me@@$hostname";
+ $default{ 'remote_acct' } = '';
  $default{ 'get_patt' } = ".";	# regex of pathnames to retrieve
  $default{ 'exclude_patt' } = ''; # regex of pathnames to ignore
  $default{ 'update_local' } = 0;	# Don't just update local dirs
***************
*** 1022,1028 ****
  	if( $con == 1 ){
  		&msg( "login as $remote_user\n" ) if $debug > 1;
  		$curr_remote_user = $remote_user;
! 		if( ! &ftp'login( $remote_user, $remote_password ) ){
  			&msg( "Cannot login, skipping package\n" );
  			&disconnect();
  			&msg( "\n" );
--- 1024,1030 ----
  	if( $con == 1 ){
  		&msg( "login as $remote_user\n" ) if $debug > 1;
  		$curr_remote_user = $remote_user;
! 		if( ! &ftp'login( $remote_user, $remote_password, $remote_acct ) ){
  			&msg( "Cannot login, skipping package\n" );
  			&disconnect();
  			&msg( "\n" );
@


1.1
log
@Initial revision
@
text
@d1 2
a2 2
*** mirror.pl.orig	Mon May 15 16:50:06 1995
--- mirror.pl	Mon May 15 17:43:06 1995
d62 27
@


1.1.1.1
log
@mirror - mirror packages on remote sites
Submitted by:	torstenb@@ramsey.saar.de (Torsten Blum)
@
text
@@
