नेटवर्क उपकरण कॉन्फ़िगरेशन को इकट्ठा करना और उन्हें SVN में संग्रहीत करना

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

सबसे पहले, हमारी रिपॉजिटरी की एक वर्किंग कॉपी बनाएं, जहां पेर्ल स्क्रिप्ट पर कॉन्फिग कलेक्ट किया जाएगा।
svn checkout svn://svn.reposerver.ru/configs /configs

चलिए स्क्रिप्ट लिखना शुरू करते हैं। स्क्रिप्ट को कई विशेषताओं को ध्यान में रखते हुए लिखा गया था।

• स्कैन की सूची में उपकरणों के सरल जोड़ / हटाने
• मल्टीवेंडर नेटवर्क
• मेल द्वारा परिवर्तन की सूचना
• मेल कनेक्शन त्रुटि सूचना

चर का प्रारंभ:

 #!/usr/bin/perl -w use Net::Appliance::Session; use Net::SCP::Expect; use Switch; use Fcntl ':flock'; exit(1) unless &lock("lockfile"); my $date = `/bin/date`; my $flag=0; ###    my $path="/configs"; ###    my $cfg = "/configs/switches.cfg"; ###    my $error = "\n"; ###    . 

हम एक अद्यतन करते हैं और वर्तमान संशोधन संख्या प्राप्त करते हैं। यह संस्करणों की तुलना करने के लिए हमारे लिए उपयोगी है।

 $_=`/usr/local/bin/svn update $path`; s/At revision (\d+)./$1/; $prev_rev = $_; 

कार्यों को लॉक / अनलॉक करें। आपको स्क्रिप्ट की केवल एक प्रति चलाने की अनुमति है।

 sub lock($) { open(LK,">$_[0]") or return 0; flock(LK,LOCK_EX|LOCK_NB); } sub unlock($) { unlink($_[0]); flock(LK,LOCK_UN); close(LK); } 

