Here is an explanation of Net::Daemon.

Define a new class that inherits from Net::Daemon in daemon.pl

      require Net::Daemon;
      package Contdmon;
      use vars qw(@ISA);
      @ISA = qw(Net::Daemon); # to inherit from Net::Daem
[download]

In your class's constructor, call the Net::Daemon constructor and then do any other initialisation you need.

   sub new ($$;$) {
          my($class, $attr, $args) = @_;
          my($self) = $class->SUPER::new($attr, $args);
          # set up the logfile
          my $file = IO::File->new ( '/path', "a" );
        $file->autoflush ( 1 ) ;
        $self->{'logfile'} = $file;
      $self;
   }
[download]

Now write your Run method. This method overrides the Run method in Net::Daemon. It is executed whenever a client connects to the daemon

  sub Run ($) {
          my($self) = @_;
          my($line, $result, $sock);

          $sock = $self->{'socket'};
          while (1) {
              if (!defined($line = $sock->getline())) {
                  if ($sock->error()) {
                      $self->Error("Client connection error %s",
                                   $sock->error());
                  }
                  $sock->close();
                  return;
              }
          }
       print "Server received request: $line\n";
}
[download]

Now go ahead and create your server

     package main;
     my $args = {
        'facility' => 'daemon',
        'pidfile' => '/users/ccm_root/logs/contdaem.pid',
        'logfile' => '/users/ccm_root/logs/contdaem.log',
        'user' =>  'ccm_root',
        'group' => 'ccm_root',
        'localport' => '5440',
        'mode' => 'single',
        };
     my $server = Contdmon->new  ({}, $args);
     $server->Bind();
[download]

So at this point you have a daemon sitting there waiting for a request. Run this script on server A.
Now you need a client to submit a request from server B. In client.pl:

use strict;
use IO::Socket;
$| = 1; # flush output buffers immediately
my ( $host ) = 'server';
my ( $port ) = 1234;
# create the socket
my $sock = IO::Socket::INET->new ( Proto    => 'tcp',
                   Type     => SOCK_STREAM, 
                          PeerAddr => $host,
                   PeerPort => $port ) 
                      
        or die "Cannot create socket : $!";
# so output goes to daemon immediately    
$sock->autoflush (1);
print $sock "What is the time, Mr Wolf?\n";
[download]

Run client.pl on your client machine, webserver(B), and it will send a request via the TCP protocol to your daemon waiting on server A.
Note that there are some security concerns with this. Don't let your daemon accept just any list of commands to run on server A. Perhaps sends 'RunA' from client.pl, and your daemon will then go ahead and execute a hardcoded set of commands before sending back the response.
Hope this helps
--
bm

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.