TCL-Utilities/FILE.TRANSFER.PROTOCOL.SECURE at main · rdminfinity/TCL-Utilities · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
   SUBROUTINE FILE.TRANSFER.PROTOCOL.SECURE(RESULTS,SERVER,USERNAME,PASSWORD,LOCAL.PATH,REMOTE.PATH,DIRECTION)
*
   GIT.FILENAME = 'FILE.TRANSFER.PROTOCOL.SECURE'
   GIT.REPO = 'https://github.com/Krowemoh/TCL-Utilities.git'
*
* VERSION
*
   VERSION = '1'
*
   @USER1 = 'FILE.TRANSFER.PROTOCOL.SECURE'
   @USER2 = 'FILE.TRANSFER.PROTOCOL.SECURE'
*
   EQU TRUE TO 1
   EQU FALSE TO 0
*
   IF DIRECTION # 'SEND-FILE' AND DIRECTION # 'GET-FILE' THEN
      PRINT 'Invalid direction.'
      RETURN
   END
*
   PORT = ''
*
   IF INDEX(SERVER,':',1) # 0 THEN
      PORT = SERVER[INDEX(SERVER,':',1)+1,999]
      SERVER = SERVER[1,INDEX(SERVER,':',1)-1]
   END
*
   COMMAND = 'lftp <<EOF'
*
   IF PORT THEN
      COMMAND = COMMAND : CHAR(10) : 'open -p ' : PORT : ' ' : SERVER
   END ELSE
      COMMAND = COMMAND : CHAR(10) : 'open ' : SERVER
   END
*
   COMMAND = COMMAND : CHAR(10) : 'user ' : USERNAME : ' ': PASSWORD
*
   COMMAND = COMMAND : CHAR(10) : 'set xfer:clobber on'
   COMMAND = COMMAND : CHAR(10) : 'set ssl:verify-certificate no'
*
   IF DIRECTION = 'SEND-FILE' THEN
      COMMAND = COMMAND : CHAR(10) : 'put ' : LOCAL.PATH : ' -o ' : REMOTE.PATH
*
   END ELSE IF DIRECTION = 'GET-FILE' THEN
      COMMAND = COMMAND : CHAR(10) : 'get ' : REMOTE.PATH : ' -o ' : LOCAL.PATH
   END
*
   COMMAND = COMMAND : CHAR(10) : 'quit'
   COMMAND = COMMAND : CHAR(10) : 'EOF'
*
   SHELL.COMMAND = 'SH -c "' : COMMAND : '"'
   EXECUTE SHELL.COMMAND CAPTURING RESULTS
*
   RETURN
*
* END OF PROGRAM
*
   END
*