1*b1cdbd2cSJim Jagielski@ECHO OFF 2*b1cdbd2cSJim JagielskiIF '%1'==' GOTO End 3*b1cdbd2cSJim JagielskiIF NOT EXIST %1\. GOTO Module_Error 4*b1cdbd2cSJim Jagielski 5*b1cdbd2cSJim JagielskiSET OUTPUT=%1\OpenWith.SCP 6*b1cdbd2cSJim Jagielski 7*b1cdbd2cSJim JagielskiSET FILE=%@FILEOPEN[supported_extensions.txt,read,t] 8*b1cdbd2cSJim Jagielski 9*b1cdbd2cSJim JagielskiECHO // "OpenWith" Windows Registry keys for extensions supported by %1 > %OUTPUT% 10*b1cdbd2cSJim JagielskiECHO. >> %OUTPUT% 11*b1cdbd2cSJim Jagielski 12*b1cdbd2cSJim Jagielski:While_Read_File 13*b1cdbd2cSJim JagielskiSET LINE=%@FILEREAD[%FILE%] 14*b1cdbd2cSJim JagielskiIF '%LINE%'=='' GOTO While_Read_File 15*b1cdbd2cSJim JagielskiIF '%@LEFT[1,%LINE%]'==';' GOTO While_Read_File 16*b1cdbd2cSJim JagielskiIF '%LINE%'=='**EOF**' GOTO End_Read_File 17*b1cdbd2cSJim Jagielski 18*b1cdbd2cSJim JagielskiIF NOT '%@LEFT[1,%LINE%]'=='[' GOTO Register_Extension 19*b1cdbd2cSJim Jagielski 20*b1cdbd2cSJim JagielskiSET MODULE=%@UPPER[%@WORD["[]",0,%LINE%]] 21*b1cdbd2cSJim JagielskiGOTO While_Read_File 22*b1cdbd2cSJim Jagielski 23*b1cdbd2cSJim Jagielski:Register_Extension 24*b1cdbd2cSJim JagielskiIF NOT '%MODULE%'=='%@UPPER[%1]' GOTO While_Read_File 25*b1cdbd2cSJim Jagielski 26*b1cdbd2cSJim JagielskiECHO // .%LINE% >> %OUTPUT% 27*b1cdbd2cSJim JagielskiECHO RegistryItem gid_Regitem_OpenOffice_%LINE%_OpenWith_%1 >> %OUTPUT% 28*b1cdbd2cSJim JagielskiECHO ParentID = PREDEFINED_HKEY_CLASSES_ROOT; >> %OUTPUT% 29*b1cdbd2cSJim JagielskiECHO Subkey = ".%LINE%\OpenWithProgIDs"; >> %OUTPUT% 30*b1cdbd2cSJim JagielskiECHO ModuleID = gid_Module_Prg_%1_Bin; >> %OUTPUT% 31*b1cdbd2cSJim JagielskiECHO Name = "opendocument.%1Document.1"; >> %OUTPUT% 32*b1cdbd2cSJim JagielskiECHO Value = "%PRODUCTNAME %PRODUCTVERSION"; >> %OUTPUT% 33*b1cdbd2cSJim JagielskiECHO End >> %OUTPUT% 34*b1cdbd2cSJim JagielskiECHO. >> %OUTPUT% 35*b1cdbd2cSJim Jagielski 36*b1cdbd2cSJim JagielskiREM GOTO End_Read_File 37*b1cdbd2cSJim JagielskiGOTO While_Read_File 38*b1cdbd2cSJim Jagielski 39*b1cdbd2cSJim Jagielski:End_Read_File 40*b1cdbd2cSJim JagielskiSET ERROR=%@FILECLOSE[%FILE%] 41*b1cdbd2cSJim JagielskiGOTO End 42*b1cdbd2cSJim Jagielski 43*b1cdbd2cSJim Jagielski:Help 44*b1cdbd2cSJim JagielskiECHO Usage: %0 Module 45*b1cdbd2cSJim JagielskiECHO Example: %0 Calc 46*b1cdbd2cSJim JagielskiGOTO End 47*b1cdbd2cSJim Jagielski 48*b1cdbd2cSJim Jagielski:Module_Error 49*b1cdbd2cSJim JagielskiECHO Module %1 not found ! 50*b1cdbd2cSJim JagielskiGOTO End 51*b1cdbd2cSJim Jagielski 52*b1cdbd2cSJim Jagielski:End 53