status.xpl

OpenCDN内容分发系统

<?xml version="1.0"?>
<!DOCTYPE methoddef SYSTEM "rpc-method.dtd">
<methoddef>
<name>Status</name>
<version>1.0</version>
<signature>string string</signature>
<help>
Description     Read-Only access to the Core data

Arguments       a string whith the name of the requested data struct

Returns         a reference to the requested data struct
</help>
<code language="perl">
<![CDATA[
#!/usr/bin/perl

use CommLib qw(node_log);

#############################################################################
#
#   Sub Name:       Status
#   Description:    Read-Only access to the Core data
#
#   Arguments:      a string whith the name of the requested data struct
#   
#   Returns:        a reference to the requested data struct
#
#############################################################################
sub Status {
require RRDMlib;
   my $class = shift;
   my $val = shift;
    
node_log ( "*** Status method entered for $val data", 1, 'r');

if ($val eq "node") {
   $retval = \%RRDMlib::nodes;
  }
if ($val eq "footp") {
   $retval = \%RRDMlib::footp;
  }
if ($val eq "program") {
   $retval = \%RRDMlib::surro;
   }
if ($val eq "peers") {
   $retval = \%RRDMlib::peers;
   }
if ($val eq "origin") {
   $retval = \%RRDMlib::origins;
   }

return  $retval;
}
   
__END__
]]></code>
</methoddef>