From d9009499579969b7b3e31303319a8d7a222b14f8 Mon Sep 17 00:00:00 2001
From: rswindell <>
Date: Wed, 8 Apr 2020 01:14:49 +0000
Subject: [PATCH] A QWKnet-FTP client written in JS, thanks in large part to
Deuce's load/ftp.js This needs testing and validation feedback, ASAP, as it's
mere existence in the exec directory means that it'll usurp qnet-ftp.bin (!)
and if it doesn't work, our precious QWKnets will suffer. :-/
... Another (rather large) nail in Baja's coffin.
---
exec/qnet-ftp.js | 68 ++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 68 insertions(+)
create mode 100644 exec/qnet-ftp.js
diff --git a/exec/qnet-ftp.js b/exec/qnet-ftp.js
new file mode 100644
index 0000000000..ec87dd4491
--- /dev/null
+++ b/exec/qnet-ftp.js
@@ -0,0 +1,68 @@
+// $Id$
+//****************************************************************************
+// JavaScript module for performing FTP-based QWKnet call-outs
+// Inspired by exec/qnet-ftp.src
+// Possible due to the load/ftp.js library developed by Deuce
+//****************************************************************************
+
+// Usage: ?qnet-ftp <hub-id> <address> <password> [port]
+// Example: ?qnet-ftp VERT vert.synchro.net YOURPASS 21
+
+require('ftp.js', 'FTP');
+
+var hubid = argv[0];
+var addr = argv[1];
+var username = "testman"; // system.qwk_id
+var password = argv[2];
+var port = argv[3] || 21;
+
+var rep = system.data_dir + hubid + ".rep";
+var qwk = hubid + ".qwk";
+var qwk_fname = system.data_dir + qwk;
+
+if(file_getcase(qwk_fname)) {
+ alert(qwk_fname + " already exists");
+ for(var i = 0; ; i++) {
+ qwk_fname = system.data_dir + hubid + ".qw" + i;
+ if(!file_getcase(qwk_fname))
+ break;
+ alert(qwk_fname + " already exists");
+ if(i == 9)
+ exit(1);
+ }
+}
+
+var ftp;
+try {
+ ftp = new FTP(addr, username, password, port);
+} catch(e) {
+ print("FTP Session with " + addr + " failed: " + e);
+ exit(1);
+}
+
+rep = file_getcase(rep);
+if(rep) {
+ print("Sending REP Packet: " + rep);
+ try {
+ ftp.stor(rep, file_getname(rep));
+ print("REP packet sent successfully");
+ file_remove(rep);
+ } catch(e) {
+ alert("Upload of " + rep + " failed: " + e);
+ exit(1);
+ }
+}
+
+print("Downloading QWK Packet: " + qwk);
+try {
+ ftp.retr(qwk, qwk_fname);
+ if(file_size(qwk_fname) < 1) {
+ alert("Invalid QWK Packet size: " + file_size(qwk_fname));
+ file_remove(qwk_fname);
+ } else
+ print("Downloaded " + file_getname(qwk_fname) + " successfully");
+} catch(e) {
+ alert("Download of " + qwk + " failed: " + e);
+}
+ftp.quit();
+print("Done.");
--
GitLab