'======================================================================
' $Id: ExportAddressBook.ls,v 1.1 2010/01/04 06:07:29 fukudat Exp $
' Copyright (c) 2009, 2010 Takeshi Fukuda.
'
' THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT WARRANTY OF ANY KIND.
' You may use, modify, and redistribute this software freely.
'======================================================================
Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Set db = session.CurrentDatabase
	
	' Enumerate over the Calender events
	Dim col As NotesDocumentCollection
	Set col = db.Search({Form = "Person"}, Nothing, 0)
	
	' Create an DXLExporter
	Dim exporter As NotesDXLExporter
	Set exporter = session.CreateDXLExporter
	
	' Export
	Dim xml As String
	xml = exporter.export(col)
	
	' Get a file to output
	fileName$ = Environ("TMP") & "\" & "AddressBook.xml"
	
	' Open the file
	Dim fileNumber As Integer
	fileNumber = Freefile
	Open fileName$ For Output As fileNumber
	On Error Goto Error_Handler
	
	' Write XML to file
	Print #fileNumber, xml
	
	' Close the file
	Close fileNumber
	
	' Kick the conversion program
	rc% = Shell("bash.exe -lc ""sync-iPhone-AddressBook.pl $TMP/AddressBook.xml $TMP/AddressBook.sqlitedb $iPhone; sleep 30"" ")
	
	Exit Sub
Error_Handler:
	Messagebox "Error " & Cstr(Err) & ": " & Error$ & "on line " & Cstr(Erl)
	Close fileNumber
	Exit Sub
End Sub