Lines Matching full:argv
50 if ( @ARGV < 1 ) {
52 } elsif ( lc $ARGV[0] eq "add" ) {
53 die "Usage: $0 ADD USER PASS HOSTNAME\n" unless @ARGV == 4;
54 add_acct($ARGV[1], $ARGV[2], $ARGV[3]);
55 } elsif ( lc $ARGV[0] eq "del" ) {
56 die "Usage: $0 DEL USER\n" unless @ARGV == 2;
57 print "Are you sure you want to delete user \"$ARGV[1]\"? [N/y] ";
61 del_acct($ARGV[1]);
63 } elsif ( lc $ARGV[0] eq "listusers" or lc $ARGV[0] eq "writehostsfile" ) {
66 if ( lc $ARGV[0] eq "writehostsfile" ) {
74 if ( lc $ARGV[0] eq "listusers" ) {
82 if ( lc $ARGV[0] eq "writehostsfile" ) {
89 } elsif ( lc $ARGV[0] eq "listen" ) {
