49 lines
2.1 KiB
Mathematica
49 lines
2.1 KiB
Mathematica
VEPERVER ;CJS/QRI ;11/5/07 15:40
|
|
; VOE Version display, 1.0.0;;;;;Build 2
|
|
;
|
|
DISP ;
|
|
N ANS,OS,ROOT,FILENAME,SAVEDUZ,DECRYPT,ERROR
|
|
S SAVEDUZ=DUZ,DUZ=.5 K ^TMP($J)
|
|
S ^TMP($J,1,0)=" WorldVistA EHR /VOE 1.0 uncertified" G NOTDONE ; Remove line when routine is completed
|
|
S FILENAME="VEPERVER_"_$J_".txt"
|
|
; depending on the OS, we get the directory and decrypt command
|
|
I +^DD("OS")=18 D ;for Cache' we need to know which OS it's running under
|
|
. S OS=$S($ZV["VMS":"VMS",$ZV["Windows":"NT",$ZV["NT":"NT",$ZV["UNIX":"UNIX",1:"UNK")
|
|
. I OS="NT" S ROOT="C:\TEMP\",DECRYPT="S X=$ZF(-1,""decrypt etc"")" ;What's the DOS command to decrypt?
|
|
. I OS'="NT" S ERROR=1
|
|
;
|
|
I +^DD("OS")=17 D ;for GT.M(VAX) ... Is this needed?
|
|
. S ROOT=""
|
|
. S ERROR=1 ;Since we don't have the code for this yet
|
|
;
|
|
I +^DD("OS")=19 D ;for GT.M under UNIX
|
|
. S ROOT="/tmp/"
|
|
. S DECRYPT="ZSYstem ""echo Jix4uXDB | gpg --passphrase-fd 0 --output "_ROOT_FILENAME_" --decrypt "_ROOT_FILENAME_".asc"""
|
|
;
|
|
I $D(ERROR) G EXIT
|
|
;
|
|
D OPEN^%ZISH("OUTFILE",ROOT,FILENAME_".asc","W")
|
|
I POP G EXIT
|
|
U IO
|
|
S LINE=0 F S LINE=$O(^XTMP("VEPERVER",LINE,0)) Q:LINE'>0 S TEXT=^(LINE) W TEXT,!
|
|
D CLOSE^%ZISH("OUTFILE")
|
|
;
|
|
X @DCRYPT ; invoke the decryption appropriate to the OS
|
|
; Now, read in the decrypted text
|
|
S Y=$$FTG^%ZISH(ROOT,FILENAME,$NA(^TMP($J,1,0)),2) I 'Y W !,"Error copying to global" G EXIT
|
|
;
|
|
NOTDONE ; and display the text
|
|
W #!!?21,$C(27),"[33m",$C(27),"[31m"
|
|
S LINE=0 F S LINE=$O(^TMP($J,LINE)) Q:LINE'>0 W !,^TMP($J,LINE,0)
|
|
W !!,$C(27),"[0m",?30,"Press a key to continue" R ANS#1
|
|
G EXIT
|
|
;
|
|
LOADPGP ; Load the PGP MESSAGE into ^XTMP
|
|
S SAVEDUZ=DUZ,DUZ=.5 N ROOT,DIR,FILENAME K ^XTMP("VEPERVER")
|
|
S DIR(0)="F^2:60",DIR("A")="Full path, up to but not including patch names" D ^DIR G:Y="^" EXIT S ROOT=Y
|
|
S DIR(0)="F^2:60",DIR("A")="Enter the file name" D ^DIR G:Y="^" EXIT S FILENAME=Y
|
|
S Y=$$FTG^%ZISH(ROOT,FILENAME,$NA(^XTMP("VEPERVER",1,0)),2) I 'Y W !,"Error copying to global" G EXIT
|
|
S ^XTMP("VEPERVER",0)="3990101^"_DT_"^PGP MESSAGE for WorldVistA EHR certified" ; make it SACC compliant
|
|
EXIT S DUZ=SAVEDUZ K ^TMP($J)
|
|
Q
|