| 1 | XMSFTP ;(WASH ISC)/CAP-TCP/IP-FTP Sender ;04/17/2002 11:29
|
|---|
| 2 | ;;8.0;MailMan;;Jun 28, 2002
|
|---|
| 3 | ;TCP/IP-FTP COMMUNICATIONS
|
|---|
| 4 | ;Send file via FTP / File located on another TCP/IP node
|
|---|
| 5 | FTP K TEST N XMIO S XMIO=$I
|
|---|
| 6 | ;
|
|---|
| 7 | ;Get unique number for file to send
|
|---|
| 8 | S (XMSFTP,X)=$G(^XMBX(4.2995,"F",0))+1,^(0)=X
|
|---|
| 9 | ;
|
|---|
| 10 | S FILE="XM"_X_".COM" O FILE:NEW U FILE
|
|---|
| 11 | W "$! FTP COM procedure for fetching file from server and sending it",!
|
|---|
| 12 | W "$ set noon",!
|
|---|
| 13 | W "$ assign/user nla0: sys$output",! ;Turn off echo
|
|---|
| 14 | W "$ assign/user sys$input sys$command",!
|
|---|
| 15 | ;
|
|---|
| 16 | ;FTP to Get or Put location
|
|---|
| 17 | W "$ FTP=""$TWG$TCP:[NETDIST.USER]FTP",!
|
|---|
| 18 | W "$ FTP "
|
|---|
| 19 | I $L($G(XMSFTP(1))) W XMSFTP(1),!
|
|---|
| 20 | E W XMSFTP(3),! G PUT
|
|---|
| 21 | ;
|
|---|
| 22 | ;Get file from local network
|
|---|
| 23 | S %=$G(XMSFTP(4)) W %,!
|
|---|
| 24 | S %=$G(XMSFTP(5)) I $L(%) W %,!
|
|---|
| 25 | W "bin",!
|
|---|
| 26 | W "get "_$P(XMSFTP(2),U,2)_XMSFTP(2,"F")_" "_XMSFTP(2,"F"),!
|
|---|
| 27 | W "close",!
|
|---|
| 28 | ;
|
|---|
| 29 | ;Put file to remote location
|
|---|
| 30 | W "open "_XMSFTP(3),! G P
|
|---|
| 31 | PUT S %=$G(XMSFTP(6)) W %,!
|
|---|
| 32 | P S %=$G(XMSFTP(7)) I $L(%) H 3 W %,! I $L($G(XMSFTP(7.1))) H 3 W XMSFTP(7.1),!
|
|---|
| 33 | W "bin",!
|
|---|
| 34 | W "cd nfa0:[IMPORT.MAIL]",!
|
|---|
| 35 | ;
|
|---|
| 36 | ;Need to know directory on remote side
|
|---|
| 37 | S %=$G(XMSFTP(8)) I $L(%) W "cd "_%,!
|
|---|
| 38 | S %=$G(XMSFTP(2)) I $L(%) W "cd "_%,!
|
|---|
| 39 | W "delete "_XMSFTP(2,"F"),!
|
|---|
| 40 | W "put nfa0:[EXPORT.MAIL]"_XMSFTP(2,"F"),!
|
|---|
| 41 | C FILE
|
|---|
| 42 | ;
|
|---|
| 43 | ;The following code originally spawned off an FTP transaction
|
|---|
| 44 | ;immediately when the XMnnn.COM file was created. It has been
|
|---|
| 45 | ;replaced with code in XMRTCP.
|
|---|
| 46 | ;
|
|---|
| 47 | ;S %=$H*86400+$P($H,",",2)+600,%H=%\86400_","_(%#86400) D YX^%DTC S %=$P($P(Y,",")," ",2)_"-"_$P(Y," ")_"-"_$P($P(Y,"@"),", ",2)_":"_$P(Y,"@",2)
|
|---|
| 48 | ;
|
|---|
| 49 | S X=$$FILE(FILE) K FILE,XMTMPFIL
|
|---|
| 50 | U XMIO Q
|
|---|
| 51 | B36 ;Calculate base 36 number
|
|---|
| 52 | N %,N,O,I,Z S O=X,%=X#36+1 D N S Y=N
|
|---|
| 53 | S %=X\(36)#36+1 D N S Y=N_Y
|
|---|
| 54 | S %=X\(36*36)#36+1 D N S Y=N_Y
|
|---|
| 55 | S %=X\(36*36*36)#36+1 D N S Y=N_Y
|
|---|
| 56 | S X=O Q
|
|---|
| 57 | Q
|
|---|
| 58 | N S N=$E("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",%)
|
|---|
| 59 | Q
|
|---|
| 60 | FILE(X) ;Add record to FTP list
|
|---|
| 61 | N DD,DO,DIC,DTOUT,DUOUT,Y
|
|---|
| 62 | S DIC="^XMBX(4.2995,",DIC(0)="LF",DIC("DR")="1///"_($H*86400+$P($H,",",2))_";2///"_$S($G(XMDUZ):XMDUZ,1:DUZ)
|
|---|
| 63 | D FILE^DICN S %=$G(XMSFTP("IMAGE-PTR")) I % S $P(^XMBX(4.2995,+Y,0),U,4)=%
|
|---|
| 64 | Q Y
|
|---|
| 65 | TEST S TEST=1
|
|---|
| 66 | ;;XMSFTP(1)=get file IP address (EG 89.0.0.79 - sstu)
|
|---|
| 67 | ;;XMSFTP(2)=DOS dir / subdir... Other than default to IMPORT file into
|
|---|
| 68 | ;;XMSFTP(2,"F")=File to get (s:\image\nfibpd2.756)
|
|---|
| 69 | ;;XMSFTP(3)=put to IP address
|
|---|
| 70 | ;;XMSFTP(4)=User ID at origination node
|
|---|
| 71 | ;;XMSFTP(5)=User Password at origination node
|
|---|
| 72 | ;;XMSFTP(6)=User ID at destination node
|
|---|
| 73 | ;;XMSFTP(7)=User Password at destination node
|
|---|
| 74 | ;;XMSFTP(8)=FTP IMPORT PATH [VMS has DIR.SUBD..., see XMSFTP(2) for DOS]
|
|---|
| 75 | Q
|
|---|
| 76 | ;
|
|---|
| 77 | ;To display image on Pete's terminal
|
|---|
| 78 | ;>stage
|
|---|
| 79 | ;>C:\t\test3 file_name
|
|---|
| 80 | ;
|
|---|
| 81 | ;find differences: diff file1 file2 (no display=no differences)
|
|---|
