#include "fpkapi.fh"

main:


   OutDir   := "..\Out"    	//папка для файлов предназначенных для упаковки
   InDir    := "..\In"
   FROM_Address	:= "C:UA/ADMD:FMAIL/PRMD:KHARKOV/ORG:FOSS/OU:OFFICE/PN:SYSOP"
	 			//адрес отправителя
   TO_Address	:= "C:UA/ADMD:FMAIL/PRMD:KHARKOV/ORG:FOSS/OU:OFFICE/PN:SYSOP"
	 			//адрес получателя


   //Настройки транспорта занимающегося доставкой корреспонденции на почтовый узел
   //Каталоги для конвертов (принимаемых и отправляемых)
   FpkOutDir := ".\FPkOut" //папка в которую будут помещаться ФПК
   FpkInDir  := ".\FPKIn"  //папка в которую будут приниматься ФПК
   ServerAddr := "10.0.1.186"
   ServerPort := "10000"
   LogDir     := ".\log"
   ShowProccess := 1
   BoxName    := "ARM2"
   Password   := "123456"


   call ImportDLL



//инициализация
  _SetSelfAdr(FROM_Address)	//адрес отправителя для упаковываемых файлов
  _SetXPackerQUEUEDir(FpkOutDir) //Директория входящих ФПК узла FossMail32
  _SetXPackLogDir(".\log") 	//Если не вызывать функцию -  лог файл не ведется
  _SetXPackRepType(3)		//тип отчета для упаковываемых файлов
                                //1 - о доставке
                                //2 - о прочтении
                                //3 - оба

  _SetXUnPackRewriteMode(1)	//1-при распаковке одноименные файлы переименовываются
  				//0-распаковка ФПК откладыается
				//2-при распаковке одноименные файлы перезаписываются

  _SetXPackerBadDir(".\Bad")	//каталог для файлов, не распознанных как ФПК


   _SetXUnPackMode(1)		// 1 - распаковывать файлы с длинным именем
				// 0 - -//-     	     коротким именем
   _SetXPackMaxFNum(1)

  //Регистрация плагинов
  //Сжатие
  _u_register_plugin("fosszip.dll")
  _XPackerUsePlugin("fosszip.dll")



  //Инициализировать транспорт доставки корреспонденции на почтовый узел
  _Init_CheckUserBox(BoxName, Password, FpkInDir, FpkOutDir, ServerAddr, ServerPort, LogDir, ShowProccess);
  _printf("   To stop script press any key!")  //Вывод на консоль
  cycle_end := 10

//Скрипт обработки кореспонденции

//цикл обработки сообщений (если необходимо организовать цикл обработки - раскомментировать следующую строку и endwhile)
//while ( (cycle_end = 10) | (cycle_end = 21) ) do

  //упаковка
  _XPackAdd(".TH","Это тема сообщения")
  _Pack("*.*",OutDir,TO_Address)	


  //Выйти на связь используя локальный протокол
  cycle_end := _CheckUserBox( ShowProccess )

  if (cycle_end = -1) then
     _printf("Cannot access to mail server. You must install abonent.")
  endif

  _printf("cycle_end %i", cycle_end)  //Вывод на консоль

  //распаковка
  _UnPack(FpkInDir,InDir)

  if (cycle_end = 10) then 
    _printf("...Waiting for next scan....")  //Вывод на консоль
    //Задержка в миллисекундах
    //_Sleep(2000)
  endif

//endwhile

  //ДеИнициализировать транспорт доставки корреспонденции на почтовый узел
  _DeInit_CheckUserBox()

exit