* Fix a small bug in log_badlogins. The nas domain should be a variable not hard...

diff --git a/Changelog b/Changelog
index afd005e3d96d19117632db6304c900dfded06375..ac88d86a37519f0955b6eb7ffa932abcb7dd2242 100644 (file)
--- a/Changelog
+++ b/Changelog
@@ -12,6 +12,7 @@ Ver 1.29:
 * Fixed a bug in sql/change_attrs which did not allow multi valued attributes in sql.
 * unset item_vals before adding info in ldap and sql user_info files.
 * Add support for the rest of the operators. Created the lib/operators.php3 file containing helper functions
+* Fix a small bug in log_badlogins. The nas domain should be a variable not hard coded.
 Ver 1.28:
 * Make user_delete.php3 print something when a user is deleted
 * Cache nas hostname lookups in user_accounting

diff --git a/bin/log_badlogins b/bin/log_badlogins
index ed6808e1a7c3e33f5de6253f8f611b6ef09a55b8..9018eecd2633ee8e93f9213b60dd52674da947a5 100755 (executable)
--- a/bin/log_badlogins
+++ b/bin/log_badlogins
@@ -5,7 +5,8 @@ use Date::Manip qw(ParseDate UnixDate);
 $|=1;
 
 $file=shift||'none';
-$conf=shift||'/usr/local/dialup_admin/conf/admin.conf';
+$conf=shift||'/src/cvs/radiusd/dialup_admin/conf/admin.conf';
+$domain='company.com';
 
 open CONF, "<$conf"
        or die "Could not open configuration file\n";
@@ -69,8 +70,8 @@ for(;;){
                                $caller='' if (!defined($caller));
                                $user =~s/[^\w]//g;
                                $nas =~s/[^\w]//g;
-                               if ($nas !~ /\.noc\.ntua\.gr$/){
-                                       $nas .= '.noc.ntua.gr';
+                               if ($nas !~ /\.$domain$/){
+                                       $nas .= '.$domain';
                                }
                                $port =~s/[^\d]//g;
                                $caller =~s/[^\d]//g;