Browse files

introduce FindBin; remove unused variable $Id

  • Loading branch information...
1 parent cfa755d commit 411ecea5d74d43b086e2a8d1fd417d741f6611ce Andreas Koenig committed Jan 3, 2013
Showing with 38 additions and 6 deletions.
  1. +1 −1 MANIFEST
  2. +3 −5 bin/mirrormail.pl
  3. +34 −0 mirror/mirror.defaults-pause-us
View
2 MANIFEST
@@ -23,7 +23,7 @@ cron/restart-httpd
cron/rm_stale_links
cron/run_mirrors.sh
cron/svn-dump.pl
-cron/sync-04pause.sh
+cron/sync-04pause.pl
cron/sync-incoming.sh
cron/update-checksums.pl
doc/authen_pause.schema.txt
View
8 bin/mirrormail.pl
@@ -14,14 +14,12 @@ package (e.g. MUIR) on STDIN. mirror is started by cron/run_mirrors.sh
=cut
-use lib "/home/k/PAUSE/lib";
+use FindBin;
+use lib "$FindBin::Bin/../lib";
use PAUSE ();
use strict;
use Mail::Send;
use DBI;
-use vars qw($Id);
-
-$Id = q$Id$;
my $subject;
my $do_send = 0; # not for symlinks only
@@ -45,7 +43,7 @@ package (e.g. MUIR) on STDIN. mirror is started by cron/run_mirrors.sh
Please complain if it is not appropriate for some reason.
Thanks,
-$Id\n\n";
+\n\n";
for my $line (split /\n/, $stdin) {
if ( $line =~ m{
View
34 mirror/mirror.defaults-pause-us
@@ -0,0 +1,34 @@
+
+package=defaults
+ compress_excl+|\.sig|\.html$|^\.notar$|-z|\.tgz$|\.taz$|\.tar.Z|\.arc$|\.zip$|\.lzh$|\.zoo$|\.exe$|\.lha$|\.zom$|\.gif$|\.jpeg$|\.jpg$|\.mpeg$|\.au$|read.*me|index|\.message|info|faq|gzip|compress|\.png$|(^|/)\.\.?$
+ compress_patt=.
+ compress_prog=gzip
+ delete_excl=((^|/)\.(mirror|notar)|\.meta)$
+ mode_copy=false
+ dir_mode=0755
+ do_deletes=true
+ exclude_patt=(^|/)(\.mirror|core$|\.cap|\.in\..*\.$|MIRROR.LOG|#.*#|\.FSP|\.cache|\.zipped|\.notar|\.message|lost+found/|.*[~ ])
+ file_mode=0644
+# follow_local_symlinks=.
+# from jost krieger:
+ get_newer=yes
+# from jost krieger:
+ get_size_change=yes
+ group=0
+ hostname=pause.perl.org
+ local_dir=/home/ftp/pub/PAUSE/
+ local_ignore=.*(readme|CHECKSUMS)$
+ mail_prog=/home/puppet/pause/bin/mirrormail.pl
+ mail_to=k
+ max_days=60
+ max_delete_files=50%
+ max_delete_dirs=50%
+ name_mappings=s:\.\./:__/:g
+ remote_password=k@pause.perl.org
+ update_log=
+ user=0
+# passive_ftp=true
+# trying with squid...NOPE
+# proxy=true
+# proxy_ftp_port=3128
+# proxy_gateway=localhost

0 comments on commit 411ecea

Please sign in to comment.