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 : states-daemon.pl

#
# Copyright (C) 1998 Ken MacLeod
# See the file COPYING for distribution terms.
#
# $Id: states-daemon.pl,v 1.1.1.1 1998/04/14 03:50:48 ken Exp $
#

use Frontier::Daemon;

@states = (qw/Alabama Alaska Arizona Arkansas California Colorado Connecticut
	   Delaware Florida Georgia Hawaii Idaho Illinois Indiana Iowa Kansas
	   Kentucky Louisiana Maine Maryland Massachusetts Michigan Minnesota
	   Mississippi Missouri Montana Nebraska Nevada/, 'New Hampshire',
	   'New Jersey', 'New Mexico', 'New York', 'North Carolina',
	   'North Dakota', qw/Ohio Oklahoma Oregon Pennsylvania/, 'Rhode Island',
	   'South Carolina', 'South Dakota', qw/Tennessee Texas Utah Vermont
	   Virginia Washington/, 'West Virginia', 'Wisconsin', 'Wyoming');

sub get_state_name {
    my $state_num = shift;

return $states[$state_num - 1];
}

sub get_state_list {
    my $num_list = shift;

my ($state_num, @state_list);
    foreach $state_num (@$num_list) {
	push @state_list, $states[$state_num - 1];
    }

return join(',', @state_list);
}

sub get_state_struct {
    my $struct = shift;

my ($state_num, @state_list);
    foreach $state_num (values %$struct) {
	push @state_list, $states[$state_num - 1];
    }

return join(',', @state_list);
}

sub echo {
    return [@_];
}

new Frontier::Daemon
    LocalPort => 8000,
    methods => {
	'examples.getStateName'   => \&get_state_name,
	'examples.getStateList'   => \&get_state_list,
	'examples.getStateStruct' => \&get_state_struct,
	'echo'                    => \&echo,
    };

${this.title}

Code Editor : states-daemon.pl