Lines Matching refs:flags
153 my ($flags) = unpack("C", @packet[0]);
157 print "Flags: $flags Cmd: $cmd ID: $request_id\n";
159 print getasipsrv("flags", $flags) . ": " . getasipsrv("command", $cmd) . "\n";
234 my ($flags) = unpack("n", @packet[8] . @packet[9]);
235 my (@flags) = parse_afp_flags($flags);
238 print "$flags - " if ($main::debug);
239 print join(",", @flags) . "\n";
273 if ($flags & (1<<8)) { # Supports directory services
287 if ($flags & (1<<9)) { # Supports UTF8 servername
308 if ($what eq "flags")
404 my ($flags) = shift @_;
405 my (@flags);
407 # $flags is a 16 bit little-endian number
409 push (@flags, "SupportsCopyFile") if ($flags & (1<<0));
410 push (@flags, "SupportsChgPwd") if ($flags & (1<<1));
411 push (@flags, "DontAllowSavePwd") if ($flags & (1<<2));
412 push (@flags, "SupportsServerMessages") if ($flags & (1<<3));
413 push (@flags, "SupportsServerSignature") if ($flags & (1<<4));
414 push (@flags, "SupportsTCP/IP") if ($flags & (1<<5));
415 push (@flags, "SupportsSrvrNotifications") if ($flags & (1<<6));
416 push (@flags, "SupportsReconnect") if ($flags & (1<<7));
417 push (@flags, "SupportsOpenDirectory") if ($flags & (1<<8));
418 push (@flags, "SupportsUTF8Servername") if ($flags & (1<<9));
419 push (@flags, "SupportsUUIDs") if ($flags & (1<<10));
420 push (@flags, "SupportsSuperClient") if ($flags & (1<<15));
422 return @flags;