Add support for ! in usernames in log_badlogins

diff --git a/Changelog b/Changelog
index 4d88196892da670ed31681a6c63d9ac196cd5058..02f46452ffc6a4ada8360cb38b268ebce1fdbb78 100644 (file)
--- a/Changelog
+++ b/Changelog
@@ -57,6 +57,7 @@ Ver 1.62:
   create a new page, user_stats.php3 which will show the top users in connections or connections duration based
   on the data in the totacct table.
 * Add a few comments in the tot_stats and monthly_tot_stats scripts
+* Add support for ! in usernames in log_badlogins
 Ver 1.61:
 * Add a string encoder for greek
 * If general_decode_normal_attributes is set then encode attributes in lib/ldap/change_info. In the near future

diff --git a/bin/log_badlogins b/bin/log_badlogins
index ae7cae187c8afda0e0c27c071317c60916f87799..6629669e720fa11162ae564ecc0d081172a343da 100755 (executable)
--- a/bin/log_badlogins
+++ b/bin/log_badlogins
@@ -95,16 +95,16 @@ for(;;){
                                        ($year,$mon,$mday,$hour,$min,$sec)=UnixDate($date2,'%Y','%m','%d','%H','%M','%S');
                                }
                                $time = "$year-$mon-$mday $hour:$min:$sec";
-                               if (/\[([\w\-\.]+?)\]\s+\(from (.+?)\)/){
+                               if (/\[([\w\-\.\!]+?)\]\s+\(from (.+?)\)/){
                                        $user = $1;
                                        ($nas,$port,$caller) = (split /\s+/,$2)[1,3,5];
                                }
-                               elsif (/\[([\w\-\.]+?)\/.+?\]\s+\(from (.+?)\)/){
+                               elsif (/\[([\w\-\.\!]+?)\/.+?\]\s+\(from (.+?)\)/){
                                        $user = $1;
                                        ($nas,$port,$caller) = (split /\s+/,$2)[1,3,5];
                                }
                                $caller='' if (!defined($caller));
-                               $user =~s/[^\w\-\.\d]//g;
+                               $user =~s/[^\w\-\.\d\!]//g;
                                $nas =~s/[^\w\.]//g;
                                if ($nas ne 'localhost' && $nas !~ /\.$domain$/){
                                        $nas .= ".$domain";