Fixed typos

diff --git a/pam/edit_pam.cgi b/pam/edit_pam.cgi
index 9d2d322..e4f74f6 100755 (executable)
--- a/pam/edit_pam.cgi
+++ b/pam/edit_pam.cgi
@@ -47,12 +47,11 @@ foreach $t ('auth', 'account', 'session', 'password') {
                        local $mn = $m->{'module'};
                        $mn =~ s/^.*\///;
                        local @cols;
-                       if ($m->{'include'}) {
-                               # Second type of include, using @
-                               push(@cols, "<a href='edit_atinc.cgi?".
+                       if ($m->{'control'} eq 'include') {
+                               # Included module
+                               push(@cols, "<a href='edit_inc.cgi?".
                                    "idx=$pam->{'index'}&midx=$m->{'index'}'>".
-                                   &text('edit_inc',
-                                         "<tt>$m->{'include'}</tt>")."</a>");
+                                   &text('edit_inc', "<tt>$mn</tt>")."</a>");
                                @rtds = ( "colspan=4", "width=5%" );
                                }
                        else {

diff --git a/pam/pam-lib.pl b/pam/pam-lib.pl
index fd9677c..5c04f34 100644 (file)
--- a/pam/pam-lib.pl
+++ b/pam/pam-lib.pl
@@ -36,7 +36,7 @@ FILE: foreach $f (readdir(DIR)) {
                                       'index' => @{$serv->{'mods'}}+0 };
                        push(@{$serv->{'mods'}}, $mod);
                        }
-               elsif (/^\s*(\S+)\s+\[([^\]*\]\s+(\S+)\s*(.*)$/) {
+               elsif (/^\s*(\S+)\s+\[([^\]]*)\]\s+(\S+)\s*(.*)$/) {
                        # Line with special rules .. ignore for now
                        }
                elsif (/^\s*(\S+)\s+(\S+)\s+(\S+)\s*(.*)$/) {