ÿØÿà JFIF    ÿÛ „ !.%+&8&+/1555$;@;4?.451 4,$,44444444444414444444444444444444444444444444444444ÿÀ  á á" ÿÄ     ÿÄ ?    !1AQaq"2‘¡±ÁðBRbrÑá#‚’¢²3S CñÿÄ   ÿÄ !    !1QAa‘2ÿÚ   ? 5˜Z¯V¦cø)›t/? z¨±>Õ5€¶‹Á¤·¼z¼Ü¬+ñ®v¤¨_ˆR­BFn©—˜ý®ç̝P8gýt·ÉSTŦˆìät?þé¼íìN/Þa)ì–í6ô… Ï¿øÃj´¿KÇü]ÿ ªô¹-eKànëÕHTx}ýSÜ›ÿ ”7Ø×&µ<¦  ¥ÑO¶[Ù¯ä¨ÞÃÿ PZ-¬;#õ|•oaÿ ©CìÞz3˜öː/¤­ñTûIØ}š^ mÓ%ªxˆ¥ÉŸu=Z+ISe¿45™¼u;ú&WØ÷€æßQ™®{|íx*TC“#ZŠìZ§²‹ 6pv…³¿¡äª*áZÐ%ÒOáˆo"x«OHk w±æ+¬V(kMúŸ5Vö«$ ÁrÏbàb57/luR ¸ÑÛj Òµì`Ðœq­û žICÀÊ•©4€Âcà¨Ï€O´<èÐ:›ù(Ë^L8þ‘ÍÌ#¸Ð_Ì©ÙK(Öz 4¬û+¸;ü’V’84‘¬ÃŽ:[â‡ÔÌáõp¢~§ªlæ£ö{®G>J¼"°‡7¯ÆÉèßû ‹É‹§ÁòÃýâßî ^ƾÙõ‹×óH#«LP½ïX=xÑÍ$|W?•~• îëÔ©ª‹ {ÝT…Kÿ ”hûâá)J*ö˜–ÔU;iÇ€/ ÆþjóZ\ýwØ=Ìm ºèËL9 ýèÆð/¨’¥öo=nË.%Îì ŽÕ¯È|{Oj²ƒE6e/ßdÄõ²Ìâ1O®ò×TsəԸhOMýíMˆ¿¼H˜l²,7Â¥#MF/Úf°Ö½± ¸–dr‹NýÊ íjqx{œÉ ä-È ¦ øÄër¨q°ð †nцýÑÄÆ’mä…n<0È™;ÁÝá¯ÁZƒ7FÀmì­ É&9ˆîéi¶ùN§Y• ÃZãAâ?•‡©‰ , ó¾IŸŠc1 4â&y­&pŠ­6;M À 0¹qç»p.á …ŸÅáK@%6·y6ƒ‰3?”úºŽ‰éX5ªPT §µ!=Mž«Ú½‹ÅgÂSâÉaþÓoö–¯ÁÔìR>5éÿ üs¶ÆUcÌ kÇR ]ÿ ù¬¼«VŽ;Â|‡~¢¦”ÏÅ°æ {L™Õ°Óv¹ò¸írŽ¡×¢CÃ!íVÕ {¶»sŒNPg/ "uÕbkm²“$ďå¿é¹§°½æz¯6 †s¿!s–wÚÝ“™Œ °.ûj>·+™Òa…©Œ&rÝÎtÛë긪Ît’LAVp%c Úý[ÄzJ¾ÇàXXç@˜ó<êL]·T˜¾¥1Ó©V‡g´æ½¦Ý@¹óø!_@´ÞâSÁ —S3™•& ]@JHÚý©ZŽ €×æÔr»Áf!‡yÞ4Mv*èÓã_{‘åóUuљØ«Oïé*®EvÑ Œ÷‡U \"㪒ÍK+À 4“M¡ï:0¥5í!'<@î´”>Ç»&Z–ïCCV˜Ì5Šo&îhè.žû |ÓK©h$s6KìŒëã)¹hI¦GïOåóI;ììü#É$Š0…Ææ¥TØ.5­¾gn´ “ÂÖ\:hœ89G)J@„}œ:’Ò{/Š"¦_Æ×7Æ3VÇŠÊa]ÚŒÙ€Ä–=®uÁßâACZƒ§§£ Qnâ:«,×{tyø¬iÛcœÜÄ€H½ÄÍCk´÷šß .W'b¤Íåh]÷€=,Žv×cÚEÚHXJX¶îo¨FÒtèöŸ>ªª6[J®Fµ£sGÁeqõfe\íjÒÐïÄÐGˆe1Ø‹.Ø”‘Ëuø Y­ˆÜ ŽG|zùªüMpDnQWÄ”%JŠ™)â*p@Örš«ÕT2Ð%ˆG#ª„ ·¤!°ŸOTÂT¸aÚ%4&h™LµšØüÐ.F¿²ÐÞ_Ç‚¾ÅÃaÜ÷09Æ q€öy˜v‡85õN÷]¬äѼóS{°_MŽ¬úÔ#°Ç¸0åÞè2ëôPcvÆw9®ií1Ä8F™˜à‰´+‰Ik1òÝ7“Ñ×ÒsÝ\x‚h`ÞÑ`ó"|µEcý£n˜h`}GÞ !±ù²Ápü²ß6 0ïi󜵩SÈÇ7˜-ÕURO˜¦´f$ªž-Í6(œ}<„ éc øs]ŽŽ„*—¾ ìdŽ„)méª\¿êÎIg¾ØÞ~I#C/¼¼´EÁÈŽi8“©õådô·>euä ƒ'Ê×लR1ÉJE1ÐAát`t;ÇР%Ý<‡¥„ÍÆ`×Oyó)õiI€ñQaŸ4Ûù\áàaÃÔ¹HÃu¹*k€¦<„e S‡&õÏ B!ŽhüÞ`yj}mªf×\¿ Ç~æ­9‡û\՞Ǖg²1Žû5V7 !àöšm° c`ܬøÇìµÒ'P"?…´Ö,"§^•õŽ¨sÔ)6˜sæéÍR¼ ò|Sl”‹7 nPW Gòú÷½§O¯‡„l¡kSÞŒr½PÊ@æ¢pŽ-mÿ #Ÿ˜Àº¶Áä¦;ïÔæ$1££`“Õ>„—·ž)ßð³ñ#Ï Ô$¶œ‰ÊE‹À;÷º ¯«P:Ñ”8–IÊtpÞ3ª“>ê“þës4ò2OÏÕ­±zô†Õ§‰.÷ä¸;¿˜“'œ›žª}«Œ{ª±Ì 9ÔóÞÕ‡0 $íWV3Üì¬ —@kÝ4@¿r¼±½¬™›?øØæ´'Áé®CË3-g$˜ö‡×auÚi´Žp/êÛ æF›Ú2v‹ã¿¿,nB1̨ƃqÞa5͝@&Æû“él÷ \C²½UÍc ¯k×¢U ÖéQå™—-r wô ÞÏ<Ò=&=ÿ Ôê Òêˈt,i—;LîÜ á¸*ÚÃ1$êL•LÍ <É)ýÐà’ ;F™{ƒ™˜€&'}‚ãÄK`¡ÞT@I;®žZóè‚s’7®°›+§O­Åq©é»²9<Ô J ¼9O’HL»Ùïì¸rk¼Ž_ý‘TŸu[²ßÚŒ·ü÷B%¯E ŸÔX5êO´ Ç•€’I0 ÉJX` ñ¹õ%;µŸD‘«´€àwÒ™U ûئžÖö\×®×´8 ½‡ºÐÆÓ§?Àkmœ=;d5*@-ì0F Rªýš[Ü6âö̃ڸr*KA9· u*µæ£?U¸Âêí†8@¦X4 e-ò„0s{ HâUpU?¼mñRa°®a%Ð'tÉ×’\¾ÊÉ]t›h>·(Ë@R¼¡Ãt h}’O÷au<+nT…Ö…MӐ??Óe95 q>í/;&JSû °¯ÊéÞ øƒ*Ã2½Ài&:nôUl=¾¿5eˆ3”ñc|Ú2V”>„»&eE;«ÚäC p¢Û úy 9š[ŒÌx¼擼A&DåÒ¯ˆ¤ÀÌ;"˜ ÏQä¸åhÊ}Ûq«Û0WžÒ|»€ø®öCm5•\ÇÀ§Pe3£]0ÃàLDÉ‰1øªxjgwT‚÷¿LΨK‹›ùs—xˆÜ±µ kæ¸f‰‰ÜGk/LÛØ6d9ò¶ùA{ƒA3š/¬D¬khÓk‰`˜"㯒r¿±Óã jx‡°e}<Ñø\3y:'À•/h½Í€Ç4~g ?Û(¼]v‘ªlKÎâ~?O‚W%{Ì:“'©úNq¾›úo(X’¥¯ˆ nFê{Ç€ü?º'ë ø‹ì Þ09ŒÌç9Æ —ËC`j@ÓÄ(+a‹un¸#ÂꟋ{K`‘ÑÍÍ'à´»/Û,KW;Þ4²þð ï Nm|~fGÏ(…³Ã)«1ö­Õ ¥‡¨©ƒÃ™ü-s=à=U66Ï«Ýc蓦W¹íž®›nÔ%êÇìŒ<#Ü×84ån®Ð ÒåOC` ñânÑs‡¢ç 1õ%Îhì½Ã½® e:ݼUZo™`  ÅZŸŒÊ«ê1ÏÄo$q¹Þ€©ˆhÐÉä¯ñ[!…Ú˜àJ:x2$Íß&PåT£6ç— ‡Í*4Ýšçjÿ ‰É nófÐ ó(L5C•åÆ\rMÒ@ò }y-W}™üýVù—ú¢=Ù”c®‘< M ž ´Phr ¦©TD ‘ù.$´÷O‡‘V2Æò.=IUŒ=ž‡â¬i™aþÓåÙ?òUø'ØÖ•.~* šTŒ!•-×áºTâ®ä#õü'´ eýlYÅÓeÕKÂrT"CÚ@u!Óxƒ{š3€}1¿(r}%«nËamjÑ%ÑNEò v ˜à  σöK³,*º.àzù¨™Ó ÚçâU¦*¿ 9{%Ö¹ njûdaXöb) kÛƱûÓ\°M7ˆÂ=û›ç¿Ã‚­V»Cg–8ÙêE- j)k$º`Ã-ùEýeBÆÇ]c¡°ñty&Òd0nõ'¡W+ƒ*|–øµFa\GQªEAÔp5\Ǽ·¼Ç8·õ -â§Ú[ ‡ uZeÖ 3}×d'+¹:ð+K†Û®s!Ï$úe€<Û”x)1»a­¡LC]¸µík…ÚàA»AYº{†ªS[¦5HÒ7ù --,ísòDØ€èk ÞÀîÜ ò@â( ËNˆë›4ô½•/¦o‡€Û7 ê•ÆêòðÜy'Án½µ á˜ݦ ndeo…[ì¶Ê,¥R³Ä=À±—–ß;£™´ñSâ*g§”ïaið‘Jå~™ÓÞ ß³Õ¢»8x埒²52>AÊb&-÷\7´éÄù€T˜,w;3{ï˜k…à¹ÄqÀ«œ{€\ ˆ¾[´¨јr &Úé„Ívˆ±8†¿]|¬ņ4I×pÞS1ÈÖz‰#Ìv‡G!YNògñ:màTz¢Ý1ô©^O=~ë|5Bã™ç•¼µõ•bÆ@úÕS¬ÈŒ#¬zünrŸ û” Z²•ï›èðV"ÁHÚý©wÝ €7¼Ìu1hÑa3Éä û f$o¿É ™Ú›ÝçnpÒ3äÌ3†Í§,Äï]$‰/pê †«À¼¸e9­Æê_C]žƒ·ý·frÁN«, E=›Çq -‰öŒ:aÏ¿±í&£Í:-} 84‘ÿ eƒQÑeëSsuiA ³g㟥ú£?ÿ ʼn*”“÷aühe:ÊWa@ÒÞk±eØ] F Ô—r.åä˜ @ö¥ªZoÐýYL·¥S²G/‡ñ <~*ZÆ´è>JlòàÛƽÿ 窘ìGN¢:I®KšJp/`íIÁÀõ#Ä-€ö­šµŒoF4|ÆQØÆ@Ì|£Ô…¢À{9˜è½Üó›€ôYÒÎYsið;ís¤€à²ˆ‚4qÉVŒI$ ‰"° æµ8cXGjœˏ¡Aâý•ËÜ¢ûï e·çLx']á"oÅÎê3¯Ç—¹”ó0nå‚âg{Œñ> S´˜îè°g238‚ãköÝfÚd´6Ò€;ò÷±¢™¼›º ¢Æ'¥Ðx'e¬ç ]bÈÆV¢ó‹kýBO ðÊâ$Ÿ!×T 3Mýמ žìٍàÌü‘8÷€àæØ8æ©6‰©L´«…oãpð„~Çk‰!ñ;‹”ÛžÍ àž±z Ÿôû øŸÝužÏ;ÿ #|u6™Þ¬ÚˆÐõA4¶â|ôl|Ê2ŽÇ¤ÝÅÇY.<#Aí.k§hóF‚”Y; M½Ö4hŸ4&›­¿tès´%FìL¥£Ãk‰ÇT¤haÁ¤ÚxfÉ`ÑìË›>i 3t‚:,–+^÷´–{Û–Nxi"x‘Ûg î¨>¥Õ܁ùZH,2Û“:8xÊ¢Çí9.É-Ìâã-=çjwµS˜dütžçwýGòú®®ûº_ˆýx$–¡ãøO EÚÛÏ÷R„×w+3£Á£öUMyR²¹âŒ°š›¸Ñãò9§Ó_Dl+Ùßc›úšGÅÌc†Ž!Ko=¶.‘Îÿ c²(2®V mª.ÿ ¹B›¹å ù„öŸSV>™ü¯$y:G¢Z×àøúdî¹û­·ýÇ´:•c LÍõi_‹ö+ÎæGÊè>OŠ•äž´§Þ{X}¨1ÚTc›»Qþ•êô°t¿OP?eæ~É{5]•ÙR£r5†nZ\ã@ &îJõ ¾àC°þV>fé¥/ü5ñÊIº_é5 ;e­h<@ Ä&æÃëE%;X,ÒãÆÞ`Oò¦kŸm#˜!ÀyÄ¢| óLšò¥Ä` ¶R=|ÈCâh5ò3DˆïF†ðÒ#ÅìÛœ?¸yhBãœí ZxßÎÄhºRK„`Þödvײ™ÀÈÑÒgŒuY w³%†ƒÓzõ ÖÏp‚dH®¦A´ù§»ÓÇMæ~)ˆð‡û:ù&Ä •vGD´À n ݇¼Ö8Fö óáà£~Ë¥x`oK|Ä?fxiØü%pìR>éò+Û±éÎ>núlFŤ'tq8LZÏvÃ?„¡ß±È⽆¯³íü@x|PöUäèØã¡ð‚ŒAìÏ"vÍwóŸÍ{ ý0.z È•Ö{,N¡£¡ŸKÕÙž>Ýœþ ÍÀ°<×EA!Å‚D™IúOÍ¡>ôG}Â` ÍßkÜL™Ž Þð™ {IøF²¹òQ3&!ÃÂÞz.d&Ï-sH¸,Ôõ˜ŽP€ 77ˆÝ¼ÊëÜw =cÕ Ú,ØÐ5ÎYÐ)ì´öœgŒ[¤ßv㙑8心>h]§µháYš£²ºÑ.{Ï7Sð•?´~×SÃKýJÛ˜ ™Íäiúu<µX¶1õ^kâçIÑ£sZ4h>j*ÔšD:4­¿_ ÷¸ Õxæÿ ¸?Mù _•­ÊÐ ä ÷ý ÑwL œ­ïnTkÛUÍN©ë:¦fV ¶ÜÔÜMªÅâA½–¿R×TXš-%iTÊT•‡Ù‚JôϐZxWÑè‰f‰òG º ×Õû2aZ7OU3[“×AT–ÞŒ…-‘¤”Ì ì&(ˆ¿­•ƒkï’:ðY¦W‘ Å)“†‘˜³Åtcø˜ñTÂwÚÇ4|üLÇªí–v- qˆèU qPE.†â‘˜µ Æ,ÐÅs]8¾„oúÑ i>ÜxxÈó)ƒ ´æÁâØ$À‰vžŸf$Ž |ãw;ÀÁIJ»b` {¦Ó¤Ú$©YÀ‘n@Óïž«9J¼êG m¤ ܯ¹ÌW4€ÐÒÅÛ‡#褕Ÿn-?í|с¥÷Ú¹¬'´ÞÜ9ÓK `hê£SÄSà?7—Wí_´…óB›»:=Ãïq`<8ñÓŒÑlú2d¬ê³£hÖ[l|$vÝro~'R®‰§°ñmY ͧäP |PUª¹·:3Œ[Û{Xÿ ºâ@‚W–Äé u‚ ¯´*=íή.pûÒdt @G‰¬ s¸ ëÉücr ÞæѨÊ@>¤¢Ö±. Þ'¯°ÌME[YéïĵÂCå½ Ué©Áû'Ê9%eÔðNU”ë‘ÌsD3/®+UI˜9h.WC”빓$#:pz:YÓ ¿xž* ³$Í +$kñAŠ‹†¢ Uê>¸)_š¬÷©ßAÂÔb9ÇU ¯¾á•9¯ÏÏ÷O÷¼¼Fähal1‰3Ì[Ïr•´UCksNÐ] R‘¸¥H+§Šé†c©vÖÞ0iÓ76s†î!§=ß ¼~Ô'°Ãmäoäš³ªøi1úÉ)³yV8 CLÄØÁ‘WYïi€H6ÖÑiámø^ÈY´°Ñ7¥Û*—Ñ©L«Qƒï—Ùrÿ ›£Ð*š¸ˆL©ˆ$ˆ ÷¾D§9È®«qbqC)–ˆïv´çñsÑVT­Ø, <àïºÀO«Jý·õ àfPìð .wFšir´þ’2_Y *Æ€x\« ì€9š@ Ž|F⇥ˆkZ@hÖÄ0t¿-<“‹qµ¾*ZL¤Ú)&BJpÓF5=$„at*Zš$’ÑtdûÝRI1 2Ž‰$€$I$#‰SÞ’Hë¬ï;Á$¡t$’`<(ñÇt)$‡Ð.Êf¢X’Kt=Éé$‚ˆªè¢oÝëòI%Rgcª÷ŠyI%¡‰ÿ !ñ)´õ $¤ Ô’IIGÿÙmodule Test_dhcpd = let lns = Dhcpd.lns let conf = "# # Sample configuration file for ISC dhcpd for Debian # # Attention: If /etc/ltsp/dhcpd.conf exists, that will be used as # configuration file instead of this file. # # $Id: dhcpd.conf,v 1.1.1.1 2002/05/21 00:07:44 peloy Exp $ # # The ddns-updates-style parameter controls whether or not the server will # attempt to do a DNS update when a lease is confirmed. We default to the # behavior of the version 2 packages ('none', since DHCP v2 didn't # have support for DDNS.) ddns-update-style none; # option definitions common to all supported networks... option domain-name \"example.org\"; option domain-name-servers ns1.example.org, ns2.example.org; default-lease-time 600; max-lease-time 7200; # If this DHCP server is the official DHCP server for the local # network, the authoritative directive should be uncommented. authoritative; allow booting; allow bootp; # Use this to send dhcp log messages to a different log file (you also # have to hack syslog.conf to complete the redirection). log-facility local7; # No service will be given on this subnet, but declaring it helps the # DHCP server to understand the network topology. subnet 10.152.187.0 netmask 255.255.255.0 { } # This is a very basic subnet declaration. subnet 10.254.239.0 netmask 255.255.255.224 { range 10.254.239.10 10.254.239.20; option routers rtr-239-0-1.example.org, rtr-239-0-2.example.org; } # This declaration allows BOOTP clients to get dynamic addresses, # which we don't really recommend. subnet 10.254.239.32 netmask 255.255.255.224 { range dynamic-bootp 10.254.239.40 10.254.239.60; option broadcast-address 10.254.239.31; option routers rtr-239-32-1.example.org; } # A slightly different configuration for an internal subnet. subnet 10.5.5.0 netmask 255.255.255.224 { range 10.5.5.26 10.5.5.30; option domain-name-servers ns1.internal.example.org; option domain-name \"internal.example.org\"; option routers 10.5.5.1; option broadcast-address 10.5.5.31; default-lease-time 600; max-lease-time 7200; } # Hosts which require special configuration options can be listed in # host statements. If no address is specified, the address will be # allocated dynamically (if possible), but the host-specific information # will still come from the host declaration. host passacaglia { hardware ethernet 0:0:c0:5d:bd:95; filename \"vmunix.passacaglia\"; server-name \"toccata.fugue.com\"; } # Fixed IP addresses can also be specified for hosts. These addresses # should not also be listed as being available for dynamic assignment. # Hosts for which fixed IP addresses have been specified can boot using # BOOTP or DHCP. Hosts for which no fixed address is specified can only # be booted with DHCP, unless there is an address range on the subnet # to which a BOOTP client is connected which has the dynamic-bootp flag # set. host fantasia { hardware ethernet 08:00:07:26:c0:a5; fixed-address fantasia.fugue.com; } # You can declare a class of clients and then do address allocation # based on that. The example below shows a case where all clients # in a certain class get addresses on the 10.17.224/24 subnet, and all # other clients get addresses on the 10.0.29/24 subnet. #class \"foo\" { # match if substring (option vendor-class-identifier, 0, 4) = \"SUNW\"; #} shared-network 224-29 { subnet 10.17.224.0 netmask 255.255.255.0 { option routers rtr-224.example.org; } subnet 10.0.29.0 netmask 255.255.255.0 { option routers rtr-29.example.org; } pool { allow members of \"foo\"; range 10.17.224.10 10.17.224.250; } pool { deny members of \"foo\"; range 10.0.29.10 10.0.29.230; } } " test lns get "authoritative;" = { "authoritative" } test lns get "ddns-update-style none;" = { "ddns-update-style" = "none" } test lns get "option domain-name \"example.org\";" = { "option" { "domain-name" { "arg" = "example.org" } } } test lns get "option domain-name-servers ns1.example.org, ns2.example.org;" = { "option" { "domain-name-servers" { "arg" = "ns1.example.org" } { "arg" = "ns2.example.org" } } } test lns get "default-lease-time 600;" = { "default-lease-time" = "600" } test lns get "range 10.254.239.60;" = { "range" { "to" = "10.254.239.60" } } test lns get "range dynamic-bootp 10.254.239.60;" = { "range" { "flag" = "dynamic-bootp" } { "to" = "10.254.239.60" } } test lns get "range dynamic-bootp 10.254.239.40 10.254.239.60;" = { "range" { "flag" = "dynamic-bootp" } { "from" = "10.254.239.40" } { "to" = "10.254.239.60" } } test lns get "subnet 10.152.187.0 netmask 255.255.255.0 {}\n" = { "subnet" { "network" = "10.152.187.0" } { "netmask" = "255.255.255.0" } } test lns get " pool { pool { } } " = { "pool" { "pool" } } test lns get "group { host some-host {hardware ethernet 00:00:aa:bb:cc:dd; fixed-address 10.1.1.1;}}" = { "group" { "host" = "some-host" { "hardware" { "type" = "ethernet" } { "address" = "00:00:aa:bb:cc:dd" } } { "fixed-address" = "10.1.1.1" } } } test lns get "group fan-tas_tic { }" = { "group" = "fan-tas_tic" } test Dhcpd.stmt_secu get "allow members of \"foo\";" = { "allow-members-of" = "foo" } test Dhcpd.stmt_secu get "allow booting;" = { "allow" = "booting" } test Dhcpd.stmt_secu get "allow bootp;" = { "allow" = "bootp" } test Dhcpd.stmt_option get "option voip-boot-server code 66 = string;" = { "rfc-code" { "label" = "voip-boot-server" } { "code" = "66" } { "type" = "string" } } test Dhcpd.stmt_option get "option special-option code 25 = array of string;" = { "rfc-code" { "label" = "special-option" } { "code" = "25" } { "type" = "array of string" } } test Dhcpd.stmt_option get "option special-option code 25 = integer 32;" = { "rfc-code" { "label" = "special-option" } { "code" = "25" } { "type" = "integer 32" } } test Dhcpd.stmt_option get "option special-option code 25 = array of integer 32;" = { "rfc-code" { "label" = "special-option" } { "code" = "25" } { "type" = "array of integer 32" } } test Dhcpd.lns get "authoritative; log-facility local7; ddns-update-style none; default-lease-time 21600; max-lease-time 43200; # Additional options for VOIP option voip-boot-server code 66 = string; option voip-vlan-id code 128 = string; " = { "authoritative" } { "log-facility" = "local7" } { "ddns-update-style" = "none" } { "default-lease-time" = "21600" } { "max-lease-time" = "43200" { "#comment" = "Additional options for VOIP" } } { "rfc-code" { "label" = "voip-boot-server" } { "code" = "66" } { "type" = "string" } } { "rfc-code" { "label" = "voip-vlan-id" } { "code" = "128" } { "type" = "string" } } test Dhcpd.lns get " option domain-name-servers 10.1.1.1, 10.11.2.1, 10.1.3.1; next-server 10.1.1.1; failover peer \"redondance01\" { primary; address 10.1.1.1; port 647; peer address 10.1.1.1; peer port 647; max-response-delay 20; max-unacked-updates 10; mclt 3600; #comment. split 128; #comment. load balance max seconds 3; } " = { } { "option" { "domain-name-servers" { "arg" = "10.1.1.1" } { "arg" = "10.11.2.1" } { "arg" = "10.1.3.1" } } } { "next-server" = "10.1.1.1" } { "failover peer" = "redondance01" { "primary" } { "address" = "10.1.1.1" } { "port" = "647" } { "peer address" = "10.1.1.1" } { "peer port" = "647" } { "max-response-delay" = "20" } { "max-unacked-updates" = "10" } { "mclt" = "3600" { "#comment" = "comment." } } { "split" = "128" { "#comment" = "comment." } } { "load balance max seconds" = "3" } } (* test get and put for record types *) let record_test = "option test_records code 123 = { string, ip-address, integer 32, ip6-address, domain-list };" test Dhcpd.lns get record_test = { "rfc-code" { "label" = "test_records" } { "code" = "123" } { "record" { "1" = "string" } { "2" = "ip-address" } { "3" = "integer 32" } { "4" = "ip6-address" } { "5" = "domain-list" } } } test Dhcpd.lns put record_test after set "/rfc-code[1]/code" "124" = "option test_records code 124 = { string, ip-address, integer 32, ip6-address, domain-list };" test Dhcpd.lns get " option CallManager code 150 = ip-address; option slp-directory-agent true 10.1.1.1, 10.2.2.2; option slp-service-scope true \"SLP-GLOBAL\"; option nds-context \"EXAMPLE\"; option nds-tree-name \"EXAMPLE\"; " = { } { "rfc-code" { "label" = "CallManager" } { "code" = "150" } { "type" = "ip-address" } } { "option" { "slp-directory-agent" = "true" { "arg" = "10.1.1.1" } { "arg" = "10.2.2.2" } } } { "option" { "slp-service-scope" = "true" { "arg" = "SLP-GLOBAL" } } } { "option" { "nds-context" { "arg" = "EXAMPLE" } } } { "option" { "nds-tree-name" { "arg" = "EXAMPLE" } } } test Dhcpd.lns get "option voip-vlan-id \"VLAN=1234;\";" = { "option" { "voip-vlan-id" { "arg" = "VLAN=1234;" } } } test Dhcpd.lns get "option domain-name \"x.example.com y.example.com z.example.com\";" = { "option" { "domain-name" { "arg" = "x.example.com y.example.com z.example.com" } } } test Dhcpd.lns get "include \"/etc/dhcpd.master\";" = { "include" = "/etc/dhcpd.master" } test Dhcpd.lns put "\n" after set "/include" "/etc/dhcpd.master" = "\ninclude \"/etc/dhcpd.master\";\n" test Dhcpd.fct_args get "(option dhcp-client-identifier, 1, 3)" = { "args" { "arg" = "option dhcp-client-identifier" } { "arg" = "1" } { "arg" = "3" } } test Dhcpd.stmt_match get "match if substring (option dhcp-client-identifier, 1, 3) = \"RAS\";" = { "match" { "function" = "substring" { "args" { "arg" = "option dhcp-client-identifier" } { "arg" = "1" } { "arg" = "3" } } } { "value" = "RAS" } } test Dhcpd.stmt_match get "match if suffix (option dhcp-client-identifier, 4) = \"RAS\";" = { "match" { "function" = "suffix" { "args" { "arg" = "option dhcp-client-identifier" } { "arg" = "4" } } } { "value" = "RAS" } } test Dhcpd.stmt_match get "match if option vendor-class-identifier=\"RAS\";" = { "match" { "option" = "vendor-class-identifier" { "value" = "RAS" } } } test Dhcpd.lns get "match pick-first-value (option dhcp-client-identifier, hardware);" = { "match" { "function" = "pick-first-value" { "args" { "arg" = "option dhcp-client-identifier" } { "arg" = "hardware" } } } } test Dhcpd.fct_args get "(16, 32, \"\", substring(hardware, 0, 4))" = { "args" { "arg" = "16" } { "arg" = "32" } { "arg" = "\"\"" } { "arg" = "substring(hardware, 0, 4)" } } test Dhcpd.stmt_match get "match if binary-to-ascii(16, 32, \"\", substring(hardware, 0, 4)) = \"1525400\";" = { "match" { "function" = "binary-to-ascii" { "args" { "arg" = "16" } { "arg" = "32" } { "arg" = "\"\"" } { "arg" = "substring(hardware, 0, 4)" } } } { "value" = "1525400" } } test Dhcpd.lns get "subclass allocation-class-1 1:8:0:2b:4c:39:ad;" = { "subclass" { "name" = "allocation-class-1" } { "value" = "1:8:0:2b:4c:39:ad" } } test Dhcpd.lns get "subclass \"allocation-class-1\" 1:8:0:2b:4c:39:ad;" = { "subclass" { "name" = "allocation-class-1" } { "value" = "1:8:0:2b:4c:39:ad" } } test Dhcpd.lns get "subclass \"quoted class\" \"quoted value\";" = { "subclass" { "name" = "quoted class" } { "value" = "quoted value" } } (* overall test *) test Dhcpd.lns put conf after rm "/x" = conf (* bug #293: primary should support argument *) let input293 = "zone EXAMPLE.ORG. { primary 127.0.0.1; }" test Dhcpd.lns get input293 = { "zone" = "EXAMPLE.ORG." { "primary" = "127.0.0.1" } } (* bug #311: filename should be quoted *) let input311 = "subnet 172.16.0.0 netmask 255.255.255.0 { filename \"pxelinux.0\"; }" test Dhcpd.lns put "subnet 172.16.0.0 netmask 255.255.255.0 { }" after set "subnet/filename" "pxelinux.0" = input311 (* GH issue #34: support conditional structures *) let gh34_empty = "if exists dhcp-parameter-request-list { }\n" test Dhcpd.lns get gh34_empty = { "@if" = "exists dhcp-parameter-request-list" } let gh34_empty_multi = "subnet 192.168.100.0 netmask 255.255.255.0 { if true { } elsif false { } else { } }\n" test Dhcpd.lns get gh34_empty_multi = { "subnet" { "network" = "192.168.100.0" } { "netmask" = "255.255.255.0" } { "@if" = "true" { "@elsif" = "false" } { "@else" } } } let gh34_simple = "if exists dhcp-parameter-request-list { default-lease-time 600; } else { default-lease-time 200; }\n" test Dhcpd.lns get gh34_simple = { "@if" = "exists dhcp-parameter-request-list" { "default-lease-time" = "600" } { "@else" { "default-lease-time" = "200" } } } test Dhcpd.lns get "omapi-key fookey;" = { "omapi-key" = "fookey" } (* almost all DHCP groups should support braces starting on the next line *) test Dhcpd.lns get "class introduction { }" = { "class" = "introduction" } (* equals should work the same *) test Dhcpd.lns get "option test_records code 123 = string;" = { "rfc-code" { "label" = "test_records" } { "code" = "123" } { "type" = "string" } } test Dhcpd.lns get "deny members of \"Are things like () allowed?\";" = { "deny-members-of" = "Are things like () allowed?" } test Dhcpd.lns get "deny unknown clients;" = { "deny" = "unknown clients" } test Dhcpd.lns get "deny known-clients;" = { "deny" = "known-clients" } test Dhcpd.lns get "set ClientMac = binary-to-ascii(16, 8, \":\" , substring(hardware, 1, 6));" = { "set" = "ClientMac" { "value" = "binary-to-ascii(16, 8, \":\" , substring(hardware, 1, 6))" } } test Dhcpd.lns get "set myvariable = foo;" = { "set" = "myvariable" { "value" = "foo" } } test Dhcpd.stmt_hardware get "hardware fddi 00:01:02:03:04:05;" = { "hardware" { "type" = "fddi" } { "address" = "00:01:02:03:04:05" } } test Dhcpd.lns get "on commit { set test = thing; }" = { "on" = "commit" { "set" = "test" { "value" = "thing" } } } (* key block get/put/set test *) let key_tests = "key sample { algorithm hmac-md5; secret \"secret==\"; } key \"interesting\" { }; key \"third key\" { secret \"two==\"; }" test Dhcpd.lns get key_tests = { "key_block" = "sample" { "algorithm" = "hmac-md5" } { "secret" = "secret==" } } { "key_block" = "interesting" } { "key_block" = "third key" { "secret" = "two==" } } test Dhcpd.lns put key_tests after set "/key_block[1]" "sample2" = "key sample2 { algorithm hmac-md5; secret \"secret==\"; } key \"interesting\" { }; key \"third key\" { secret \"two==\"; }" test Dhcpd.lns get "group \"hello\" { }" = { "group" = "hello" } test Dhcpd.lns get "class \"testing class with spaces and quotes and ()\" {}" = { "class" = "testing class with spaces and quotes and ()" }