Changeset 299

Timestamp:

01/14/11 00:59:12 (13 years ago)

Author:

nanardon

Message:

• rename client to tools

Files:

• server/trunk/admin/bin/sophie_load (modified) (2 diffs)
• tools (moved) (moved from client)
• tools/trunk (copied) (copied from client/trunk)
• tools/trunk/bin/sophie (copied) (copied from client/trunk/bin/sophie)
• tools/trunk/bin/sophie-rpm (copied) (copied from client/trunk/bin/sophie-rpm)
• tools/trunk/lib/Sophie/Client.pm (copied) (copied from client/trunk/lib/Sophie/Client.pm)
• tools/trunk/lib/Sophie/Client/IRC.pm (copied) (copied from client/trunk/lib/Sophie/Client/IRC.pm)

server/trunk/admin/bin/sophie_load

@@ -8 +8 @@
 
 GetOptions(
-        'f=s' => \my $file,
-        's=s' => \my $server,
+    's=s' => \my $server,
 );
 
@@ -29 +28 @@
 }
 
-my $string;
-if ($file) {
-    open($handle, '<', $file) || die "can't open file $!";
-    $string = join('', <$handle>);
-    close($handle);
+if (@ARGV) {
+    my @string;
+    foreach my $file (@ARGV) {
+        warn "Reading $file\n";
+        open($handle, '<', $file) || die "can't open file $!";
+        push(@string, join('', <$handle>));
+        close($handle);
+    }
+
+    foreach my $string (@string) {
+        my $res = $xmlcli->send_request('admin.load_distrib', $string);
+        print $res->value . "\n";
+    }
 } else {
-    $string = join('', <STDIN>);
+    my $string = join('', <STDIN>);
+    my $res = $xmlcli->send_request('admin.load_distrib', $string);
+    print $res->value . "\n";
 }
-
-my $res = $xmlcli->send_request('admin.load_distrib', $string);
-print $res->value . "\n";