Lines Matching refs:server
53 my $server = shift(@ARGV);
55 die $usage unless $server;
122 (!defined($name)) && die "gethostbyname failed, unknown host $server";
131 &alarm("sending 'quit' to $server");
152 ($name, my $thataddr) = (gethostbyname($server))[0, 4];
153 (!defined($name)) && die "gethostbyname failed, unknown host $server";
159 print "server = $server\n" if (defined($verbose));
160 &alarm("connect to $server");
162 die "cannot connect to $server: $ERRNO\n";
168 &alarm("greeting with $server");
175 &alarm("giving up after bad response from $server");
178 print STDERR "$server: NOT 220 greeting: $ARG"
183 print STDERR "$server: NOT 220 greeting: $ARG"
187 &alarm("greeting with $server");
191 &alarm("sending ehlo to $server");
205 &alarm("sending etrn to $server");
207 $server = shift(@hosts);
208 &ps("etrn $server");
219 &alarm("sending 'quit' to $server");