Re: Web services - Upload

[osunderdog]

I haven't ever played with Frontier. But thought I would give it a whirl. It appears to work as advertised...

Server

#!/usr/bin/perl
# sum() server

use strict;
use warnings;
use Frontier::Daemon;

my $d = Frontier::Daemon->new(
                  methods => {
                      sum => \&sum,
                     },
                  LocalAddr => '10.0.1.2',
                  LocalPort => 1080,
                 );

sub sum {
  my ($arg1, $arg2) = @_;
    
  return $arg1 + $arg2;
}

Client

#!/usr/bin/perl 
# Testing sum()

use strict;
use warnings;
use Frontier::Client;

my $url  = "http://10.0.1.2:1080/RPC2";
my @args = (2,5);

my $client = Frontier::Client->new( url   => $url,
                    debug => 0,
                    );

print "$args[0] + $args[1] = ", $client->call('sum', @args), "\n";

Output

$perl Client.pl
2 + 5 = 7

Architecture?

Perhaps if you could explain a little about the architecture that you're shooting for, it would help us discern what would be the best approach for you to accomplish your goal. Are you, perhaps, interested in something that would work from a web server as a cgi?