KFHT#34512 Exact-koppeling

svn path=/Website/branches/v2015.3/; revision=27999

CUST/KFHT/export/ftp_opdr2htc.scr

@@ -1,8 +1,8 @@
 open csmftp01.hightechcampus.nl
 user Facilitor
 hH5Aqj3
-pasv
-hash
-lcd Import
-put EXACT*.xml
+quote pasv
+cd Import
+binary
+mput EXACT*.xml
 bye

CUST/KFHT/export/gen_export_EXACT.bat

@@ -18,7 +18,8 @@ copy .\Exact\EXACT*.xml .\Exact\Backup
 del .\Exact\EXACT*.xml
 
 REM ================================================== create exportfile
-REM CALL ..\..\..\utils\gen_export\gen_export.bat EXACT
+CALL ..\..\..\utils\gen_export\gen_export.bat EXACT
 
 REM ================================================== transfer file to HTC/Exact
-ftp.exe -n -s:ftp_opdr2htc.scr
+DATE /t >> ftp.log
+@FOR %%F in (*.xml) do cscript /NoLogo sendftp.js %%F %%~nxF>>ftp.log 2>>ftperr.log

CUST/KFHT/export/sendftp.js

@@ -0,0 +1,29 @@
+/*
+ * Sendftp.js
+ * Verstuurd via (passive) ftp een bestand
+ *
+ * $Id$
+*/
+if (WScript.Arguments.length < 2)
+{
+    WScript.Echo("Usage: CScript sendftp.js localfile remotefilename");
+    WScript.Quit();
+}
+
+var local  = WScript.Arguments(0);
+var remote = WScript.Arguments(1);
+
+oSLNKDWF = new ActiveXObject("SLNKDWF.About");
+
+oFTP = new ActiveXObject("SLNKDWF.FTP");
+oFTP.Hostname = "csmftp01.hightechcampus.nl";
+oFTP.Username = "Facilitor";
+oFTP.Password = "hH5Aqj3";
+oFTP.Flags = 0x8000000; // INTERNET_FLAG_PASSIVE 
+oFTP.Open();
+oFTP.SetCurrentDir("Import");
+
+WScript.Echo("Sending local: " + local + " to remote: " + remote);
+oFTP.PutFile(remote, local);
+
+oFTP.Close();