Changeset 210 for client/trunk/bin

Timestamp:

12/28/10 18:44:52 (14 years ago)

Author:

nanardon

Message:

• add management option

File:

• client/trunk/bin/sophie (modified) (4 diffs)

client/trunk/bin/sophie

@@ -7 +7 @@
 use Pod::Usage;
 use Config::General;
+use File::Temp;
 
 GetOptions(
@@ -16 +17 @@
     'd=s' => \my @options,
     'daemon' => \my $daemon,
+
+    # Command option:
+    'set-password=s' => \my $password,
+    'edit-var=s'       => \my $data,
 ) or pod2usage;
 
@@ -34 +39 @@
 }
 
+my $sc = Sophie::Client->new(
+    server => $url,
+    login => $login,
+    password => $pass,
+    type => $type,
+);
+
+if ($password) {
+    my $res = $sc->send_request('user.set_password', $password);
+    if (ref $res && !$res->is_fault) {
+        print $res->value . "\n";
+        exit(0);
+    } else {
+        print( (ref $res ? $res->string : $res) . "\n");
+        exit(1);
+    }
+} elsif ($data) {
+    my $res = $sc->send_request('user.dumpdata', $data);
+    if (ref $res && !$res->is_fault) {
+        my $tmp = File::Temp->new();
+        print $tmp $res->value . "\n";
+        close($tmp);
+        system($ENV{EDITOR} || 'vi', $tmp->filename);
+        if (open(my $fh, '<', $tmp->filename)) {
+            my $string = join('', <$fh>);
+            close($fh);
+            unlink($tmp->filename);
+            my $res2 = $sc->send_request('user.loaddata', $data, $string);
+            if (ref $res2 && !$res2->is_fault) {
+                print $res2->value . "\n";
+                exit(0);
+            } else {
+                print( (ref $res2 ? $res2->string : $res2) . "\n");
+                exit(1);
+            }
+        }
+    } else {
+        print( (ref $res ? $res->string : $res) . "\n");
+        exit(1);
+    }
+}
+
 if ($daemon) {
     my $pid = fork();
@@ -47 +94 @@
 }
 
-my $sc = Sophie::Client->new(
-    server => $url,
-    login => $login,
-    password => $pass,
-    type => $type,
-);
-
 $sc->run;