वैयक्तिक पॅरामीटर्स जतन करताना प्रोग्राम सेटिंग्ज बदलणे

prehistory

एका वैद्यकीय संस्थेने Orthanc PACS सर्व्हर आणि Radiant DICOM क्लायंटवर आधारित उपाय लागू केले. सेटअप दरम्यान, आम्हाला आढळले की प्रत्येक DICOM क्लायंटचे वर्णन PACS सर्व्हरमध्ये खालीलप्रमाणे केले पाहिजे:

• क्लायंटचे नाव
• AE नाव (अद्वितीय असणे आवश्यक आहे)
• एक TCP पोर्ट जो क्लायंटच्या बाजूने आपोआप उघडतो आणि PACS सर्व्हरकडून DICOM सर्वेक्षण प्राप्त करतो (म्हणजे, सर्व्हर त्यांना क्लायंटकडे ढकलतो - प्रथम कनेक्शन सुरू करतो)
• आयपी पत्ता

रेडियंट सेट केल्यानंतर, क्लायंटला विचारासाठी खालील अन्न मिळाले: प्रत्येक क्लायंटसाठी, वरील पॅरामीटर्ससह सॉफ्टवेअर सेट केल्याने फाइल भरली गेली. pacs.xml, जे वापरकर्ता प्रोफाइलमध्ये स्थित होते (पथ: %APPDATA%RadiantViewerpacs.xml). त्याच वेळी, एका क्लायंटचे कॉन्फिगरेशन कमीतकमी दोन पॅरामीटर्समध्ये दुसर्‍यापेक्षा वेगळे होते (एईचे नाव प्रत्येकासाठी वेगळे असते आणि त्याच सर्व्हरवर चालणारे टर्मिनल क्लायंट वगळता पोर्ट मुळात समान असते - तेथे पोर्ट देखील होते. वेगळे नियुक्त करणे).

द्वारे उदाहरण pacs.xml फाइल दुवा:

सुमारे सहा महिने सर्वकाही ठीक होते, सिस्टम काम करू लागली... आणि मग ती आमच्याकडे आली.पाण्याखाली दगड"

• आम्हाला अनेक नवीन PACS सर्व्हर कार्यान्वित करावे लागतील जे जुने बदलतील (जेथे डिस्क जागा संपू लागली आहे). व्हर्च्युअल मशीनमधील PACS सर्व्हर, परंतु आम्ही त्याबद्दल बोलत नाही;
• आम्हाला 200 मशिन्सवर (दोन वेगवेगळ्या पॅरामीटर्ससह) युनिक कॉन्फिगरेशन्स केंद्रीयरित्या बदलण्याची गरज आहे (त्यांची संख्या नियमितपणे वाढत होती);
• सर्वेक्षण व्हॉल्यूमच्या वाढीचा दर लक्षात घेता, एक उपाय फक्त एकदाच नव्हे तर प्रतिकृती आणि नियमितपणे (उदाहरणार्थ, दर 1-3 महिन्यांनी एकदा) आवश्यक आहे.

उपाय खाली दिलेला आहे.

समस्येचे निराकरण करण्यासाठी साधने निवडणे

सुरुवातीला, क्लायंटच्या बाजूने pacs.xml फाईल सुधारित करण्यासाठी आणि AE नाव आणि TCP पोर्ट सेटिंग्जवर परिणाम न करता PACS सर्व्हरच्या सूचीमध्ये बदल करण्यासाठी काही उपाय शोधण्याचा प्रयत्न केला गेला. त्यावेळी Windows क्लायंट Windows XP आणि Windows 7 या दोन्हींवर आधारित होते - त्यामुळे VBScript वर आधारित असे काहीतरी लिहिण्याचा प्रयत्न झाला. परंतु, या भाषेत काहीही क्लिष्ट आणि सर्वसमावेशक लिहिण्याचा अनुभव नसल्यामुळे असे कार्य पार पाडणे शक्य नव्हते. शोधण्याचा आणि पुन्हा लिहिण्याचा प्रयत्न देखील अयशस्वी ठरला (हे लक्षात घ्यावे की माझ्या डोक्यात आधीपासूनच एक वेगळी योजना होती, म्हणून मी 3-4 तासांपेक्षा जास्त काळ VBScript बरोबर वावरले नाही).

सरतेशेवटी मी खालील उपायावर स्थायिक झालो:

• गट धोरण वापरून, नेटवर्क संसाधनातील कोणत्याही सर्व्हरवर सर्व pacs.xml फायली एकाच ठिकाणी संकलित करा;
• फाइल्स एकत्रितपणे बदला (मला आधीच पर्ल वापरून अशा समस्या सोडवण्याचा अनुभव आहे);
• क्लायंट सेटिंग्ज अपडेट करण्यासाठी गट धोरणे देखील वापरा.

गट धोरण वापरून फाइल्स गोळा करणे

सर्वात सोपा भाग असा आहे की जेव्हा क्लायंट त्याच्या प्रोफाइलमध्ये लॉग इन करतो, तेव्हा तो, त्याच्या अधिकारांसह, एक विशिष्ट .bat फाइल कार्यान्वित करतो, ज्यामध्ये असे म्हटले आहे:

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

अशा प्रकारे, pacs.xml फाइल्स सर्व्हरवर लपविलेल्या स्त्रोतामध्ये जमा होतील, ज्याच्या नावामध्ये ही कॉन्फिगरेशन कोणत्या संगणकावरून आणि कोणत्या वापरकर्त्याकडून कॉपी केली गेली आहे याची माहिती आहे.

हे धोरण सर्व वापरकर्त्यांसाठी काम करेपर्यंत प्रतीक्षा करणे ही सर्वात कठीण गोष्ट होती.

पर्ल स्क्रिप्ट वापरून कॉन्फिगरेशन बदलणे

आम्हाला लागेल सक्रिय पर्ल ActiveState वरून Windows साठी, तसेच 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);
• लूपमध्ये, आम्ही एका वेळी एका फाईलवर प्रक्रिया करतो आणि ती ओळीने वाचतो;
• स्प्लिट वापरुन, आम्ही प्रत्येक ओळ 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