%REM
	Agent resetTheme
	Created Dec 14, 2009 by Paul Withers/Intec
	Description: Comments for Agent
%END REM
Option Public
Option Declare
Use "OpenLogFunctions"
Use "Copy Of Base64"
Sub Initialize()
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim importer As NotesDXLImporter
	Dim stream As NotesStream
	Dim newdxldoc As String, theme As String
	
	On Error GoTo logErr
	
	theme="IyBMYXlvdXQgUHJvcGVydGllcw0KDQojIFRvcCBUYWJzDQp0b3BUYWJzLnRpdGxlPQ0KdG9wVGFicy5saW5rPQ0KDQojIE1haW4gVGFicw0KbWFpblRhYnMudGl0bGU9TWFpbiBUYWIgMSxNYWluIFRhYiAyDQptYWluVGFicy5saW5rPWRlZmF1bHQueHNwLGRlZmF1bHQueHNwDQoNCiMgU2lkZSBCYXIgTWVudQ0Kc2lkZUJhck1lbnUudGl0bGU9U2lkZSBCYXIgTWVudSAxLFNpZGUgQmFyIE1lbnUgMixTaWRlIEJhciBNZW51IDMNCnNpZGVCYXJNZW51Lmxpbms9ZGVmYXVsdC54c3AsZGVmYXVsdC54c3AsZGVmYXVsdC54c3ANCg0KIyBGb290ZXIgQ29sdW1ucw0KZm9vdGVyQ29sdW1uLmhlYWRlcnM9Rm9vdGVyIENvbHVtbiAxIA0KZm9vdGVyQ29sdW1uMS5saW5rcz1kZWZhdWx0LnhzcCxyZXNldGNhY2hlLnhzcA0KZm9vdGVyQ29sdW1uMS50aXRsZXM9TGluayAxLFJlc2V0IENhY2hlDQoNCiMgR2xvYmFsIGJ1dHRvbnMNCmdsb2JhbEJ1dHRvbnMudGl0bGU9DQpnbG9iYWxCdXR0b25zLmxpbms9"
	theme = EncodeBase64("xsp.error.page=default=truexsp.theme=goldOneUI2.theme")

	'need To insert New base64 encoded dxl
	newdxldoc = "<?xml version='1.0' encoding='utf-8'?>"
	newdxldoc = newdxldoc & Chr(10) & "<!DOCTYPE note SYSTEM 'C:/Program Files/IBM/Lotus/Notes/xmlschemas/domino_8_5_1.dtd'>"
	newdxldoc = newdxldoc & Chr(10) & "<note class='form' xmlns='http://www.lotus.com/dxl' version='8.5' maintenanceversion='1.0' replicaid='8025768700616FEB'>"
	newdxldoc = newdxldoc & Chr(10) & "<updatedby><Name>CN=Paul Withers/O=Intec</Name></updatedby>"
	newdxldoc = newdxldoc & Chr(10) & "<wassignedby><Name>CN=Paul Withers/O=Intec</Name></wassignedby>"
	newdxldoc = newdxldoc & Chr(10) & "<item name='$Flags'><text>~C4g</text></item>"
	newdxldoc = newdxldoc & Chr(10) & "<item name='$FlagsExt'><text>w</text></item>"
	newdxldoc = newdxldoc & Chr(10) & "<item name='$TITLE'><text>WEB-INF/xsp.properties</text></item>"
	newdxldoc = newdxldoc & Chr(10) & "<item name='$FileSize' sign='true'><number>58</number></item>"
	newdxldoc = newdxldoc & Chr(10) & "<item name='$FileData' sign='true'>"
	newdxldoc = newdxldoc & Chr(10) & "<rawitemdata Type='1'>YQAYAAAAAAA6AAAAAQAAAAAAAAAAAAAAYABMAAAAOgA6AAAAAAAAAAAA"
	newdxldoc = newdxldoc & theme
	newdxldoc = newdxldoc & Chr(10) & "</rawitemdata></item>"
	newdxldoc = newdxldoc & Chr(10) & "<item name='$FileNames' sign='true'><text>WEB-INF/xsp.properties</text></item></note>"

	'import dxldoc
	Set importer = session.createDxlImporter

	importer.DesignImportOption = 6
	importer.AclImportOption = 1
	importer.DocumentImportOption = 1
	importer.ReplicaRequiredForReplaceOrUpdate = False
	importer.ReplaceDbProperties = false
	importer.InputValidationOption = 0

	Set db = session.CurrentDatabase

	Set stream = session.createStream
	stream.writeText(newdxldoc)
	
	Call importer.Import(stream,db)
	Exit Sub
	
logErr:
	Call LogError()
	Call logErrorEx(importer.log, 0, Nothing)
	Exit sub
End Sub