; script : sysplug.spt association type MIME entre
; syscript.exe et tous les fichiers de type .spg

LOGSTOP ON
;trace on
;************** Installation du Plugin ******************

CALLSUB SysIniLANG

SET FILEDIALOG=%SCRIPTPATH%\SysPlug.exe
IF "%FILEDIALOG%"<>"%ESC%" THEN
  FILENAME %FILEDIALOG%
  DRIVENAME %FILEDIALOG%
  PATHNAME %FILEDIALOG%
  SET ASKDIR=%DRIVENAME%%PATHNAME%
  IF NOT EXIST "%ASKDIR%\" THEN
     MD %ASKDIR%
  ENDIF
  SHORTNAME %ASKDIR%
ELSE
  EXIT
ENDIF

POPUP ON,Installation en cours....
WAIT 1
SET EXTENSION=spg
SET PlugPRG=%FILENAME%
DRIVENAME %WINDIR%
CALLSUB ParamKEY
VARSEP °
CALLSUB Install_IE5°PARAMOS°
IF "°CALLSUB°"<>"" THEN
  POPUP ON,°CALLSUB°
  WAIT 5
  EXIT
ENDIF
VARSEP %
WAIT 2
del %SCRIPTPATH%\ReadmeFirst.txt
POPUP OFF
;    CALL http://www.sinetis.fr/WAPDEMO/lanceur.spg
DEL %WORKDIR%\setup_sysplug.exe
CALLSUB VALIDATE_BYCOOKIE
;*************************** PROCEDURES ***************************
SUB VALIDATE_BYCOOKIE
    CLEAR $VALIDATION_WEBDOMAIN

    SET DISTANT_DIRECTORY=/WebAndPlay
    SET $VALIDATION_WEBDOMAIN=www.sinetis.fr%DISTANT_DIRECTORY%

    FOR BCL,1,%N$VALIDATION_WEBDOMAIN%
        HTTP GET,http://%$VALIDATION_WEBDOMAIN(%BCL%)%/validate_install.php?val=1,%TEMP%\validation.Log
        DEL %TEMP%\validation.Log
    NEXT
ENDSUB


SUB PASKDIR
    DRIVE ON
    ASKDIR c:\
    IF %ASKDIR%=%ESC% THEN
       EXIT
    ENDIF
EXITSUB

SUB ParamKEY
    CENTER ON
    IF %OS%=Windows_NT THEN
       SWITCH ON,%OSBUILD%
          ; W2000
          SWITCH CASE,2195
             SET PARAMOS=2K
             SET HKEY=HKEY_CURRENT_USER
          ; WNT
          SWITCH CASE,1381
             SET PARAMOS=2K
             SET HKEY=HKEY_LOCAL_MACHINE
          ; XP PRO
          SWITCH CASE,2600
             SET PARAMOS=2K
             SET HKEY=HKEY_CURRENT_USER
          SWITCH ELSE
            SET PARAMOS=9x
            SET HKEY=HKEY_LOCAL_MACHINE
       SWITCH OFF
    ELSE
        SET PARAMOS=9x
        SET HKEY=HKEY_LOCAL_MACHINE
    ENDIF
;    IF "%USERNAME%"="%SYSTEM%" THEN
;       SET HKEY=HKEY_LOCAL_MACHINE
;    ENDIF
    IF "%ADMIN%"="1" THEN
       SET HKEY=HKEY_LOCAL_MACHINE
    ENDIF
EXITSUB

SUB Install_IE52K
    REGKEYNEW "°HKEY°\SOFTWARE\Classes\.°EXTENSION°"
    IF °ERROR°>0 EXITSUB erreur d'installation
    REGKEYSET °HKEY°\SOFTWARE\Classes\.°EXTENSION°,DEFAULT,°EXTENSION°_auto_file,REG_SZ

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file"
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file,DEFAULT,fichier °EXTENSION°,REG_SZ
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file,EditFlags,00 00 01 00,REG_BINARY

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell"

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open"
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open,DEFAULT,,REG_SZ

    REGKEYGET "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open\command"
     IF °ERROR°=0 THEN
       CUT " ",°REGKEYGET°
       IF "°CUT1°"="°SHORTNAME°\°PlugPRG°" Then
           EXITSUB
       ENDIF
       IF °LANGUE°=FR THEN
          ASKOK L'association existe déjà :°CR°°CR°°REGKEYGET°°CR°°CR°Voulez-vous l'écraser par ?°CR°°CR°°SHORTNAME°\°PlugPRG°
       ELSE
          ASKOK Association already exist :°CR°°CR°°REGKEYGET°°CR°°CR°Do you want to erase it by ?°CR°°CR°°SHORTNAME°\°PlugPRG°
       ENDIF
       IF "°ASKOK°"="°ESC°" THEN
          EXITSUB
       ENDIF
    ENDIF
    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open\command"
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open\command,DEFAULT,"°SHORTNAME°\°PlugPRG°" "%1",REG_SZ

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°"
    REGKEYSET °HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°,EditFlags,00 00 01 00,REG_BINARY

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell"
    REGKEYSET °HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell,FriendlyCache,Remote Operations Enterprise Version,REG_SZ
    REGKEYSET °HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell,FriendlyCacheCTime,805820880e36c101,REG_BINARY

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell\open"
    REGKEYSET °HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell\open,DEFAULT,,REG_SZ

    REGKEYGET "°HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell\open\command"
    IF °ERROR°<>0 THEN
       REGKEYNEW "°HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell\open\command"
    ENDIF
    REGKEYSET °HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell\open\command,DEFAULT,"°SHORTNAME°\°PlugPRG°" "%1",REG_SZ
