&save_status() was not allowing host names with upper case letters

diff --git a/src/spong-server.pl b/src/spong-server.pl
index 9115b30b71e0d294b56be94e5d12be77d6488859..5dfb89ce0d5acad5dd24637af0b3f154ce5bcabb 100755 (executable)
--- a/src/spong-server.pl
+++ b/src/spong-server.pl
@@ -559,7 +559,7 @@ sub save_status {
    if( $header =~ /^(\w+) (\S+) (\w+) (\w+) ([:0-9]+) (.*)$/ ) {
       ($cmd, $host, $service, $color, $time, $sum) = ($1, $2, $3, $4, $5, $6);
 
-      if( $host !~ m/^[a-z0-9_\-\.]+$/ ) { 
+      if( $host !~ m/^[a-zA-Z0-9_\-\.]+$/ ) { 
         &error( "save_status: invalid host [$host]" ); return; }
       if( $service !~ m/^[a-z0-9_\-\.]+$/ ) {
         &error( "save_status: invalid service [$service]" ); return; }