Code

Added recursive copy (Not yet complete )
[gosa.git] / include / class_ldap.inc
1 <?php
2 /*****************************************************************************
3   newldap.inc - version 1.0
4   Copyright (C) 2003 Alejandro Escanero Blanco <alex@ofmin.com>
5   Copyright (C) 2004 Cajus Pollmeier <pollmeier@gonicus.de>
7   Based in code of ldap.inc of
8   Copyright (C) 1998  Eric Kilfoil <eric@ipass.net>
9  *****************************************************************************/
11 define("ALREADY_EXISTING_ENTRY",-10001);
12 define("UNKNOWN_TOKEN_IN_LDIF_FILE",-10002);
13 define("NO_FILE_UPLOADED",10003);
16 define("INSERT_OK",10000);
20 class LDAP{
22   var $hascon   =false;
23   var $hasres   =false;
24   var $reconnect=false;
25   var $tls      = false;
26   var $basedn   ="";
27   var $cid;
28   var $error    = ""; // Any error messages to be returned can be put here
29   var $start    = 0; // 0 if we are fetching the first entry, otherwise 1
30   var $objectClasses = array(); // Information read from slapd.oc.conf
31   var $binddn   = "";
32   var $bindpw   = "";
33   var $hostname = "";
34   var $follow_referral = FALSE;
35   var $referrals= array();
37   function LDAP($binddn,$bindpw, $hostname, $follow_referral= FALSE, $tls= FALSE)
38   {
39     $this->follow_referral= $follow_referral;
40     $this->tls=$tls;
41     $this->binddn=$binddn;
42     $this->bindpw=$bindpw;
43     $this->hostname=$hostname;
44     $this->connect();
45   }
47   function connect()
48   {
49     $this->hascon=false;
50     $this->reconnect=false;
51     if ($this->cid= @ldap_connect($this->hostname)) {
52       @ldap_set_option($this->cid, LDAP_OPT_PROTOCOL_VERSION, 3);
53       if (function_exists("ldap_set_rebind_proc") && $this->follow_referral) {
54         @ldap_set_option($this->cid, LDAP_OPT_REFERRALS, 1);
55         @ldap_set_rebind_proc($this->cid, array(&$this, "rebind"));
56       }
57       if (function_exists("ldap_start_tls") && $this->tls){
58         @ldap_start_tls($this->cid);
59       }
61       $this->error = "No Error";
62       if ($bid = @ldap_bind($this->cid, $this->binddn, $this->bindpw)) {
63         $this->error = "Success";
64         $this->hascon=true;
65       } else {
66         if ($this->reconnect){
67           if ($this->error != "Success"){
68             $this->error = "Could not rebind to " . $this->binddn;
69           }
70         } else {
71           $this->error = "Could not bind to " . $this->binddn;
72         }
73       }
74     } else {
75       $this->error = "Could not connect to LDAP server";
76     }
77   }
79   function rebind($ldap, $referral)
80   {
81     $credentials= $this->get_credentials($referral);
82     if (@ldap_bind($ldap, $credentials['ADMIN'], $credentials['PASSWORD'])) {
83       $this->error = "Success";
84       $this->hascon=true;
85       $this->reconnect= true;
86       return (0);
87     } else {
88       $this->error = "Could not bind to " . $credentials['ADMIN'];
89       return NULL;
90     }
91   }
93   function reconnect()
94   {
95     if ($this->reconnect){
96       @ldap_unbind($this->cid);
97       $this->cid = NULL;
98     }
99   }
101   function unbind()
102   {
103     @ldap_unbind($this->cid);
104     $this->cid = NULL;
105   }
107   function disconnect()
108   {
109     if($this->hascon){
110       @ldap_close($this->cid);
111       $this->hascon=false;
112     }
113   }
115   function cd($dir)
116   {
117     if ($dir == "..")
118       $this->basedn = $this->getParentDir();
119     else
120       $this->basedn = $dir;
121   }
123   function getParentDir($basedn = "")
124   {
125     if ($basedn=="")
126       $basedn = $this->basedn;
127     return(ereg_replace("[^,]*[,]*[ ]*(.*)", "\\1", $basedn));
128   }
130   function search($filter, $attrs= array())
131   {
132     
133     if($this->hascon){
134       if ($this->reconnect) $this->connect();
135       $this->clearResult();
136       $this->sr = @ldap_search($this->cid, $this->basedn, $filter, $attrs);
137       $this->error = @ldap_error($this->cid);
138       $this->resetResult();
139       $this->hasres=true;
140       return($this->sr);
141     }else{
142       $this->error = "Could not connect to LDAP server";
143       return("");
144     }
145   }
147   function ls($filter = "(objectclass=*)", $basedn = "")
148   {
149     if($this->hascon){
150       if ($this->reconnect) $this->connect();
151       $this->clearResult();
152       if ($basedn == "")
153         $basedn = $this->basedn;
154       $this->sr = @ldap_list($this->cid, $basedn, $filter);
155       $this->error = @ldap_error($this->cid);
156       $this->resetResult();
157       $this->hasres=true;
158       return($this->sr);
159     }else{
160       $this->error = "Could not connect to LDAP server";
161       return("");
162     }
163   }
165   function cat($dn)
166   {
167     if($this->hascon){
168       if ($this->reconnect) $this->connect();
169       $this->clearResult();
170       $filter = "(objectclass=*)";
171       $this->sr = @ldap_read($this->cid, $dn, $filter);
172       $this->error = @ldap_error($this->cid);
173       $this->resetResult();
174       $this->hasres=true;
175       return($this->sr);
176     }else{
177       $this->error = "Could not connect to LDAP server";
178       return("");
179     }
180   }
182   function set_size_limit($size)
183   {
184     /* Ignore zero settings */
185     if ($size == 0){
186       @ldap_set_option($this->cid, LDAP_OPT_SIZELIMIT, 10000000);
187     }
188     if($this->hascon){
189       @ldap_set_option($this->cid, LDAP_OPT_SIZELIMIT, $size);
190     } else {
191       $this->error = "Could not connect to LDAP server";
192     }
193   }
195   function fetch()
196   {
197     if($this->hascon){
198       if($this->hasres){
199         if ($this->start == 0)
200         {
201           $this->start = 1;
202           $this->re= @ldap_first_entry($this->cid, $this->sr);
203         } else {
204           $this->re= @ldap_next_entry($this->cid, $this->re);
205         }
206         if ($this->re)
207         {
208           $att= @ldap_get_attributes($this->cid, $this->re);
209           $att['dn']= @ldap_get_dn($this->cid, $this->re);
210         }
211         $this->error = @ldap_error($this->cid);
212         if (!isset($att)){
213           $att= array();
214         }
215         return($att);
216       }else{
217         $this->error = "Perform a Fetch with no Search";
218         return("");
219       }
220     }else{
221       $this->error = "Could not connect to LDAP server";
222       return("");
223     }
224   }
226   function resetResult()
227   {
228     $this->start = 0;
229   }
231   function clearResult()
232   {
233     if($this->hasres){
234       $this->hasres = false;
235       @ldap_free_result($this->sr);
236     }
237   }
239   function getDN()
240   {
241     if($this->hascon){
242       if($this->hasres){
244         if(!$this->re)
245           {
246           $this->error = "Perform a Fetch with no valid Result";
247           }
248           else
249           {
250           $rv = @ldap_get_dn($this->cid, $this->re);
251         
252           $this->error = @ldap_error($this->cid);
253           $rv= preg_replace("/[ ]*,[ ]*/", ",", $rv);
254           return($rv);
255            }
256       }else{
257         $this->error = "Perform a Fetch with no Search";
258         return("");
259       }
260     }else{
261       $this->error = "Could not connect to LDAP server";
262       return("");
263     }
264   }
266   function count()
267   {
268     if($this->hascon){
269       if($this->hasres){
270         $rv = @ldap_count_entries($this->cid, $this->sr);
271         $this->error = @ldap_error($this->cid);
272         return($rv);
273       }else{
274         $this->error = "Perform a Fetch with no Search";
275         return("");
276       }
277     }else{
278       $this->error = "Could not connect to LDAP server";
279       return("");
280     }
281   }
283   function rm($attrs = "", $dn = "")
284   {
285     if($this->hascon){
286       if ($this->reconnect) $this->connect();
287       if ($dn == "")
288         $dn = $this->basedn;
290       $r = @ldap_mod_del($this->cid, $dn, $attrs);
291       $this->error = @ldap_error($this->cid);
292       return($r);
293     }else{
294       $this->error = "Could not connect to LDAP server";
295       return("");
296     }
297   }
299   function rename($attrs, $dn = "")
300   {
301     if($this->hascon){
302       if ($this->reconnect) $this->connect();
303       if ($dn == "")
304         $dn = $this->basedn;
306       $r = @ldap_mod_replace($this->cid, $dn, $attrs);
307       $this->error = @ldap_error($this->cid);
308       return($r);
309     }else{
310       $this->error = "Could not connect to LDAP server";
311       return("");
312     }
313   }
315   function rmdir($deletedn)
316   {
317     if($this->hascon){
318       if ($this->reconnect) $this->connect();
319       $r = @ldap_delete($this->cid, $deletedn);
320       $this->error = @ldap_error($this->cid);
321       return($r ? $r : 0);
322     }else{
323       $this->error = "Could not connect to LDAP server";
324       return("");
325     }
326   }
328   /**
329   *  Function rmdir_recursive
330   *
331   *  Description: Based in recursive_remove, adding two thing: full subtree remove, and delete own node.
332   *  Parameters:  The dn to delete
333   *  GiveBack:    True on sucessfull , 0 in error, and "" when we don't get a ldap conection
334   *
335   */
337   function rmdir_recursive($deletedn)
338   {
339     if($this->hascon){
340       if ($this->reconnect) $this->connect();
341       $delarray= array();
342         
343       /* Get sorted list of dn's to delete */
344       $this->ls ("(objectClass=*)",$deletedn);
345       while ($this->fetch()){
346         $deldn= $this->getDN();
347         $delarray[$deldn]= strlen($deldn);
348       }
349       arsort ($delarray);
350       reset ($delarray);
352       /* Really Delete ALL dn's in subtree */
353       foreach ($delarray as $key => $value){
354         $this->rmdir_recursive($key);
355       }
356       
357       /* Finally Delete own Node */
358       $r = @ldap_delete($this->cid, $deletedn);
359       $this->error = @ldap_error($this->cid);
360       return($r ? $r : 0);
361     }else{
362       $this->error = "Could not connect to LDAP server";
363       return("");
364     }
365   }
367   /* Copy given attributes and sub-dns with attributes to destination dn 
368       
369   */
370   function copy_recursive($sourcedn,$destinationdn,$filter="(objectClass=FAIclass)")
371   {
372     error_reporting(E_ALL);
373     if($this->hascon){
374       if ($this->reconnect) $this->connect();
376       $basedn= $this->basedn;
378       $delarray= array();
379         
380       if($this->count($this->fetch($this->cat($destinationdn)))){
381         return;
382       }else{
383         $this->cd($basedn);
384         $attr = $this->fetch($this->cat($sourcedn));
386         if(in_array("organizationalUnit",$attr['objectClass'])){
387           $attr['dn'] = $destinationdn;
388           $this->cd($basedn);
389           $this->create_missing_trees($destinationdn);
390           $this->cd($destinationdn);
391         }else{
392           foreach($attr as $key => $value){
393             if(is_numeric($key)) unset($attr[$key]);
394             if((isset($attr[$key][count]))&&($attr[$key]['count']==1)){
395               $attr[$key] = $attr[$key][0];
396             }
397             if(isset($value['count'])) unset($attr[$key]['count']); 
398           }
399           unset($attr['count']);
400           unset($attr['dn']);
402           $this->cd($destinationdn);
403           $a = $this->fetch($this->cat($destinationdn));
404           if(!count($a)){
405             $this->add($attr);
406           }
407           echo $this->error;
409           if($this->error != "Success"){
410             print $sourcedn."<br>";
411             print $destinationdn."<br>";
412             print_a( $attr);
413             exit();
414           }          
415         }
416       }
418       $this->ls ("(objectClass=*)",$sourcedn);
419       while ($this->fetch()){
420         $deldn= $this->getDN();
421         $delarray[$deldn]= strlen($deldn);
422       }
423       asort ($delarray);
424       reset ($delarray);
426       foreach($delarray as $dn => $bla){
427         $this->copy_recursive($dn,preg_replace("/".$sourcedn."/i",$destinationdn,$dn),$filter);
428       }
429     }
430   }
432   function modify($attrs)
433   {
434     if($this->hascon){
435       if ($this->meconnect) $this->connect();
436       $r = @ldap_modify($this->cid, $this->basedn, $attrs);
437       $this->error = @ldap_error($this->cid);
438       return($r ? $r : 0);
439     }else{
440       $this->error = "Could not connect to LDAP server";
441       return("");
442     }
443   }
445   function add($attrs)
446   {
447     if($this->hascon){
448       if ($this->reconnect) $this->connect();
449       $r = @ldap_add($this->cid, $this->basedn, $attrs);
450       $this->error = @ldap_error($this->cid);
451       return($r ? $r : 0);
452     }else{
453       $this->error = "Could not connect to LDAP server";
454       return("");
455     }
456   }
458   function create_missing_trees($target)
459   {
460     /* Ignore create_missing trees if the base equals target */
461     if ($target == $this->basedn){
462      return;
463     }
464     $l= array_reverse(explode(",", preg_replace("/,".$this->basedn."/", "", $target)));
465     $cdn= $this->basedn;
466     foreach ($l as $part){
467       $cdn= "$part,$cdn";
469       /* Ignore referrals */
470       $found= false;
471       foreach($this->referrals as $ref){
472         $base= preg_replace('!^[^:]+://[^/]+/([^?]+).*$!', '\\1', $ref['URL']);
473         if ($base == $cdn){
474           $found= true;
475           break;
476         }
477       }
478       if ($found){
479         continue;
480       }
482       $this->cat ($cdn);
483       $attrs= $this->fetch();
485       /* Create missing entry? */
486       if (!count ($attrs)){
487         $type= preg_replace('/^([^=]+)=.*$/', '\\1', $cdn);
488         $param= preg_replace('/^[^=]+=([^,]+),.*$/', '\\1', $cdn);
490         $na= array();
491         switch ($type){
492           case 'ou':
493             $na["objectClass"]= "organizationalUnit";
494             $na["ou"]= $param;
495             break;
496           case 'dc':
497             $na["objectClass"]= array("dcObject", "top", "locality");
498             $na["dc"]= $param;
499             break;
500           default:
501             print_red(sprintf(_("Autocreation of type '%s' is currently not supported. Please report to the GOsa team."), $type));
502             echo $_SESSION['errors'];
503             exit;
504         }
505         $this->cd($cdn);
506         $this->add($na);
507       }
508     }
509   }
511   function recursive_remove()
512   {
513     $delarray= array();
515     /* Get sorted list of dn's to delete */
516     $this->search ("(objectClass=*)");
517     while ($this->fetch()){
518       $deldn= $this->getDN();
519       $delarray[$deldn]= strlen($deldn);
520     }
521     arsort ($delarray);
522     reset ($delarray);
524     /* Delete all dn's in subtree */
525     foreach ($delarray as $key => $value){
526       $this->rmdir($key);
527     }
528   }
530   function get_attribute($dn, $name,$r_array=0)
531   {
532     $data= "";
533     if ($this->reconnect) $this->connect();
534     $sr= @ldap_read($this->cid, $dn, "objectClass=*", array("$name"));
536     /* fill data from LDAP */
537     if ($sr) {
538       $ei= @ldap_first_entry($this->cid, $sr);
539       if ($ei) {
540         if ($info= @ldap_get_values_len($this->cid, $ei, "$name")){
541           $data= $info[0];
542         }
544       }
545     }
546     if($r_array==0)
547     return ($data);
548     else
549     return ($info);
550   
551   
552   }
553  
556   function get_additional_error()
557   {
558     $error= "";
559     @ldap_get_option ($this->cid, LDAP_OPT_ERROR_STRING, $error);
560     return ($error);
561   }
563   function get_error()
564   {
565     if ($this->error == 'Success'){
566       return $this->error;
567     } else {
568       $error= $this->error." (".$this->get_additional_error().")";
569       return $error;
570     }
571   }
573   function get_credentials($url, $referrals= NULL)
574   {
575     $ret= array();
576     $url= preg_replace('!\?\?.*$!', '', $url);
577     $server= preg_replace('!^([^:]+://[^/]+)/.*$!', '\\1', $url);
579     if ($referrals == NULL){
580       $referrals= $this->referrals;
581     }
583     if (isset($referrals[$server])){
584       return ($referrals[$server]);
585     } else {
586       $ret['ADMIN']= $this->binddn;
587       $ret['PASSWORD']= $this->bindpw;
588     }
590     return ($ret);
591   }
594   function gen_ldif ($dn, $filter= "(objectClass=*)", $attributes= array('*'), $recursive= TRUE)
595   {
596     $display= "";
598     if ($recursive){
599       $this->cd($dn);
600       $this->search("$filter", array('dn'));
601       while ($attrs= $this->fetch()){
602         $display.= $this->gen_one_entry($attrs['dn'], $filter, $attributes);
603         $display.= "\n";
604       }
605     } else {
606       $display.= $this->gen_one_entry($dn);
607     }
609     return ($display);
610   }
612 function gen_xls ($dn, $filter= "(objectClass=*)", $attributes= array('*'), $recursive= TRUE,$r_array=0)
613   {
614     $display= "";
616       $this->cd($dn);
617       $this->search("$filter");
619       $i=0;
620       while ($attrs= $this->fetch()){
621         $j=0;
623         foreach ($attributes as $at){
624           $display[$i][$j]= $this->get_attribute($attrs['dn'], $at,$r_array);
625           $j++;
626         }
628         $i++;
629       }
631     return ($display);
632   }
635   function gen_one_entry($dn, $filter= "(objectClass=*)" , $name= array("*"))
636   {
637     $ret = "";
638     $data = "";
639     if($this->reconnect){
640       $this->connect();
641     }
643     /* Searching Ldap Tree */
644     $sr= @ldap_read($this->cid, $dn, $filter, $name);
646     /* Get the first entry */   
647     $entry= @ldap_first_entry($this->cid, $sr);
649     /* Get all attributes related to that Objekt */
650     $atts = array();
651     
652     /* Assemble dn */
653     $atts[0]['name']  = "dn";
654     $atts[0]['value'] = array('count' => 1, 0 => $dn);
656     /* Reset index */
657     $i = 1 ; 
658   $identifier = array();
659     $attribute= @ldap_first_attribute($this->cid,$entry,$identifier);
660     while ($attribute) {
661       $i++;
662       $atts[$i]['name']  = $attribute;
663       $atts[$i]['value'] = @ldap_get_values_len($this->cid, $entry, "$attribute");
665       /* Next one */
666       $attribute= @ldap_next_attribute($this->cid,$entry,$identifier);
667     }
669     foreach($atts as $at)
670     {
671       for ($i= 0; $i<$at['value']['count']; $i++){
673         /* Check if we must encode the data */
674         if(!preg_match('/^[a-z0-9+@#.=, \/ -]+$/i', $at['value'][$i])) {
675           $ret .= $at['name'].":: ".base64_encode($at['value'][$i])."\n";
676         } else {
677           $ret .= $at['name'].": ".$at['value'][$i]."\n";
678         }
679       }
680     }
682     return($ret);
683   }
686   function dn_exists($dn)
687   {
688     return @ldap_list($this->cid, $dn, "(objectClass=*)", array("objectClass"));
689   }
690   
693   function import_complete_ldif($str_attr,&$error,$overwrite,$cleanup)
694   {
695     if($this->reconnect) $this->connect();
697     /* First we have to splitt the string ito detect empty lines
698        An empty line indicates an new Entry */
699     $entries = split("\n",$str_attr);
701     $data = "";
702     $cnt = 0; 
703     $current_line = 0;
705     /* Every single line ... */
706     foreach($entries as $entry) {
707       $current_line ++;
709       /* Removing Spaces to .. 
710          .. test if a new entry begins */
711       $tmp  = str_replace(" ","",$data );
713       /* .. prevent empty lines in an entry */
714       $tmp2 = str_replace(" ","",$entry);
716       /* If the Block ends (Empty Line) */
717       if((empty($entry))&&(!empty($tmp))) {
718         /* Add collected lines as a complete block */
719         $all[$cnt] = $data;
720         $cnt ++;
721         $data ="";
722       } else {
724         /* Append lines ... */
725         if(!empty($tmp2)) {
726           /* check if we need base64_decode for this line */
727           if(ereg("::",$tmp2))
728           {
729             $encoded = split("::",$entry);
730             $attr  = $encoded[0];
731             $value = base64_decode($encoded[1]);
732             /* Add linenumber */
733             $data .= $current_line."#".$attr.":".$value."\n";
734           }
735           else
736           {
737             /* Add Linenumber */ 
738             $data .= $current_line."#".$entry."\n";
739           }
740         }
741       }
742     }
744     /* The Data we collected is not in the array all[];
745        For example the Data is stored like this..
747        all[0] = "1#dn : .... \n 
748        2#ObjectType: person \n ...."
749        
750        Now we check every insertblock and try to insert */
751     foreach ( $all as $single) {
752       $lineone = split("\n",$single);  
753       $ndn = split("#", $lineone[0]);
754       $line = $ndn[1];
756       $dnn = split (":",$line);
757       $current_line = $ndn[0];
758       $dn    = $dnn[0];
759       $value = $dnn[1];
761       /* Every block must begin with a dn */
762       if($dn != "dn") {
763         $error= sprintf(_("This is not a valid DN: '%s'. A block for import should begin with 'dn: ...' in line %s"), $line, $current_line);
764         return -2;  
765       }
767       /* Should we use Modify instead of Add */
768       $usemodify= false;
770       /* Delete before insert */
771       $usermdir= false;
772     
773       /* The dn address already exists! */
774       if (($this->dn_exists($value))&&((!$overwrite)&&(!$cleanup))) {
776         $error= sprintf(_("The dn: '%s' (from line %s) already exists in the LDAP database."), $line, $current_line);
777         return ALREADY_EXISTING_ENTRY;   
779       } elseif(($this->dn_exists($value))&&($cleanup)){
781         /* Delete first, then add */
782         $usermdir = true;        
784       } elseif(($this->dn_exists($value))&&($overwrite)) {
785         
786         /* Modify instead of Add */
787         $usemodify = true;
788       }
789      
790       /* If we can't Import, return with a file error */
791       if(!$this->import_single_entry($single,$usemodify,$usermdir) ) {
792         $error= sprintf(_("Error while importing dn: '%s', please check your LDIF from line %s on!"), $line,
793                         $current_line);
794         return UNKNOWN_TOKEN_IN_LDIF_FILE;      }
795     }
797     return (INSERT_OK);
798   }
801   /* Imports a single entry */
802   function import_single_entry($str_attr,$modify,$delete)
803   {
804     if($this->reconnect) $this->connect();
806     $ret = false;
807     $rows= split("\n",$str_attr);
808     $data= false;
810     foreach($rows as $row) {
811       
812       /* Check if we use Linenumbers (when import_complete_ldif is called we use
813          Linenumbers) Linenumbers are use like this 123#attribute : value */
814       if(!empty($row)) {
815         if((strpos($row,"#")!=FALSE)&&(strpos($row,"#")<strpos($row,":"))) {
817           /* We are using line numbers 
818              Because there is a # before a : */
819           $tmp1= split("#",$row);
820           $current_line= $tmp1[0];
821           $row= $tmp1[1];
822         }
824         /* Split the line into  attribute  and value */
825         $attr   = split(":", $row);
826         $attr[0]= trim($attr[0]);  /* attribute */
827         $attr[1]= trim($attr[1]);  /* value */
829         /* Check for attributes that are used more than once */
830         if(!isset($data[$attr[0]])) {
831           $data[$attr[0]]=$attr[1];
832         } else {
833           $tmp = $data[$attr[0]];
835           if(!is_array($tmp)) {
836             $new[0]=$tmp;
837             $new[1]=$attr[1];
838             $datas[$attr[0]]['count']=1;             
839             $data[$attr[0]]=$new;
840           } else {
841             $cnt = $datas[$attr[0]]['count'];           
842             $cnt ++;
843             $data[$attr[0]][$cnt]=$attr[1];
844             $datas[$attr[0]]['count'] = $cnt;
845           }
846         }
847       }
848     } 
849     
850     /* If dn is an index of data, we should try to insert the data */
851     if(isset($data['dn'])) {
852       /* Creating Entry */
853       $this->cd($data['dn']);
855       /* Delete existing entry */
856       if($delete){
857         $this->rmdir($data['dn']);
858       }
859       
860       /* Create missing trees */
861       $this->create_missing_trees($data['dn']);
862       unset($data['dn']);
863       
864       /* If entry exists use modify */
865       if(!$modify){
866         $ret = $this->add($data);
867       } else {
868         $ret = $this->modify($data);
869       }
870     }
872     return($ret);
873   }
875   
876   function importcsv($str)
877   {
878     $lines = split("\n",$str);
879     foreach($lines as $line)
880     {
881       /* continue if theres a comment */
882       if(substr(trim($line),0,1)=="#"){
883         continue;
884       }
886       $line= str_replace ("\t\t","\t",$line);
887       $line= str_replace ("\t"  ,"," ,$line);
888       echo $line;
890       $cells = split(",",$line )  ;
891       $linet= str_replace ("\t\t",",",$line);
892       $cells = split("\t",$line);
893       $count = count($cells);  
894     }
896   }
900 // vim:tabstop=2:expandtab:shiftwidth=2:filetype=php:syntax:ruler:
901 ?>