home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 2000 April & May / AMIGA_2000_04.iso / patches / clipper / steuerung < prev   
Encoding:
AmigaDOS Script File  |  1992-09-17  |  1.9 KB  |  87 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © WEKA Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "install"
  14.     set vinstall 1
  15. endif
  16. set binfo        1
  17. set bcopy        1
  18. set binstall     1
  19.  
  20.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  21.     set nummer 0
  22.     if $binfo EQ 1
  23.          echo >>t:tmpsteuerung " Info" NOLINE
  24.          set nummer `eval $nummer + 1`
  25.          set ninfo $nummer
  26.     endif
  27.     if $bcopy EQ 1
  28.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  29.          set nummer `eval $nummer + 1`
  30.          set ncopy $nummer
  31.     endif
  32.     if $binstall EQ 1
  33.          echo >>t:tmpsteuerung " Installieren" NOLINE
  34.          set nummer `eval $nummer + 1`
  35.          set ninstall $nummer
  36.     endif
  37.     if "[param]" EQ ""
  38.         echo >>t:tmpsteuerung " Ende" NOLINE
  39.         execute >nil: t:tmpsteuerung
  40.         delete >nil: t:tmpsteuerung
  41.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  42.         if $reqerg[$$] EQ 0
  43.             skip Ende
  44.         endif
  45.     endif
  46.     if $reqerg[$$] EQ $ninfo
  47.         set vinfo 1
  48.     endif
  49.     if $reqerg[$$] EQ $ncopy
  50.         set vcopy 1
  51.     endif
  52.     if $reqerg[$$] EQ $ninstall
  53.         set vinstall 1
  54.     endif
  55. endif
  56.  
  57. if $vinfo EQ 1
  58. ;>>>>>>>> Hier Infotext eintragen
  59.     :c/Metatool :Patches/Clipper/Clipper.guide FT=GUIDE
  60. endif
  61. if $vcopy EQ 1
  62.     execute :c/Verzeichniskopieren ":Patches/Clipper/" "Clipper" 173056
  63. endif
  64. if $vinstall EQ 1
  65. ;>>>>>>>> Hier Install-Skript eintragen
  66.     assign l: :l add
  67.     cd >nil: :Patches/Clipper/
  68.     :c/WBstarter >nil: :Patches/Clipper/Install-Clipper
  69.     assign l: :l remove
  70.     skip Ende
  71. endif
  72.  
  73. unset binfo
  74. unset vinfo
  75. unset ninfo
  76. unset binstall
  77. unset vinstall
  78. unset ninstall
  79. unset bcopy
  80. unset vcopy
  81. unset ncopy
  82. if "[param]" EQ ""
  83.     execute Steuerung
  84. endif
  85. LAB Ende
  86. unsetenv reqerg[$$]
  87.