Промяна на настройките на програмата при запазване на лични параметри

праистория

Една медицинска организация внедри решения, базирани на Orthanc PACS сървъри и Radiant DICOM клиент. По време на настройката открихме, че всеки DICOM клиент трябва да бъде описан в PACS сървъри, както следва:

• Име на клиента
• AE име (трябва да е уникално)
• TCP порт, който автоматично се отваря от страната на клиента и получава DICOM анкети от PACS сървъра (т.е. сървърът ги насочва към клиента - първо инициира връзката)
• IP адрес

След настройката на Radiant клиентите получиха следната храна за размисъл: за всеки клиент настройката на софтуера с горните параметри доведе до попълване на файла pacs.xml, който се намираше в потребителския профил (път: %APPDATA%RadiantViewerpacs.xml). В същото време конфигурацията на един клиент се различаваше от друга поне по два параметъра (името на AE е различно за всеки и портът е общо взето един и същ, с изключение на терминалните клиенти, работещи на същия сървър - там портовете също имаха да бъдат присвоени различни).

Примерен файл pacs.xml от връзка:

Около шест месеца всичко беше наред, системата започна да работи... и тогава дойде при нас "подводен камъни"

• Трябва да пуснем в експлоатация няколко нови PACS сървъра, които ще заменят старите (където дисковото пространство започна да свършва). PACS сървъри във виртуални машини, но не говорим за това;
• Трябва по някакъв начин да променим централно уникални конфигурации (с два различни параметъра) на 200 машини (броят им редовно се увеличаваше);
• Като се има предвид темпът на нарастване на обемите на проучванията, решението е необходимо не само веднъж, а репликирано и редовно (например веднъж на всеки 1-3 месеца).

Решението е по-долу.

Избор на инструменти за решаване на проблем

Отначало имаше опити да се намери някакво решение, което да модифицира файла pacs.xml от страна на клиента и да направи промени в списъка с PACS сървъри, без да засяга AE името и настройките на TCP порта. Клиентите на Windows по това време бяха базирани както на Windows XP, така и на Windows 7 - така че имаше опити да се напише нещо подобно на базата на VBScript. Но уви, не беше възможно да се справим с такава задача поради пълната липса на опит в писането на нещо сложно и изчерпателно на този език. Опитите за намиране и пренаписване също бяха неуспешни (трябва да се отбележи, че вече имах различен план в главата си, така че не се занимавах с VBScript повече от 3-4 часа).

В крайна сметка се спрях на следното решение:

• Използвайки групова политика, събирайте всички pacs.xml файлове на едно място на всеки сървър в мрежов ресурс;
• Промяна на файлове масово (вече имах опит в решаването на такива проблеми с помощта на Perl);
• Използвайте също групови правила, за да актуализирате настройките на клиента.

Събиране на файлове чрез групови правила

Най-простото е, че когато клиент влезе в профила си, той с правата си изпълнява определен .bat файл, който казва:

echo off
If exist %APPDATA%RadiantViewerpacs.xml copy %APPDATA%RadiantViewerpacs.xml srv.test.localpconfigs$pacs-%COMPUTERNAME%-%USERNAME%.xml

Така файловете pacs.xml ще се натрупват на сървъра в скрит ресурс, чието име съдържа информация от кой компютър и от кой потребител е копирана тази конфигурация.

Най-трудното нещо беше да изчакаме, докато тази политика заработи за всички потребители.

Промяна на конфигурации с помощта на Perl скрипт

Ще имаме нужда Активен Perl за Windows от ActiveState, както и модула XML::Writer, който може да се инсталира чрез командата ppm инсталирайте XML-Writer.

Самият скрипт се оказа доста прост:

use XML::Writer;
 
# Открываем папку с отчетами, обрабатываем ссписок (удаляем лишнее):
	$report_dir = "C:Perl64WORKPACS-xml3";
	opendir(DIR, "$report_dir") or die "Не могу открыть папку с отчетами!";
	@report_files = readdir DIR;
	shift (@report_files); # удаляем точку из элементов массива (.)
	shift (@report_files); # удаляем две точки из элементов массива (..)
#	print "@report_files";
	closedir(DIR);
 
