व्यक्तिगत प्यारामिटरहरू बचत गर्दा कार्यक्रम सेटिङहरू परिवर्तन गर्दै

प्रागितिहास

एउटा चिकित्सा संगठनले Orthanc PACS सर्भरहरू र Radiant DICOM ग्राहकमा आधारित समाधानहरू लागू गर्‍यो। सेटअपको बखत, हामीले प्रत्येक DICOM क्लाइन्टलाई PACS सर्भरहरूमा निम्नानुसार वर्णन गरिनु पर्छ भनेर पत्ता लगायो:

• ग्राहक नाम
• AE नाम (अद्वितीय हुनुपर्छ)
• एक TCP पोर्ट जुन स्वचालित रूपमा क्लाइन्ट साइडमा खुल्छ र PACS सर्भरबाट DICOM सर्वेक्षणहरू प्राप्त गर्दछ (अर्थात्, सर्भरले तिनीहरूलाई ग्राहकतर्फ धकेल्छ - पहिले जडान सुरु गर्दै)
• आईपी ​​ठेगाना

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

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

करिब छ महिनासम्म सबै ठीकठाक थियो, प्रणालीले काम गर्न थाल्यो... अनि हामीकहाँ आयो "पानीमुनि ढु stones्गा"

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

समाधान तल छ।

समस्या समाधान गर्न उपकरणहरू छनौट गर्दै

सुरुमा, ग्राहक पक्षमा pacs.xml फाइल परिमार्जन गर्ने र AE नाम र TCP पोर्ट सेटिङहरूलाई असर नगरी PACS सर्भरहरूको सूचीमा परिवर्तन गर्ने केही समाधान खोज्ने प्रयासहरू थिए। त्यस समयमा विन्डोज क्लाइन्टहरू 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 फाइलहरू सर्भरमा लुकेको स्रोतमा जम्मा हुनेछन्, जसको नामले कुन कम्प्युटरबाट र कुन प्रयोगकर्ताबाट यो कन्फिगरेसन प्रतिलिपि गरिएको थियो भन्ने जानकारी समावेश गर्दछ।

यो नीतिले सबै प्रयोगकर्ताहरूको लागि काम नगरेसम्म पर्खनु सबैभन्दा गाह्रो कुरा थियो।

Perl स्क्रिप्ट प्रयोग गरेर कन्फिगरेसनहरू परिवर्तन गर्दै

हामीलाई चाहिन्छ सक्रिय पर्ल ActiveState बाट Windows को लागि, साथै XML:: लेखक मोड्युल, जुन आदेश प्रयोग गरेर स्थापना गर्न सकिन्छ। 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);
• लुपमा, हामी एक पटकमा एउटा फाइल प्रशोधन गर्छौं र यसलाई लाइनद्वारा लाइन पढ्छौं।
• विभाजन प्रयोग गरेर, हामीले प्रत्येक रेखालाई 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