2009-01-26 Manuel Arostegui <marostegui@artica.es>

* util/udp_client: Added to repository. Remote alert execution
        script. To be used in "Command" section of the new alert system.



git-svn-id: https://svn.code.sf.net/p/pandora/code/trunk@1399 c3f86ba8-e40f-0410-aaad-9ba5e7f4b01f

pandora_server/ChangeLog

@@ -1,3 +1,9 @@
+2009-01-26  Manuel Arostegui <marostegui@artica.es>
+
+	* util/udp_client: Added to repository. Remote alert execution
+	script. To be used in "Command" section of the new alert
+	system.
+
 2009-01-24  Raul Mateos <raulofpandora@gmail.com>
 	
 	* lib/PandoraFMS/Config.pm: Changed some texts for last time. Use tabs

pandora_server/util/udp_client

@@ -0,0 +1,15 @@
+#!/usr/bin/perl
+use strict;
+use IO::Socket;
+
+if ($#ARGV != 2) {
+        print "Usage: $0 <ip address> <port> <command>\n";
+        exit 1;
+}
+
+my $sock = IO::Socket::INET->new(Proto     => 'udp',
+                              PeerAddr  => $ARGV[0],
+                              PeerPort  => $ARGV[1])
+    or die "Creating socket: $!\n";
+
+$sock->send($ARGV[2]) or die "[error] $!";