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
|
# makepm.PL -- Builds Rsync.pm from Rsync.in. -*- perl -*-
#sub find_rsync {
# my @dirs = map { s/^$/./; $_ } split (':', $ENV{PATH});
# push (@dirs, qw(/usr/local/bin /usr/bin /opt/bin));
# for my $dir (@dirs) {
# next unless -d $dir;
# next unless -x "$dir/rsync";
# return "$dir/rsync";
# }
#}
#$|=1;
#$RSYNC=&find_rsync;
#print <<'EOT';
#
#File::Rsync needs to know the path to the rsync binary. This path is encoded
#in the installed module as the default path to rsync (it can be overridden
#at runtime). Please enter the full path to the rsync program or just hit
#Enter if the guess is correct. (If you always want the module to depend on
#the $PATH environment variable at runtime, just set the path to 'rsync'
#(this is not recommended)).
#
#EOT
#$RSYNC||='/usr/local/bin/rsync';
#print "Path to rsync [$RSYNC]: ";
#my $ans=<STDIN>;
#chomp $ans;
#$RSYNC=$ans || $RSYNC;
#$RSYNC=~s/\\/\\\\/g;
#$RSYNC=~s/\'/\\\'/g;
#hardcode for non-interactive build
$RSYNC = '/usr/bin/rsync';
open IN,'config.in' or die "Cannot read config.in: $!\n";
open OUT,'>config.pm' or die "Cannot write config.pm: $!\n";
while (<IN>) {
if (/^(\s*rsync_path\s*=>)/) { print OUT "$1 '$RSYNC',\n" }
else { print OUT }
}
close IN;
close OUT;
|