Mercurial > hg > orthanc
annotate Resources/Toolbox.lua @ 1427:d710ea64f0fd
Custom setting of the local AET during C-Store SCU (both in Lua and in the REST API)
| author | Sebastien Jodogne <s.jodogne@gmail.com> |
|---|---|
| date | Mon, 29 Jun 2015 12:42:54 +0200 |
| parents | 921532f67770 |
| children | 6406f5493d92 |
| rev | line source |
|---|---|
|
397
941ea46e9e26
lua filter of new instances
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
394
diff
changeset
|
1 --[[ PrintRecursive(struct, [limit], [indent]) Recursively print arbitrary data. |
| 384 | 2 Set limit (default 100) to stanch infinite loops. |
| 3 Indents tables as [KEY] VALUE, nested tables as [KEY] [KEY]...[KEY] VALUE | |
| 4 Set indent ("") to prefix each line: Mytable [KEY] [KEY]...[KEY] VALUE | |
|
394
9784f19f7e1b
path relative to configuration path, list of lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
384
diff
changeset
|
5 Source: https://gist.github.com/stuby/5445834#file-rprint-lua |
| 384 | 6 --]] |
|
394
9784f19f7e1b
path relative to configuration path, list of lua scripts
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
384
diff
changeset
|
7 |
|
397
941ea46e9e26
lua filter of new instances
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
394
diff
changeset
|
8 function PrintRecursive(s, l, i) -- recursive Print (structure, limit, indent) |
|
1006
649d47854314
proper handling of metadata in Store
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
418
diff
changeset
|
9 l = (l) or 100; -- default item limit |
|
649d47854314
proper handling of metadata in Store
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
418
diff
changeset
|
10 i = i or ""; -- indent string |
| 384 | 11 if (l<1) then print "ERROR: Item limit reached."; return l-1 end; |
| 12 local ts = type(s); | |
| 13 if (ts ~= "table") then print (i,ts,s); return l-1 end | |
| 14 print (i,ts); -- print "table" | |
| 15 for k,v in pairs(s) do -- print "[KEY] VALUE" | |
|
397
941ea46e9e26
lua filter of new instances
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
394
diff
changeset
|
16 l = PrintRecursive(v, l, i.."\t["..tostring(k).."]"); |
| 384 | 17 if (l < 0) then break end |
| 18 end | |
| 19 return l | |
| 20 end | |
|
418
b79bf2f4ab2e
execution of lua through REST
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
397
diff
changeset
|
21 |
| 1010 | 22 |
| 23 | |
| 24 | |
| 25 function _InitializeJob() | |
| 26 _job = {} | |
| 27 end | |
| 28 | |
| 29 | |
| 30 function _AccessJob() | |
| 31 return _job | |
| 32 end | |
| 33 | |
| 34 | |
|
1427
d710ea64f0fd
Custom setting of the local AET during C-Store SCU (both in Lua and in the REST API)
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1065
diff
changeset
|
35 function SendToModality(instanceId, modality, localAet) |
| 1010 | 36 if instanceId == nil then |
| 37 error('Cannot send a nonexistent instance') | |
| 38 end | |
| 39 | |
| 40 table.insert(_job, { | |
| 41 Operation = 'store-scu', | |
| 42 Instance = instanceId, | |
|
1427
d710ea64f0fd
Custom setting of the local AET during C-Store SCU (both in Lua and in the REST API)
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1065
diff
changeset
|
43 Modality = modality, |
|
d710ea64f0fd
Custom setting of the local AET during C-Store SCU (both in Lua and in the REST API)
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1065
diff
changeset
|
44 LocalAet = localAet |
| 1010 | 45 }) |
| 46 return instanceId | |
| 47 end | |
| 48 | |
| 49 | |
| 50 function SendToPeer(instanceId, peer) | |
| 51 if instanceId == nil then | |
| 52 error('Cannot send a nonexistent instance') | |
| 53 end | |
| 54 | |
| 55 table.insert(_job, { | |
| 56 Operation = 'store-peer', | |
| 57 Instance = instanceId, | |
| 58 Peer = peer | |
| 59 }) | |
| 60 return instanceId | |
| 61 end | |
| 62 | |
| 63 | |
| 64 function Delete(instanceId) | |
| 65 if instanceId == nil then | |
| 66 error('Cannot delete a nonexistent instance') | |
| 67 end | |
| 68 | |
| 69 table.insert(_job, { | |
| 70 Operation = 'delete', | |
| 71 Instance = instanceId | |
| 72 }) | |
| 73 return nil -- Forbid chaining | |
| 74 end | |
| 75 | |
| 76 | |
| 77 function ModifyInstance(instanceId, replacements, removals, removePrivateTags) | |
| 78 if instanceId == nil then | |
| 79 error('Cannot modify a nonexistent instance') | |
| 80 end | |
| 81 | |
| 82 if instanceId == '' then | |
| 83 error('Cannot modify twice an instance'); | |
| 84 end | |
| 85 | |
| 86 table.insert(_job, { | |
| 87 Operation = 'modify', | |
| 88 Instance = instanceId, | |
| 89 Replace = replacements, | |
| 90 Remove = removals, | |
| 91 RemovePrivateTags = removePrivateTags | |
| 92 }) | |
| 93 return '' -- Chain with another operation | |
| 94 end | |
| 95 | |
| 96 | |
|
1065
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
97 function CallSystem(instanceId, command, args) |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
98 if instanceId == nil then |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
99 error('Cannot modify a nonexistent instance') |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
100 end |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
101 |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
102 table.insert(_job, { |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
103 Operation = 'call-system', |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
104 Instance = instanceId, |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
105 Command = command, |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
106 Arguments = args |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
107 }) |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
108 |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
109 return instanceId |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
110 end |
|
921532f67770
Lua scripts can invoke system commands, with CallSystem()
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
1010
diff
changeset
|
111 |
| 1010 | 112 |
|
418
b79bf2f4ab2e
execution of lua through REST
Sebastien Jodogne <s.jodogne@gmail.com>
parents:
397
diff
changeset
|
113 print('Lua toolbox installed') |