- Timestamp:
- 01/14/11 00:59:12 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
server/trunk/admin/bin/sophie_load
r256 r299 8 8 9 9 GetOptions( 10 'f=s' => \my $file, 11 's=s' => \my $server, 10 's=s' => \my $server, 12 11 ); 13 12 … … 29 28 } 30 29 31 my $string; 32 if ($file) { 33 open($handle, '<', $file) || die "can't open file $!"; 34 $string = join('', <$handle>); 35 close($handle); 30 if (@ARGV) { 31 my @string; 32 foreach my $file (@ARGV) { 33 warn "Reading $file\n"; 34 open($handle, '<', $file) || die "can't open file $!"; 35 push(@string, join('', <$handle>)); 36 close($handle); 37 } 38 39 foreach my $string (@string) { 40 my $res = $xmlcli->send_request('admin.load_distrib', $string); 41 print $res->value . "\n"; 42 } 36 43 } else { 37 $string = join('', <STDIN>); 44 my $string = join('', <STDIN>); 45 my $res = $xmlcli->send_request('admin.load_distrib', $string); 46 print $res->value . "\n"; 38 47 } 39 40 my $res = $xmlcli->send_request('admin.load_distrib', $string);41 print $res->value . "\n";
Note: See TracChangeset
for help on using the changeset viewer.