[Mon-commit] mon mon,1.19,1.20

[David N. <vi...@us...>]

Update of /cvsroot/mon/mon
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19817

Modified Files:
	mon 
Log Message:
Added syslog wrapper to remove possible security concerns


Index: mon
===================================================================
RCS file: /cvsroot/mon/mon/mon,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** mon	10 Nov 2005 23:30:39 -0000	1.19
--- mon	12 Dec 2005 16:12:56 -0000	1.20
***************
*** 5383,5386 ****
--- 5383,5395 ----
  }
  
+ no warnings; # Redefining syslog
+ sub syslog {
+    eval {
+        local $SIG{"__DIE__"}= sub { }; 
+        my @log = map { s/\%//mg; } @_;
+        Sys::Syslog::syslog(@log);
+    }
+ }
+ use warnings;
  
  #