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

diff --git a/dialup_admin/Changelog b/dialup_admin/Changelog
index a10c265..bff65d5 100644 (file)
--- a/dialup_admin/Changelog
+++ b/dialup_admin/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/dialup_admin/bin/log_badlogins b/dialup_admin/bin/log_badlogins
index 42660e2..c88a400 100755 (executable)
--- a/dialup_admin/bin/log_badlogins
+++ b/dialup_admin/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'){