Here is the first Perl script I've tried to write to run rsync. It seems to
work, but I don't see the progress like I should. I apologize if it's
sloppy, I should add that it's not only the first perl script I've written
for rsync, it's the first perl script I've written at all.
___________________________
#!/usr/bin/perl -w
print "
This command will DELETE EVERYTHING in Remote~/Research
UNLESS it is also found in Local~/Research.
Do you really wish to do this?
[N/yes]: ";
$answer = <STDIN>;
chomp $answer;
if ( $answer eq "yes" ) {
print "\nOK, here we go.\n";
`rsync -auvz --progress --delete -e ssh
Remote:/home/user/rsync-testing /home/user`
}
else {
print "\nabort mission\n";
}
____________________________
Thanks for the help.
-Rob
--
To unsubscribe or change options: http://lists.samba.org/mailman/listinfo/rsync
Before posting, read: http://www.tuxedo.org/~esr/faqs/smart-questions.html
