Net :: Yar.yar (¶Ç ´Ù¸¥ µî·Ï ±â°ü) API¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽º | |
Áö±Ý ´Ù¿î·Îµå |
Net :: Yar. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Paul Seamons
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~rhandom/
Net :: Yar. ű×
Net :: Yar. ¼³¸í
yar (¾ÆÁ÷ ´Ù¸¥ µî·Ï ±â°ü) API¿¡ ´ëÇÑ Perl ÀÎÅÍÆäÀ̽º NET :: YARÀº FastDomain YAR (¶Ç ´Ù¸¥ µî·Ï ±â°ü) API ¼ºñ½º¿¡ Perl ÀÎÅÍÆäÀ̽º¸¦ Á¦°øÇÏ´Â ¸ðµâÀÔ´Ï´Ù. ÀÌ ¸ðµâÀ» »ç¿ëÇÏ·Á¸é FastDomain.com ¶Ç´Â YAR API¸¦ Áö¿øÇÏ´Â ´Ù¸¥ µî·Ï ±â°ü¿¡ ¿¡ÀÌÀüÆ® °èÁ¤ ¼³Ä¡ ÇÁ·Î±×·¥ÀÌ ÀÖ¾î¾ßÇÕ´Ï´Ù. ÀÌ API¸¦ »ç¿ëÇÏ¿© µµ¸ÞÀÎÀ» µî·ÏÇÏ·Á´Â °æ¿ì FastDomain.com ¶Ç´Â Yar API Registrar (YAR API Registrar)¿¡ ¹®ÀÇÇϽʽÿÀ. ¶ÇÇÑ JSON, YAML, YAML :: SYCK, XML :: SIMPLE ¶Ç´Â DATA :: Áß Çϳª°¡ ÀÖ¾î¾ßÇÕ´Ï´Ù. yar service.synopsis¿¡ ¿äûÀ» Á÷·ÄÈÇÏ°í ¼öÇà ÇÒ ¼ö ÀÖµµ·Ï uriencode°¡ ¼³Ä¡µÇ¾ú½À´Ï´Ù. Synopsis »ç¿ë net :: yar; my $ yar = net :: yar-> new ({api_user => my_user ', api_pass =>'my_pass ', api_host =>'api.fastdomain.com ',}); ### ¼¹ö°¡ ³» $ resp = $ yar-> util-> noopÀ» ¿¬°áÇÒ ¼ö ÀÖ´ÂÁö Å×½ºÆ®ÇϽʽÿÀ. # yar ¸Þ¼µå Util.Noop # ¶Ç´Â # ³» $ resp = $ yar-> util_noop; # yar methome util.noop ### ÇϳªÀÇ Àü´Þ¿¡ µµ¸ÞÀÎÀ» µî·ÏÇÏ´Â Á¤º¸¸¦ È£ÃâÇÕ´Ï´Ù. $ domain_info = {user => {username => "some_username", password => '123qwe', À̸ÞÀÏ => 'foo@my.company .com ', ÀüÈ =>'+1.8017659400 ', first_name =>'george ', last_name =>'jones ',}, domain =>'somestdomain.com ', duration => 2, µî·ÏÀÚ => {contact_id =>' admin '}, admin => {first_name =>'george ', last_name =>'jones ', organization =>'my ȸ»ç Å×½ºÆ® ', À̸ÞÀÏ =>'foo@my.company.com ', street1 =>'techway ' , Street2 => '', City => 'Orem', Province => UT ', Postal_code =>'84058 ', Country =>'US ', Phone =>'+1.8017659400 ', Æѽº =>' ',} , ¿ä±Ý û±¸ => {contact_id => 'admin'}, tech => {contact_id => 'admin'}, nameervers => ,}; MY $ R = $ YAR-> µµ¸ÞÀÎ -> ·¹Áö½ºÅÍ ($ domain_info); ³» $ info = $ r-> µ¥ÀÌÅÍ; # $ info-> { 'domain_id'} »ý¼º µÈ µµ¸ÞÀÎ # $ info-> { 'contact_id_admin'} Admin ¿¬¶ôó ÇÚµé ID # $ info -> { 'contact_id_registrant'}, µî·ÏÀÚ ¿¬¶ôó ÇÚµé ID # $ info -> { 'contact_id_billing'}, û±¸ ¿¬¶ôó ÇÚµé ID # $ info -> {contact_id_tech '}, Tech Contact ÇÚµé ID # $ info -> {user_id'}, »õ »ç¿ëÀÚÀÇ ID # $ info -> {offer_id '}, »ç¿ë µÈ Á¦¾ÈÀÇ ID´Â # $ info-> {'invoice_id '}, »õ·Î¿î Àκ¸À̽º # $ info-> {'order_id '}ÀÇ ID, »õÀÇ ID ÁÖ¹® ¿ä±¸ »çÇ× : ¡¤ Perl.
Net :: Yar. °ü·Ã ¼ÒÇÁÆ®¿þ¾î