#!/bin/perl -w
use strict;
use LWP::UserAgent;
my $hostname = shift;
my $controller = shift;
my $action = shift;
print "hostname=/n$hostname/n";
print "controller=/n$controller/n";
print "action=/n$action/n";
my $ua = LWP::UserAgent->new;
$ua->timeout(1000);
my $GetURL="http://" . $hostname . ":3000/" . $controller . "/" . $action;
print "geturl=$GetURL";
my $req = new HTTP::Request ('GET' , $GetURL);
my $res = $ua->request($req);
if ($res->is_success) {
print $res->content;
}
use strict;
use LWP::UserAgent;
my $hostname = shift;
my $controller = shift;
my $action = shift;
print "hostname=/n$hostname/n";
print "controller=/n$controller/n";
print "action=/n$action/n";
my $ua = LWP::UserAgent->new;
$ua->timeout(1000);
my $GetURL="http://" . $hostname . ":3000/" . $controller . "/" . $action;
print "geturl=$GetURL";
my $req = new HTTP::Request ('GET' , $GetURL);
my $res = $ua->request($req);
if ($res->is_success) {
print $res->content;
}