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

प्रागितिहास

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

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

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

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

लगभग डेढ़ साल तक सब कुछ ठीक रहा, सिस्टम ने काम किया ... और फिर हम तक पहुंची:

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

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

समस्या को हल करने के लिए उपकरणों का विकल्प

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

अंत में, मैं निम्नलिखित समाधान पर आ गया:

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

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

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

echo off If exist %APPDATA%\RadiantViewer\pacs.xml copy %APPDATA%\RadiantViewer\pacs.xml \\srv.test.local\pconfigs$\pacs-%COMPUTERNAME%-%USERNAME%.xml 

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

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

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

हमें ActiveState से Windows के लिए Active Perl और साथ ही XML :: Writer मॉड्यूल की आवश्यकता है, जिसे ppm install XML- राइटर कमांड का उपयोग करके इंस्टॉल किया जा सकता है।

स्क्रिप्ट खुद काफी सरल निकली:

 use XML::Writer; #    ,   ( ): $report_dir = "C:\\Perl64\\WORK\\PACS-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:\\Perl64\\WORK\\PACS-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 फ़ाइल को फिर से लिखें।

यह ध्यान दिया जाना चाहिए कि वास्तव में मैं इस स्क्रिप्ट का उपयोग पूरी तरह से स्वचालित रूप से नहीं करता हूं - वास्तव में, मैं एकत्रित कॉन्फ़िगरेशन को एक अलग निर्देशिका में कॉपी करता हूं और फिर स्क्रिप्ट को चलाता हूं और उन सभी को एक साथ बदल देता हूं। फिर एक यादृच्छिक जांच - और कॉन्फ़िगरेशन को मशीनों में वापस डाला जा सकता है।

ग्राहकों को संशोधित pacs.xml फ़ाइलें वितरित करना

मेरे लिए सबसे आसान काम पहले से काम कर रहे बदलाव करना था। ऐसी फाइल जो क्लाइंट्स से कॉन्फ़िगरेशन कलेक्ट करती है और एक लाइन जोड़ती है:

 If exist %APPDATA%\RadiantViewer\pacs.xml copy /Y \\srv.test.local\pconfigsnew$\pacs-%COMPUTERNAME%-%USERNAME%.xml %APPDATA%\RadiantViewer\pacs.xml 

परिणामी .bat फ़ाइल इस तरह दिखाई देती है:

 @echo off If exist %APPDATA%\RadiantViewer\pacs.xml copy %APPDATA%\RadiantViewer\pacs.xml \\srv.test.local\pconfigs$\pacs-%COMPUTERNAME%-%USERNAME%.xml If exist %APPDATA%\RadiantViewer\pacs.xml copy /Y \\srv.test.local\pconfigsnew$\pacs-%COMPUTERNAME%-%USERNAME%.xml %APPDATA%\RadiantViewer\pacs.xml 

निष्कर्ष

इस तरह " घुटने के उच्च " समाधान है। हमने इसे पहले ही दो बार (सितंबर 2018 में और फरवरी 2019 में) परीक्षण किया, जबकि उड़ान सामान्य थी। बेशक, यह 100% ग्राहकों को अपडेट नहीं करता है, लेकिन इस मूल्य के करीब है - हम बाकी को दूरस्थ रूप से समाप्त करते हैं। संदर्भ द्वारा स्क्रिप्ट।