Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
cli-xml-rpc.pl	3.09 KB	-rw-r--r--
example-cli-input	187 B	-rw-r--r--
rpc-client.pl	2.18 KB	-rw-r--r--
states-client.pl	871 B	-rw-r--r--
states-daemon.pl	1.5 KB	-rw-r--r--
validator1-daemon.pl	1.48 KB	-rw-r--r--

Code Editor : validator1-daemon.pl

#
# Copyright (C) 2000 Ken MacLeod
# See the file COPYING for distribution terms.
#
# $Id: validator1-daemon.pl,v 1.4 2000/06/01 16:19:35 kmacleod Exp $
#

use Frontier::Daemon;

sub arrayOfStructsTest {
    my $array = shift;
    my $curly_sum = 0;
    for my $struct (@$array) {
	$curly_sum += $struct->{'curly'};
    }

return $curly_sum;
}

sub easyStructTest {
    my $struct = shift;
    return $struct->{'moe'} + $struct->{'larry'} + $struct->{'curly'};
}

sub echoStructTest {
    return shift;
}

sub manyTypesTest {
    return [@_];
}

sub moderateSizeArrayCheck {
    my $array = shift;
    return join('', $array->[0], $array->[-1]);
}

sub nestedStructTest {
    my $calendar = shift;
    my $april_1_2000 = $calendar->{'2000'}{'04'}{'01'};
    return ($april_1_2000->{'moe'} + $april_1_2000->{'larry'}
	    + $april_1_2000->{'curly'});
}

sub simpleStructReturnTest {
    my $number = shift;

return { times10 => $number * 10,
	     times100 => $number * 100,
	     times1000 => $number * 1000 };
}

new Frontier::Daemon
    LocalPort => 8000,
    methods => {
	'validator1.arrayOfStructsTest'     => \&arrayOfStructsTest,
	'validator1.easyStructTest'         => \&easyStructTest,
	'validator1.echoStructTest'         => \&echoStructTest,
	'validator1.manyTypesTest'          => \&manyTypesTest,
	'validator1.moderateSizeArrayCheck' => \&moderateSizeArrayCheck,
	'validator1.nestedStructTest'       => \&nestedStructTest,
	'validator1.simpleStructReturnTest' => \&simpleStructReturnTest,
    };

${this.title}

Code Editor : validator1-daemon.pl