
#DEFINE VERZE "2022-08-15"
vysledek = m.vysledek + "  ver." + VERZE + m.crlf

#DEFINE SEKCE "FtpTransfer"

o_ftp_path = get_ini("FtpTransfer", "FtpPath")
n_ftp_path = STRTR(m.o_ftp_path, "/html/", "/")

o_ftp_server = get_ini("FtpTransfer", "FTPServer")

IF m.o_ftp_server = "asrv.cz"
    vysledek = m.vysledek + "  uz je prekonfigurovano na ASRV.CZ" + m.crlf

ELSE

    put_ini( "FTPServer"  , "asrv.cz"                      )
    put_ini( "FtpUserName", "altoftp.asrv.cz"              )
    put_ini( "FtpPassword", "chdjekfgggckgqholoaqdrdmdofo" )
    put_ini( "Passive"    , "Yes"                          )
    put_ini( "MaxLogSize" , "222000"                       )

    put_ini( "FTPPath"    , m.n_ftp_path                   )

ENDIF 


*!*****************************************************************************
FUNCTION put_ini
LPARAM klic, hodnota

o_hodnota = get_ini("FtpTransfer", m.klic)

pom = writeprivstr( SEKCE , m.klic, ALLTRIM(m.hodnota), m.gcini_file )

vysledek = m.vysledek + "    [" + SEKCE + "]" + PADR(m.klic, 15) + ":" + PADL(m.o_hodnota,30) + " --> " + m.hodnota + STR(m.pom) + m.crlf

