Lines Matching full:hostname
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;
75 print "user $key, hostname $domain, ip $ip\n";
118 unless ( defined $cgi{'hostname'} ) {
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) = @_;
161 my $hostname = shift;
165 if ( defined $h{$user} and ($spass eq $pass) and ($shost eq $hostname) ) {
200 if ( /^(\d+\.\d+\.\d+\.\d+)\s+$$hashref{'hostname'}\n$/si ) {
202 push @records, "$$hashref{'myip'}\t$$hashref{'hostname'}\n";
210 push @records, "$$hashref{'myip'}\t$$hashref{'hostname'}\n";
