jyio/nuVistA
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: jyio:85fabfcc928e6721f01dadb45b2d4cd207ba35d8
Branches Tags
jyio:main
..
compare: jyio:630ba1e9fc23984844de521211bf3e0bfb0de8fe
Branches Tags
jyio:main

4 Commits
85fabfcc92 ... 630ba1e9fc

Author SHA1 Message Date
inportb
630ba1e9fc HTTP/VistA protocol switcher & debugger 2022-11-08 17:20:28 -05:00
inportb
24da5347f4 Remote state 2022-11-08 17:05:51 -05:00
inportb
976a96e5e0 Template filesystem 2022-11-08 12:44:58 -05:00
inportb
87a57a545f Global window.client, window.call, and window.callctx 2022-11-08 10:50:59 -05:00
8 changed files with 453 additions and 49 deletions
Show Stats Expand all files Collapse all files

16
htdocs/Login.vue
View File

@ -88,10 +88,10 @@
computed: {
host: {
get() {
return vistax.state.host;
return vistax.localstate.host;
},
set(value) {
vistax.state.host = value;
vistax.localstate.host = value;
}
}
},
@ -102,11 +102,19 @@
}, immediate: true
},
client(value) { this.x_client = value; },
x_client(value) { this.$emit('update:client', value); },
x_client(value) {
this.$emit('update:client', value);
window.client = value;
window.call = value.call;
window.callctx = value.callctx;
},
server(value) { this.x_server = value; },
x_server(value) { this.$emit('update:server', value); },
user(value) { this.x_user = value; },
x_user(value) { this.$emit('update:user', value); }
async x_user(value) {
if(value) await this.x_client.setup_remotestate();
this.$emit('update:user', value);
}
},
methods: {
async connect() {

5
htdocs/RouteRecall.vue
View File

@ -45,7 +45,6 @@
</template>
<script>
import { state } from './vistax.mjs';
import { groupByArray, strtr_unscramble, strHashHSL, strftime_vista, debounce } from './util.mjs';
import ViewResourceLookup from './ViewResourceLookup.vue';
@ -73,8 +72,8 @@
},
computed: {
selection: {
get() { return state.resources ? (state.resources.split(',').filter(x => x) || []) : [] },
set(value) { state.resources = value.join(','); }
get() { return this.client.remotestate.resources ? (this.client.remotestate.resources.split(',').filter(x => x) || []) : [] },
set(value) { this.client.remotestate.resources = value.join(','); }
},
patients_lost() {
return this.patients.filter(x => x.TimeLastDiff >= 0).sort((a, b) => b.TimeLastDiff - a.TimeLastDiff);

6
htdocs/RouteSchedule.vue
View File

@ -19,8 +19,6 @@
</template>
<script>
import { state } from './vistax.mjs';
import ViewResourceLookup from './ViewResourceLookup.vue';
import DateRangePicker from './DateRangePicker.vue';
import ViewSchedule from './ViewSchedule.vue';
@ -44,8 +42,8 @@
},
computed: {
selection: {
get() { return state.resources ? (state.resources.split(',').filter(x => x) || []) : [] },
set(value) { state.resources = value.join(','); }
get() { return this.client.remotestate.resources ? (this.client.remotestate.resources.split(',').filter(x => x) || []) : [] },
set(value) { this.client.remotestate.resources = value.join(','); }
}
}
};

15
htdocs/ViewSchedule.vue
View File

@ -10,14 +10,13 @@
<td v-if="production"><router-link :to="'/patient/$' + row.HRN">{{row.Name}} <span :title="row.HRN">{{row.HRN.slice(-4)}}</span></router-link></td>
<td v-else><router-link :title="strtr_unscramble(row.Name)" :to="'/patient/$' + row.Name.charAt(0) + row.HRN.slice(-4) + '?name=' + row.Name">{{row.Name}} ${{row.HRN}}</router-link></td>
<td>{{row.NOTE}} [{{row.APPT_MADE_BY}} on {{row.DATE_APPT_MADE}}]</td>
<td><Autocomplete :value="practitioner[row.Name]" @update:value="x => set_practitioner(row.Name, x)" :items="practitioner_list" /></td>
<td><Autocomplete :value="practitioner[row.Name]" @update:value="x => practitioner[row.Name] = x" :items="practitioner_list" /></td>
</tr>
</tbody>
</table>
</template>
<script>
import { state } from './vistax.mjs';
import { uniq, strtr_unscramble, strHashHSL, strfdate_vista, debounce } from './util.mjs';
import Autocomplete from './Autocomplete.vue';
@ -38,7 +37,6 @@
data() {
return {
appointments: [],
practitioner: {},
production: true
};
},
@ -46,6 +44,9 @@
params() {
return { selection: this.selection, date_begin: this.date_begin, date_end: this.date_end };
},
practitioner() {
return this.client.remotestate.practitioner || (this.client.remotestate.practitioner = {});
},
practitioner_list() {
return this.practitioner ? uniq(Object.values(this.practitioner)).sort() : [];
}
@ -57,18 +58,12 @@
},
methods: {
strHashHSL,
strtr_unscramble,
set_practitioner(patient, practitioner) {
this.practitioner[patient] = practitioner;
state.practitioner = this.practitioner;
}
strtr_unscramble
},
created() {
this.debounced_params = debounce(async function(value) { this.appointments = value.selection.length > 0 ? (await this.client.SDEC_CLINLET(value.selection.join('|') + '|', strfdate_vista(value.date_begin), strfdate_vista(value.date_end))).sort((a, b) => (new Date(a.ApptDate)) - (new Date(b.ApptDate))) : []; }, 500);
},
async mounted() {
var practitioner = state.practitioner;
if(practitioner) this.practitioner = practitioner;
this.production = (await this.client.serverinfo()).result.production == '1';
}
};

