हम यांडेक्स DNS के लिए dDNS क्लाइंट बनाते हैं

किसी कारण के लिए, मैं यैंडेक्स डोमेन के लिए मेल सहायता में गया और उसे वहां देखा - लंबे समय से प्रतीक्षित DNS एपीआई ।
और मैं उपयोगकर्ता अनुकरण के माध्यम से सिर्फ 2 महीने पुराने समाधान की तुलना में अधिक मूल dDNS ग्राहक बनाना चाहता था।


चूंकि C में इसे अपनी ताकत के साथ करने के लिए एक लंबा समय होगा, लेकिन न तो पायथन और न ही पर्ल मुझे पता है, हम इसे मोती पर करेंगे।

कुल दिया गया:

• गतिशील बाहरी आईपी
• Yandex डोमेन प्रत्यायोजित
• डेबियन राउटर

मैं उन सभी को फिर से करना चाहता हूं।

सबसे पहले, आइपी निर्धारित करें, जिससे हम रिकॉर्ड को बदल देंगे:

उप गेटिप {
( मेरे $ इंटरफ़ेस , मेरे $ ipconf ) = @_ ;
$ ipconf = परिभाषित ( $ ipconf ) ? $ ipconf : '/ sbin / ip' ;
मेरे $ Res = `ip a s $ इंटरफ़ेस | grep "inet" ` or die ( " IP से जानकारी नहीं मिल सकती: " ; $! ) ।
अगर ( $ res = ~ / ( ►ddelines1,3[. {
वापसी $ 1 ;
}
मरो ( "आईपी नहीं मिल सकता" ) ;
}

हम निर्दिष्ट इंटरफ़ेस का पहला आईपी लेते हैं।

और फ़ंक्शन में एपीआई और सामान्य प्रतिक्रिया जांच के अनुरोध को फेंक दें:

उप यापी {
मेरे $ url = $ _ [ 0 ] ;
मरो 'नहीं URL में परम yapi func'
जब तक परिभाषित नहीं किया गया है ( $ url ) ;
मेरे $ cont = $ ua -> get ( $ url ) ;
'HTTP त्रुटि:' , $ cont -> status_line
जब तक $ cont -> is_success नहीं है ;
मर 'नहीं XML, दिया' , $ cont -> content_type
जब तक $ cont -> content_type eq 'text / xml' ;
मेरा $ सम्मान = XML :: सरल
-> नया ( )
-> XMLin ( $ cont -> सामग्री ) ;
डाई 'एपीआई त्रुटि:' , $ सम्मान -> { डोमेन } -> { त्रुटि }
जब तक $ सम्मान -> { डोमेन } -> { त्रुटि } eq 'ok' ;
वापसी ( $ सम्मान -> { डोमेन } -> { डोमेन } ) ;
}

विशेष रूप से, हम यह सुनिश्चित करेंगे कि एक सर्वर प्रतिक्रिया है, आइए XML को पार्स करें और जांचें कि क्या यैंडेक्स ने एपीआई त्रुटि वापस की है।

अब मुख्य भाग:

#! / usr / बिन / पर्ल
# डोमेन नाम
मेरा $ डोमेन = 'example.org' ;
# प्राधिकरण टोकन
मेरे $ टोकन = '1bdf72e04d6b50c82a48c7e4dd38cc6920116dfd6774a9e7b32eddfe' ;
# नया आईपी, इंटरफ़ेस नाम द्वारा निर्धारित पहले तर्क के रूप में पारित हुआ
#, अर्थात्, उदाहरण के लिए ।/yaddns.pl ppp0
मेरे $ करंट = getip ( $ ARGV [ 0 ] ) ;

सख्त का उपयोग करें ;
LWP का उपयोग करें :: UserAgent ;
XML का उपयोग करें :: सरल ;
# उपयोग डेटा :: डम्पर; # डेब्यू के लिए!
मेरे $ ua = LWP :: UserAgent -> नया ;
$ ua -> एजेंट ( "pD.yandex.ru के लिए dDNS क्लाइंट" ) ;


मेरे $ डोमेन = yapi ( 'https://pddimp.yandex.ru/nsapi/get_domain_records.xml?token=' $ टोकन । '& डोमेन =' । $ डोमेन ) - { प्रतिक्रिया } -> { रिकॉर्ड } ;
जबकि ( मेरा ( $ record_id , $ record ) = प्रत्येक ( % $ डोमेन सूची ) ) {
# छाप डम्पर ($ रिकॉर्ड);
if ( $ रिकॉर्ड -> { type } eq 'A' && $ currentip ne $ record -> { content } ) {
मेरा $ अद्यतन = 'https://pddimp.yandex.ru/nsapi/edit_a_record.xml?token=' । $ टोकन
। 'और डोमेन =' । $ डोमेन । 'और उपडोमेन =' । $ रिकॉर्ड -> { उपडोमेन }
। '& record_id =' । $ record_id 'और सामग्री =' । $ करंट ;
'अपडेट रिकॉर्ड' प्रिंट करें । $ record_id '(मेजबान) । $ रिकॉर्ड -> { उपडोमेन } । ") \ n " ;
यापी ( $ अपडेट ) ;
}
}

सिम, हम इस डोमेन के लिए रिकॉर्ड की एक सूची प्राप्त करते हैं और सभी ए-रिकॉर्ड को अपडेट करते हैं जिसके लिए आईपी वह नहीं है जो हम चाहते हैं।

वह सब, सामान्य रूप में। अब यह इंटरफ़ेस को उठाते समय स्क्रिप्ट के लॉन्च को पंजीकृत करने के लिए रहता है और आप चुपचाप रह सकते हैं।

पुनश्च: डेबियन के तहत, आपको देने की आवश्यकता है, यदि नहीं, तो संकुल libcrypt-ssleay-perl, libxml-simple-perl और libwww-perl।

कृपया ध्यान दें कि दिसंबर 2014 में एपीआई को हटा दिया गया था।