პროგრამის პარამეტრების შეცვლა პერსონალური პარამეტრების შენახვისას

წინაისტორია

ერთმა სამედიცინო ორგანიზაციამ დანერგა გადაწყვეტილებები 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 სკრიპტის გამოყენებით

ჩვენ გვჭირდება აქტიური პერლი 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);
• მარყუჟში ვამუშავებთ ერთ ფაილს და ვკითხულობთ ხაზ-სტრიქონს;
• გაყოფის გამოყენებით, ჩვენ ვყოფთ თითოეულ ხაზს 5 ნაწილად, ბრჭყალების გამოყენებით, როგორც გამყოფი;
• ჩვენ ვპოულობთ ხაზს სიტყვა listener-ით და ვათავსებთ მონაცემებს უნიკალური თითოეული ფაილისთვის (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