|
#!/usr/local/bin/perl
$base_url = shift ;
$timeperiod = shift ;
if ( $base_url =~ /^\s*$/ ||
$timeperiod !~ /^\d+$/) {
}
$library_path = '.' ;
$module = 'SAR' ;
$subroutine = 'system_activity_report' ;
$remote_subroutine = new RCGI( $base_url , $library_path , $module , $subroutine ,
'timeout' => 4000);
@my_result = $remote_subroutine ->Call( $timeperiod );
$, = "\t" ;
if ( $remote_subroutine ->Success()) {
print @my_result ;
print "\n" ;
} else {
print STDERR "Call to " . $remote_subroutine ->Base_URL() .
" failed with status: " . $remote_subroutine ->Status() .
' ' . $remote_subroutine ->Error_Message() . "\n" ;
}
|