--- adduser.pl	2001/05/28 06:28:40	1.2
+++ adduser.pl	2001/09/06 10:48:20	1.5
@@ -6,6 +6,11 @@
 
 my $htpasswd = shift @ARGV || ".htusers";
 
+if (defined $htpasswd && $htpasswd eq "-h") {
+	print "Usage: $0 [htusers file] [login] [full name] [password] [email]\n";
+	exit;
+}
+
 my $login = shift @ARGV;
 while (! $login) {
 	print "login: ";
@@ -26,7 +31,7 @@
 		$passwd="auth_pop3";
 	}
 }
-elsif (substr($passwd,0,5) ne "auth_") {
+if (substr($passwd,0,5) ne "auth_") {
 		$passwd=md5_hex($login.$passwd);
 }