Changeset 73 for LATMOS-Accounts/bin/la-sync
- Timestamp:
- 05/08/09 01:48:26 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LATMOS-Accounts/bin/la-sync
r66 r73 16 16 Show configured bases: 17 17 18 la-sync [ options]18 la-sync [sync name] [options] 19 19 20 20 =cut … … 48 48 my $LA = LATMOS::Accounts->new($config); 49 49 50 my $sync = $LA->create_synchro($from, [ @to ]); 51 $sync->load_dest and return; 52 $sync->process( 50 my $sync = $LA->create_synchro( 51 $ARGV[0], 52 from => $from, 53 to => (@to ? [ @to ] : undef), 53 54 nocreate => $nocreate, 54 55 test => $test, 55 ) or warn "Sync has failed\n"; 56 ) or die "cannot create sync object\n"; 57 $sync->load_dest and return; 58 $sync->process() or warn "Sync has failed\n";
Note: See TracChangeset
for help on using the changeset viewer.