Lines Matching refs:debug
33 $main::debug = 1 if ($arg eq "-d");
40 print "usage: $0 hostname[:port] [-i show icon] [-d debug] [-x hex dump]\n";
76 print "opening $host:$port\n" if ($main::debug);
87 print "sending packet\n" if ($main::debug);
99 print "sysread: " if ($main::debug);
103 print "." if ($main::debug);
108 print " read " . length($buf) . " bytes\n" if ($main::debug);
157 print "Total data length: $datalen\n" if ($main::debug);
194 print "Machine type offset in packet: $machinetype_offset\n" if ($main::debug);
199 print "AFPversion count offset: $afpversioncount_offset\n" if ($main::debug);
204 print "UAMcount offset: $uamcount_offset\n" if ($main::debug);
214 print "Volume Icon & Mask offset: $icon_offset\n" if ($main::debug);
221 print "$flags - " if ($main::debug);
228 print "Server name length: $servername_len\n" if ($main::debug);
238 print "New offset: $offset\n" if ($main::debug);
241 print "Signature offset: $signature_offset\n" if ($main::debug);
251 print "Network address count offset: $network_address_count_offset\n" if ($main::debug);
258 print "Directory service offset: $directory_service_offset\n" if ($main::debug);
272 print "UTF8 name offset: $utf8_name_offset\n" if ($main::debug);