blob: 184a1905f9be4e08be781e9e0d1ef786e43cca8e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
*** 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
#
#
***************
*** 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
|