source: server/trunk/admin/bin/sophie_dump @ 355

#!/bin/env perl

use Sophie::Cli;
require RPC::XML;
require RPC::XML::Client;
use Term::ReadKey;
use Getopt::Long;

GetOptions(
    'o=s' => \my $file,
    's=s' => \my $server,
);

ReadMode('noecho');
print "Enter password: ";
my $password = ReadLine(0);
ReadMode 0;
print "\n";
chomp($password);

require Data::Dumper;
my $xmlcli = RPC::XML::Client->new($server || 'http://sophie.zarb.org/rpc');

my $res = $xmlcli->send_request('login', 'admin', $password);
if (ref $res) {
    $xmlcli->request->header('cookie', $$res);
} else {
    die "Can't login";
}

my $res = $xmlcli->send_request('admin.dump_distrib', @ARGV);
if (!ref $res || $res->is_fault) {
    die (ref $res ? $res->string : $res) . "\n";
}

if ($file) {
    open(my $handle, '>', $file) or die "Can't open file $!";
    print $handle $res->value;
    close($handle);
} else {
    print $res->value;
}