home *** CD-ROM | disk | FTP | other *** search
- ;==========================================
- ; IMAGE LIBRARY Beta2
- ;
- ; Target platform = AIRWALK
- ; Package type = Utility
- ; Package Name = UdfReader
- ;==========================================
-
-
- DEBUG
- #Package,UDFReadr
- #Version,UDFR103b
- #Target_OS,NT4 Win95 Win98 NT5
- #Target_OS_Major,4
- #Target_OS_Minor,0
- #Target_OS_CSD,Service Pack 3 Service Pack 4 Service Pack 5 Service Pack 6
- #Target_LOC,ENGLISH FRENCH GERMAN ITALIAN SPANISH JAPANESE
- #ALL_LOCS,TRUE
- #ALL_OS,TRUE
- #TARGET_DIR,C:\Masters\#Package
-
- INCLUDE,MSG.Script
- LOG,#F_FAIL
- GRADIENT,#COLOR_TOP,#COLOR_BOTTOM
- MSG_START,#FONT_SIZE,#COLOR_BACK,#COLOR_TEXT,#ENV,#MSG_POS
- INI_SEC_DEL,#F_RESULT,#Package
- INI_KEY_WRITE,#F_RESULT,#Package,Install_Start,#NOW
-
- ;==========================================
- ; Verify the current loc and set LOC variable
- ; If don't exists then exit sript
- ;==========================================
-
- INCLUDE,LOC.script
-
- ;==========================================
- ; Verify the current OS and set OS variable
- ; If don't exists then exit sript
- ;==========================================
- #OS,#OS_Name
-
- :OS_TEST
- FINDSTRING,#Target_OS,#OS_Name
- ONERROR,ERROR_OS
- GOTO,END_OS
-
- :ERROR_OS
- #ERROR_MSG,#ERR_OS
- ; Write error somewhere...
- INI_KEY_WRITE,#F_RESULT,#Package,STATUS,FAIL
- INI_KEY_WRITE,#F_RESULT,#Package,CHECK,FAIL
- ; And finally exit the script
- GOTO,EXIT_ON_ERROR
-
- :END_OS
-
- ;Check if already installed
- EQUAL,#OS_NAME,NT4
- ONERROR,AUTRE
- FILE_EXISTS,#windir\system32\drivers\udfreadr.sys
- GOTO,ESSAI
-
- :AUTRE
- FILE_EXISTS,#windir\Iosubsys\udfreadr.vxd
-
- :ESSAI
- ONERROR,FIRST_INSTALL
- #ERROR_MSG,#DONE
- ; Write error somewhere...
- INI_KEY_WRITE,#F_RESULT,#Package,STATUS,PASS
- INI_KEY_WRITE,#F_RESULT,#Package,CHECK,FAIL
- ; And finally exit the script
- MSG_START,#FONT_SIZE,#COLOR_BACK,#COLOR_TEXT,#ERROR_MSG,#MSG_POS
- Delay,10
- LOG,#F_DONE
- GOTO,FIN
-
- ;==========================================
- ; Write Package information to Log file
- ;
- ;==========================================
-
- :FIRST_INSTALL
- MSG_START,#FONT_SIZE,#COLOR_BACK,#COLOR_TEXT,#ENV_OK,#MSG_POS
-
- INI_KEY_WRITE,#F_RESULT,#Package,PACKAGE_REV,#Version
- INI_KEY_WRITE,#F_RESULT,#Package,TARGET_OS,#Target_OS
- INI_KEY_WRITE,#F_RESULT,#Package,OS,#OS_NAME #OS_MAJORVERSION.#OS_MINORVERSION
- INI_KEY_WRITE,#F_RESULT,#Package,SP,#OS_CSD
- INI_KEY_WRITE,#F_RESULT,#Package,LOC,#LOC
- INI_KEY_WRITE,#F_RESULT,#Package,Install_Start,#NOW
- Delay,10
-
- :COPY_TO_MASTERS
- MSG_START,#FONT_SIZE,#COLOR_BACK,#COLOR_TEXT,#COPY,#MSG_POS
-
- #LOC,#LOC,\
- EQUAL,#ALL_LOCS,TRUE
- ONERROR,LOC_OS
- #LOC,#NULL
-
- :LOC_OS
- #OS,#OS,\
- EQUAL,#ALL_OS,TRUE
- ONERROR,LOC_PATH
- #OS,#NULL
-
- :LOC_PATH
- FILE_COPY,#OSPackage\#LOC*.*,#TARGET_DIR,SILENT,NOCONFIRMATION,NOCONFIRMKDIR
-
- ;==========================================
- ; Verify copy
- ;
- ;==========================================
- :VERIFY_COPY
- FILE_EXISTS,#TARGET_DIR\udfrinst.exe
-
- ONGOOD,START_INSTALL
- #ERROR_MSG,#ERR_COPY
- ; Write error somewhere...
- INI_KEY_WRITE,#F_RESULT,#Package,STATUS,FAIL
- INI_KEY_WRITE,#F_RESULT,#Package,CHECK,FAIL
- ; And finally exit the script
- GOTO,EXIT_ON_ERROR
-
-
- :START_INSTALL
-
- MSG_START,#FONT_SIZE,#COLOR_BACK,#COLOR_TEXT,#COPY_OK,#MSG_POS
- Delay,10
- MSG_START,#FONT_SIZE,#COLOR_BACK,#COLOR_TEXT,#SETUP,#MSG_POS
- Delay,10
- MSG_START,#FONT_SIZE,#COLOR_BACK,#COLOR_TEXT,#WAIT,#MSG_POS
-
- START,#TARGET_DIR\udfrinst.exe, /SILENT
-
- Delay,30
-
- ;==========================================
- ; Apply any patch to registry or ini files
- ;
- ;==========================================
- :APPLY_PATCH
-
- ;==========================================
- ; Verify Install
- ;
- ;==========================================
- :VERIFY_INSTALL
- Delay,30
- EQUAL,#OS_NAME,NT4
- ONERROR,OTHER
- FILE_EXISTS,#windir\system32\drivers\udfreadr.sys
- GOTO,TEST
-
- :OTHER
- EQUAL,#OS_NAME,Win95,Win98
- ONERROR,TEST
- FILE_EXISTS,#windir\System\Iosubsys\udfreadr.vxd
-
- :TEST
- ONGOOD,INSTALL_OK
- #ERROR_MSG,#ERR_VERIF
- ; Write error somewhere...
- INI_KEY_WRITE,#F_RESULT,#Package,STATUS,PASS
- INI_KEY_WRITE,#F_RESULT,#Package,CHECK,FAIL
- ; And finally exit the script
- GOTO,EXIT_ON_ERROR
-
- :INSTALL_OK
- INI_KEY_WRITE,#F_RESULT,#Package,STATUS,PASS
- INI_KEY_WRITE,#F_RESULT,#Package,CHECK,PASS
- INI_KEY_WRITE,#F_RESULT,#Package,Install_Stop,#NOW
- INI_KEY_WRITE,#F_RESULT,#Package,ERROR,None
- MSG_START,#FONT_SIZE,#COLOR_BACK,#COLOR_TEXT,#OK,#MSG_POS
- Delay,10
-
- :END_OF_SCRIPT
- LOG,#F_PASS
- GOTO,FIN
-
- :EXIT_ON_ERROR
- ; Tell user that package don't support the current LOC
- MSG_START,#FONT_SIZE,#COLOR_BACK,#COLOR_TEXT,#ERROR_MSG,#MSG_POS
- INI_KEY_WRITE,#F_RESULT,#Package,ERROR,#ERROR_MSG
- INI_KEY_WRITE,#F_RESULT,#Package,PACKAGE_REV,#Version
- INI_KEY_WRITE,#F_RESULT,#Package,TARGET_OS,#Target_OS
- INI_KEY_WRITE,#F_RESULT,#Package,OS,#OS_NAME #OS_MAJORVERSION.#OS_MINORVERSION
- INI_KEY_WRITE,#F_RESULT,#Package,SP,#OS_CSD
- INI_KEY_WRITE,#F_RESULT,#Package,LOC,#CURRENT_LOC
- INI_KEY_WRITE,#F_RESULT,#Package,Install_Stop,#NOW
- DELAY,20
- GRADIENT,clBlack,clBlack
- MSG_START,#FONT_SIZE,#CL_RED,#CL_BLACK,#FAIL,#MSG_POS
- DELAY,20
-
- :FIN
-
-
-
-