| 1 | #!/usr/bin/perl |
| 2 | |
| 3 | use strict; |
| 4 | use warnings FATAL => 'all'; |
| 5 | |
| 6 | use constant LOGFILE => '/var/log/rsync-shell.log'; |
| 7 | |
| 8 | my %commands = ( |
| 9 | "backup" => \&backup, |
| 10 | "rsync" => \&rsync, |
| 11 | ); |
| 12 | |
| 13 | sub backup { |
| 14 | exec '/usr/bin/sudo', |
| 15 | '/afs/hcoop.net/common/etc/scripts/hcoop-backup-wrapper'; |
| 16 | } |
| 17 | |
| 18 | sub rsync { |
| 19 | my ($cmdline) = @_; |
| 20 | |
| 21 | if ( $cmdline !~ m!^--server --sender -vre\.iL --bwlimit=325 \. /vicepa/hcoop-backups/files/[0-9]{4}\.[0-9]{2}\.[0-9]{2}$!s ) { |
| 22 | die "Incorrect arguments to rsync.\n"; |
| 23 | } |
| 24 | |
| 25 | exec '/usr/bin/rsync', split(' ', $cmdline) |
| 26 | or die "Could not run rsync command.\n"; |
| 27 | } |
| 28 | |
| 29 | sub main { |
| 30 | -f LOGFILE && open (LOG, '>>', LOGFILE) |
| 31 | or die "Can't open log file.\n"; |
| 32 | |
| 33 | print LOG "Session started on ", `date`; |
| 34 | print LOG "Commands: ", map { "<$_> " } @ARGV; |
| 35 | print LOG "\n"; |
| 36 | |
| 37 | $ARGV[1] =~ /^([^ ]+) *(.*?)$/s; |
| 38 | my $cmd = $commands{$1} |
| 39 | or die "Unsupported command.\n"; |
| 40 | |
| 41 | $cmd->($2); |
| 42 | } |
| 43 | |
| 44 | main() |
| 45 | |