개인 매개변수를 저장하는 동안 프로그램 설정 변경

선사 시대

한 의료 기관은 Orthanc PACS 서버와 Radiant DICOM 클라이언트를 기반으로 솔루션을 구현했습니다. 설정 과정에서 각 DICOM 클라이언트는 PACS 서버에서 다음과 같이 설명되어야 한다는 사실을 알게 되었습니다.

• 고객 이름
• AE 이름(고유해야 함)
• 클라이언트 측에서 자동으로 열리고 PACS 서버로부터 DICOM 설문조사를 수신하는 TCP 포트(즉, 서버가 클라이언트쪽으로 이를 푸시하여 연결을 먼저 시작함)
• IP 주소

Radiant를 설정한 후 클라이언트는 다음과 같은 생각을 하게 되었습니다. 각 클라이언트에 대해 위의 매개변수를 사용하여 소프트웨어를 설정하면 파일이 채워졌습니다. pacs.xml, 사용자 프로필(경로: %APPDATA%RadiantViewerpacs.xml). 동시에 한 클라이언트의 구성은 두 개 이상의 매개변수에서 다른 클라이언트와 달랐습니다(AE 이름은 모든 사람마다 다르며 포트는 기본적으로 동일합니다. 단, 동일한 서버에서 실행되는 터미널 클라이언트는 제외됩니다. 포트에도 다르게 할당됩니다).

pacs.xml 파일 예: 링크:

약 XNUMX개월 동안 모든 것이 괜찮았고 시스템이 작동하기 시작했습니다... 그리고 나서 우리에게 왔습니다.수중 돌»:

• 우리는 이전 서버(디스크 공간이 부족해지기 시작한 서버)를 대체할 몇 가지 새로운 PACS 서버를 가동해야 합니다. 가상 머신의 PACS 서버. 하지만 우리가 말하는 것은 그게 아닙니다.
• 우리는 어떻게든 200개 머신의 고유한 구성(두 가지 다른 매개변수 사용)을 중앙에서 변경해야 합니다(그 수는 정기적으로 증가했습니다).
• 설문조사량의 증가율을 고려하면 일회성 솔루션이 아닌 정기적으로(예: 1~3개월에 한 번) 반복적으로 솔루션이 필요합니다.

해결책은 아래와 같습니다.

문제를 해결하기 위한 도구 선택

처음에는 클라이언트 측에서 pacs.xml 파일을 수정하고 AE 이름과 TCP 포트 설정에 영향을 주지 않고 PACS 서버 목록을 변경하는 솔루션을 찾으려는 시도가 있었습니다. 당시 Windows 클라이언트는 Windows XP와 Windows 7을 모두 기반으로 했기 때문에 VBScript를 기반으로 이와 같은 것을 작성하려는 시도가 있었습니다. 그러나 아쉽게도 이 언어로 복잡하고 포괄적인 내용을 작성하는 경험이 전혀 없기 때문에 그러한 작업을 마스터하는 것은 불가능했습니다. 찾아서 다시 작성하려는 시도도 실패했습니다. (내 머릿속에는 이미 다른 계획이 있었기 때문에 3-4시간 이상 VBScript를 조작하지 않았다는 점에 유의해야 합니다.)

결국 나는 다음과 같은 해결책을 결정했습니다.

• 그룹 정책을 사용하여 모든 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 스크립트를 사용하여 구성 변경

우리는 필요할 것입니다 액티브 펄 ActiveState의 Windows용 XML::Writer 모듈은 다음 명령을 사용하여 설치할 수 있습니다. ppm 설치 XML-작성기.

스크립트 자체는 매우 간단했습니다.

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)에 배치합니다.
• 루프에서는 한 번에 하나의 파일을 처리하고 한 줄씩 읽습니다.
• 분할을 사용하면 따옴표를 구분 기호로 사용하여 각 줄을 5개 부분으로 나눕니다.
• 리스너라는 단어가 포함된 행을 찾아 각 파일에 고유한 데이터(AE 클라이언트 이름 및 TCP 포트 번호)를 두 개의 변수에 배치합니다.
• 그런 다음 새 XML 파일을 생성하고 고유한 매개변수를 입력한 다음 해당 매개변수와 함께 필요한 수의 PACS 서버를 삽입하면 됩니다. 저것들. 이 모든 건 무엇 때문에 시작됐나)
• 이전 XML 파일 위에 새 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년 XNUMX월) 시도했으며 지금까지 비행은 정상입니다. 물론 클라이언트의 XNUMX% 업데이트는 아니지만 이 값에 가깝습니다. 나머지는 원격으로 완료합니다. 스크립트 작성자 링크.

출처 : habr.com