291
htdocs/tplfs.mjs Normal file
View File

@ -0,0 +1,291 @@
function randstr(length, charset='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789') {
var res = '', i;
if((window.crypto) && (window.crypto.getRandomValues)) {
var values = new Uint32Array(length);
window.crypto.getRandomValues(values);
for(var i = 0; i < length; ++i) res += charset[values[i] % charset.length];
} else for(var i = 0; i < length; ++i) res += charset[Math.floor(Math.random()*charset.length)];
return res;
}
function str_to_ab(str) {
var buf = new ArrayBuffer(str.length);
var bufview = new Uint8Array(buf);
for(var i = str.length - 1; i >= 0; --i) bufview[i] = str.charCodeAt(i);
return buf;
}
function uint8array_to_b64(arr) {
return btoa(String.fromCharCode.apply(null, arr)).replace(/\+/g, '-').replace(/\//g, '_').replace(/=/g, '');
}
function b64_to_uint8array(b64) {
return Uint8Array.from(atob(b64.replace(/\-/g, '+').replace(/_/g, '/')), c => c.charCodeAt(null));
}
async function digest(algorithm, value) {
var buffer = str_to_ab(value);
return await window.crypto.subtle.digest(algorithm, str_to_ab(value));
}
export function randpassword() {
return randstr(64) + ':' + randstr(16);
}
function TplFSError(...args) {
this.message = args;
}
TplFSError.prototype = Object.create(Error.prototype);
function TplFSErrorNotFound(...args) {
this.message = args;
}
TplFSErrorNotFound.prototype = Object.create(TplFSError.prototype);
function TplFSErrorPerm(...args) {
this.message = args;
}
TplFSErrorPerm.prototype = Object.create(TplFSError.prototype);
function TplFSErrorInvalid(...args) {
this.message = args;
}
TplFSErrorInvalid.prototype = Object.create(TplFSError.prototype);
export function TplFS(client, parent, desc) {
this.parent = parent;
this.desc = desc;
this.path = parent ? parent.path + '/' + desc.name : '';
async function lock(tries=5, delay=1000) {
var res = null;
for(var i = 1; i <= tries; ++i) {
if((res = await client.TIU_TEMPLATE_LOCK(desc.IEN)) == '1') break;
await new Promise(resolve => setTimeout(resolve, Math.pow(delay, i)));
}
return res;
}
async function enumerate(ien) {
var res = [ien];
var items = await client.TIU_TEMPLATE_GETITEMS(ien);
for(var i = items.length - 1; i >= 0; --i) Array.prototype.push.apply(res, await enumerate(items[i].IEN));
return res;
}
this.chroot = () => new TplFS(client, null, desc);
this.list = async (filter=null) => {
var items = await client.TIU_TEMPLATE_GETITEMS(desc.IEN);
if(filter) items = items.filter(filter);
return items.map(x => new TplFS(client, this, x));
};
this.open = async (path) => {
if((typeof path === 'string') || (path instanceof String)) path = path.split('/');
if(((desc.type == 'C') || (desc.type == 'P')) && (path.length > 0)) {
var items = await client.TIU_TEMPLATE_GETITEMS(desc.IEN), name = path[0];
var item = items.find(x => x.name == name);
if(item) {
if(path.length > 1) return (new TplFS(client, this, item)).open(path.slice(1));
else return new TplFS(client, this, item);
} else throw new TplFSErrorNotFound('open', (this.path != '' ? this.path + '/' : '') + name, 'Directory not found');
} else throw new TplFSErrorInvalid('open', (this.path != '' ? this.path + '/' : '') + path.join('/'), 'Invalid path');
};
this.mkdir = async (path, tries=5, delay=1000) => {
if((typeof path === 'string') || (path instanceof String)) path = path.split('/');
var node = this;
for(var i = 0; i < path.length; ++i) node = await node.raw_mkdir(path[i], tries, delay);
return node;
};
this.create = async (path, data, mkdir=false, tries=5, delay=1000) => {
if((typeof path === 'string') || (path instanceof String)) path = path.split('/');
if(path.length > 1) return await (mkdir ? await this.mkdir(path.slice(0, -1), tries, delay) : await this.open(path.slice(0, -1))).create(path.slice(-1), data, tries, delay);
else if(path.length == 1) return await this.raw_create(path[0], data, tries, delay);
else throw new TplFSErrorInvalid('create', (this.path != '' ? this.path + '/' : '') + path.join('/'), 'Invalid path');
};
this.remove = async (path, tries=5, delay=1000) => {
if((typeof path === 'string') || (path instanceof String)) path = path.split('/');
if(path.length > 1) return await (await this.open(path.slice(0, -1))).remove(path.slice(-1), tries, delay);
else if(path.length == 1) return await this.raw_remove(path[0], tries, delay);
else throw new TplFSErrorInvalid('remove', (this.path != '' ? this.path + '/' : '') + path.join('/'), 'Invalid path');
};
this.update = async (path, data) => {
if((typeof path === 'string') || (path instanceof String)) path = path.split('/');
if(path.length > 0) return await (await this.open(path)).update([], data);
else return await this.raw_update(data);
};
this.cat = async (path=[]) => {
if((typeof path === 'string') || (path instanceof String)) path = path.split('/');
if(path.length > 0) return await (await this.open(path)).raw_cat();
else return await this.raw_cat(path[0]);
};
this.raw_mkdir = async (name, tries=5, delay=1000) => {
if((desc.type == 'C') || (desc.type == 'P')) {
if(name == '.') return this;
else if(name == '..') return this.parent ? this.parent : this;
if(await lock(tries, delay) == '1') try {
var items = await client.TIU_TEMPLATE_GETITEMS(desc.IEN);
var item = items.find(x => x.name == name);
if(item) return new TplFS(client, this, item);
var nodeid = await client.TIU_TEMPLATE_CREATE_MODIFY(0, { '.01': name, '.02': '@', '.03': 'C', '.04': 'I', '.05': '0', '.08': '0', '.09': '0', '.1': '0', '.11': '0', '.12': '0', '.13': '0', '.14': '0', '.15': '@', '.16': '0', '.17': '@', '.18': '@', '.19': '@', '.06': desc.personal_owner, '2,1': '@', '5,1': '@' });
var nodes = (await client.TIU_TEMPLATE_GETITEMS(desc.IEN)).map(x => x.IEN);
nodes.push(nodeid);
await client.TIU_TEMPLATE_SET_ITEMS(desc.IEN, nodes);
nodeid = (await client.TIU_TEMPLATE_GETITEMS(desc.IEN)).find(x => (x.type == 'C') && (x.name == name));
if(nodeid) return new TplFS(client, this, nodeid);
else throw new TplFSErrorPerm('mkdir', (this.path != '' ? this.path + '/' : '') + name, 'Failed to create directory');
} finally {
await client.TIU_TEMPLATE_UNLOCK(desc.IEN);
} else throw new TplFSErrorPerm('mkdir', this.path, 'Failed to obtain lock');
} else throw new TplFSErrorInvalid('mkdir', this.path, 'Not a directory');
};
this.raw_create = async (name, data, tries=5, delay=1000) => {
if((desc.type == 'C') || (desc.type == 'P')) {
if((name == '.') || (name == '..')) throw new TplFSErrorInvalid('create', (this.path != '' ? this.path + '/' : '') + name, 'Invalid path');
if(await lock(tries, delay) == '1') try {
var items = await client.TIU_TEMPLATE_GETITEMS(desc.IEN);
var item = items.find(x => x.name == name);
if((item) && (item.type != 'T')) throw new TplFSErrorInvalid('create', (this.path != '' ? this.path + '/' : '') + name, 'Not a file');
var nodeid = await client.TIU_TEMPLATE_CREATE_MODIFY(item && item.IEN ? item.IEN : 0, { '.01': name, '.02': '@', '.03': 'T', '.04': 'I', '.05': '0', '.08': '0', '.09': '0', '.1': '0', '.11': '0', '.12': '0', '.13': '0', '.14': '0', '.15': '@', '.16': '0', '.17': '@', '.18': '@', '.19': '@', '.06': desc.personal_owner, '2,1,0': data, '5,1,0': 'TplFS' });
if((item) && (item.IEN == nodeid)) return new TplFS(client, this, item);
var nodes = items.map(x => x.IEN);
nodes.push(nodeid);
await client.TIU_TEMPLATE_SET_ITEMS(desc.IEN, nodes);
item = (await client.TIU_TEMPLATE_GETITEMS(desc.IEN)).find(x => (x.type == 'T') && (x.name == name));
if(item) return new TplFS(client, this, item);
else throw new TplFSErrorPerm('create', (this.path != '' ? this.path + '/' : '') + name, 'Failed to create file');
} finally {
await client.TIU_TEMPLATE_UNLOCK(desc.IEN);
} else throw new TplFSErrorPerm('create', this.path, 'Failed to obtain lock');
} else throw new TplFSErrorInvalid('create', this.path, 'Not a directory');
};
this.raw_remove = async (name, tries=5, delay=1000) => {
if((desc.type == 'C') || (desc.type == 'P')) {
if((name == '.') || (name == '..')) throw new TplFSErrorInvalid('remove', (this.path != '' ? this.path + '/' : '') + name, 'Invalid path');
var garbage = null;
if(await lock(tries, delay) == '1') try {
var items = await client.TIU_TEMPLATE_GETITEMS(desc.IEN);
var item = items.find(x => x.name == name);
if(item) {
garbage = await enumerate(item.IEN);
items.splice(items.indexOf(item), 1);
await client.TIU_TEMPLATE_SET_ITEMS(desc.IEN, items.map(x => x.IEN));
}
} finally {
await client.TIU_TEMPLATE_UNLOCK(desc.IEN);
if(garbage) return await client.TIU_TEMPLATE_DELETE(garbage);
} else throw new TplFSErrorPerm('remove', this.path, 'Failed to obtain lock');
} else throw new TplFSErrorInvalid('remove', this.path, 'Not a directory');
};
this.raw_update = async (data) => {
if(desc.type == 'T') {
await client.TIU_TEMPLATE_CREATE_MODIFY(desc.IEN, { '.01': desc.name, '.02': '@', '.03': 'T', '.04': 'I', '.05': '0', '.08': '0', '.09': '0', '.1': '0', '.11': '0', '.12': '0', '.13': '0', '.14': '0', '.15': '@', '.16': '0', '.17': '@', '.18': '@', '.19': '@', '.06': desc.personal_owner, '2,1,0': data, '5,1,0': 'TplFS' });
return this;
} else throw new TplFSErrorInvalid('update', this.path, 'Not a file');
};
this.raw_cat = async () => {
if(desc.type == 'T') return await client.TIU_TEMPLATE_GETBOIL(desc.IEN);
else throw new TplFSErrorInvalid('retrieve', this.path, 'Not a file');
};
this.raw_list = () => client.TIU_TEMPLATE_GETITEMS(desc.IEN);
this.raw_open = (child) => new TplFS(client, this, child);
return this;
}
TplFS.fromUser = async function(client, user_ien=null) {
if(!user_ien) user_ien = (await client.userinfo()).result[0];
return new TplFS(client, null, (await client.TIU_TEMPLATE_GETPROOT(user_ien))[0]);
};
export function EncFS(fs, data_encrypt, data_decrypt, path_encrypt, path_decrypt) {
this.fs = fs;
if(fs.path) path_decrypt(fs.path).then(value => this.path = value);
this.list = async (filter=null) => (await fs.list(filter)).map(x => new EncFS(x, data_encrypt, data_decrypt, path_encrypt, path_decrypt));
this.open = async (path) => new EncFS(await fs.open(await path_encrypt(path)), data_encrypt, data_decrypt, path_encrypt, path_decrypt);
this.mkdir = async (path, tries=5, delay=1000) => new EncFS(await fs.mkdir(await path_encrypt(path), tries=5, delay=1000), data_encrypt, data_decrypt, path_encrypt, path_decrypt);
this.create = async (path, data, mkdir=false, tries=5, delay=1000) => new EncFS(await fs.create(await path_encrypt(path), await data_encrypt(data), mkdir=false, tries=5, delay=1000), data_encrypt, data_decrypt, path_encrypt, path_decrypt);
this.remove = async (path, tries=5, delay=1000) => await fs.remove(await path_encrypt(path), tries=5, delay=1000);
this.update = async (path, data) => new EncFS(await fs.update(await path_encrypt(path), await data_encrypt(data)), data_encrypt, data_decrypt, path_encrypt, path_decrypt);
this.cat = async (path) => await data_decrypt(await fs.cat(await path_encrypt(path)));
}
EncFS.fromPassword = async function(fs, password) {
var password_salt = password.split(':');
var key_pbkdf2 = await window.crypto.subtle.importKey('raw', str_to_ab(password_salt[0]), 'PBKDF2', false, ['deriveKey']);
var salt = new Uint8Array(str_to_ab(password_salt[1]));
var key_aes_gcm = await window.crypto.subtle.deriveKey(
{
name: 'PBKDF2',
salt: salt,
iterations: 250000,
hash: 'SHA-256',
},
key_pbkdf2,
{ name: 'AES-GCM', length: 256 },
false,
['encrypt', 'decrypt']
);
async function data_encrypt(data) {
var iv = window.crypto.getRandomValues(new Uint8Array(12));
var ciphertextbuf = await window.crypto.subtle.encrypt({ name: 'AES-GCM', iv: iv }, key_aes_gcm, str_to_ab(data));
var res = new Uint8Array(iv.byteLength + ciphertextbuf.byteLength);
res.set(iv, 0);
res.set(new Uint8Array(ciphertextbuf), iv.byteLength);
return uint8array_to_b64(res);
}
async function data_decrypt(data) {
var ciphertextarr = b64_to_uint8array(data);
var res = await window.crypto.subtle.decrypt({ name: 'AES-GCM', iv: ciphertextarr.slice(0, 12) }, key_aes_gcm, ciphertextarr.slice(12));
return String.fromCharCode.apply(null, new Uint8Array(res));
}
var key_aes_ctr = await window.crypto.subtle.deriveKey(
{
name: 'PBKDF2',
salt: salt,
iterations: 250000,
hash: 'SHA-256',
},
key_pbkdf2,
{ name: 'AES-CTR', length: 256 },
false,
['encrypt', 'decrypt']
);
var key_hmac = await window.crypto.subtle.importKey('raw', str_to_ab(password_salt[0]), { name: 'HMAC', hash: 'SHA-256' }, false, ['sign', 'verify']);
async function path_component_encrypt(data) {
var counter = (await window.crypto.subtle.sign({ name: 'HMAC' }, key_hmac, str_to_ab(data))).slice(0, 16);
var ciphertextbuf = await window.crypto.subtle.encrypt({ name: 'AES-CTR', counter: counter, length: 128 }, key_aes_ctr, str_to_ab(data));
var res = new Uint8Array(counter.byteLength + ciphertextbuf.byteLength);
res.set(new Uint8Array(counter), 0);
res.set(new Uint8Array(ciphertextbuf), counter.byteLength);
return uint8array_to_b64(res);
}
async function path_component_decrypt(data) {
var ciphertextarr = b64_to_uint8array(data);
var res = await window.crypto.subtle.decrypt({ name: 'AES-CTR', counter: ciphertextarr.slice(0, 16), length: 128 }, key_aes_ctr, ciphertextarr.slice(16));
return String.fromCharCode.apply(null, new Uint8Array(res));
}
async function path_encrypt(data) {
return (await Promise.all(data.split('/').map(x => path_component_encrypt(x)))).join('/');
}
async function path_decrypt(data) {
if(data.startsWith('/')) return '/' + await path_decrypt(data.replace(/^\/+/g, ''));
return (await Promise.all(data.split('/').map(x => path_component_decrypt(x)))).join('/');
}
return new EncFS((await fs.mkdir('ZZZE ' + uint8array_to_b64(new Uint8Array(await digest('SHA-1', password))))).chroot(), data_encrypt, data_decrypt, path_encrypt, path_decrypt);
};
export default window.tplfs = { TplFS, EncFS, randpassword };

95
htdocs/vistax.mjs
View File

@ -2,18 +2,15 @@ import { reactive, watch } from 'vue';
import vista from './vista.mjs';
import cookie from './cookie.mjs';
import { debounce } from './util.mjs';
import { lab_parse, lab_reparse_results, measurement_parse, order_parse } from './reportparser.mjs';
import { TplFS, EncFS, randpassword as tplfs_randpassword } from './tplfs.mjs';
export const state = reactive(cookie.get('state') ? JSON.parse(cookie.get('state')) : {});
if((!state.secret) && (cookie.get('secret'))) state.resources = cookie.get('secret');
if((!state.cid) && (cookie.get('cid'))) state.resources = cookie.get('cid');
if((!state.host) && (cookie.get('host'))) state.resources = cookie.get('host');
if((!state.resources) && (cookie.get('vista.resources'))) state.resources = cookie.get('vista.resources');
if((!state.practitioner) && (cookie.get('vista.practitioner'))) state.practitioner = JSON.parse(cookie.get('vista.practitioner'));
export const localstate = reactive(cookie.get('state') ? JSON.parse(cookie.get('state')) : {});
window.addEventListener('storage', function(evt) {
if((evt.storageArea == window.localStorage) && (evt.key == 'state') && (evt.newValue)) Object.assign(state, JSON.parse(evt.newValue));
if((evt.storageArea == window.localStorage) && (evt.key == 'state') && (evt.newValue)) Object.assign(localstate, JSON.parse(evt.newValue));
});
watch(state, function(value) {
watch(localstate, function(value) {
cookie.set('state', value = JSON.stringify(value), 45);
window.localStorage.setItem('state', value);
}, { immediate: true, deep: true });
@ -54,6 +51,20 @@ export function converted_boolean(fn, columns=null) {
}
}
export function parsed_nullarray(fn) {
return async function(...args) {
var res = await fn(...args);
return res !== '' ? res : [];
}
}
export function parsed_text(fn) {
return async function(...args) {
var res = await fn(...args);
return res !== '' ? res.join('\r\n') : res;
}
}
export function caretseparated(fn, columns=null) {
return async function(...args) {
if(columns) return (await fn(...args)).map(function(row) {
@ -136,6 +147,28 @@ export function Client(cid, secret) {
this.userinfo = () => vista.userinfo(cid);
this.authenticate = (avcode=null) => vista.authenticate(cid, avcode);
if(!localstate.encfs) localstate.encfs = tplfs_randpassword();
this.tplfs = async () => this._tplfs ? this._tplfs : (this._tplfs = await TplFS.fromUser(this, (await this.userinfo()).result[0]));
this.encfs = async () => this._encfs ? this._encfs : (this._encfs = await EncFS.fromPassword(await this.tplfs(), localstate.encfs));
this.remotestate = reactive({});
this.setup_remotestate = async () => {
var fs = await this.encfs();
try {
Object.assign(this.remotestate, JSON.parse(await fs.cat('state')));
} catch(ex) {
console.error(ex);
await fs.create('state', JSON.stringify(this.remotestate));
}
watch(this.remotestate, debounce(function(value) {
fs.update('state', JSON.stringify(value));
}, 1000), { deep: true });
if((!this.remotestate.resources) && (localstate.resources)) this.remotestate.resources = localstate.resources;
if((!this.remotestate.practitioner) && (localstate.practitioner)) this.remotestate.practitioner = localstate.practitioner;
if(localstate.resources) delete localstate.resources;
if(localstate.practitioner) delete localstate.practitioner;
};
this.XWB_IM_HERE = unwrapped(logged(() => this.call('XWB_IM_HERE'), 'XWB_IM_HERE'));
this.XUS_INTRO_MSG = memoized(unwrapped(logged(() => this.callctx(['XUCOMMAND'], 'XUS_INTRO_MSG'), 'XUS_INTRO_MSG')));
@ -165,6 +198,16 @@ export function Client(cid, secret) {
this.ORWORR_AGET = memoized(caretseparated(sliced(unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'ORWORR_AGET', ...args), 'ORWORR_AGET')), 1), ['ifn', 'dgrp', 'time']));
this.ORWORR_GET4LST = memoized(orderparsed(unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'ORWORR_GET4LST', ...args), 'ORWORR_GET4LST'))));
this.TIU_TEMPLATE_GETROOTS = caretseparated(unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_GETROOTS', ...args), 'TIU_TEMPLATE_GETROOTS')), ['IEN', 'type', 'status', 'name', 'exclude_from_group_boilerplate', 'blank_lines', 'personal_owner', 'has_children_flag', 'dialog', 'display_only', 'first_line', 'one_item_only', 'hide_dialog_items', 'hide_tree_items', 'indent_items', 'reminder_dialog_ien', 'reminder_dialog_name', 'locked', 'com_object_pointer', 'com_object_parameter', 'link_pointer', 'reminder_dialog_patient_specific_value']);
this.TIU_TEMPLATE_GETPROOT = caretseparated(unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_GETPROOT', ...args), 'TIU_TEMPLATE_GETPROOT')), ['IEN', 'type', 'status', 'name', 'exclude_from_group_boilerplate', 'blank_lines', 'personal_owner', 'has_children_flag', 'dialog', 'display_only', 'first_line', 'one_item_only', 'hide_dialog_items', 'hide_tree_items', 'indent_items', 'reminder_dialog_ien', 'reminder_dialog_name', 'locked', 'com_object_pointer', 'com_object_parameter', 'link_pointer', 'reminder_dialog_patient_specific_value']);
this.TIU_TEMPLATE_GETBOIL = parsed_text(unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_GETBOIL', ...args), 'TIU_TEMPLATE_GETBOIL')));
this.TIU_TEMPLATE_GETITEMS = caretseparated(parsed_nullarray(unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_GETITEMS', ...args), 'TIU_TEMPLATE_GETITEMS'))), ['IEN', 'type', 'status', 'name', 'exclude_from_group_boilerplate', 'blank_lines', 'personal_owner', 'has_children_flag', 'dialog', 'display_only', 'first_line', 'one_item_only', 'hide_dialog_items', 'hide_tree_items', 'indent_items', 'reminder_dialog_ien', 'reminder_dialog_name', 'locked', 'com_object_pointer', 'com_object_parameter', 'link_pointer', 'reminder_dialog_patient_specific_value']);
this.TIU_TEMPLATE_SET_ITEMS = unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_SET_ITEMS', ...args), 'TIU_TEMPLATE_SET_ITEMS'));
this.TIU_TEMPLATE_CREATE_MODIFY = unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_CREATE/MODIFY', ...args), 'TIU_TEMPLATE_CREATE/MODIFY'));
this.TIU_TEMPLATE_DELETE = unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_DELETE', ...args), 'TIU_TEMPLATE_DELETE'));
this.TIU_TEMPLATE_LOCK = unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_LOCK', ...args), 'TIU_TEMPLATE_LOCK'));
this.TIU_TEMPLATE_UNLOCK = unwrapped(logged((...args) => this.callctx(['OR CPRS GUI CHART'], 'TIU_TEMPLATE_UNLOCK', ...args), 'TIU_TEMPLATE_UNLOCK'));
return this;
}
Client._registry = {};
@ -180,57 +223,57 @@ Client.fromScratch = async function(secret, host='vista.northport.med.va.gov', p
};
Client.fromCookie = async function(secret, defaulthost='vista.northport.med.va.gov:19209') {
if(!secret) secret = state.secret;
if(!secret) secret = localstate.secret;
if(secret) {
var host = state.host;
var host = localstate.host;
host = (host || defaulthost).split(':');
if(secret != state.secret) {
if(secret != localstate.secret) {
console.log('Using new secret', secret);
var client = await Client.fromScratch(secret, host[0], host[1]);
if(client) {
state.host = host.join(':');
state.secret = secret;
state.cid = client.cid;
localstate.host = host.join(':');
localstate.secret = secret;
localstate.cid = client.cid;
console.log('Established connection', client.cid);
return client;
} else {
delete state.secret;
delete state.cid;
delete localstate.secret;
delete localstate.cid;
console.log('Failed to connect');
return null;
}
} else if(!state.cid) {
} else if(!localstate.cid) {
console.log('Using saved secret', secret);
var client = await Client.fromScratch(secret, host[0], host[1]);
if(client) {
state.host = host.join(':');
state.secret = secret;
state.cid = client.cid;
localstate.host = host.join(':');
localstate.secret = secret;
localstate.cid = client.cid;
console.log('Established connection', client.cid);
return client;
} else {
delete state.secret;
delete state.cid;
delete localstate.secret;
delete localstate.cid;
console.log('Failed connection');
return null;
}
} else {
console.log('Using saved secret and connection', secret);
var cid = state.cid;
var cid = localstate.cid;
var client = Client.fromID(cid, secret);
if((await vista.call(cid, 'XWB_IM_HERE')).result == '1') {
var server = await client.serverinfo();
if((host[0] == server.result.host) && (host[1] == server.result.port)) {
state.host = host.join(':');
localstate.host = host.join(':');
return client;
} else console.log('Rejecting previous connection to different server', server);
}
delete state.cid;
delete localstate.cid;
return await Client.fromCookie(secret, host.join(':'));
}
}
};
export default window.vistax = {
state, RPCError, Client, connect: Client.fromCookie
localstate, RPCError, Client, connect: Client.fromCookie
};

5
main.py
View File

@ -9,6 +9,7 @@ from flask.json.provider import DefaultJSONProvider
import rpc
import util
import protoswitch
import logging
@ -30,7 +31,7 @@ class CacheProxyRPC(util.CacheProxy):
persistent = util.Store().memo
if volatile is None:
volatile = util.Store().memo
self._cache(('__call__', 'close', 'authenticate', 'keepalive', 'XWB_CREATE_CONTEXT', 'XWB_IM_HERE'), None)
self._cache(('__call__', 'close', 'authenticate', 'keepalive', 'XWB_CREATE_CONTEXT', 'XWB_IM_HERE', 'TIU_TEMPLATE_GETROOTS', 'TIU_TEMPLATE_GETPROOT', 'TIU_TEMPLATE_GETBOIL', 'TIU_TEMPLATE_GET_DESCRIPTION', 'TIU_TEMPLATE_GETITEMS', 'TIU_TEMPLATE_SET ITEMS', 'TIU_TEMPLATE_CREATE/MODIFY', 'TIU_TEMPLATE_DELETE', 'TIU_TEMPLATE_LOCK', 'TIU_TEMPLATE_UNLOCK'), None)
self._cache(('SDEC_RESOURCE', 'ORWLRR_ALLTESTS_ALL', 'ORWORDG_ALLTREE', 'ORWORDG_REVSTS'), persistent, prefix=prefix, ttl=float('inf'))
self._cache(('XWB_GET_BROKER_INFO', 'XUS_INTRO_MSG'), volatile, prefix=prefix, ttl=float('inf'))
self._cache(None, volatile, prefix=prefix, ttl=float('-inf'))
@ -159,4 +160,4 @@ if __name__ == '__main__':
port = get_port()
print(f'http://localhost:{port}/#{app.secret}')
webbrowser.open(f'http://localhost:{port}/#{app.secret}')
app.run(port=port)
app.run(port=port, request_handler=protoswitch.SwitchingRequestHandler)

69
protoswitch.py Normal file
View File

@ -0,0 +1,69 @@
#!/usr/bin/env python3
import socket
import io
from werkzeug.serving import WSGIRequestHandler
from typing import Iterator
import logging
logger = logging.getLogger(__name__)
handler = logging.StreamHandler()
handler.setFormatter(logging.Formatter('%(asctime)s:%(levelname)s\t%(message)s'))
logger.addHandler(handler)
logger.setLevel(logging.DEBUG)
bEOT = b'\x04'
class SwitchingRequestHandler(WSGIRequestHandler):
def parse_request(self):
if self.raw_requestline.startswith(b'[XWB]'):
logger.info(f"{self.client_address[0]}:{self.client_address[1]} VistA OPEN")
proxy_vista(read_from_file(self.rfile, self.raw_requestline), self.wfile, self.client_address, ('test.northport.med.va.gov', 19009))
logger.info(f"{self.client_address[0]}:{self.client_address[1]} VistA CLOSE")
return False
return WSGIRequestHandler.parse_request(self)
def proxy_vista(rfilegen: Iterator[bytes], wfile: io.BufferedWriter, localaddr: tuple, remoteaddr: tuple) -> None:
remotesock = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
remotesock.connect(remoteaddr)
recipient = recv_from_socket(remotesock)
for n, req in enumerate(rfilegen):
logger.debug(f"{localaddr[0]}:{localaddr[1]} #{n} → {req.decode('latin-1').encode('unicode-escape').decode()}")
remotesock.send(req + bEOT)
res = next(recipient)
for line in res.decode('latin-1').splitlines(keepends=True):
logger.debug(f"{localaddr[0]}:{localaddr[1]} #{n} ← {line.encode('unicode-escape').decode()}")
wfile.write(res + bEOT)
def read_from_file(rfile: io.BufferedReader, buf: bytes=b'', end: bytes=bEOT, minsz: int=1024, maxsz: int=32768) -> Iterator[bytes]:
if len(buf) > 0:
while (idx := buf.find(end)) >= 0:
if idx > 0:
yield buf[:idx]
buf = buf[idx + 1:]
bufsz = minsz
while len(data := rfile.read1(bufsz)) > 0:
buf += data
while (idx := buf.find(end)) >= 0:
if idx > 0:
yield buf[:idx]
bufsz = minsz
elif bufsz < maxsz:
bufsz = _x if (_x := bufsz << 1) < maxsz else maxsz
buf = buf[idx + 1:]
def recv_from_socket(sock: socket.socket, end: bytes=bEOT, minsz: int=1024, maxsz: int=32768) -> Iterator[bytes]:
buf = b''
bufsz = minsz
while True:
if len(data := sock.recv(bufsz)) > 0:
buf += data
while (idx := buf.find(end)) >= 0:
if idx > 0:
yield buf[:idx]
bufsz = minsz
elif bufsz < maxsz:
bufsz = _x if (_x := bufsz << 1) < maxsz else maxsz
buf = buf[idx + 1:]