@SyntaxVersion 1.03
@Version 4.00
; ------------------------------------------------------------------------------
; BACKUP.IPS
;
; This script has been developed to backup the server prior to installing
;	the "IntranetWare Support Pack".
;
; Date: 17 April 1997
;
; ------------------------------------------------------------------------------
; "CoPyRiGhT=(c) 1997 Novell, Inc.  All Rights Reserved."
; VeRsIoN=4.00

;----- These variable are only used when doing a backup.  However, they must always be seen
;		outside of the BACKUP FileSet since SYS.IPS and BOOT.IPS are mandatory.


;----- BACKUP is set to TRUE if a backup is to be done.  Else FALSE.

@FileSet
	Name:  BACKUP
	CLASS: MANDATORY

	;----- If Done = true then don't backup -----
	GotoIfEqual %{done}, %{true},DONT_BACKUP
	GotoIfEqual %{backup}, %{false}, DONT_BACKUP


	;----- If SPACK is installed then do not backup files over the top of the original backup.
    ReadProductRecord SPACK, 0, Ver, cCode
    GotoIfNEqual %{cCode}, 0, SETUP
		SGotoIfGrEqual %{Ver}, %{SupportPackVersion}, DONT_BACKUP_MESSAGE
			Goto SETUP
	

Label DONT_BACKUP_MESSAGE
	Display 0, "NOTE: Files currently residing on the server will not be backed up because they would
		overwrite a backup done by this or a newer version of Support Pack."


Label DONT_BACKUP
	SetVar backup, %{false}
	Goto COPY_FILES

Label SETUP
;	Display 0, "Files that will be overwritten by the Support Pack will now be backed up to 
;		SYS:\\SYSTEM\\!BACKUP.SP4."

	SetVar backup, %{true}

	;----- Create a the backup directory
	GetPath SYSDir, 3, 'SYS:', ''
	GetPath SystemDir, 3, 'SYS:\\SYSTEM' ,''
	SetDir  SystemDir, "!Backup.sp4", '', '', 0, 2, 0
	GetPath BackupDir, 3, '%{SystemDir}\\!Backup.sp4', ''


	;----- Check to see that there is enough disk space available.
	SpaceCheck BackupDir, 50000000

	;----- Copy a text file explaining what the BackupDir is for.
	CopyFile 0,0,0,0,0,NWSRC,BACKUP\BACKUP.TXT,'','',BackupDir,'','','',0


Label COPY_FILES
@EndFileSet

	;----- Copy files from SYS:
	@FileSet
		Class:	MANDATORY
		NAME: SYS
	@EndFileSet
	@IncludeFile
		File:  SYS.IPS
	@EndIncludeFile


	;----- Copy files from DOS Partition
	@FileSet
		Class:	MANDATORY
		NAME: BOOT
	@EndFileSet
	@IncludeFile
		File:  BOOT.IPS
	@EndIncludeFile