#include "fpkapi.fh"

main:


   OutDir   := "..\Out"    	//папка для файлов предназначенных для упаковки
   InDir    := "..\In"
   FROM_Address	:= "C:UA/ADMD:PRIVATBANK/PRMD:UCIH/ORG:CENTER/OU:OFFICE/PN:ARM1"
	 			//адрес отправителя
   TO_Address	:= "C:UA/ADMD:NBU/PRMD:U1H0/ORG:CRP/OU:ЦЕНТРАЛЬНА-РОЗРАХУНКОВА-ПАЛА/PN:ARM2"
	 			//адрес получателя


   //Настройки транспорта занимающегося доставкой корреспонденции на почтовый узел
   //Каталоги для конвертов (принимаемых и отправляемых)
   FpkOutDir := ".\FPkOut" //папка в которую будут помещаться ФПК
   FpkInDir  := ".\FPKIn"  //папка в которую будут приниматься ФПК
   ServerAddr := "UCIH"
   ServerPort := "10000"
   LogDir     := ".\log"
   ShowProccess := 0
   BoxName    := "ARM1"
   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","Speed test")
  _Pack("*.*",OutDir,TO_Address)	

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

  _MoveFilesEx("..\In\*.*", "..\Out\", 1);


endwhile

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



exit