Lines Matching full:print
57 print "Are you sure you want to delete user \"$ARGV[1]\"? [N/y] ";
75 print "user $key, hostname $domain, ip $ip\n";
78 print $fh "$ip\t$domain\n";
180 print $sock "HTTP/1.0 200 OK\n";
182 print $sock "Date: $tmp[0], $tmp[2] $tmp[1] $tmp[4] $tmp[3] GMT\n";
183 print $sock "Server: Peter's Fake DynDNS.org Server/1.0\n";
184 print $sock "Content-Type: text/plain; charset=ISO-8859-1\n";
185 print $sock "Connection: close\n";
186 print $sock "Transfer-Encoding: chunked\n";
187 print $sock "\n";
188 #print $sock "12\n"; # this was part of the dyndns response but i'm not sure what it is
189 print $sock "$response", defined($ip)? " $ip" : "" . "\n";
