
RCGI is a remote CGI distributed processing class.
SYNOPSIS
use RCGI;
@result = Invoke('jobone',@arguments);
$result = Invoke('jobtwo',@arguments);
$remote_subroutine = new RCGI($base_url,$library_path,$module,$subroutine);
@my_result = $remote_subroutine->Call(@arguments);
if ($remote_subroutine->Success()) {
print @my_result,'';
} else {
print STDERR "Call to " . $remote_subroutine->Base_URL() .
" failed with status: " . $remote_subroutine->Status() .
' ' . $remote_subroutine->Error_Message() . "n";
}
$remote_subroutine->Async(1);
$remote_subroutine->Wantarray(1);
$remote_subroutine->Call(@arguments);
while(! $remote_subroutine->Done()) {
# This should really be something usefull--like calls to other servers!
sleep 1;
}
@my_result = $remote_subroutine->Read();
if ($remote_subroutine->Success()) {
print @my_result,'';
} else {
print STDERR "Call to " . $remote_subroutine->Base_URL() .
" failed with status: " . $remote_subroutine->Status() .
' ' . $remote_subroutine->Error_Message() . "n";
}
$result = RCGI::run_cgi_command($base_url, %cgi_form,
method => $method,
username => $username,
password => $password,
timeout => $timeout,
user_agent => $user_agent,
nph => $bool_nph);
# In a CGI script
($cgi_form, %options) = RCGI::Process_Parameters( new CGI );
$result = RCGI::run_cgi_command($base_url, $cgi_form, %options);
Requirements:
ยท Perl
| Publisher | N/A |
|---|---|
| Downloads | 11 |
| Date Added | 10th January, 2008 |
| File Size | 23.50 KB |
| Report | Send us a report |
| Reviews | Review RCGI 1.20 now |
| Rate this file |
