From bbb625fbd7ee5ebb2e3e2564b3c7117f08200e7d Mon Sep 17 00:00:00 2001 From: William Heimbigner Date: Wed, 23 Oct 2013 17:40:15 +0000 Subject: all sorts of stuff changed. This is just one big code package update --- modules/util.pl | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'modules/util.pl') diff --git a/modules/util.pl b/modules/util.pl index 9a104c1..35a66ae 100644 --- a/modules/util.pl +++ b/modules/util.pl @@ -179,9 +179,8 @@ sub dprint { if ($::debugx{$type} eq 0) { return; } - print STDERR strftime("%F %T ", gmtime); - print STDERR GREEN, 'DEBUG', RESET, '(', $::debugx{$type}, $type, RESET, ') '; - print STDERR $text, "\n"; + say STDERR strftime("%F %T ", gmtime), + GREEN, 'DEBUG', RESET, '(', $::debugx{$type}, $type, RESET, ') ', $text; } @@ -207,7 +206,7 @@ sub getHostIP { my ($module, $host) = @_; if ( ($host =~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/) or - ($host =~ /^gateway\/web\/freenode\/ip\.(\d+)\.(\d+)\.(\d+)\.(\d+)$/) ) { + ($host =~ /^gateway\/web\/.*\/ip\.(\d+)\.(\d+)\.(\d+)\.(\d+)$/) ) { #yay, easy IP! return dottedQuadToInt(undef, "$1.$2.$3.$4"); } elsif (index($host, '/') != -1) { -- cgit v1.2.3