/* ---------------------------------------------------------------------- */
/* Mozilla 1.6  installieren mit FlashOS/2                                */
/* Author: F. Hodel A-Net GmbH, www.anetgmbh.ch                           */
/* use at own risk! Please save Your data fist!                           */
/* ---------------------------------------------------------------------- */

/* activate REXX Utils                                                     */

  call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  call SysLoadFuncs

 '@echo off'

/* determine source drive for installation (CD or LAN drive)               */

   drivelist=SysDriveMap(,'USED')   /* all local and LAN drives */
   do forever
     parse var drivelist cddrv ' ' drivelist
     cddrv=strip(cddrv)
     filter = stream(cddrv'\cmd\inst_emx.cmd','c','query exists')
     if filter <> '' then  leave
   end /* do forever */
   say 'Quell-Laufwerk ist' cddrv

/* determine boot drive                                                    */
  bootdrv = SysBootDrive()
  say 'Boot-Laufwerk ist ' bootdrv
  say ''

/* ---------------------------------------------------------------------- */
/* Install Mozilla                                                        */
/* ---------------------------------------------------------------------- */

  say ' '
  say 'ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'
  say '³       Installationslaufwerk w„hlen         ³'
  say 'ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'
  say 'Mozilla wird auf ' bootdrv||'\mozilla kopiert'
  say '[Enter] falls o.k.,'
  say 'sonst Laufwerks-Buchstaben angeben:'
  pull answer
  if answer=='' then answer='C'
  if answer<>'' then do
     if substr(answer,length(answer),1) == ':'    /* : am Zeilenende       */
        then dd = ''
        else dd = ':'
     drive=answer||dd
   end /* if answer */

  say 'Mozilla wird auf ' drive||'\mozilla\  kopiert'
  call SysSleep(4)

  'xcopy ' cddrv||'\mozilla\*.* ' drive||'\mozilla\ /s'
  'xcopy ' cddrv||'\gcc\*.* ' bootdrv||'\os2\dll\'    /* GCC322.DLL + LIBC */

/* ---------------------------------------------------------------------- */
/* install flashOS/2 plugin                                               */
/* ---------------------------------------------------------------------- */
  cddrv
  'cd \flashos2'
  say ' '
  say 'Flash Installation'
  say ' '
  say 'w„hlen Sie zus„tzlich zu Netscape das Verzeichnis'
  say drive||'\mozilla\plugins'
  say ' '
  'pause'
  'flashos2_9_2002.exe'
  'cd'


/* ---------------------------------------------------------------------- */
  say ' '
  say 'mache ICON'

/* create Desktop Icon */
       If SysCreateObject("WPProgram","Mozilla 1.6","<WP_DESKTOP>",,
         "OBJECTID=<MOZILLA16>;"||,
         "EXENAME="drive||"\mozilla\mozilla.exe;"||,
         "STARTUPDIR="drive||"\mozilla;"||,
         "PROGTYPE=PM;")
       Then Say '" Programm Mozilla" erstellt'
       Else Say '"Programm Mozilla" nicht erstellt'
/* Icon created  */
/* ---------------------------------------------------------------------- */

  cddrive
  'cd \'