# Начинаем обрабатывать файлы - по одному за раз. Нужно считать параметр AET и номер порта в переменные.
foreach $analiz_file (@report_files) 
{
	$full_path_to_file="C:Perl64WORKPACS-xml3".$analiz_file;
	open (INFO, $full_path_to_file);
 
	while ($line = <INFO>)
	{
		# Переменные $aet и $port содержат уникальные данные для каждого XML файла:
		my ($other1, $aet, $other2, $port, $other3) = split /"/, $line, 5;
		# Если встречается строка listener - то мы дошли до нужной строчки и можно формировать новый XML:
		if ($other1 =~ 'listener')
			{
				# Формируем новый XML c нужными полями и данными:
				my $writer = XML::Writer->new(OUTPUT => 'self', DATA_MODE => 1, DATA_INDENT => 2, );
				$writer->xmlDecl('utf-8');
				$writer->startTag('pacs');
				$writer->startTag('listener', ae => $aet, port => $port);
				$writer->endTag();
				$writer->startTag('hosts');
				$writer->startTag('host', name => 'MRT', ae => 'ORTHANC', ip => 'XX.YY.214.17', ts => '1.2.840.10008.1.2.1', port => '4242', maxassoc => '1', allpres => '0', search => '1', protocol => '1', searchcharset => '', wildcards => '3', carets => '0');
				$writer->endTag();
				$writer->startTag('host', name => 'KT', ae => 'ORTHANC2', ip => 'XX.YY.215.253', ts => '1.2.840.10008.1.2.1', port => '4242', maxassoc => '1', allpres => '0', search => '1', protocol => '1', searchcharset => '', wildcards => '3', carets => '0');
				$writer->endTag();
				$writer->startTag('host', name => 'R', ae => 'ORTHANC3', ip => 'XX.YY.215.252', ts => '1.2.840.10008.1.2.1', port => '4242', maxassoc => '1', allpres => '0', search => '1', protocol => '1', searchcharset => '', wildcards => '3', carets => '0');
				$writer->endTag();
				$writer->startTag('host', name => 'KT-20180501-20180831', ae => 'ORTHANC4', ip => 'XX.YY.215.251', ts => '1.2.840.10008.1.2.1', port => '4242', maxassoc => '1', allpres => '0', search => '1', protocol => '1', searchcharset => '', wildcards => '3', carets => '0');
				$writer->endTag();
				$writer->startTag('host', name => 'KT-20180901-20181130', ae => 'ORTHANC5', ip => 'XX.YY.215.250', ts => '1.2.840.10008.1.2.1', port => '4242', maxassoc => '1', allpres => '0', search => '1', protocol => '1', searchcharset => '', wildcards => '3', carets => '0');
				$writer->endTag();
				$writer->endTag('hosts');
				$writer->startTag('presets');
				$writer->endTag();
				$writer->startTag('lastsearch', dt => '4', mfid => '1048592');
				$writer->endTag();
				$writer->endTag('pacs');
 
				# Помещаем готовый XML в переменную:
				my $xml = $writer->end();
				# Подготавливаем файл для перезаписи:
				$rewritexml = $full_path_to_file;
				# Переписываем XML файлы новыми данными:
				open (NEWXML, ">$rewritexml");
				print NEWXML $xml;
				close (NEWXML);				
			}
	}
 
}

Принципът на неговото действие:

• Отваряме директорията, в която сме събрали pacs.xml конфигурации от клиенти и поставяме списъка с файлове в масив от скалари (@report_files);
• В цикъл ние обработваме един файл наведнъж и го четем ред по ред;
• Използвайки split, разделяме всеки ред на 5 части, като използваме кавички като разделител;
• Намираме ред с думата слушател и поставяме данни, уникални за всеки файл (име на AE клиент и номер на TCP порт) в две променливи;
• След това ние просто генерираме нов XML файл, въвеждаме уникални параметри в него и след това вмъкваме необходимия брой PACS сървъри с техните параметри - тези. за какво започна всичко)
• Пренаписваме новия XML файл върху стария.

Трябва да се отбележи, че всъщност аз не използвам този скрипт напълно автоматично - всъщност копирам събраните конфигурации в отделна директория и след това стартирам скрипта и ги променям всички масово. След това, произволна проверка - и конфигурациите могат да бъдат разпределени обратно на машините.

Разпространение на модифицирани pacs.xml файлове на клиенти

Най-простото нещо, което ми хрумна, беше да се направят промени във вече работещия .bat файл, който събира конфигурации от клиенти и да се добави редът:

If exist %APPDATA%RadiantViewerpacs.xml copy /Y srv.test.localpconfigsnew$pacs-%COMPUTERNAME%-%USERNAME%.xml %APPDATA%RadiantViewerpacs.xml

Крайният .bat файл изглежда така:

@echo off
If exist %APPDATA%RadiantViewerpacs.xml copy %APPDATA%RadiantViewerpacs.xml srv.test.localpconfigs$pacs-%COMPUTERNAME%-%USERNAME%.xml
If exist %APPDATA%RadiantViewerpacs.xml copy /Y srv.test.localpconfigsnew$pacs-%COMPUTERNAME%-%USERNAME%.xml %APPDATA%RadiantViewerpacs.xml

Заключение

Това е като това "коляно" решение. Вече го пробвахме два пъти (през септември 2018 г. и февруари 2019 г.), засега полетът е нормален. Разбира се, не 100% от клиентите обновяват, но е близо до тази стойност - останалите извършваме дистанционно. Сценарий от връзка.

Източник: www.habr.com