Changeset 455


Ignore:
Timestamp:
07/10/12 17:09:39 (6 years ago)
Author:
nanardon
Message:
  • add options to list stored variables
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • bot/trunk/bin/sophie-bot

    r439 r455  
    1414    'l=s' => \my $login, 
    1515    'p=s' => \my $pass, 
    16     't=s' => \my $type, 
    17     'd=s' => \my @options, 
    18     'proxy' => \my $proxy, 
    19     'daemon' => \my $daemon, 
    20     'runas=s' => \my $runas, 
     16    't=s'      => \my $type, 
     17    'd=s'       => \my @options, 
     18    'proxy'     => \my $proxy, 
     19    'daemon'    => \my $daemon, 
     20    'runas=s'   => \my $runas, 
    2121    'pidfile=s' => \my $pidfile, 
    2222 
    2323    # Command option: 
    2424    'set-password=s' => \my $password, 
    25     'edit-var=s'       => \my $data, 
     25    'edit-var=s'     => \my $data, 
     26    'list-var'       => \my $listvar, 
    2627) or pod2usage; 
    2728 
     
    8788        exit(1); 
    8889    } 
     90} elsif ($listvar) { 
     91    my $res = $sc->send_request('user.listdata'); 
     92    if (ref $res && !$res->is_fault) { 
     93        foreach (@{ $res->value || []}) { 
     94            print $_ . "\n"; 
     95        } 
     96        exit (0); 
     97    } else { 
     98        print( (ref $res ? $res->string : $res) . "\n"); 
     99        exit(1); 
     100    } 
    89101} 
    90102 
  • server/trunk/web/lib/Sophie/Controller/User.pm

    r421 r455  
    5454} 
    5555 
     56sub list_user_data : XMLRPC { 
     57    my ( $self, $c, $user ) = @_; 
     58 
     59    return $c->stash->{xmlrpc} = [ 
     60        $c->model('Base')->resultset('Users')->search( 
     61            { mail => $user, } 
     62        )->search_related('UsersData')->get_column('varname')->all 
     63    ];     
     64} 
     65 
     66sub listdata : XMLRPC { 
     67    my ( $self, $c, $dataname ) = @_; 
     68 
     69    $c->user or return {}; 
     70 
     71    return $c->forward('list_user_data', [ $c->user->mail || '', $dataname ]); 
     72} 
    5673 
    5774sub fetchdata : XMLRPC { 
Note: See TracChangeset for help on using the changeset viewer.