#!/usr/bin/perl -w

use strict;
use RPC::XML::Server;

my $server = RPC::XML::Server->new(port => 9000);

$server->add_method(
    {
        name        => 'dump_file',
        version     => '1.0',
        hidden      =>  0,
        code        => \&dump_file,
        signature   => [ 'string string' ],
        help        => 'Dumps the contents of the specified file'
    }
);

$server->server_loop();

sub dump_file {
    my $server = shift;
    my $fname  = shift;
    my $buffer;

    print "Calling dump_file\n";

    if (-f $fname) {
        print "    Dumping contents of file $fname\n";
        open(FILE, $fname);

        $buffer = join('', (<FILE>));
    } else {
        print "Can't find file $fname: $!\n";
        return undef;
    }

    return $buffer;
}