; UnInstaller script for HTMLread.rexx
; $VER:UnInstall HTMLread V1.0 (03.02.2001)

(set @default-dest "")
(set @app-name "HTMLread Uninstaller")
(set @user-level 2)
(user 1)

(complete 0)

(message "\nHTMLread uninstallation!\n\n\n"
         ("This script uninstalls HTMLread!\n")
)

(complete 5)

(if (exists "YAM:HTMLread" (noreq))
        ( (set path "YAM:HTMLread") )
        ( ( set path (askdir (prompt "Please choose the HTMLread drawer!")
                             (help @askdir-help )
                             (default "YAM:")
                     )
          )
        )
)
(if (askbool (prompt ("\n\nHTMLread UnInstaller!\n\nDo you want realy delete HTMLread\n(%s)\n?" path) )
             (help "Yes if you want delete HTMLread\n\n"
                   "No, if you want skip...")
             (default 0)
             (choices "Yes, delete!" "No, skip!")
    )
   (   (complete 10)
       (run ("c:delete %s/HTMLread#? ALL QUIET FORCE" path))
       (run ("c:delete %s/Scripts#? ALL QUIET FORCE" path))
       (run ("c:delete %s/Optimizer#? QUIET FORCE" path))
       (run ("c:delete %s/MicroRexx#? ALL QUIET FORCE" path))
       (run ("c:delete %s/DOC#? ALL QUIET FORCE" path))
       (run ("c:delete %s/clearCache#? ALL QUIET FORCE" path))
       (run ("c:delete %s/DownloadListPrefs.rx#? ALL QUIET FORCE" path))
       (run ("c:delete %s/bin#? ALL QUIET FORCE" path))
        (complete 70)
       (run ("c:delete %s//UnInstall QUIET FORCE" path))
       (run ("c:delete %s//UnInstall.info QUIET FORCE" path))
       (run ("c:delete %s/UnInstall QUIET FORCE" path))
       (run ("c:delete %s/UnInstall.info QUIET FORCE" path))
       (run ("c:delete %s QUIET FORCE" path))
        (complete 80)
       (run ("c:delete %s.info QUIET FORCE" path))
        (complete 90)
       (run ("c:delete ENV:HTMLread#? ALL QUIET FORCE"))
       (run ("c:delete ENVARC:HTMLread#? ALL QUIET FORCE"))
        (complete 91)
       (run ("c:delete ENV:HRdownload#? ALL QUIET FORCE"))
       (run ("c:delete ENVARC:HRdownload#? ALL QUIET FORCE"))
        (complete 92)
       (run ("c:delete YAM:Icons/ERROR.GIF QUIET FORCE"))
       (run ("c:delete YAM:Icons/DOWNLOAD.GIF QUIET FORCE"))
       (run ("c:delete YAM:Icons/NOTFOUND.GIF QUIET FORCE"))
       (run ("c:delete C:HTMLread QUIET FORCE"))
       (run ("c:delete YAM:badurls.HTMLread QUIET FORCE"))
        (complete 93)
       (if (exists "YAM:Rexx/HTMLread.rx" (noreq))
                (  (run ("c:delete YAM:Rexx/HTMLread.rx#? ALL QUIET FORCE"))
                )
                (  (set hrexx (askfile (prompt "Please select the HTMLread.rx script:")
                                      (help @askdir-help)
                                      (default "YAM:Rexx/")
                             )
                   )
                   (if (exists hrexx (noreq))
                        ( (run ("c:delete %s QUIET FORCE" hrexx))
                          (run ("c:delete %s.bak QUIET FORCE" hrexx))
                        )
                   )
                )
       )
       (complete 93)
       (if (exists "YAM:Rexx/checkHTML.rx" (noreq))
                (  (run ("c:delete YAM:Rexx/checkHTML.rx#? ALL QUIET FORCE"))
                )
                (  (set hrexx (askfile (prompt "Please select the checkHTML.rx script:")
                                      (help @askdir-help)
                                      (default "YAM:Rexx/")
                             )
                   )
                   (if (exists hrexx (noreq))
                        ( (run ("c:delete %s QUIET FORCE" hrexx))
                          (run ("c:delete %s.bak QUIET FORCE" hrexx))
                        )
                   )
                )
       )
       (complete 94)
       (if (exists "YAM:Rexx/HRdownload.rx" (noreq))
                (  (run ("c:delete YAM:Rexx/HRdownload.rx#? ALL QUIET FORCE"))
                )
                (  (set hrexx (askfile (prompt "Please select the HRdownload.rx script:")
                                      (help @askdir-help)
                                      (default "YAM:Rexx/")
                             )
                   )
                   (if (exists hrexx (noreq))
                        ( (run ("c:delete %s QUIET FORCE" hrexx))
                          (run ("c:delete %s.bak QUIET FORCE" hrexx))
                        )
                   )
                )
       )
       (complete 95)
       (if (exists "YAM:Rexx/miamionoff.rx" (noreq))
                (  (run ("c:delete YAM:Rexx/miamionoff.rx#? ALL QUIET FORCE"))
                )
                (  (set hrexx (askfile (prompt "Please select the miamionoff.rx script:")
                                      (help @askdir-help)
                                      (default "YAM:Rexx/")
                             )
                   )
                   (if (exists hrexx (noreq))
                        ( (run ("c:delete %s QUIET FORCE" hrexx))
                          (run ("c:delete %s.bak QUIET FORCE" hrexx))
                        )
                   )
                )
       )
       (complete 96)
       (if (exists "YAM:Rexx/GENESISonoff.rx" (noreq))
                (  (run ("c:delete YAM:Rexx/GENESISonoff.rx#? ALL QUIET FORCE"))
                )
                (  (set hrexx (askfile (prompt "Please select the GENESISonoff.rx script:")
                                      (help @askdir-help)
                                      (default "YAM:Rexx/")
                             )
                   )
                   (if (exists hrexx (noreq))
                        ( (run ("c:delete %s QUIET FORCE" hrexx))
                          (run ("c:delete %s.bak QUIET FORCE" hrexx))
                        )
                   )
                )
       )
       (complete 99)
       (message "\nHTMLread is now uninstalled!\n\nDo not forget to remove HTMLread from youre YAM-config! "
                "Start YAM and run the configwindow. Choose under ARexx: "
                "»When reading a message«. Remove »YAM:Rexx/HTMLread.rexx«\nBye, bye..."
       )
   )
)

(complete 100)
(exit)

(welcome)