अगला, कॉन्फ़िगरेशन फ़ाइल पढ़ें। फ़ाइल लाइनों का एक सेट होना चाहिए। प्रत्येक पंक्ति में एक कोलन द्वारा अलग किए गए लोहे के टुकड़े और उसके प्रकार का पता होता है:
switch1:e
switch2:cat
router1:c
router2:j


 open (CFG, "$cfg") || die "Cant open file $cfg: $!"; while (<CFG>) { next if /^\#/; ###    next if /^\s*$/; ###     chomp; my @host = split /:/,$_; switch($host[1]) { case "cat" { `/usr/bin/touch $path/$host[0]`; &cat_telnet($host[0]); &str_remove ($host[0]); } case "c" { `/usr/bin/touch $path/$host[0]`; &cat_telnet($host[0]); &str_remove ($host[0]); } case "e" { `/usr/bin/touch $path/$host[0]`; &extreme_telnet($host[0]); &str_remove ($host[0]); } case "j" { &juni_scp($host[0]); } } 

यहां, कॉन्फ़िगरेशन की प्रत्येक पंक्ति के लिए, हम एक कॉन्फ़िगरेशन फ़ाइल बनाते हैं (यदि यह नहीं था) और डिवाइस के प्रकार के आधार पर फ़ंक्शन का एक सेट कॉल करें। हम बाद में कार्यों पर विचार करेंगे, मैं केवल यह कहूंगा कि उनके निष्पादन के बाद हमारे पास डिवाइस से इकट्ठे एक नया कॉन्फ़िगरेशन होगा। जांचें कि क्या कॉन्फ़िगरेशन में कोई बदलाव हैं। यदि परिवर्तन के लिए झंडा है, तो कमिट करें और सेट करें। यदि कोई नया होस्ट जोड़ा जाता है, तो हम इसे रिपॉजिटरी में भी जोड़ते हैं। ध्वज सेट के साथ, एक पत्र लिखें।

 my $svnst = `/usr/local/bin/svn status $path/$host[0]`; if ($svnst =~ /^M/) { ###     $flag=1; `/usr/local/bin/svn commit -m "$date" $path/$host[0]`; } if ($svnst =~/^\?/) { ###     `/usr/local/bin/svn add $path/$host[0]`; `/usr/local/bin/svn commit -m "Add new host at $date" $path/$host[0]`; } } close CFG; if ($flag==1) { &diff_mail(); } 

मुख्य स्क्रिप्ट समाप्त हो गई है। आगे कार्यों का सेट।
कॉन्फ़िगरेशन संग्रह फ़ंक्शन के मल्टी-वेंडर प्रकृति के कारण, अधिक या कम सार्वभौमिक तंत्र का उपयोग करने का निर्णय लिया गया था - कॉन्फ़िगरेशन को देखने के लिए एक स्विच और एक कमांड।

 sub cat_telnet { (my $host1)=@_; $try = 5; $update='false'; while ($try>0) { my $s = Net::Appliance::Session->new( Host => $host1, Transport => 'Telnet', Timeout => 50, Source => '/configs/nas-pb.yml', Platform=> 'IOS' ); eval { $s->do_login(); $s->connect( Name => 'username', Password => 'pass', ); my @temp = $s->cmd('show run'); }; if ($#temp>5) { $s->close; $update='true'; last; } $try=$try-1 ; if ($try==0) { $error = $error.»Some error occure while getting config from «. $host1. «\n»; $flag=1; } $s->close; } if ($update eq 'true'){ open (CFG1, «>$path/$host1») || die «Cant open file $path/$host1: $!»; print CFG1 @temp; close CFG1; } } 

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

 sub juni_scp { (my $host1)=@_; $try = 5; $update = 'false'; while ($try>0) { my $s = Net::SCP::Expect->new( user=>'username', password=>'pass', auto_yes=>1 ); eval { my @temp= $s->scp("$host1:/config/juniper.conf.gz","$path/$host1.gz" ); }; if ($#temp eq "0") { $update='true'; last; } $try=$try-1 ; if ($try==0) { $error = $error."Some error occure while getting config from ". $host1. "\n"; $flag=1; } } if ($update eq 'true'){ `/usr/bin/gunzip -f $path/$host1.gz`; } } 

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

परीक्षणों के दौरान, यह पता चला कि कभी-कभी कॉन्फ़िगरेशन में लाइनें होती हैं, जो लगातार बदल रही हैं, लेकिन एक महत्वपूर्ण अर्थ लोड नहीं लेती हैं। उदाहरण के लिए, सिस्को में ntp क्लॉक-पीरियड, या अत्यधिक परिवर्तन न होने पर आमंत्रण में तार जोड़ने के लिए चरम पसंद करता है। ऐसी रेखाओं को काटने का कार्य उन्हें अनदेखा करने और केवल महत्वपूर्ण परिवर्तनों को ध्यान में रखने के लिए जोड़ा गया था:

 sub str_remove { (my $host)=@_; open (F,"$path/$host") ; my @f = <F>; close F; open (F, ">$path/$host"); foreach $str (@f) { print F $str if ( $str !~ /^ntp clock-period/ and $str !~ /^Current configuration/ and $str !~ /^Slot-/ and $str !~ /^\* Slot-/ and $str !~ /^\*/); } close F; } 

हमारी सूची से सभी उपकरणों को पारित करने के बाद, यदि ई-मेल संदेश की आवश्यकता का ध्वज कहीं सेट किया गया था, तो हम एक ईमेल भेजते हैं जिसमें हम परिवर्तनों की एक सूची और त्रुटियों के साथ एक चर शामिल करते हैं। हम मानक svn के साथ परिवर्तनों की सूची प्राप्त करते हैं, पिछले संशोधन संख्या का संकेत देते हैं।

 sub diff_mail { @mail = `/usr/local/bin/svn diff $path -r $prev_rev`; open (MAIL, "| /usr/sbin/sendmail user@mydomain.ru, user2@mydomain.ru ") || die " $!"; print MAIL <<EOF; From: Config Checker Subject: Config Update @mail $error EOF close MAIL; } 

अंत में, लोफाइल को हटा दें

 &unlock("lockfile"); 

यह स्क्रिप्ट दिन में कई बार ताज पर चलती है। किए गए सभी परिवर्तनों को मेल पर भेजा जाता है और किसी भी समय आप परिवर्तनों की निगरानी के लिए किसी भी एसवीएन क्लाइंट से जुड़ सकते हैं, संस्करणों की तुलना कर सकते हैं, रोल बैक कर सकते हैं, आदि।
मैं एक आरक्षण करूंगा कि मैं एक मोती प्रोग्रामिंग गुरु नहीं हूं, और सभी टिप्पणियों और सलाह को कृतज्ञतापूर्वक स्वीकार किया जाएगा।