Revision: 3237
http://pandora.svn.sourceforge.net/pandora/?rev=3237&view=revAuthor: ramonn
Date: 2010-09-10 09:42:32 +0000 (Fri, 10 Sep 2010)
Log Message:
-----------
2010-09-10 Ramon Novoa
* lib/PandoraFMS/NetworkServer.pm,
lib/PandoraFMS/Core.pm: Fixed some prototypes that led to warnings
in recent versions of PERL. This fixes bug #3061906.
Modified Paths:
--------------
trunk/pandora_server/ChangeLog
trunk/pandora_server/lib/PandoraFMS/Core.pm
trunk/pandora_server/lib/PandoraFMS/NetworkServer.pm
Modified: trunk/pandora_server/ChangeLog
===================================================================
--- trunk/pandora_server/ChangeLog 2010-09-09 18:14:05 UTC (rev 3236)
+++ trunk/pandora_server/ChangeLog 2010-09-10 09:42:32 UTC (rev 3237)
@@ -1,3 +1,9 @@
+2010-09-10 Ramon Novoa
+
+ * lib/PandoraFMS/NetworkServer.pm,
+ lib/PandoraFMS/Core.pm: Fixed some prototypes that led to warnings
+ in recent versions of PERL. This fixes bug #3061906.
+
2010-09-09 Ramon Novoa
* lib/PandoraFMS/Core.pm: Fixed alert behaviour when time_from is
Modified: trunk/pandora_server/lib/PandoraFMS/Core.pm
===================================================================
--- trunk/pandora_server/lib/PandoraFMS/Core.pm 2010-09-09 18:14:05 UTC (rev 3236)
+++ trunk/pandora_server/lib/PandoraFMS/Core.pm 2010-09-10 09:42:32 UTC (rev 3237)
@@ -1571,7 +1571,7 @@
# Validate event.
# This validates all events pending to ACK for the same id_agent_module
##########################################################################
-sub pandora_validate_event (%$$) {
+sub pandora_validate_event ($$$) {
my ($pa_config, $id_agentmodule, $dbh) = @_;
if (!defined($id_agentmodule)){
return;
Modified: trunk/pandora_server/lib/PandoraFMS/NetworkServer.pm
===================================================================
--- trunk/pandora_server/lib/PandoraFMS/NetworkServer.pm 2010-09-09 18:14:05 UTC (rev 3236)
+++ trunk/pandora_server/lib/PandoraFMS/NetworkServer.pm 2010-09-10 09:42:32 UTC (rev 3237)
@@ -140,7 +140,7 @@
# tcp_rcv, id_tipo_module, dbh)
# Makes a call to TCP modules to get a value.
##########################################################################
-sub pandora_query_tcp (%$$$$$$$) {
+sub pandora_query_tcp ($$$$$$$$) {
my $pa_config = $_[0];
my $tcp_port = $_[1];
my $ip_target = $_[2];
@@ -247,7 +247,7 @@
# Makes a call to SNMP modules to get a value,
##########################################################################
-sub pandora_query_snmp (%$) {
+sub pandora_query_snmp ($$) {
my $pa_config = $_[0];
my $module = $_[1];
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
------------------------------------------------------------------------------
Automate Storage Tiering Simply
Optimize IT performance and efficiency through flexible, powerful,
automated storage tiering capabilities. View this brief to learn how
you can reduce costs and improve performance.
http://p.sf.net/sfu/dell-sfdev2dev
_______________________________________________
Pandora-commits mailing list
Pandora-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/pandora-commits