X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/aeaff6f362f8e376c592469db74f9da3434ecacc..4e40e9a450e412da79b7c3ef4a1eaae268b206a4:/modules/Tool.pm

diff --git a/modules/Tool.pm b/modules/Tool.pm
index 3a43ffc..18d437c 100644
--- a/modules/Tool.pm
+++ b/modules/Tool.pm
@@ -6,7 +6,7 @@ package Tool;
 # Some shared sub routines
 #
 # Author:        Patrick Canterino <patshaping@gmx.net>
-# Last modified: 2004-07-28
+# Last modified: 2004-07-30
 #
 
 use strict;
@@ -204,42 +204,38 @@ sub file_name($)
 
 # mode_string()
 #
-# Convert a binary file mode string into a human
-# readable string (rwxr-x-r-x)
+# Convert a file mode number into a human readable string (rwxr-x-r-x)
+# (also supports SetUID, SetGID and Sticky Bit)
 #
-# Params: Binary file mode string
+# Params: File mode number
 #
 # Return: Humand readable mode string
 
 sub mode_string($)
 {
- my $mode = shift;
-
+ my $mode   = shift;
  my $string = "";
 
-  # Owner
-  $string .= (($mode & 0x0100) ? 'r' : '-') .
-         (($mode & 0x0080) ? 'w' : '-') .
-         (($mode & 0x0040) ?
-           (($mode & 0x0800) ? 's' : 'x' ) :
-           (($mode & 0x0800) ? 'S' : '-')
-         );
-
-  # Group
-  $string .= (($mode & 0x0020) ? 'r' : '-') .
-         (($mode & 0x0010) ? 'w' : '-') .
-         (($mode & 0x0008) ?
-           (($mode & 0x0400) ? 's' : 'x') :
-           (($mode & 0x0400) ? 'S' : '-')
-         );
-
-  # World
-  $string .= (($mode & 0x0004) ? 'r' : '-') .
-         (($mode & 0x0002) ? 'w' : '-') .
-         (($mode & 0x0001) ?
-           (($mode & 0x0200) ? 't' : 'x' ) :
-           (($mode & 0x0200) ? 'T' : '-')
-         );
+ # User
+
+ $string  = ($mode & 00400) ? "r" : "-";
+ $string .= ($mode & 00200) ? "w" : "-";
+ $string .= ($mode & 00100) ? (($mode & 04000) ? "s" : "x") :
+                               ($mode & 04000) ? "S" : "-";
+
+ # Group
+
+ $string .= ($mode & 00040) ? "r" : "-";
+ $string .= ($mode & 00020) ? "w" : "-";
+ $string .= ($mode & 00010) ? (($mode & 02000) ? "s" : "x") :
+                               ($mode & 02000) ? "S" : "-";
+
+ # Other
+
+ $string .= ($mode & 00004) ? "r" : "-";
+ $string .= ($mode & 00002) ? "w" : "-";
+ $string .= ($mode & 00001) ? (($mode & 01000) ? "t" : "x") :
+                               ($mode & 01000) ? "T" : "-";
 
  return $string;
 }