ScpAction SCP_COPY_README_TXT
	Copy = "readme01.txt";
	Name = "readme.txt";
	Styles = (SCPZIP_REPLACE);
End

ScpAction SCP_COPY_README_HTML
	Copy = "readme01.html";
	Name = "readme.html";
	Styles = (SCPZIP_REPLACE);
End

ScpAction SCP_COPY_LICENSE_TXT
	Copy = "license01.txt";
	Name = "license.txt";
	Styles = (SCPZIP_REPLACE);
End

ScpAction SCP_COPY_LICENSE_HTML
	Copy = "license01.html";
	Name = "license.html";
	Styles = (SCPZIP_REPLACE);
End

ScpAction SCP_COPY_SETUP_GUIDE
	Copy = "InstGuide_111_win.pdf";
	Name = "InstGuide_111_win.pdf";
	Styles = (SCPZIP_REPLACE);
End

File gid_File_Txt_Readme
	Carrier = gid_DataCarrier;
	Date = "01022004";
	Time = "0700";
	UnixRights = 444;
	Dir = gid_Dir_Share_Readme;
	Name (01) = "readme01.txt";
	Name (03) = "readme03.txt";
	Name (07) = "readme07.txt";
	Name (30) = "readme30.txt";
	Name (31) = "readme31.txt";
	Name (33) = "readme33.txt";
	Name (34) = "readme34.txt";
	Name (35) = "readme35.txt";
	Name (36) = "readme36.txt";
	Name (37) = "readme37.txt";
	Name (50) = "readme50.txt";
	Name (39) = "readme39.txt";
	Name (42) = "readme42.txt";
	Name (43) = "readme43.txt";
	Name (44) = "readme44.txt";
	Name (45) = "readme45.txt";
	Name (46) = "readme46.txt";
	Name (47) = "readme47.txt";
	Name (48) = "readme48.txt";
	Name (49) = "readme49.txt";
	Name (55) = "readme55.txt";
	Name (66) = "readme66.txt";
	Name (77) = "readme77.txt";
	Name (81) = "readme81.txt";
	Name (82) = "readme82.txt";
	Name (86) = "readme86.txt";
	Name (88) = "readme88.txt";
	Name (90) = "readme90.txt";
	Name (91) = "readme91.txt";
	Name (96) = "readme96.txt";
	Name (97) = "readme97.txt";
	Name (99) = "readme99.txt";
	Styles = (PACKED,SETUPZIP,SCPZIP_REPLACE);
End

File gid_File_Txt_Readme_Html
	Carrier = gid_DataCarrier;
	Date = "01022004";
	Time = "0700";
	UnixRights = 444;
	Dir = gid_Dir_Share_Readme;
	Name (01) = "readme01.html";
	Name (03) = "readme03.html";
	Name (07) = "readme07.html";
	Name (30) = "readme30.html";
	Name (31) = "readme31.html";
	Name (33) = "readme33.html";
	Name (34) = "readme34.html";
	Name (35) = "readme35.html";
	Name (36) = "readme36.html";
	Name (37) = "readme37.html";
	Name (50) = "readme50.html";
	Name (39) = "readme39.html";
	Name (42) = "readme42.html";
	Name (43) = "readme43.html";
	Name (44) = "readme44.html";
	Name (45) = "readme45.html";
	Name (46) = "readme46.html";
	Name (47) = "readme47.html";
	Name (48) = "readme48.html";
	Name (49) = "readme49.html";
	Name (55) = "readme55.html";
	Name (66) = "readme66.html";
	Name (77) = "readme77.html";
	Name (81) = "readme81.html";
	Name (82) = "readme82.html";
	Name (86) = "readme86.html";
	Name (88) = "readme88.html";
	Name (90) = "readme90.html";
	Name (91) = "readme91.html";
	Name (96) = "readme96.html";
	Name (97) = "readme97.html";
	Name (99) = "readme99.html";
	Styles = (PACKED,SCPZIP_REPLACE);
End

File gid_File_Txt_License
	Carrier = gid_DataCarrier;
	Date = "01022004";
	Time = "0700";
	UnixRights = 444;
	Dir = gid_Dir_Share_Readme;
	Name (01) = "license01.txt";
	Name (03) = "license03.txt";
	Name (07) = "license07.txt";
	Name (30) = "license30.txt";
	Name (31) = "license31.txt";
	Name (33) = "license33.txt";
	Name (34) = "license34.txt";
	Name (35) = "license35.txt";
	Name (36) = "license36.txt";
	Name (37) = "license37.txt";
	Name (50) = "license50.txt";
	Name (39) = "license39.txt";
	Name (42) = "license42.txt";
	Name (43) = "license43.txt";
	Name (44) = "license44.txt";
	Name (45) = "license45.txt";
	Name (46) = "license46.txt";
	Name (47) = "license47.txt";
	Name (48) = "license48.txt";
	Name (49) = "license49.txt";
	Name (55) = "license55.txt";
	Name (66) = "license66.txt";
	Name (77) = "license77.txt";
	Name (81) = "license81.txt";
	Name (82) = "license82.txt";
	Name (86) = "license86.txt";
	Name (88) = "license88.txt";
	Name (90) = "license90.txt";
	Name (91) = "license91.txt";
	Name (96) = "license96.txt";
	Name (97) = "license97.txt";
	Name (99) = "license99.txt";
	Styles = (PACKED,SETUPZIP,SCPZIP_REPLACE);
End

