X-Git-Url: https://arthur.barton.de/cgi-bin/gitweb.cgi?p=netatalk.git;a=blobdiff_plain;f=contrib%2Fshell_utils%2Fasip-status.pl.in;fp=contrib%2Fshell_utils%2Fasip-status.pl.in;h=c4036a81cfe10d0659d487bd51ab64880b945b49;hp=8814b8ecb0c9ec9c3c39841207bb741439f41b72;hb=69169f303c63d931937f0cc7922f6eb41b196fb6;hpb=f54fa0ec9e037fb1ee3a415031c5c33d36a183b6

diff --git a/contrib/shell_utils/asip-status.pl.in b/contrib/shell_utils/asip-status.pl.in
index 8814b8ec..c4036a81 100755
--- a/contrib/shell_utils/asip-status.pl.in
+++ b/contrib/shell_utils/asip-status.pl.in
@@ -240,8 +240,9 @@ sub parse_FPGetSrvrInfo()
 	my (@flags) = parse_afp_flags($flags);
 
 	print "Flags: ";
-	print "$flags - " if ($main::debug);
-	print join(",", @flags) . "\n";
+	print "$flags" if ($main::debug);
+	print "\n";
+	print join("\n", @flags) . "\n";
 
 	# server name starts at offset+10, length byte first.
 
@@ -411,18 +412,22 @@ sub parse_afp_flags
 
 	# $flags is a 16 bit little-endian number
 
-	push (@flags, "SupportsCopyFile") if ($flags & (1<<0));
-	push (@flags, "SupportsChgPwd") if ($flags & (1<<1));
-	push (@flags, "DontAllowSavePwd") if ($flags & (1<<2));
-	push (@flags, "SupportsServerMessages") if ($flags & (1<<3));
-	push (@flags, "SupportsServerSignature") if ($flags & (1<<4));
-	push (@flags, "SupportsTCP/IP") if ($flags & (1<<5));
-	push (@flags, "SupportsSrvrNotifications") if ($flags & (1<<6));
-	push (@flags, "SupportsReconnect") if ($flags & (1<<7));
-	push (@flags, "SupportsOpenDirectory") if ($flags & (1<<8));
-	push (@flags, "SupportsUTF8Servername") if ($flags & (1<<9));
-	push (@flags, "SupportsUUIDs") if ($flags & (1<<10));
-	push (@flags, "SupportsSuperClient") if ($flags & (1<<15));
+	push (@flags, "    SupportsCopyFile") if ($flags & (1<<0));
+	push (@flags, "    SupportsChgPwd") if ($flags & (1<<1));
+	push (@flags, "    DontAllowSavePwd") if ($flags & (1<<2));
+	push (@flags, "    SupportsServerMessages") if ($flags & (1<<3));
+	push (@flags, "    SupportsServerSignature") if ($flags & (1<<4));
+	push (@flags, "    SupportsTCP/IP") if ($flags & (1<<5));
+	push (@flags, "    SupportsSrvrNotifications") if ($flags & (1<<6));
+	push (@flags, "    SupportsReconnect") if ($flags & (1<<7));
+	push (@flags, "    SupportsOpenDirectory") if ($flags & (1<<8));
+	push (@flags, "    SupportsUTF8Servername") if ($flags & (1<<9));
+	push (@flags, "    SupportsUUIDs") if ($flags & (1<<10));
+	push (@flags, "    SupportsExtSleep") if ($flags & (1<<11));
+	push (@flags, "    UnknownBit12") if ($flags & (1<<12));
+	push (@flags, "    UnknownBit13") if ($flags & (1<<13));
+	push (@flags, "    UnknownBit14") if ($flags & (1<<14));
+	push (@flags, "    SupportsSuperClient") if ($flags & (1<<15));
 
 	return @flags;
 }