שינוי הגדרות התוכנית תוך שמירת פרמטרים אישיים

פרהיסטוריה

ארגון רפואי אחד הטמיע פתרונות המבוססים על שרתי 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 חלקים, תוך שימוש במירכאות כמפריד;
• אנו מוצאים שורה עם המילה מאזין וממקמים נתונים ייחודיים עבור כל קובץ (שם לקוח 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