home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / util / cli / dosk / commands / protectk < prev    next >
Text File  |  1995-01-04  |  5KB  |  290 lines
  1. FAILAT 21
  2. LAB START
  3. set action KM
  4. skip cvar
  5. UNSET ACTION
  6. lab start2
  7. REQUESTCHOICE >ENV:PICK "ProtectK ©December 1994 By Kenneth J. McCormick. All Rights Reserved." "SELECT TYPE" "FILE" "DIRECTORY" "ALL" "SEE PROTECTION" "BYE"
  8. IF $PICK EQ "0"
  9.  SKIP DONE
  10. ENDIF
  11. IF $PICK EQ "4"
  12.   REQUESTFILE >ENV:FILE TITLE="SELECT FILE TO VIEW PROTECT FLAGS OF"
  13.   LIST $FILE
  14.   SKIP START BACK
  15. ENDIF
  16. IF $PICK EQ "1"
  17. set type 1
  18. REQUESTCHOICE >ENV:HOW "ProtectK" "SELECT OPTION FOR FILE" "ADD FLAGS" "REMOVE FLAGS" "ABORT"
  19. endif
  20. IF $HOW EQ "0"
  21. SKIP START BACK
  22. ENDIF
  23. IF $PICK EQ "2"
  24. set type 2
  25. REQUESTCHOICE >ENV:HOW "ProtectK" "SELECT OPTION FOR DIRECTORY" "ADD FLAGS" "REMOVE FLAGS" "ABORT"
  26. endif
  27. ;ALL OPTION =============================================================
  28. IF $PICK EQ "3"
  29. REQUESTCHOICE >ENV:DOIT "ProtectK" "Select Action" "PROTECT" "UNPROTECT" "ABORT"
  30. IF $DOIT EQ "0"
  31.    SKIP START BACK
  32. ENDIF
  33. requestfile >env:rall title="PICK DEVICE"
  34. CD $RALL
  35. PROTECT #? -D ALL
  36. SKIP START BACK
  37. ENDIF
  38. ;END ALL OPTION ===============================================================
  39. IF $HOW EQ "0"
  40. SKIP START BACK
  41. ENDIF
  42. IF $HOW EQ "1"
  43. LAB REDO1
  44. REQUESTCHOICE >ENV:PLUS "ProtectK" "SELECT FLAG(S) TO ADD" "D" "R" "W" "E" "S" "P" "A" "H" "D/R/W/E" "DONE" "ABORT"
  45. ENDIF
  46. IF $HOW EQ "2"
  47. SKIP MINUS
  48. ENDIF
  49. IF $PLUS EQ "0"
  50. SKIP START BACK
  51. ENDIF
  52. IF $PLUS EQ "1"
  53. SET POPT1 +D
  54. ENDIF
  55. IF $PLUS EQ "2"
  56. SET POPT2 +R
  57. ENDIF
  58. IF $PLUS EQ "3"
  59. SET POPT3 +W
  60. ENDIF
  61. IF $PLUS EQ "4"
  62. SET POPT4 +E
  63. ENDIF
  64. IF $PLUS EQ "5"
  65. SET POPT5 +S
  66. ENDIF
  67. IF $PLUS EQ "6"
  68. SET POPT6 +P
  69. ENDIF
  70. IF $PLUS EQ "7"
  71. SET POPT7 +A
  72. ENDIF
  73. IF $PLUS EQ "8"
  74. SET POPT8 +H
  75. ENDIF
  76. IF $PLUS EQ "9"
  77. SET POPT9 +DRWE
  78. ENDIF
  79. IF $PLUS EQ "10"
  80. SKIP CONT_PLUS
  81. ENDIF
  82. SKIP REDO1 BACK
  83. LAB CONT_PLUS
  84. IF $PICK EQ "1"
  85.       REQUESTFILE >ENV:FILE TITLE="FILE TO ADD FLAG(S)"
  86.    ELSE
  87.       REQUESTFILE >ENV:FILE TITLE="DIR TO ADD FLAG(S)" DRAWERSONLY
  88. ENDIF
  89.    IF $POPT1 EQ "+D"
  90.       IF $TYPE EQ "1"
  91.         PROTECT $FILE +D
  92.       ELSE
  93.         cd $file
  94.         PROTECT #? +D QUIET
  95.       ENDIF
  96.   ENDIF
  97.   IF $POPT2 EQ "+R"
  98.      IF $TYPE EQ "1"
  99.         PROTECT $FILE +R
  100.      ELSE
  101.         CD $FILE
  102.         PROTECT #? +R QUIET
  103.      ENDIF
  104.   ENDIF
  105.    IF $POPT3 EQ "+W"
  106.       IF $TYPE EQ "1"
  107.          PROTECT $FILE +W
  108.       ELSE
  109.          cd $file
  110.          PROTECT #? +W QUIET
  111.       ENDIF
  112.    ENDIF
  113.    IF $POPT4 EQ "+E"
  114.       IF $TYPE EQ "1"
  115.          PROTECT $FILE +E
  116.       ELSE
  117.          cd $file
  118.          PROTECT #? +E QUIET
  119.       ENDIF
  120.    ENDIF
  121.    IF $POPT5 EQ "+S"
  122.      IF $TYPE EQ "1"
  123.         PROTECT $FILE +S
  124.      ELSE
  125.         cd $file
  126.       PROTECT #? +S QUIET
  127.      ENDIF
  128.    ENDIF
  129.    IF $POPT6 EQ "+P"
  130.       IF $TYPE EQ "1"
  131.          PROTECT $FILE +P
  132.       ELSE
  133.          cd $file
  134.          PROTECT #? +P QUIET
  135.       ENDIF
  136.    ENDIF
  137.    IF $POPT7 EQ "+A"
  138.       IF $TYPE EQ "1"
  139.          PROTECT $FILE +A
  140.       ELSE
  141.          cd $file
  142.          PROTECT #? +A QUIET
  143.       ENDIF
  144.    ENDIF
  145.    IF $POPT8 EQ "+H"
  146.       IF $TYPE EQ "1"
  147.          PROTECT $FILE +H
  148.       ELSE
  149.          cd $file
  150.          PROTECT #? +H QUIET
  151.       ENDIF
  152.    ENDIF
  153.    IF $POPT9 EQ "+DRWE"
  154.       IF $TYPE EQ "1"
  155.          PROTECT $FILE +DRWE
  156.       ELSE
  157.          cd $file
  158.          PROTECT #? +DRWE QUIET
  159.       ENDIF
  160.    ENDIF
  161. SKIP START BACK
  162. LAB MINUS
  163. IF $HOW EQ "2"
  164. LAB REDO2
  165. REQUESTCHOICE >ENV:PLUS "ProtectK" "SELECT FLAG(S) TO SUBTRACT" "D" "R" "W" "E" "S" "P" "A" "H" "DONE" "ABORT"
  166. IF $PLUS EQ "0"
  167. SKIP START BACK
  168. ENDIF
  169. IF $PLUS EQ "1"
  170. SET POPT1 -D
  171. ENDIF
  172. IF $PLUS EQ "2"
  173. SET POPT2 -R
  174. ENDIF
  175. IF $PLUS EQ "3"
  176. SET POPT3 -W
  177. ENDIF
  178. IF $PLUS EQ "4"
  179. SET POPT4 -E
  180. ENDIF
  181. IF $PLUS EQ "5"
  182. SET POPT5 -S
  183. ENDIF
  184. IF $PLUS EQ "6"
  185. SET POPT6 -P
  186. ENDIF
  187. IF $PLUS EQ "7"
  188. SET POPT7 -A
  189. ENDIF
  190. IF $PLUS EQ "8"
  191. SET POPT8 -H
  192. ENDIF
  193. IF $PLUS EQ "9"
  194. SKIP CONT_MINUS
  195. ENDIF
  196. SKIP REDO2 BACK
  197. LAB CONT_MINUS
  198. IF $PICK EQ "1"
  199.       REQUESTFILE >ENV:FILE TITLE="FILE TO SUBTRACT FLAG(S)"
  200.    ELSE
  201.       REQUESTFILE >ENV:FILE TITLE="DIR TO SUBTRACT FLAG(S)" DRAWERSONLY
  202. ENDIF
  203.    IF $POPT1 EQ "-D"
  204.       if $type eq "1"
  205.          PROTECT $FILE -D
  206.       else
  207.          cd $file
  208.          protect #? -d QUIET
  209.       ENDIF
  210.    ENDIF
  211.    IF $POPT2 EQ "-R"
  212.       if $type eq "1"
  213.          PROTECT $FILE -R
  214.       ELSE
  215.          CD $FILE
  216.          PROTECT #? -R QUIET
  217.       ENDIF
  218.    ENDIF
  219.    IF $POPT3 EQ "-W"
  220.       if $type eq "1"
  221.          PROTECT $FILE -W
  222.        ELSE
  223.          CD $FILE
  224.          PROTECT #? -W QUIET
  225.       ENDIF
  226.    ENDIF
  227.    IF $POPT4 EQ "-E"
  228.       if $type eq "1"
  229.          PROTECT $FILE -E
  230.        ELSE
  231.          CD $FILE
  232.          PROTECT #? -E QUIET
  233.       ENDIF
  234.    ENDIF
  235.    IF $POPT5 EQ "-S"
  236.       if $type eq "1"
  237.          PROTECT $FILE -S
  238.        ELSE
  239.          CD $FILE
  240.          PROTECT #? -S QUIET
  241.       ENDIF
  242.    ENDIF
  243.    IF $POPT6 EQ "-P"
  244.       if $type eq "1"
  245.          PROTECT $FILE -P
  246.        ELSE
  247.          CD $FILE
  248.          PROTECT #? -P QUIET
  249.       ENDIF
  250.    ENDIF
  251.    IF $POPT7 EQ "-A"
  252.       if $type eq "1"
  253.          PROTECT $FILE -A
  254.        ELSE
  255.          CD $FILE
  256.          PROTECT #? -A QUIET
  257.       ENDIF
  258.    ENDIF
  259.    IF $POPT8 EQ "-H"
  260.       if $type eq "1"
  261.          PROTECT $FILE -H
  262.        ELSE
  263.          CD $FILE
  264.          PROTECT #? -H QUIET
  265.       ENDIF
  266.    ENDIF
  267. SKIP START BACK
  268. lab cvar
  269. UNSET TYPE
  270. UNSET PICK
  271. UNSET FILE
  272. UNSET DOIT
  273. UNSET RALL
  274. UNSET HOW
  275. UNSET PLUS
  276. UNSET MINUS
  277. UNSET POPT1
  278. UNSET POPT2
  279. UNSET POPT3
  280. UNSET POPT4
  281. UNSET POPT5
  282. UNSET POPT6
  283. UNSET POPT7
  284. UNSET POPT8
  285. UNSET POPT9
  286. if $action eq "KM"
  287. skip start2 back
  288. endif
  289. lab done
  290.