Lines Matching refs:user
30 # port 9020, and include the hostname, user and pass, and it should
53 die "Usage: $0 ADD USER PASS HOSTNAME\n" unless @ARGV == 4;
56 die "Usage: $0 DEL USER\n" unless @ARGV == 2;
57 print "Are you sure you want to delete user \"$ARGV[1]\"? [N/y] ";
75 print "user $key, hostname $domain, ip $ip\n";
125 my ($user,$pass) = split ":", MIME::Base64::decode($1);
126 if ( authorize($user, $pass, $cgi{'hostname'}, $cgi{'myip'}) == 0 ) {
142 my ($user, $pass, $hostname) = @_;
144 $X->put($user, join("\t", ($pass, $hostname)));
150 my ($user, $pass, $hostname) = @_;
152 $X->del($user);
159 my $user = shift;
164 my ($spass, $shost) = split("\t", $h{$user});
165 if ( defined $h{$user} and ($spass eq $pass) and ($shost eq $hostname) ) {
166 $X->put($user, join("\t", $spass, $shost, $ip));
