[Antiright-devel] antiright/ACE-desktop ACE

[Jeffrey Bedard]

CVSROOT:        /sources/antiright
Module name:    antiright
Changes by:     Jeffrey Bedard <jefbed> 07/04/08 23:42:42

Modified files:
        ACE-desktop    : ACE 

Log message:
        Rewrote chmod code, so that it is actually useful for something.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/antiright/ACE-desktop/ACE?cvsroot=antiright&r1=1.35&r2=1.36

Patches:
Index: ACE
===================================================================
RCS file: /sources/antiright/antiright/ACE-desktop/ACE,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -b -r1.35 -r1.36
--- ACE 8 Apr 2007 01:44:58 -0000       1.35
+++ ACE 8 Apr 2007 23:42:42 -0000       1.36
@@ -164,10 +164,17 @@
 }
 Modes()
 {
-       $ARSHELL -oT Permissions -or 5 -al "$(ls -l $1)" -ar\
-               -al 'Drag a mode to the appropriate chmod'\
-               'chmod u' 'chmod g' 'chmod o' -ar -al add: '+r' '+w' '+x'\
-               -ar -al subtract: 'chmod -r' '-w' '-x'
+       local FILES="$*"
+       if [ "$FILES" = "" ]; then
+               FILES="*"
+       fi
+       local INPUT="$(Prompt_User 'New Permissions')"
+       if [ "$INPUT" != "" ]; then
+               if [ "$DEBUG" = "TRUE" ]; then
+                       echo chmod $INPUT $FILES
+               fi
+               chmod $INPUT $FILES
+       fi
        Check_AR_IN_FM
 }
 FM_Text_Editor()