WebSVN – zfs_utils – Diff – /trunk/replication/sync.sample

    my $subject = shift;
    push @_, "Shutting down" if $configuration->{'shutdown'};
    &sendMail( join( "\n", @_), $configuration, $subject );
    # do not actually shut down the server unless we are told to
    exit unless $configuration->{'shutdown'};
-   &runCommand( "poweroff" ) unless $configuration->{'testing'};
    die "Shutting down machine now\n";
+   &runCommand( "poweroff" ) unless $configuration->{'testing'};
+}
 # returns the current time as a string
 sub currentTime {
    my $format = shift;
    $format = '%Y-%m-%d %H-%M-%S' unless $format;
    use POSIX;
    return POSIX::strftime( $format, localtime() );
+}
+# verify a remote machine is up and running
 sub checkRemoteUp {
    my $configuration = shift;
    my $ip;
    if ( defined( $configuration->{'target'}->{'server'} ) && $configuration->{'target'}->{'server'} ) {
       $ip = $configuration->{'target'}->{'server'};
    } else {
       $ip = $configuration->{'source'}->{'server'};
+   }
    my ($error, $message ) =  $ip ? &runCommand( "ping -c 1 -t 5 $ip" ) : (0,'No address defined for either target or server' );
-   $message = "Checking IP $ip\n"  . $message;
+#   $message = "Checking IP $ip\n"  . $message;
    #die "error is $error, message is $message for $ip\n";
    return ($error, $message);
+}
 my @status;
 # die Dumper( $configuration ) . "\n";
 my $servername = `hostname`;
 chomp $servername;
+push @status, "Replication on $servername has been started at " . &currentTime();
 &sendMail( "Replication on $servername has been started, " . &currentTime(), $configuration, "Replication on $servername started" );
 # see if remote machine is up by sending one ping. Expect response in 5 seconds
 ( $error,$output) = &checkRemoteUp( $configuration );
 $configuration->{'up'} = ! $error;
 push @status, "remote machine is " . ( $configuration->{'up'} ? 'Up' : 'Down' ) . "\n";
 # we can not connect to the remote server, so just shut down
 &shutdownMachine( $configuration, "No connection to remote machine", @status ) unless $configuration->{'up'};
 # check for maintenance flags, exit if we should go into mainteance mode
 if ( my $result = &checkMaintenance( $configuration ) ) {
    push @status,$result;
    &sendMail( join( "\n", @status), $configuration, "Maintenance Mode" );
    die;
    push @status, $error;
    &shutdownMachine( $configuration, "Mount Drive Error: [$output]", @status );
+}
 &sendMail( "Backup has been started at " . &currentTime(), $configuration, "Backup Starting" );
-push @status, "Backup started at: " . &currentTime();
+push @status, &currentTime() . ' Backup started';
 $configuration->{'source'}->{'server'} = $configuration->{'source'}->{'server'} ? $configuration->{'source'}->{'server'} . ':' : '';
 $configuration->{'target'}->{'server'} = $configuration->{'target'}->{'server'} ? $configuration->{'target'}->{'server'} . ':' : '';
+my @flags;
+push @flags, '--dryrun' if $configuration->{'dryrun'};
+push @flags, '--recurse' if $configuration->{'recurse'};
+push @flags, '--verbose' if $configuration->{'verbose'};
+push @flags, '--verbose' if $configuration->{'verbose'} > 1;
+push @flags, "--bwlimit=$configuration->{bandwidth}" if $configuration->{'bandwidt'};
+push @flags, "--filter='$configuration->{filter}'" if $configuration->{'filter'};
 # For each dataset, let's find the snapshots we need
 foreach my $sourceDir ( keys %{$configuration->{'source'}->{'dataset'}} ) {
-   print "Looking for $sourceDir\n";
+   print "Looking for $sourceDir\n" if $configuration->{'testing'} > 2;
-   print "syncing to $configuration->{target}->{targetDataset}\n";
+   print "syncing to $configuration->{target}->{dataset}\n" if $configuration->{'testing'} > 2;
-   my $command = $replicateScript . ' ' .
+   my $command = $replicateScript . ' ' . join( ' ', @flags ) . ' ' .
+                 '--source=' .
                  $configuration->{'source'}->{'server'} .
                  $configuration->{'source'}->{'dataset'}->{$sourceDir} . '/' . $sourceDir . ' ' .
+                 '--target=' .
                  $configuration->{'target'}->{'server'} .
-                 $configuration->{'target'}->{'targetDataset'} . '/' . $sourceDir;
+                 $configuration->{'target'}->{'dataset'} . '/' . $sourceDir;
-   push @status, "=== Running $command at " . &currentTime();
+   push @status, &currentTime() . " Running $command";
+   if ( ! $configuration->{'testing'} ) {
-   ($error, $output) = &runCommand( $command ) unless $configuration->{'testing'};
+      ($error, $output) = &runCommand( $command );
-   push @status, $output;
+      push @status, $output;
+   }
-   push @status, "=== Completed $command with status $error at " . &currentTime();
+   push @status, &currentTime() . " Completed command, with status $error";
+}
-push @status, "==== Backup finished at: " . &currentTime();
+push @status, &currentTime() . ' Backup finished';
 if ($configuration->{'testing'}) {
    print join( "\n", @status ) . "\n";
 } else {
    &shutdownMachine( $configuration, "Backup Complete", @status );

Subversion Repositories zfs_utils

(root)/trunk/replication/sync.sample – Rev 2 → 7