Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
client.pl	2.78 KB	-rw-r--r--
client_xpath.pl	2.78 KB	-rw-r--r--
component_accept.pl	1.02 KB	-rwxr-xr-x
component_test.pl	1.22 KB	-rwxr-xr-x
rpc_client.pl	1.4 KB	-rwxr-xr-x
rpc_server.pl	1.32 KB	-rwxr-xr-x

Code Editor : component_accept.pl

#!/usr/bin/perl

use Net::Jabber qw(Component);
use strict;

if ($#ARGV < 2) {
  print "\nperl component_accept.pl <server> <port> <name> <secret> \n\n";
  exit(0);
}

my $server = $ARGV[0];
my $port = $ARGV[1];
my $name = $ARGV[2];
my $secret = $ARGV[3];

$SIG{HUP} = \&Stop;
$SIG{KILL} = \&Stop;
$SIG{TERM} = \&Stop;
$SIG{INT} = \&Stop;

my $Component = new Net::Jabber::Component();

$Component->SetCallBacks(onauth=>\&onAuth,
                         message=>\&messageCB);

$Component->Execute(hostname=>$server,
                    port=>$port,
                    componentname=>$name,
                    secret=>$secret
                   );

sub onAuth
{
    print "Connected...\n";
}

sub Stop
{
  $Component->Disconnect();
  print "Exit gracefully...\n";
  exit(0);
}

sub messageCB
{
  my $sid = shift;
  my $message = shift;

print "Recd: ",$message->GetXML(),"\n";

my $reply = $message->Reply();
  $reply->SetMessage(body=>uc($message->GetBody()));
  $Component->Send($reply);

print "Sent: ",$reply->GetXML(),"\n";
}

${this.title}

Code Editor : component_accept.pl