genopts alphanum tidyups

[evade-mail-usrlocal.git] / service

diff --git a/service b/service
index 14852b233827d0e6ac977681163c14aa51836596..aefff42ea2e47c720d2aa0373c5091cf23ba8174 100755 (executable)
--- a/service
+++ b/service
@@ -28,7 +28,7 @@ privileged actions
 default generation method is alphanum
 END
 our %usage_genopts = (
-'alphanum' => <<END
+'alphanum' => <<END,
   -l<randlength>     (number of letters+digits)
 END
 );
@@ -389,6 +389,8 @@ sub action_disable_user {
 
 sub action_list_actions {
     print $usage2 or die $!;
+    print "genopts\n" or die $!;
+    print $usage_genopts{$genmethod} or die $!;
 }
 
 while (@ARGV) {