- Timestamp:
- 12/29/15 16:32:48 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LATMOS-Accounts/bin/la-sync
r1375 r1563 17 17 18 18 la-sync [options] 19 la-sync --from source --to dest -o type [-a|obj1 obj2] 19 20 20 21 =cut … … 32 33 'b|batch' => \my $batch, 33 34 'unexp' => \my $unexp, 35 'a|all' => \my $all 34 36 ) or pod2usage(); 35 37 … … 96 98 $sync->load_dest and return; 97 99 if ($otype) { 98 foreach (@ARGV) { 100 my @list = $all 101 ? $sync->from->list_objects($otype) 102 : @ARGV; 103 104 foreach (@list) { 99 105 warn "Try to sync $otype: $_\n"; 100 106 $sync->sync_object($otype, $_, onepass => 1) or do {
Note: See TracChangeset
for help on using the changeset viewer.