Also allow for '-' to exist in a nas name in bin/log_badlogins

diff --git a/Changelog b/Changelog
index a10c265a3d7ee681c55951d637d15f11378e1a7c..bff65d5a58342f7dd06b16bd39e3e0799b8d2940 100644 (file)
--- a/Changelog
+++ b/Changelog
@@ -22,6 +22,7 @@ Ver 1.70:
 * Add da_sql_escape_string for all relevant variables in lib/sql files
 * Keep the nas list in a separate array $nas_list. Update various pages to use that one now.
 * Make nas_list actually work
+* Also allow for '-' to exist in a nas name in bin/log_badlogins
 
 Ver 1.68:
 * Huge PostgreSQL compatibility patch by Guy Fraser <guy@incentre.net>

diff --git a/bin/log_badlogins b/bin/log_badlogins
index 42660e2084b16d8cbcc432b3b26a7e5224291259..c88a4000e3d63514d975798c70bcdd443cdf81de 100755 (executable)
--- a/bin/log_badlogins
+++ b/bin/log_badlogins
@@ -167,7 +167,7 @@ for(;;){
                                }
                                $caller='' if (!defined($caller));
                                $user =~s/[^\w\-\.\d\!\@\s]//g;
-                               $nas =~s/[^\w\.]//g;
+                               $nas =~s/[^\w\.\-]//g;
                                $port =~s/[^\d]//g;
                                $addr = $client_array{$nas};
                                if ($user ne '' && $realm_strip eq 'yes'){