--- adduser.pl	2001/06/20 07:57:32	1.3
+++ 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: ";