File gid_File_Txt_License_Html
	Carrier = gid_DataCarrier;
	Date = "01022004";
	Time = "0700";
	UnixRights = 444;
	Dir = gid_Dir_Share_Readme;
	Name (01) = "license01.html";
	Name (03) = "license03.html";
	Name (07) = "license07.html";
	Name (30) = "license30.html";
	Name (31) = "license31.html";
	Name (33) = "license33.html";
	Name (34) = "license34.html";
	Name (35) = "license35.html";
	Name (36) = "license36.html";
	Name (37) = "license37.html";
	Name (50) = "license50.html";
	Name (39) = "license39.html";
	Name (42) = "license42.html";
	Name (43) = "license43.html";
	Name (44) = "license44.html";
	Name (45) = "license45.html";
	Name (46) = "license46.html";
	Name (47) = "license47.html";
	Name (48) = "license48.html";
	Name (49) = "license49.html";
	Name (55) = "license55.html";
	Name (66) = "license66.html";
	Name (77) = "license77.html";
	Name (81) = "license81.html";
	Name (82) = "license82.html";
	Name (86) = "license86.html";
	Name (88) = "license88.html";
	Name (90) = "license90.html";
	Name (91) = "license91.html";
	Name (96) = "license96.html";
	Name (97) = "license97.html";
	Name (99) = "license99.html";
	Styles = (PACKED,SCPZIP_REPLACE);
End

File GID_FILE_TXT_SETUP_GUIDE
	Carrier = gid_DataCarrier;
	Date = "01022004";
	Time = "0700";
	UnixRights = 444;
	Dir = gid_Dir_Share_Readme;
	Name = "InstGuide_111_win.pdf";
	Styles = (PACKED,SETUPZIP,SCPZIP_REPLACE);
End

Procedure gid_Procedure_Copy_Readme_File
	ProcName = "Copy_Readme_File";
	Styles = (STANDALONE,WORKSTATION,NETWORK,INSTALL,AFTER_INST,REPAIRABLE);
	Code = {Sub Copy_Readme_File
		Dim sourceFile As String
		Dim completeSourceFile As String
		Dim sourcePath As String
		Dim destFile As String
		Dim completeDestFile As String
		Dim destPath As String

		dim UILanguage As Integer
		dim UIString As String

		dim aLanguages As Object
		dim nCount As Integer
		dim i As Integer
		dim bLanguageFound As Boolean

		UILanguage = GetUILanguage()
		aLanguages = GetSelectedLanguages()
		nCount = UBound( aLanguages )

		bLanguageFound = false

		FOR i = 0 To nCount
			IF aLanguages(i) = UILanguage THEN
				bLanguageFound = true
			ENDIF
		NEXT i

		IF ( bLanguageFound = false ) THEN
			UILanguage = aLanguages(0)
		ENDIF

		If ( UILanguage < 10 ) Then
			UIString = "0" & UILanguage
		Else
			UIString = UILanguage
		Endif

		If GetsetupEnv.InstallMode = "IM_WORKSTATION" Then
			sourcePath = DirEntry(GetSetupEnv.SourcePath, "share", "readme")
		Else
			sourcePath = DirEntry(GetSetupEnv.DestPath, "share", "readme")
		Endif

		destPath = DirEntry(GetSetupEnv.DestPath)


		sourceFile = "readme" & UIString & ".txt"
		destFile = "readme.txt"




		completeSourceFile = DirEntry(sourcePath, sourceFile)
		completeDestFile = DirEntry(destPath, destFile)
		FileCopy(completeSourceFile, completeDestFile)


		sourceFile = "license" & UIString & ".txt"
		destFile = "license.txt"




		completeSourceFile = DirEntry(sourcePath, sourceFile)
		completeDestFile = DirEntry(destPath, destFile)
		FileCopy(completeSourceFile, completeDestFile)


		sourceFile = "readme" & UIString & ".html"
		destFile = "readme.html"




		completeSourceFile = DirEntry(sourcePath, sourceFile)
		completeDestFile = DirEntry(destPath, destFile)
		FileCopy(completeSourceFile, completeDestFile)


		sourceFile = "license" & UIString & ".html"
		destFile = "license.html"




		completeSourceFile = DirEntry(sourcePath, sourceFile)
		completeDestFile = DirEntry(destPath, destFile)
		FileCopy(completeSourceFile, completeDestFile)


		sourceFile = "InstGuide_111_win.pdf"
		destFile = "InstGuide_111_win.pdf"




		completeSourceFile = DirEntry(sourcePath, sourceFile)
		completeDestFile = DirEntry(destPath, destFile)
		FileCopy(completeSourceFile, completeDestFile)

	End Sub

};
End

Procedure gid_Procedure_Remove_Readme_File
	ProcName = "Remove_Readme_Files";
	Styles = (STANDALONE,WORKSTATION,NETWORK,UNINSTALL,BEFORE_INST);
	Code = {Sub Remove_Readme_Files
		Dim readmePath As String
		Dim readmeFile As String
		Dim completeFile As String

		readmePath = DirEntry(GetSetupEnv.DestPath)


		readmeFile = "readme.txt"



		completeFile = DirEntry(readmePath, readmeFile)
		kill completeFile


		readmeFile = "readme.html"



		completeFile = DirEntry(readmePath, readmeFile)
		kill completeFile


		readmeFile = "license.txt"



		completeFile = DirEntry(readmePath, readmeFile)
		kill completeFile


		readmeFile = "license.html"



		completeFile = DirEntry(readmePath, readmeFile)
		kill completeFile


		readmeFile = "InstGuide_111_win.pdf"



		completeFile = DirEntry(readmePath, readmeFile)
		kill completeFile

    End Sub
};
End

