<?php
   require("../admin/fn-pl.php5");
   $ll=explode("\n",substr(file_get_contents("nargs2011"),0,-1));
   foreach ($ll as $l) {
      if (!trim($l)) continue;
      if (!$p=strpos($l," ")) continue;
      $code=substr($l,0,$p);
      if ($code>0) {
         if (substr($l,-1)==">") {$plant=substr($l,$p+1,-2); $donor="4+";} else {
            $qq=strlen($l)+1;
            $q=strrpos($l," ");
            while ($q && is_numeric(substr($l,$q+1,$qq-$q-1)) && substr($l,$q+1,$qq-$q-1)<2000) {
               $qq=$q; $q=strrpos(substr($l,0,$q)," ");
            }
            $donor=substr($l,$qq+1);
            $plant=substr($l,$p+1,$qq-$p-1);
         }
         if ($plant{0}>="A" && $plant{0}<="Z" && substr($plant,0,8)!="Californ" && substr($plant,0,5)!="Dutch" && substr($plant,0,5)!="Gold-" && substr($plant,0,4)!="Mrs." && substr($plant,0,8)!="Pacific ") {$genus=substr($plant,0,strpos($plant," "));}
                                        else $plant="$genus $plant";
         linkifyname($plant);
         $e[]="$plant\t$code\t$donor\t$linkifylink\t$linkifylength";
      }
   }
   sort($e);
   file_put_contents("nargslist",join("\n",$e)."\n");
?>