Changeset 455

Timestamp:

07/10/12 17:09:39 (12 years ago)

Author:

nanardon

Message:

• add options to list stored variables

Files:

• bot/trunk/bin/sophie-bot (modified) (2 diffs)
• server/trunk/web/lib/Sophie/Controller/User.pm (modified) (1 diff)

bot/trunk/bin/sophie-bot

@@ -14 +14 @@
     'l=s' => \my $login,
     'p=s' => \my $pass,
-    't=s' => \my $type,
-    'd=s' => \my @options,
-    'proxy' => \my $proxy,
-    'daemon' => \my $daemon,
-    'runas=s' => \my $runas,
+    't=s'      => \my $type,
+    'd=s'       => \my @options,
+    'proxy'     => \my $proxy,
+    'daemon'    => \my $daemon,
+    'runas=s'   => \my $runas,
     'pidfile=s' => \my $pidfile,
 
     # Command option:
     'set-password=s' => \my $password,
-    'edit-var=s'       => \my $data,
+    'edit-var=s'     => \my $data,
+    'list-var'       => \my $listvar,
 ) or pod2usage;
 
@@ -87 +88 @@
         exit(1);
     }
+} elsif ($listvar) {
+    my $res = $sc->send_request('user.listdata');
+    if (ref $res && !$res->is_fault) {
+        foreach (@{ $res->value || []}) {
+            print $_ . "\n";
+        }
+        exit (0);
+    } else {
+        print( (ref $res ? $res->string : $res) . "\n");
+        exit(1);
+    }
 }
 

server/trunk/web/lib/Sophie/Controller/User.pm

@@ -54 +54 @@
 }
 
+sub list_user_data : XMLRPC {
+    my ( $self, $c, $user ) = @_;
+
+    return $c->stash->{xmlrpc} = [
+        $c->model('Base')->resultset('Users')->search(
+            { mail => $user, }
+        )->search_related('UsersData')->get_column('varname')->all
+    ];    
+}
+
+sub listdata : XMLRPC {
+    my ( $self, $c, $dataname ) = @_;
+
+    $c->user or return {};
+
+    return $c->forward('list_user_data', [ $c->user->mail || '', $dataname ]);
+}
 
 sub fetchdata : XMLRPC {