Changeset 73

Timestamp:

11/25/08 17:55:31 (3 years ago)

Author:

bruno

Message:

fix option analysis in checkparams and a warning in a DEBUG print

File:

• devel/sshgw/bin/createsshuser (modified) (2 diffs)

devel/sshgw/bin/createsshuser

@@ -51 +51 @@
             shift(@params) ;
             $expire = shift(@params) ;
-        }
-        if ($params[0] eq "-m") {
+        } elsif ($params[0] eq "-m") {
             shift(@params) ;
             $email = shift(@params) ;
-        }
-        if ($params[0] eq "-c") {
+        } elsif ($params[0] eq "-c") {
             shift(@params) ;
             $emailcc = shift(@params) ;
 #           print "TEST: ccmail1: $emailcc\n";
+        } else {
+            print STDERR "Unknown option $params[0]\n";
+            &usage;
         }
-        print STDERR "Unknown option $params[0]\n";
-        &usage;
     }
 
@@ -85 +84 @@
     my ($username, $fullname, $groups, $expire, $email, $sshkey, $emailcc)= @_ ;
     my $group;
-    print "DEBUG: @_\n";
+
+    print "DEBUG: ";
+    foreach my $i (@_) {
+        print "$i " if (defined $i);
+        print "undef " if (not defined $i);
+    }
+    print "\n";
 
     die "Username ($username) should be 9 lowercase letters or digits or less and begin with a letter\n" unless $username =~ /^[a-z][a-z0-9]{0,8}$/ ;