RPC::Simple::Factory - Perl extension for creating RPC client
# with Tk use Tk; use RPC::Simple::Factory; my $mw = MainWindow-> new ; my $verbose = 1 ; # up to you # create factory my $factory = new RPC::Simple::Factory ( tk_top => $mw, verbose_ref => \$verbose ) ; # without Tk # create factory my $factory = new RPC::Simple::Factory() ; my $socket = $factory -> getSocket ; # create event loop
This class handles all the tricky stuff involving socket handling. This module was originally written to be used with Tk. Now you can use it without Tk, in blocking mode or asynchronous mode.
Create the factory. One factory must be created for each remote host.
When used with Tk, tk_top is the ref of Tk's main window. Factory will register the communication socket to Tk's filevent.
verbose_ref is the ref of a variable. When set to 1 at any time, the object will become verbose i.e. it will print on STDOUT a lot of messages related to the RPC processing.
With Tk, you may use $verboseRef as a text variable on a check button to control whether you want to trace RPC messages or not. If not provided, the object will not be verbose.
Socket time out (default 0). See IO::Socket for more details.
print arguments if verbose mode.
Will create a remote (the remote_class_name) object tied to the owner.
Additional parameters will be passed as is to the remote 'new' method.
return the remote host name
Returns the socket created by Factory. So you can use it in your own event loop. When using Factory with Tk, the constructor will take care of registering the socket in Tk's event loop.
Encode the method, object, parameter and send it to the remote object.
agent_index and request_id are used later for the call-back mechanism.
read pending data on the socket. Do an eval on the read data to call-back the relevent Agents.
Note that there's no security implemented (yet).
Will spawn a RPC::Simple server on your machine. Don't call this function if you need to do RPC on a remote machine.
Return the server pid or null (just like fork)
When the object is destroyed, the 'END' routine will be called. This will kill the server if it was created by spawn.
Dominique Dumont, Dominique_Dumont@grenoble.hp.com