| Line 184... |
Line 184... |
| 184 |
foreach my $sourceDir ( keys %{$configuration->{'remoteMachine'}->{'dataset'}} ) {
|
184 |
foreach my $sourceDir ( keys %{$configuration->{'remoteMachine'}->{'dataset'}} ) {
|
| 185 |
my $command = $replicateScript . ' ' .
|
185 |
my $command = $replicateScript . ' ' .
|
| 186 |
$configuration->{'remoteMachine'}->{'ip'} . ':' .
|
186 |
$configuration->{'remoteMachine'}->{'ip'} . ':' .
|
| 187 |
$configuration->{'remoteMachine'}->{'dataset'}->{$sourceDir} . '/' . $sourceDir . ' ' .
|
187 |
$configuration->{'remoteMachine'}->{'dataset'}->{$sourceDir} . '/' . $sourceDir . ' ' .
|
| 188 |
$configuration->{'localMachine'}->{'targetDataset'} . '/' . $sourceDir;
|
188 |
$configuration->{'localMachine'}->{'targetDataset'} . '/' . $sourceDir;
|
| - |
|
189 |
push @status, "Running $command at " . ¤tTime();
|
| 189 |
print "$command\n";
|
190 |
push @status, &runCommand( $command );
|
| - |
|
191 |
push @status, "Completed $command at " . ¤tTime();
|
| 190 |
}
|
192 |
}
|
| 191 |
|
193 |
|
| 192 |
push @status, "Backup finished at: " . ¤tTime();
|
194 |
push @status, "Backup finished at: " . ¤tTime();
|
| 193 |
|
195 |
|
| 194 |
&shutdownMachine( $configuration, "Backup Complete", @status );
|
196 |
&shutdownMachine( $configuration, "Backup Complete", @status );
|