view release on metacpan or  search on metacpan

doc/code.html  view on Meta::CPAN

    my ($proto)=@_;
    my $self={};
    bless $self, $proto;
    return $self;
}

sub bar
{
	my ($self, $arg1, $arg2) = @_;
	my $value;

	#Compute a return value
	#...

	return $value;
}

#Create the gateway object
my $gateway = AMF::Perl->new; 

#Register a service that provides methods.
#You can register more than one service.
#This can happen during server startup (if running under mod_perl).
$gateway->registerService("Foo",new Foo());

#Let the gateway figure out who will be called.
$gateway->service();
 
</textarea>      
</td>
<td valign=top>
File cpu.py:
<textarea cols=50 rows=10>
import AMF
import cpuUsage
import sys

gateway = AMF.AMFPython.AMFPython()

gateway.registerService("CpuUsage",cpuUsage.cpuUsage())

gateway.service()
</textarea>

File cpuUsage.py:

<textarea cols=50 rows=20>
import os
import sys
import string

class cpuUsage:
    
    def getCpuUsage(self, arg):
    
        child = os.popen("uptime")
        output = child.read()
        tokens = output.split()
        
        #Remove commas.
        map(lambda x: x.replace(',', ''),  tokens)
        
        array = []
        hash = {'Name' : 'L 1', 'Value' : tokens[9]}
        array.append(hash)
        hash = {'Name' : 'L 5', 'Value' : tokens[10]}
        array.append(hash)
        hash = {'Name' : 'L 15', 'Value' : tokens[11]}
        array.append(hash)
        return array

</textarea>
</td>
</tr></table>
<h3> Server code, option B - limited service discovery.</h3><br>
Use in complex applications.<br>
      <br>
<h3>Part 1.&nbsp; The gateway script.</h3><br>
      <br>
<table>
<tr><th>Perl</th><th>Python</th></tr>
    <tr>
<td valign=top>
   
<textarea cols=50 rows=20>
	
use AMF::Perl;


#Create the gateway object

my $gateway = AMF::Perl-&gt;new; 

#Set a directory that will contain Perl package.
#Each package will correspond to one service -
#there can be as many as you want!
#You can set only one class path, though.

$gateway-&gt;setBaseClassPath("./basicservices/");

#Let the gateway figure out who will be called.

$gateway-&gt;service();
</textarea>

</td>
<td valign=top>
<textarea cols=50 rows=20>
#!/usr/bin/python

from AMF import AMF
import sys
import os

gateway = AMF.AMF()

gateway.setRelativeBaseClassPath("/basicservices")

gateway.service()
</textarea>
</td></tr></table>