1 <?php
4 /* All available record types
5 */
6 $RecordTypes['aRecord'] = "aRecord";
7 $RecordTypes['mDRecord'] = "mDRecord";
8 $RecordTypes['mXRecord'] = "mXRecord";
9 $RecordTypes['nSRecord'] = "nSRecord";
10 $RecordTypes['pTRRecord'] = "relativeDomainName";
11 $RecordTypes['hInfoRecord'] = "hInfoRecord";
12 $RecordTypes['mInfoRecord'] = "mInfoRecord";
13 $RecordTypes['cNAMERecord'] = "relativeDomainName";
14 $RecordTypes['tXTRecord'] = "tXTRecord";
15 $RecordTypes['aFSDBRecord'] = "aFSDBRecord";
16 $RecordTypes['SigRecord'] = "SigRecord";
17 $RecordTypes['KeyRecord'] = "KeyRecord";
18 $RecordTypes['aAAARecord'] = "aAAARecord";
19 $RecordTypes['LocRecord'] = "LocRecord";
20 $RecordTypes['nXTRecord'] = "nXTRecord";
21 $RecordTypes['sRVRecord'] = "sRVRecord";
22 $RecordTypes['nAPTRRecord'] = "nAPTRRecord";
23 $RecordTypes['kXRecord'] = "kXRecord";
24 $RecordTypes['certRecord'] = "certRecord";
25 $RecordTypes['a6Record'] = "a6Record";
26 $RecordTypes['dSRecord'] = "dSRecord";
27 $RecordTypes['sSHFPRecord'] = "sSHFPRecord";
28 $RecordTypes['rRSIGRecord'] = "rRSIGRecord";
29 $RecordTypes['nSECRecord'] = "nSECRecord";
32 /* Return all record types
33 */
34 function getDnsRecordTypes($ForZones = false)
35 {
36 global $RecordTypes;
37 if($ForZones){
38 $tmp = $RecordTypes;
39 unset($tmp['cNAMERecord']);
40 unset($tmp['pTRRecord']);
41 unset($tmp['tXTRecord']);
42 return($tmp);
43 }else{
44 return($RecordTypes);
45 }
46 }
49 /* This fucntion is used to flip the ip address, for example
50 12.3.45 -> 45.3.12
51 Because some entries (like zones) are store like that 45.3.12.in-addr.arpa
52 but we want to display 12.3.45.
53 */
54 function FlipIp($ip)
55 {
56 $tmp = array_reverse(split("\.",$ip));
57 $new = "";
58 foreach($tmp as $section){
59 $new .= $section.".";
60 }
61 return(preg_replace("/.$/","",$new));
62 }
65 /* This function returns the zones specified for given host
66 */
67 function getDNSZoneEntries($config,$HostDn,$silent = false)
68 {
69 global $RecordTypes;
71 $ldap = $config->get_ldap_link();
72 $ldap->cd($config->current['BASE']);
74 /* Not all records are allowed within a zone entry
75 */
76 $SkipRecords = array("tXTRecord","cNAMERecord","pTRRecord");
78 /* Special sOArecords
79 */
80 $sOAREcords = array("0"=>"sOAprimary","1"=>"sOAmail","2"=>"sOAserial","3"=>"sOArefresh","4"=>"sOAretry","5"=>"sOAexpire","6"=>"sOAttl");
82 /* Get host entry */
83 $ldap->cat($HostDn);
84 $host_attr = $ldap->fetch();
86 /* Create tempalte for all fetched zone Data
87 */
88 $ZoneBase = array();
89 $ZoneBase['exists'] = false;
90 $ZoneBase['RECORDS'] = array();
91 $ZoneBase['zoneName'] = array();
92 $ZoneBase['dNSClass'] = array();
94 foreach($sOAREcords as $attr){
95 $ZoneBase[$attr] = "";
96 }
98 $Zones = array();
100 /* Get & Parse all zone entries
101 */
102 $ldap->ls("(&(objectClass=dNSZone)(zoneName=*)(relativeDomainName=@))",$HostDn,array("*"));
103 $tmp_res = array();
104 while($attrs = $ldap->fetch()) {
105 $tmp_res[] = $attrs;
106 }
108 /* Parse fetched zones
109 */
110 foreach($tmp_res as $attrs){
112 $zoneName = strtoupper($host_attr['cn'][0])."/".$attrs['zoneName'][0];
113 $Zones[$zoneName] = $ZoneBase;
114 $Zones[$zoneName]['exists'] = true;
116 /* Set basic attributes
117 */
118 if(isset($attrs["dNSClass"][0])){
119 $Zones[$zoneName]["dNSClass"] = $attrs["dNSClass"][0];
120 }
122 /* Set initial zone name, to be able to detect if this entry was renamed
123 */
124 $Zones[$zoneName]['InitialzoneName'] = $zoneName;
125 $Zones[$zoneName]['zoneName'] = $zoneName;
127 /* Generate SOA entry
128 */
129 if(isset($attrs['sOARecord'][0])){
130 $tmp = split("\ ",$attrs['sOARecord'][0]) ;
131 $tmp2 = array();
133 /* Assign soa vars */
134 foreach($sOAREcords as $key => $name){
135 if(isset($tmp[$key])){
136 $Zones[$zoneName][$name] = $tmp[$key];
137 }else{
138 $Zones[$zoneName][$name] = "";
139 }
140 }
141 } // ENDE SOA Record
143 /* Get record attributes
144 */
145 foreach($RecordTypes as $name => $value){
147 /* Skip some attributes
148 */
149 if(in_array($name,$SkipRecords)) continue;
151 /* If there is a record attribute
152 */
153 if(isset($attrs[$name])){
155 /* get all entries
156 */
157 for($i = 0 ; $i < $attrs[$value]['count']; $i ++){
158 $Zones[$zoneName]['RECORDS'][] = array("type"=>$name,"value"=>$attrs[$value][$i]);
159 }
160 }
161 }
163 /* Get reverse record ..
164 */
165 $ldap->ls("(&(objectClass=dNSZone)(relativeDomainName=@)(zoneName=*))",$attrs['dn'],array("zoneName"));
167 if($ldap->count() == 0){
168 if(!$silent){
169 print_red(sprintf(_("Can't find reverse zone for dns zone '%s'. Aborting parsing this zone."),$zoneName));
170 }
171 unset($Zones[$zoneName]);
172 }elseif($ldap->count()>1){
173 if(!$silent){
174 print_red(sprintf(_("Found more than one reverse zone for dns zone '%s'. Aborting parsing this zone."),$zoneName));
175 }
176 unset($Zones[$zoneName]);
177 }else{
178 $tmp = $ldap->fetch();
179 $Zones[$zoneName]['ReverseZone'] = strtoupper($host_attr['cn'][0])."/".FlipIp(str_replace(".in-addr.arpa","",$tmp['zoneName'][0]));
180 $Zones[$zoneName]['InitialReverseZone'] = strtoupper($host_attr['cn'][0])."/".FlipIp(str_replace(".in-addr.arpa","",$tmp['zoneName'][0]));
181 }
182 }
183 return($Zones);
184 }
187 /* This function compares two dns zone objects and returns an
188 * array with following indexes
189 * - delete, for dns which must be deleted (only if dns zone is removed)
190 * - rename, if a dn must be renamed, for example, the zoneName has changed
191 * - add, if there is a new dns account created
192 */
193 function getDNSZoneEntriesDiff($config,$newZones,$HostDn)
194 {
195 $oldZones = getDNSZoneEntries($config,$HostDn,true);
197 $sOAattributes = array("sOAprimary","sOAmail","sOAserial","sOArefresh","sOAretry","sOAexpire","sOAttl");
199 $move = array();
200 $add = array();
201 $del = array();
203 /* Generate a template for zones with default values
204 */
205 $zoneBase = array();
206 $zoneBase['objectClass'] = array("top","dNSZone");
207 $zoneBase['zoneName'] = "";
208 $zoneBase['relativeDomainName'] = "@";
209 $zoneBase['dNSClass'] = "IN";
210 $zoneBase['sOARecord'] = "";
212 /* Contains all renamed zoneNames
213 * For zone entry udpdates
214 */
215 $PrePareZoneEntries = array();
217 /* Walk through all zones and detect renamed/added/deleted zones ...
218 */
219 foreach($newZones as $name => $zone){
221 /* This zone was renamed
222 */
223 if((!empty($zone['InitialzoneName'])) && ($zone['InitialzoneName'] != $zone['zoneName'])){
225 /* Move old zone to new position
226 */
227 $oldDn = "zoneName=".getNameFromMix($zone['InitialzoneName']).",".$HostDn;
228 $newDn = "zoneName=".getNameFromMix($zone['zoneName']).",".$HostDn;
229 $PrePareZoneEntries[$zone['InitialzoneName']] = getNameFromMix($zone['zoneName']);
230 $move [$oldDn] = $newDn;
231 }
233 /* Get old zone if available
234 */
235 $oldZone=array();
236 if(!empty($oldZones[$zone['InitialzoneName']])){
237 $oldZone = $oldZones[$zone['InitialzoneName']];
238 }
240 /* Create forward zone entry and put it in our add queue
241 */
242 $newDn = "zoneName=".getNameFromMix($zone['zoneName']).",".$HostDn;
243 $obj = $zoneBase;
244 $obj['zoneName'] = getNameFromMix($zone['zoneName']);
246 /* Create sOARecord & add it to the obj
247 */
248 $soa = "";
249 foreach($sOAattributes as $attr){
250 $soa.=" ".$zone[$attr];
251 }
252 $obj['sOARecord'] = trim($soa);
253 $obj['nSRecord'] = $zone['sOAprimary'];
255 /* If reverse zone was renamed, move entry
256 */
257 if(!empty($zone['InitialReverseZone'])){
258 if($zone['InitialReverseZone'] != $zone['ReverseZone']){
259 $base = "zoneName=".getNameFromMix($zone['zoneName']).",".$HostDn;
260 $oldRDn = "zoneName=". FlipIp(getNameFromMix($zone['InitialReverseZone'])).".in-addr.arpa,".$base;
261 $newRDn = "zoneName=". FlipIp(getNameFromMix($zone['ReverseZone'])).".in-addr.arpa,".$base;
262 $PrePareZoneEntries[FlipIp($zone['InitialReverseZone']).".in-addr.arpa"] = FlipIp($zone['ReverseZone']).".in-addr.arpa";
263 $move [$oldRDn] = $newRDn;
264 }
265 }
267 /* Append record entries
268 * Set old value to array, to ensure that
269 * they will be deleted if necessary
270 */
271 if(isset($oldZone['RECORDS'])){
272 foreach($oldZone['RECORDS'] as $rec){
273 $obj[$rec['type']] = array();
274 }
275 }
277 /* Add new Records
278 */
279 foreach($zone['RECORDS'] as $rec){
280 $obj[$rec['type']][] = $rec['value'];
281 }
283 /* Append udpated Zone Forward Entry to our add queue
284 */
285 $add[$newDn] = $obj;
287 /* Create Reverse Entry
288 * And append it to our add queue
289 */
290 $zone['ReverseZone'] = FlipIp(getNameFromMix($zone['ReverseZone'])).".in-addr.arpa";
291 $base = "zoneName=".getNameFromMix($zone['zoneName']).",".$HostDn;
292 $newRDn = "zoneName=".$zone['ReverseZone'].",".$base;
293 $rObj = $obj;
294 $rObj['zoneName']= $zone['ReverseZone'];
295 $add[$newRDn] = $rObj;
297 /* Remove currently managed zone from oldZones.
298 * this gives us the ability to detect removed zones
299 */
300 if(isset($oldZones[$zone['InitialzoneName']])){
301 unset($oldZones[$zone['InitialzoneName']]);
302 }
303 }
305 /* The rest of our oldZones must be deleted
306 * because they are no longer available in newZones anymore.
307 */
308 foreach($oldZones as $zone) {
309 $oldDn = "zoneName=".getNameFromMix($zone['InitialzoneName']).",".$HostDn;
310 $del[$oldDn] = "";
311 }
313 /* Check for entries which must be updated
314 */
315 $zoneUpdates = array();
316 $udpate = array();
317 if(count($PrePareZoneEntries)){
318 $ldap = $config->get_ldap_link();
319 foreach($PrePareZoneEntries as $FromZoneName => $ToZoneName){
320 $ldap->cd($HostDn);
321 $ldap->search("(&(objectClass=dNSZone)(zoneName=".getNameFromMix($FromZoneName).")(!(relativeDomainName=@)))",array("zoneName"));
322 while($attrs = $ldap->fetch()){
323 $zoneUpdates[$attrs['dn']] = array("zoneName"=>$ToZoneName);
324 }
325 }
326 }
328 $ret = array("del" => $del , "move" => $move , "add" => $add,"zoneUpdates"=>$zoneUpdates);
329 return($ret);
330 }
333 /* This function returns the dns-host eintries for given
334 * name.
335 */
336 function getDNSHostEntries($config,$name,$silent = false)
337 {
338 global $RecordTypes;
340 $types = array();
341 $ret = array();
342 $ret['RECORDS'] = array();
343 $ret['dNSClass'] = "IN";
344 $ret['zoneName'] = "";
345 $ret['dNSTTL'] = "7440";
346 $ret['exists'] = false;
348 $ldap = $config->get_ldap_link();
349 $ldap->cd($config->current['BASE']);
351 /* First check all zones for an entry with the given name.
352 * If the name occurs in more than one entry alert the user ...
353 */
354 $foundIn = array();
355 $zones = getAvailableZones($config);
357 $zonesArr = array();
358 foreach($zones as $zoneMix){
359 $zoneIndex = split("/",$zoneMix);
360 if(!array_key_exists($zoneIndex[0],$zonesArr)) {
361 $zonesArr[$zoneIndex[0]] = array();
362 }
363 array_push($zonesArr[$zoneIndex[0]],$zoneIndex[1]);
364 }
366 foreach($zonesArr as $nameServer => $nameServerArr){
367 $foundInTmp = array();
368 foreach($nameServerArr as $zoneArr => $zone){
369 $zoneMix = $nameServer."/".$zone;
370 $zoneDn = getDNSZoneDN($config,$zoneMix);
371 $ldap->ls("(&(objectClass=dNSZone)(zoneName=*)(relativeDomainName=".$name.")(!(relativeDomainName=@)))", $zoneDn,$attrs = array("*"));
372 while($attrs = $ldap->fetch()){
373 $foundInTmp [$zoneMix] = $attrs['dn'];
374 $foundIn [$zoneMix] = $attrs['dn'];
375 }
376 }
377 }
379 /* No zone found which contains an entry for us
380 */
381 if(count($foundIn) == 0){
382 return($ret);
383 }
385 /* Get host informations from zone
386 */
387 $id_tmp = key($foundIn);
388 $ldap->cd($foundIn[$id_tmp]);
389 $ldap->search("(&(objectClass=dNSZone)(zoneName=*)(!(relativeDomainName=@)))",array("*"));
390 while($attrs = $ldap->fetch()){
392 /* If relative domainname == cn
393 * Try to read dnsclass / TTl / zone
394 */
395 if($attrs['relativeDomainName'][0] == $name){
396 $ret['exists'] = true;
397 $ret['zoneName'] = $id_tmp;
398 foreach(array("dNSClass","dNSTTL") as $atr){
399 if(isset($attrs[$atr][0])){
400 $ret[$atr] = $attrs[$atr][0];
401 }
402 }
403 }
405 /* Create list with all used records */
406 foreach($RecordTypes as $name => $value){
408 /* If there is a record attribute */
409 if(isset($attrs[$name])){
411 /* get all entries */
412 for($i = 0 ; $i < $attrs[$value]['count']; $i ++){
413 $types[] = array( "type" => $name,
414 "value" => $attrs[$value][$i]);
415 }
416 }
417 }
418 $ret['RECORDS'] = $types;
419 }
420 return($ret);
421 }
425 /* This function compares two dns settings and returns an
426 * array with following indexes
427 * - delete, for dns which must be deleted (only if dns account is removed)
428 * - rename, if a dn must be renamed, for example, the relativeDomainName has changed
429 * - add, if there is a new dns account created
430 */
431 function getDNSHostEntriesDiff($config,$oldName,$newEntry,$newName)
432 {
433 global $RecordTypes;
435 $oldEntry = getDNSHostEntries($config,$oldName);
437 $add = array();
438 $del = array();
439 $move = array();
441 $zones = getAvailableZones($config);
442 $specialAttributes = array("cNAMERecord","pTRRecord");
443 $newRecords = array(); // Used to remember which records are removed
444 $zoneNameMix = $newEntry['zoneName'];
445 $zoneDn = getDNSZoneDN($config,$zoneNameMix);
446 $tmp = array_flip($zones);
447 $zoneName = getNameFromMix($zoneNameMix);
449 /* If reverseZone can't be resolved ... this
450 * can't be a valid entry, so remove this account
451 */
452 if(isset($tmp[$zoneNameMix])){
453 $reverseNameMix = $tmp[$zoneNameMix];
454 $reverseDn = getDNSZoneDN($config,$reverseNameMix);
455 if(empty($reverseDn)){
456 $newEntry['exists'] = false;
457 }
458 }else{
459 $newEntry['exists'] = false;
460 }
462 /* Don't go further if there is nothing to do
463 * Is no account / was no account
464 */
465 if(($newEntry['exists'] == false )&& ($oldEntry['exists'] == false)){
466 return(array("move"=>$move,"add"=>$add,"del"=>$del));
467 }
469 /* If account was edited prepare some
470 * attributes & arrays ... if required add some
471 * dns to $move
472 */
473 if($oldEntry['exists']){
475 /* Check if the account was removed
476 */
477 if($newEntry['exists'] == false){
478 $dn = "relativeDomainName=".$oldName.",".getDNSZoneDN($config,$oldEntry['zoneName']);
479 $del[$dn] ="";
480 return(array("move"=>$move,"add"=>$add,"del"=>$del));
481 }
483 /* Check if zoneName has changed
484 */
485 if(count($newEntry['RECORDS'])){
486 if($oldEntry['zoneName'] != $newEntry['zoneName']){
487 $oldzoneDn = getDNSZoneDN($config,$oldEntry['zoneName']);
488 $dn = "relativeDomainName=".$oldName.",".$oldzoneDn;
489 $dn2= "relativeDomainName=".$oldName.",".$zoneDn;
490 $move[$dn]=$dn2;
491 }
493 /* Check if host name has changed
494 */
495 if($oldName != $newName){
496 $dn = "relativeDomainName=".$oldName.",".$zoneDn;
497 $dn2= "relativeDomainName=".$newName.",".$zoneDn;
498 $move[$dn]=$dn2;
499 $dn = "relativeDomainName=".$oldName.",".$dn2;
500 $dn2= "relativeDomainName=".$newName.",".$dn2;
501 $move[$dn]=$dn2;
502 }
503 }
505 /* Prepare record entries
506 * Fill old records with array();
507 * To ensure that they will be deleted if they stay unused
508 */
509 foreach($oldEntry['RECORDS'] as $id => $rec){
510 $newRecords[$rec['type']] = array();
511 }
512 }
514 /* There must be at least one record in our entry
515 */
516 if((!count($newEntry['RECORDS'])) || (!$newEntry['exists'])){
517 $dn = "relativeDomainName=".$newName.",".getDNSZoneDN($config,$oldEntry['zoneName']);
518 $del[$dn] ="";
519 $ret = array("move"=>$move,"add"=>$add,"del"=>$del);
520 return($ret);
521 }
523 /* Prepare temp obj
524 */
525 $baseObj = array();
526 $baseObj['objectClass'] = array("top","dNSZone");
527 $baseObj['dNSTTL'] = $newEntry['dNSTTL'];
528 $baseObj['dNSClass'] = $newEntry['dNSClass'];
529 $baseObj['zoneName'] = $zoneName;
530 $baseObj['relativeDomainName']= $newName;
532 /* Add Container Object to zone
533 * (this possibly already exists, check this before writing to ldap)
534 */
535 $baseDn = "relativeDomainName=".$newName.",".$zoneDn;
536 $add[$baseDn] = $baseObj;
538 /* Add base obejct which contains all std records
539 */
540 $stdDn = "relativeDomainName=".$newName.",".$baseDn;
541 $add[$stdDn] = $baseObj;
543 /* Set defaults. Normaly only contains old record names.
544 * The old names will be set to array, to ensure that they will be deleted.
545 * Or overwritten and filled with new values.
546 */
547 foreach($newRecords as $name => $def){
548 if(!in_array($name,$specialAttributes)){
549 $add[$stdDn][$name] = $def;
550 }
551 }
553 /* Delete all OLD special attributes.
554 */
555 foreach($oldEntry['RECORDS'] as $id => $rec){
556 if(in_array($rec['type'],$specialAttributes)){
557 $deldn= "relativeDomainName=".$rec['value'].",".$baseDn;
558 $del[$deldn] = "";
559 }
560 }
563 /* Create new record entries
564 */
565 foreach($newEntry['RECORDS'] as $id => $rec){
566 /* Create object which contains special records
567 * like pTRRecord or CNAMERecord
568 */
569 if($rec['type'] == "pTRRecord"){
570 $PTRdn= "relativeDomainName=".$rec['value'].",".$baseDn;
571 $ptrObj = $baseObj;
572 $reverseName = getNameFromMix($reverseNameMix);
573 $ptrObj['zoneName'] = $reverseName;
574 $ptrObj['pTRRecord'] = preg_replace("/\.\.$/",".",$newName.".".$zoneName.".");
575 $ptrObj['relativeDomainName'] = $rec['value'];
577 $add[$PTRdn] = $ptrObj;
578 }else
579 if($rec['type'] == "cNAMERecord"){
580 $PTRdn= "relativeDomainName=".$rec['value'].",".$baseDn;
581 $ptrObj = $baseObj;
582 $ptrObj['zoneName'] = $zoneName;
583 $ptrObj['cNAMERecord'] = $newName;
584 $ptrObj['relativeDomainName'] = $rec['value'];
586 $add[$PTRdn] = $ptrObj;
587 }else{
588 /* Append basic attributes
589 */
590 $add[$stdDn][$rec['type']][] = $rec['value'];
591 }
592 } // foreach record
594 $ret = array("move"=>$move,"add"=>$add,"del"=>$del);
595 return($ret);
596 }
598 function getNameFromMix($zoneMix){
599 $ret = "";
600 if(!strstr($zoneMix, '/')) return($ret);
601 $zoneIndex = split("/",$zoneMix);
602 return($zoneIndex[1]);
603 }
605 /* returns the dn for a specified zone
606 */
607 function getDNSZoneDN($config,$zoneNameMix)
608 {
609 $ret = "";
610 if(!strstr($zoneNameMix, '/')) {
611 print_red(sprintf(_("Undefined zone name '%s'. Zone name must look like this 'server/zone.com'."),$zoneNameMix));
612 return($ret);
613 }
615 $zoneNameIndex = split("/",$zoneNameMix);
616 $zoneName = $zoneNameIndex[1];
617 $nameServer = strtolower($zoneNameIndex[0]);
618 $ldap = $config->get_ldap_link();
620 /* search for the nameserver */
621 $ldap-> cd($config->current['BASE']);
622 $ldap->search("(&(objectClass=goServer)(cn=".$nameServer."))",array("cn"));
623 if($ldap->count()){
624 $attr = $ldap->fetch();
625 } else {
626 return($ret);
627 }
629 $ldap-> cd($attr['dn']);
630 $ldap->search("(&(objectClass=dNSZone)(sOARecord=*)(zoneName=".$zoneName."))",array("zoneName"));
631 if($ldap->count()){
632 $attr = $ldap->fetch();
633 return($attr['dn']);
634 }
636 return($ret);
637 }
640 /* returns all available zones
641 * array[reverseName] = zoneName;
642 */
643 function getAvailableZones($config)
644 {
645 $ret = array();
646 $ldap = $config->get_ldap_link();
647 $ldap->cd ($config->current['BASE']);
649 /* Search for zones ...
650 */
651 $ldap->search("(&(objectClass=dNSZone)(sOARecord=*))",array("zoneName"));
653 $ForwardZones = array();
654 $ReverseZones = array();
655 $zones = array();
657 while($at = $ldap->fetch()){
658 if(preg_match("/\.in\-addr\.arpa/",$at['zoneName'][0])){
659 $ReverseZones[$at['dn']] = $at;
660 }else{
661 $ForwardZones[$at['dn']] = $at;
662 }
663 }
665 foreach($ForwardZones as $dn => $obj){
667 /* try to find reverse
668 */
669 foreach($ReverseZones as $Rdn => $Robj ){
670 if(preg_match("/".$dn."/",$Rdn)){
671 $zones[strtoupper($ldap->getCn($dn))."/".$Robj['zoneName'][0]] =
672 strtoupper($ldap->getCn($dn))."/".$obj['zoneName'][0];
673 }
674 }
675 }
676 return($zones);
677 }
679 // vim:tabstop=2:expandtab:shiftwidth=2:filetype=php:syntax:ruler:
680 ?>