EXIT SUB

SUB Install_IE59x
    REGKEYNEW "°HKEY°\SOFTWARE\Classes\.°EXTENSION°"
    IF %ERROR%>0 EXITSUB Vous devez au minimum etre utilisateur avec pouvoir pour installer le Plug-in
    REGKEYSET °HKEY°\SOFTWARE\Classes\.°EXTENSION°,DEFAULT,°EXTENSION°_auto_file,REG_SZ

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file"
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file,DEFAULT,fichier °EXTENSION°,REG_SZ
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file,EditFlags,00 00 01 00,REG_BINARY

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell"

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open"
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open,DEFAULT,,REG_SZ

    REGKEYGET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open\command,DEFAULT
    IF °ERROR°=0 THEN
      CUT " ",°REGKEYGET°
      IF "°CUT1°"="°SHORTNAME°\°PlugPRG°" Then
          EXITSUB
      ENDIF
      IF °LANGUE°=FR THEN
          ASKOK L'association existe déjà :°CR°°CR°°REGKEYGET°°CR°°CR°Voulez-vous l'écraser ?
       ELSE
          ASKOK Association already exist :°CR°°CR°°REGKEYGET°°CR°°CR°Do you want to erase it ?
       ENDIF
       IF "°ASKOK°"="°ESC°" THEN
          EXITSUB
       ENDIF
    ENDIF
    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open\command"
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open\command,DEFAULT,"°SHORTNAME°\°PlugPRG°" "%1",REG_SZ
EXIT SUB

SUB INIT_LANG
    IF %OS%=Windows_NT THEN
       REGKEYGET HKEY_CURRENT_USER\Control Panel\International,sLanguage
       IF %REGKEYGET%=FRA THEN
          SET LANGUE=FR
       ELSE
          SET LANGUE=US
       ENDIF
    ELSE
       REGKEYGET HKEY_CURRENT_USER\Control Panel\International,Locale
       IF %REGKEYGET%=0000040C OR %REGKEYGET%=40c THEN
          SET LANGUE=FR
       ELSE
          SET LANGUE=US
       ENDIF
    ENDIF
EXITSUB %LANGUE%

SUB Install_IE5_ADMIN2K
    REGKEYNEW "°HKEY°\SOFTWARE\Classes\.°EXTENSION°"
    IF °ERROR°>0 EXITSUB erreur d'installation
    REGKEYSET °HKEY°\SOFTWARE\Classes\.°EXTENSION°,DEFAULT,°EXTENSION°_auto_file,REG_SZ

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file"
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file,DEFAULT,fichier °EXTENSION°,REG_SZ
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file,EditFlags,00 00 01 00,REG_BINARY

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell"

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open"
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open,DEFAULT,,REG_SZ

    REGKEYGET "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open\command"
    REGKEYNEW "°HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open\command"
    REGKEYSET °HKEY°\SOFTWARE\Classes\°EXTENSION°_auto_file\shell\open\command,DEFAULT,"°SHORTNAME°\°PlugPRG°" "%1",REG_SZ

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°"
    REGKEYSET °HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°,EditFlags,00 00 01 00,REG_BINARY

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell"
    REGKEYSET °HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell,FriendlyCache,Remote Operations Enterprise Version,REG_SZ
    REGKEYSET °HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell,FriendlyCacheCTime,805820880e36c101,REG_BINARY

    REGKEYNEW "°HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell\open"
    REGKEYSET °HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell\open,DEFAULT,,REG_SZ

    REGKEYGET "°HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell\open\command"
    REGKEYNEW "°HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell\open\command"
    REGKEYSET °HKEY°\SOFTWARE\Classes\Applications\°PlugPRG°\shell\open\command,DEFAULT,"°SHORTNAME°\°PlugPRG°" "%1",REG_SZ
EXIT SUB

SUB SysIniLANG
    IF "%LANG%"="" THEN
       IF %OS%=Windows_NT THEN
          REGKEYGET HKEY_CURRENT_USER\Control Panel\International,sLanguage
          IF %REGKEYGET%=FRA THEN
             SET LANGUE=FR
          ELSE
             SET LANGUE=US
          ENDIF
       ELSE
          REGKEYGET HKEY_CURRENT_USER\Control Panel\International,Locale
          IF %REGKEYGET%=0000040C OR %REGKEYGET%=40c THEN
             SET LANGUE=FR
          ELSE
             SET LANGUE=US
          ENDIF
       ENDIF
     ELSE
       SWITCH ON,%LANG%
          SWITCH CASE,FR
             SET LANGUE=FR
          SWITCH ELSE
             SET LANGUE=US
       SWITCH OFF
     ENDIF
EXITSUB