--- adduser.pl	2001/06/20 07:57:32	1.3
+++ adduser.pl	2001/09/06 09:32:55	1.4
@@ -6,6 +6,11 @@
 
 my $htpasswd = shift @ARGV || ".htusers";
 
+if ($htpasswd eq "-h") {
+	print "Usage: $0 [htusers file] [login] [full name] [password] [email]\n";
+	exit;
+}
+
 my $login = shift @ARGV;
 while (! $login) {
 	print "login: ";