व्यक्तिगत मापदंडों को सहेजते समय प्रोग्राम सेटिंग्स बदलना

पृष्ठभूमि

एक चिकित्सा संगठन ने Orthanc PACS सर्वर और रेडियंट DICOM क्लाइंट पर आधारित समाधान लागू किए। सेटअप के दौरान, हमें पता चला कि प्रत्येक DICOM क्लाइंट को PACS सर्वर में निम्नानुसार वर्णित किया जाना चाहिए:

• ग्राहक नाम
• एई नाम (अद्वितीय होना चाहिए)
• एक टीसीपी पोर्ट जो स्वचालित रूप से क्लाइंट साइड पर खुलता है और PACS सर्वर से DICOM सर्वेक्षण प्राप्त करता है (यानी, सर्वर उन्हें क्लाइंट की ओर धकेलता है - पहले कनेक्शन शुरू करता है)
• आईपी ​​एड्रेस

रेडियंट स्थापित करने के बाद, ग्राहकों को विचार के लिए निम्नलिखित भोजन प्राप्त हुआ: प्रत्येक ग्राहक के लिए, उपरोक्त मापदंडों के साथ सॉफ़्टवेयर स्थापित करने के परिणामस्वरूप फ़ाइल भर गई pacs.xml, जो उपयोगकर्ता प्रोफ़ाइल में स्थित था (पथ: %APPDATA%RadiantViewerpacs.xml). उसी समय, एक क्लाइंट का कॉन्फ़िगरेशन कम से कम दो मापदंडों में दूसरे से भिन्न होता है (एई नाम सभी के लिए अलग होता है, और पोर्ट मूल रूप से एक ही होता है, एक ही सर्वर पर चलने वाले टर्मिनल क्लाइंट को छोड़कर - वहां पोर्ट भी थे अलग-अलग असाइन किया जाना है)।

उदाहरण pacs.xml फ़ाइल द्वारा लिंक:

लगभग छह महीने तक सब कुछ ठीक रहा, सिस्टम ने काम करना शुरू कर दिया... और फिर यह हमारे पास आया।''पानी के नीचे पत्थर»:

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

समाधान नीचे है.

किसी समस्या को हल करने के लिए उपकरण चुनना

सबसे पहले, कुछ समाधान खोजने का प्रयास किया गया था जो क्लाइंट साइड पर pacs.xml फ़ाइल को संशोधित करेगा और AE नाम और TCP पोर्ट सेटिंग्स को प्रभावित किए बिना PACS सर्वर की सूची में बदलाव करेगा। उस समय विंडोज़ क्लाइंट विंडोज़ एक्सपी और विंडोज़ 7 दोनों पर आधारित थे - इसलिए वीबीस्क्रिप्ट पर आधारित कुछ ऐसा लिखने का प्रयास किया गया था। लेकिन अफ़सोस, इस भाषा में कुछ भी जटिल और व्यापक लिखने में अनुभव की पूरी कमी के कारण, ऐसे कार्य में महारत हासिल करना संभव नहीं था। खोजने और पुनः लिखने के प्रयास भी असफल रहे (यह ध्यान दिया जाना चाहिए कि मेरे दिमाग में पहले से ही एक अलग योजना थी, इसलिए मैंने 3-4 घंटे से अधिक समय तक वीबीस्क्रिप्ट के साथ खिलवाड़ नहीं किया)।

अंत में मैं निम्नलिखित समाधान पर सहमत हुआ:

• समूह नीति का उपयोग करते हुए, नेटवर्क संसाधन में किसी भी सर्वर पर सभी pacs.xml फ़ाइलों को एक स्थान पर एकत्रित करें;
• सामूहिक रूप से फ़ाइलें बदलें (मुझे पर्ल का उपयोग करके ऐसी समस्याओं को हल करने का पहले से ही अनुभव था);
• क्लाइंट सेटिंग्स को अपडेट करने के लिए समूह नीतियों का भी उपयोग करें।

समूह नीति का उपयोग करके फ़ाइलें एकत्रित करना

सबसे सरल हिस्सा यह है कि जब कोई ग्राहक अपनी प्रोफ़ाइल में लॉग इन करता है, तो वह अपने अधिकारों के साथ, एक निश्चित .bat फ़ाइल निष्पादित करता है, जिसमें कहा गया है:

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

इस प्रकार, pacs.xml फ़ाइलें एक छिपे हुए संसाधन में सर्वर पर जमा हो जाएंगी, जिसके नाम में यह जानकारी होती है कि किस कंप्यूटर से और किस उपयोगकर्ता से यह कॉन्फ़िगरेशन कॉपी किया गया था।

सबसे कठिन काम तब तक इंतजार करना था जब तक यह नीति सभी उपयोगकर्ताओं के लिए काम नहीं करती।

पर्ल स्क्रिप्ट का उपयोग करके कॉन्फ़िगरेशन बदलना

हमें ज़रूरत होगी सक्रिय पर्ल ActiveState से विंडोज़ के लिए, साथ ही 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 भागों में विभाजित करते हैं;
• हम श्रोता शब्द के साथ एक पंक्ति ढूंढते हैं और प्रत्येक फ़ाइल (एई क्लाइंट नाम और टीसीपी पोर्ट नंबर) के लिए अद्वितीय डेटा को दो चर में रखते हैं;
• इसके बाद, हम बस एक नई 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% ग्राहक अपडेट नहीं करते हैं, लेकिन यह इस मूल्य के करीब है - हम बाकी को दूरस्थ रूप से पूरा करते हैं। स्क्रिप्ट द्वारा लिंक.

स्रोत: www.habr.com