localcopy.js

// $Id: localcopy.js,v 1.2 2019/05/09 22:20:29 rswindell Exp $

// A simple script that just copies a file on the local/server side

// Install using 'jsexec localcopy.js install'

// Or manually in SCFG->File Options->File Transfer Protcools:
// Mnemonic (Command Key)        L                                   
// Protocol Name                 Local                               
// Access Requirements           SYSOP                               
// Upload Command Line           ?localcopy send %f                    
// Download Command Line         ?localcopy recv %f                  
// Batch Upload Command Line     ?localcopy send %g                                    
// Batch Download Command Line   ?localcopy recv %s
// Bi-dir Command Line                                               
// Native (32-bit) Executable    No                                  
// Supports DSZLOG               No                                  
// Socket I/O                    No                                  

var cmd = argv[0];
if(!cmd) {
	alert("usage: <install | send | recv> [<file> [...]]");
	exit(1);
}

// Copy a file, confirm over-write, preserving original date/time stamp
function fcopy(src, dest)
{
	if(file_exists(dest) && !confirm("Overwrite \1w" + dest))
		exit(1);
	if(!file_copy(src, dest)) {
		alert(format("Error %d copying '%s' to '%s'", errno, src, dest));
		exit(2);
	}
	if(!file_utime(dest, time(), file_date(src)))
		exit(3);
	log(LOG_DEBUG, format("'%s' copied to '%s'", src, dest));
}

switch(cmd) {
	case 'install':
		var cnflib = load({}, "cnflib.js");
		var file_cnf = cnflib.read("file.cnf");
		if(!file_cnf) {
			alert("Failed to read file.cnf");
			exit(-1);
		}
		file_cnf.prot.push({ 
			  key: 'L'
			, name: 'Local Copy'
			, ulcmd: '?localcopy send %f' 
			, dlcmd: '?localcopy recv %f'
			, batulcmd: '?localcopy send %g'
			, batdlcmd: '?localcopy recv %s'
			, ars: 'SYSOP'
			});
		
		if(!cnflib.write("file.cnf", undefined, file_cnf)) {
			alert("Failed to write file.cnf");
			exit(-1);
		}
		exit(0);
	
	case 'send':
		if(file_isdir(argv[1])) { /* batch upload */
			var dest = backslash(argv[1]);
			var src = prompt("Source files (with wildcards, e.g. *)");
			var list = directory(src);
			for(var i in list) {
				var path = dest + file_getname(list[i]);
				fcopy(list[i], path)
			}
			exit(0);
		}
		var src = prompt("Source file or directory");
		if(!src)
			exit(1);
		if(file_isdir(src))
			src = backslash(src);
		for(var i = 1; i < argc; i++) {
			var path = src;
			if(file_isdir(path))
				path += file_getname(argv[i]);
			fcopy(path, argv[i]);
		}
		exit(0);
		
	case 'recv':
		var dest = prompt("Destination file or directory");
		if(!dest)
			exit(1);
		if(file_isdir(dest))
			dest = backslash(dest);
		for(var i = 1; i < argc; i++) {
			var path = dest;
			if(file_isdir(path))
				path += file_getname(argv[i]);
			fcopy(argv[i], path);
		}
		exit(0);
}