NAME

Device::Velleman::K8055::Server - IPCS Server for the K8055 Device

SYNOPSIS

  use Device::Velleman::K8055::Server;
  
  my $server = Device::Velleman::K8055::Server->new();

DESCRIPTION

Sets up a server that handles all communication with the K8055 device. Communicates with clients through shared memory.

USAGE

Example of a daemon that initiates the server:

        use Device::Velleman::K8055::Server;
        use Proc::Daemon;
        use Tie::Hash;
        
        $SIG{HUP} = 'shutdown';
        
        
        foreach my $argnum (0 .. $#ARGV) {
        
                if( $ARGV[$argnum] eq '--debug' ) {
                        $debug=1;
                }
                if( $ARGV[$argnum] eq '--nodaemon' ) {
                        $nodaemon=1;
                }
                
                if( $ARGV[$argnum] eq '--server' ) {
                        $server=1;
                }
                
        }
        
        
        if($server) {
                print "Running Server\n";
                server();
        }
        
        
        sub server {
                #Run as Daemon unless -nodaemon passed.
                unless( $nodaemon ) {
                        print "Running as daemon.\n";
                        Proc::Daemon::Init;
                }
                my $server = K8055::Server->new();
                $server->run;
        }
        
        
        
        sub shutdown {
                $server->cleanup();
                exit;
        }

BUGS

Many.

SUPPORT

AUTHOR

    David Peters
    CPAN ID: DAVIDP
    davidp@electronf.com
    http://www.electronf.com

COPYRIGHT

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the LICENSE file included with this module.

SEE ALSO

Device::Velleman::K8055::Client, Device::Velleman::libk8055, perl(1).