egroupware/addressbook/inc/class.vcard.inc.php
2001-06-28 09:11:40 +00:00

721 lines
25 KiB
PHP

<?php
/**************************************************************************\
* phpGroupWare API - VCard import/export class *
* This file written by Miles Lott <milosch@phpgroupware.org> *
* Parse vcards->contacts class fields, and vice-versa *
* Copyright (C) 2001 Miles Lott *
* -------------------------------------------------------------------------*
* This library is part of the phpGroupWare API *
* http://www.phpgroupware.org/api *
* ------------------------------------------------------------------------ *
* This library is free software; you can redistribute it and/or modify it *
* under the terms of the GNU Lesser General Public License as published by *
* the Free Software Foundation; either version 2.1 of the License, *
* or any later version. *
* This library is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* See the GNU Lesser General Public License for more details. *
* You should have received a copy of the GNU Lesser General Public License *
* along with this library; if not, write to the Free Software Foundation, *
* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
\**************************************************************************/
/* $Id$ */
// Prelminary vcard import/export class
// The method of calls to this should probably be cleaned up, but
// following are some examples:
//
class vcard
{
// This array is used by vcard->in to aid in parsing the multiple
// attributes that are possible with vcard.
// Import is messier than export and needs to be changed.
// You MUST use this in conjunction with the vcard->in function:
//
// $contacts = CreateObject("phpgwapi.contacts");
// $vcard = CreateObject("phpgwapi.vcard");
// $myimport = $vcard->import;
// $buffer = array();
//
// $fp=fopen($filename,"r");
// while ($data = fgets($fp,8000)) {
// list($name,$value,$extra) = split(':', $data);
// if (substr($value,0,5) == "http") {
// $value = $value . ":".$extra;
// }
// if ($name && $value) {
// reset($vcard->import);
// while ( list($fname,$fvalue) = each($vcard->import) ) {
// if ( strstr(strtolower($name), $vcard->import[$fname]) ) {
// $value = trim($value);
// $value = ereg_replace("=0D=0A","\n",$value);
// $buffer += array($name => $value);
// }
// }
// }
// }
// fclose($fp);
//
// Then, to convert the vcard array to a contacts class array:
//
//$entry = $vcard->in($buffer);
//$contacts->add($phpgw_info["user"]["account_id"],$entry);
//
var $import = array(
"n" => "n",
"sound" => "sound",
"bday" => "bday",
"note" => "note",
"tz" => "tz",
"geo" => "geo",
"url" => "url",
"pubkey" => "pubkey",
"org" => "org",
"title" => "title",
"adr" => "adr",
"label" => "label",
"tel" => "tel",
"email" => "email"
);
// This array is used by vcard->out to aid in parsing the multiple
// attributes that are possible with vcard.
// You MUST use this in conjunction with the vcard->out function:
//
// $this->vcard = CreateObject("phpgwapi.vcard");
// $myexport = $this->vcard->export;
//
// while( list($name,$value) = each($currentrecord) ) {
// if ($myexport[$name] && ($value != "") ) {
// $buffer[$i][$myexport[$name]] = $value;
// }
// }
//
// Then, to convert the data array to a vcard string:
//
// for ($i=0;$i<count($buffer);$i++) {
// $vcards .= $this->vcard->out($buffer[$i]);
// }
//
var $export = array(
"fn" => "FN",
"n_given" => "N;GIVEN",
"n_family" => "N;FAMILY",
"n_middle" => "N;MIDDLE",
"n_prefix" => "N;PREFIX",
"n_suffix" => "N;SUFFIX",
"sound" => "SOUND",
"bday" => "BDAY",
"note" => "NOTE",
"tz" => "TZ",
"geo" => "GEO",
"url" => "URL",
"pubkey" => "PUBKEY",
"org_name" => "ORG;NAME",
"org_unit" => "ORG;UNIT",
"title" => "TITLE",
"adr_one_type" => "ADR;TYPE;WORK",
"adr_two_type" => "ADR;TYPE;HOME",
"tel_prefer" => "TEL;PREFER",
"email_type" => "EMAIL;TYPE;WORK",
"email_home_type" => "EMAIL;TYPE;HOME",
"adr_one_street" => "ADR;WORK;STREET",
"adr_one_locality" => "ADR;WORK;LOCALITY",
"adr_one_region" => "ADR;WORK;REGION",
"adr_one_postalcode" => "ADR;WORK;POSTALCODE",
"adr_one_countryname" => "ADR;WORK;COUNTRYNAME",
"address2" => "EXT",
"label" => "LABEL",
"adr_two_street" => "ADR;HOME;STREET",
"adr_two_locality" => "ADR;HOME;LOCALITY",
"adr_two_region" => "ADR;HOME;REGION",
"adr_two_postalcode" => "ADR;HOME;POSTALCODE",
"adr_two_countryname" => "ADR;HOME;COUNTRYNAME",
"tel_work" => "TEL;WORK",
"tel_home" => "TEL;HOME",
"tel_voice" => "TEL;VOICE",
"tel_fax" => "TEL;FAX",
"tel_msg" => "TEL;MSG",
"tel_cell" => "TEL;CELL",
"tel_pager" => "TEL;PAGER",
"tel_bbs" => "TEL;BBS",
"tel_modem" => "TEL;MODEM",
"tel_car" => "TEL;CAR",
"tel_isdn" => "TEL;ISDN",
"tel_video" => "TEL;VIDEO",
"email" => "EMAIL;WORK",
"email_home" => "EMAIL;HOME"
);
var $names = array(
"family" => "family",
"given" => "given",
"middle" => "middle",
"prefix" => "prefix",
"suffix" => "suffix"
);
// Pass this an associative array of fieldnames and values
// returns a clean array based on contacts class std fields
// This array can then be passed via $phpgw->contacts->add($ownerid,$buffer)
function in($buffer)
{
global $phpgw;
// Following is a lot of pain and little magic
while ( list($name,$value) = @each($buffer) ) {
$field = split(";",$name);
$field[0] = ereg_replace("A\.","",$field[0]);
$field[0] = ereg_replace("B\.","",$field[0]);
$field[0] = ereg_replace("C\.","",$field[0]);
$field[0] = ereg_replace("D\.","",$field[0]);
$values = split(";",$value);
if ($field[1]) {
//echo $field[0];
switch ($field[0]) {
case "LABEL":
$buffer["label"] = ereg_replace("=0D=0A","\n",$values[0]);
break;
case "NOTE":
$buffer["note"] = ereg_replace("=0D=0A","\n",$values[0]);
break;
case "ADR":
switch ($field[1]) {
case "INTL":
switch ($field[2]) {
case "WORK":
if ( !stristr($buffer["adr_one_type"],$field[1])) {
$buffer["adr_one_type"] .= "intl;";
}
if (!$buffer["adr_one_street"]) {
$buffer["address2"] = $values[1];
$buffer["adr_one_street"] = $values[2];
$buffer["adr_one_locality"] = $values[3];
$buffer["adr_one_region"] = $values[4];
$buffer["adr_one_postalcode"] = $values[5];
$buffer["adr_one_countryname"] = $values[6];
}
break;
case "HOME":
if ( !stristr($buffer["adr_two_type"],$field[1]) ) {
$buffer["adr_two_type"] .= "intl;";
}
if (!$buffer["adr_two_street"]) {
$buffer["adr_two_street"] = $values[2];
$buffer["adr_two_locality"] = $values[3];
$buffer["adr_two_region"] = $values[4];
$buffer["adr_two_postalcode"] = $values[5];
$buffer["adr_two_countryname"] = $values[6];
}
break;
default:
break;
}
break;
case "DOM":
switch ($field[2]) {
case "WORK":
if ( !stristr($buffer["adr_one_type"],$field[1])) {
$buffer["adr_one_type"] .= "dom;";
}
if (!$buffer["adr_one_street"]) {
$buffer["address2"] = $values[1];
$buffer["adr_one_street"] = $values[2];
$buffer["adr_one_locality"] = $values[3];
$buffer["adr_one_region"] = $values[4];
$buffer["adr_one_postalcode"] = $values[5];
$buffer["adr_one_countryname"] = $values[6];
}
break;
case "HOME":
if ( !stristr($buffer["adr_two_type"],$field[1]) ) {
$buffer["adr_two_type"] .= "dom;";
}
if (!$buffer["adr_two_street"]) {
$buffer["adr_two_street"] = $values[2];
$buffer["adr_two_locality"] = $values[3];
$buffer["adr_two_region"] = $values[4];
$buffer["adr_two_postalcode"] = $values[5];
$buffer["adr_two_countryname"] = $values[6];
}
break;
default:
break;
}
break;
case "PARCEL":
switch ($field[2]) {
case "WORK":
if ( !stristr($buffer["adr_one_type"],$field[1])) {
$buffer["adr_one_type"] .= "parcel;";
}
if (!$buffer["adr_one_street"]) {
$buffer["address2"] = $values[1];
$buffer["adr_one_street"] = $values[2];
$buffer["adr_one_locality"] = $values[3];
$buffer["adr_one_region"] = $values[4];
$buffer["adr_one_postalcode"] = $values[5];
$buffer["adr_one_countryname"] = $values[6];
}
break;
case "HOME":
if ( !stristr($buffer["adr_two_type"],$field[1]) ) {
$buffer["adr_two_type"] .= "parcel;";
}
if (!$buffer["adr_two_street"]) {
$buffer["adr_two_street"] = $values[2];
$buffer["adr_two_locality"] = $values[3];
$buffer["adr_two_region"] = $values[4];
$buffer["adr_two_postalcode"] = $values[5];
$buffer["adr_two_countryname"] = $values[6];
}
break;
default:
break;
}
break;
case "POSTAL":
switch ($field[2]) {
case "WORK":
if ( !stristr($buffer["adr_one_type"],$field[1])) {
$buffer["adr_one_type"] .= "postal;";
}
if (!$buffer["adr_one_street"]) {
$buffer["address2"] = $values[1];
$buffer["adr_one_street"] = $values[2];
$buffer["adr_one_locality"] = $values[3];
$buffer["adr_one_region"] = $values[4];
$buffer["adr_one_postalcode"] = $values[5];
$buffer["adr_one_countryname"] = $values[6];
}
break;
case "HOME":
if ( !stristr($buffer["adr_two_type"],$field[1]) ) {
$buffer["adr_two_type"] .= "postal;";
}
if (!$buffer["adr_two_street"]) {
$buffer["adr_two_street"] = $values[2];
$buffer["adr_two_locality"] = $values[3];
$buffer["adr_two_region"] = $values[4];
$buffer["adr_two_postalcode"] = $values[5];
$buffer["adr_two_countryname"] = $values[6];
}
break;
default:
break;
}
break;
case "WORK":
if (!$buffer["adr_one_street"]) {
$buffer["address2"] = $values[1];
$buffer["adr_one_street"] = $values[2];
$buffer["adr_one_locality"] = $values[3];
$buffer["adr_one_region"] = $values[4];
$buffer["adr_one_postalcode"] = $values[5];
$buffer["adr_one_countryname"] = $values[6];
}
break;
case "HOME":
$buffer["adr_two_street"] = $values[2];
$buffer["adr_two_locality"] = $values[3];
$buffer["adr_two_region"] = $values[4];
$buffer["adr_two_postalcode"] = $values[5];
$buffer["adr_two_countryname"] = $values[6];
break;
default:
if (!$buffer["adr_one_street"]) {
$buffer["address2"] = $values[1];
$buffer["adr_one_street"] = $values[2];
$buffer["adr_one_locality"] = $values[3];
$buffer["adr_one_region"] = $values[4];
$buffer["adr_one_postalcode"] = $values[5];
$buffer["adr_one_countryname"] = $values[6];
}
break;
}
break;
case "TEL": // RB 2001/05/07 added for Lotus Organizer ueses TEL;{WORK|HOME};{VOICE|FAX}[;PREF]
if ($field[2] == 'FAX' && ($field[1] == 'WORK' || $field[i] == 'HOME')) {
array_shift($field); // --> ignore the WORK or HOME if FAX follows, HOME;FAX and HOME;TEL are maped later
}
switch ($field[1]) {
case "PREF":
//echo $field[2]." is preferred";
if ($field[2]) {
$buffer["tel_prefer"] .= strtolower($field[2]) . ";";
}
break;
case "WORK": // RB don't overwrite TEL;WORK;VOICE (main nr.) with TEL;WORK, TEL;WORK --> tel_isdn
$buffer[$buffer["tel_work"] ? "tel_isdn" : "tel_work"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "HOME": // RB don't overwrite TEL;HOME;VOICE (main nr.) with TEL;HOME, TEL;HOME --> ophone
$buffer[$buffer["tel_home"] ? "ophone" : "tel_home" ] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "VOICE":
$buffer["tel_voice"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "FAX":
if ($buffer["tel_fax"]) { // RB don't overwrite TEL;WORK;FAX with TEL;HOME;FAX, TEL;HOME;FAX --> ophone
$buffer["ophone"] = $values[0] . ' Fax';
break;
}
$buffer["tel_fax"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "MSG":
$buffer["tel_msg"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "CELL":
$buffer["tel_cell"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "PAGER":
$buffer["tel_pager"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "BBS":
$buffer["tel_bbs"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "MODEM":
$buffer["tel_modem"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "CAR":
$buffer["tel_car"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "ISDN":
$buffer["tel_isdn"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
case "VIDEO":
$buffer["tel_video"] = $values[0];
if ($field[2] == "PREF") {
$buffer["tel_prefer"] .= strtolower($field[1]) . ";";
}
break;
default:
break;
}
break;
case "EMAIL":
switch ($field[1]) {
case "WORK":
$buffer["email"] = $values[0];
$buffer["email_type"] = $field[2];
break;
case "HOME":
$buffer["email_home"] = $values[0];
$buffer["email_home_type"] = $field[2];
break;
default:
if($buffer["email"]) {
$buffer["email_type"] = $field[2];
} elseif (!$buffer["email"]) {
$buffer["email"] = $values[0];
$buffer["email_type"] = $field[1];
}
break;
}
break;
case "URL": // RB 2001/05/08 Lotus Organizer uses URL;WORK and URL;HOME (URL;HOME droped if both)
$buffer["url"] = $values[0];
break;
default:
break;
}
} else {
switch ($field[0]) {
case "N":
reset($this->names);
$j=0;
while(list($myname,$myval) = each($this->names) ) {
$namel = "n_".$myname;
$buffer[$namel] = $values[$j];
$j++;
}
break;
case "FN":
$buffer["fn"] = $values[0];
break;
case "TITLE":
$buffer["title"] = $values[0];
break;
case "TZ":
$buffer["tz"] = $values[0];
break;
case "GEO":
$buffer["geo"] = $values[0];
break;
case "URL":
$buffer["url"] = $values[0];
break;
case "NOTE":
$buffer["note"] = ereg_replace("=0D=0A","\n",$values[0]);
break;
case "KEY":
$buffer["key"] = ereg_replace("=0D=0A","\n",$values[0]);
break;
case "LABEL":
$buffer["label"] = ereg_replace("=0D=0A","\n",$values[0]);
break;
case "BDAY": #1969-12-31
$tmp = split("-",$values[0]);
if ($tmp[0]) {
$buffer["bday"] = $tmp[1]."/".$tmp[2]."/".$tmp[0];
}
break;
case "ORG": // RB 2001/05/07 added for Lotus Organizer: ORG:Company;Department
$buffer["org_name"] = $values[0];
$buffer["org_unit"] = $values[1];
break;
}
}
}
$buffer["tel_prefer"] = substr($buffer["tel_prefer"],0,-1);
$buffer["adr_one_type"] = substr($buffer["adr_one_type"],0,-1);
$buffer["adr_two_type"] = substr($buffer["adr_two_type"],0,-1);
if (count($street = split("\r*\n",$buffer["adr_one_street"],3)) > 1) {
$buffer["adr_one_street"] = $street[0]; // RB 2001/05/08 added for Lotus Organizer to split multiline adresses
$buffer["address2"] = $street[1];
$buffer["address3"] = $street[2];
}
// Lastly, filter out all but standard fields, since they cover the vcard standard
// and we don't want $buffer['BEGIN'] etc...
$contacts = CreateObject('phpgwapi.contacts'); // RB 2001/05/08 Lotus Organizer uses/needs extrafields from edit.php
$all_fields = $contacts->stock_contact_fields + array("ophone" => "ophone","address2" => "address2","address3" => "address3");
while (list($fname,$fvalue) = each($all_fields)) {
if($buffer[$fname]) {
$entry[$fname] = $buffer[$fname];
// echo '<br>'.$fname.' = "'.$entry[$fname].'"'."\n";
}
}
return $entry;
}
// Takes an array of contacts class fields/values, turns it into a vcard string:
//
// for ($i=0;$i<count($buffer);$i++) {
// $vcards .= $this->vcard->out($buffer[$i]);
// }
//
function out($buffer)
{
$entry = "";
$header = "BEGIN:VCARD\n";
$header .= "VERSION:2.1\n";
$header .= "X-PHPGROUPWARE-FILE-AS:phpGroupWare.org\n";
reset($this->export);
while ( list($name,$value) = each($this->export) ) {
if (!empty($buffer[$value])) {
$mult = explode(";",$value);
if (!$mult[1]) { // Normal
if (strstr($buffer[$value],"\r\n") || strstr($buffer[$value],"\n")) {
$buffer[$value] = ereg_replace("\r\n","=0D=0A",$buffer[$value]);
$buffer[$value] = ereg_replace("\n","=0D=0A",$buffer[$value]);
$entry .= $value . ";QUOTED-PRINTABLE:".$buffer[$value]."\n";
} elseif ($value=="BDAY") {
$tmp = split("/",$buffer[$value]); # 12/31/1969 -> 1969-12-31
if ($tmp[0]) {
if (strlen($tmp[0]) == 1) { $tmp[0] = '0'.$tmp[0]; }
if (strlen($tmp[0]) == 1) { $tmp[1] = '0'.$tmp[1]; }
$entry .= "BDAY:". $tmp[2]."-".$tmp[0]."-".$tmp[1]."\n";
}
} else {
$entry .= $value . ":".$buffer[$value]."\n";
}
} else {
switch ($mult[0]) {
case "N":
switch ($mult[1]) {
case "PREFIX":
$prefix = ";" . $buffer[$value];
break;
case "GIVEN":
$firstname = ";" . $buffer[$value];
break;
case "MIDDLE":
$middle = ";" . $buffer[$value];
break;
case "FAMILY":
$lastname = $buffer[$value];
break;
case "SUFFIX":
$suffix = ";" . $buffer[$value];
break;
}
break;
case "ORG":
switch ($mult[1]) {
case "NAME":
$org_name = $buffer[$value];
break;
case "UNIT":
$org_unit = ";".$buffer[$value];
break;
}
break;
case "ADR":
switch ($mult[1]) {
case "TYPE":
$types = explode(";",$buffer[$value]);
if ($types[1]) {
while ( $type = each($types) ) {
$typei[$i][$mult[2]] .= ";".strtoupper($type[1]);
}
} elseif ($types[0]) {
$typei[$i][$mult[2]] .= ";".strtoupper($types[0]);
} else {
$typei[$i][$mult[2]] .= ";".strtoupper($buffer[$value]);
}
//echo "TYPE=".$typei[$i][$mult[2]];
break;
case "WORK":
$workaddr .= $buffer[$value].";";
$workattr = $mult[0].";".$mult[1].$typei[$i][$mult[1]];
break;
case "HOME":
$homeaddr .= $buffer[$value].";";
$homeattr = $mult[0].";".$mult[1].$typei[$i][$mult[1]];
break;
default:
break;
}
break;
case "TEL":
switch($mult[1]) {
case "PREFER":
$prefer = explode(";",$buffer[$value]);
if ($prefer[1]) {
while ($pref = strtoupper(each($prefer))) {
$prefi[$i][$pref] = ";PREF";
}
//echo "PREF1";
} elseif ($prefer[0]) {
$prefi[$i][strtoupper($prefer[0])] = ";PREF";
//echo "PREF=".strtoupper($prefer[0]);
} elseif ($buffer[$value]) {
$prefi[$i][$buffer[$value]] = ";PREF";
//echo "PREF3";
}
break;
case "WORK":
// Wow, this is fun!
$entry .= "A.".$mult[0].";".$mult[1].$prefi[$i][$mult[1]].":".$buffer[$value]."\n";
break;
case "HOME":
$entry .= "B.".$mult[0].";".$mult[1].$prefi[$i][$mult[1]].":".$buffer[$value]."\n";
break;
default:
$entry .= $mult[0].";".$mult[1].$prefi[$i][$mult[1]].":".$buffer[$value]."\n";
break;
}
break;
case "EMAIL":
switch($mult[1]) {
case "TYPE":
if ($mult[2] == "WORK") { $emailtype = ";".$buffer[$value]; }
if ($mult[2] == "HOME") { $hemailtype = ";".$buffer[$value]; }
break;
case "WORK":
$newval = "A.".$value;
$entry .= $newval.$emailtype.":".$buffer[$value]."\n";
break;
case "HOME":
$newval = "B.".$value;
$entry .= $newval.$hemailtype.":".$buffer[$value]."\n";
break;
default:
break;
}
break;
default:
break;
} //end switch ($mult[0])
} //end else
} //end if (!empty)
} //end while
if ($lastname && $firstname) {
$entries .= $header;
$entries .= "N:".$lastname.$firstname.$middle.$prefix.$suffix."\n";
$entries .= $entry;
if (!$buffer["FN"]) {
if ($lastname || $firstname ) {
$entries .= "FN:".substr($firstname,1)." ".$lastname."\n";
}
}
if ($org_name || $org_unit) {
$entries .= "ORG:".$org_name.$org_unit."\n";
}
$workattr = ereg_replace("ADR;","",$workattr);
$homeattr = ereg_replace("ADR;","",$homeattr);
if (!$buffer['EXT']) { $buffer['EXT'] = ";"; }
if ($workaddr) {
$work = "A.ADR;".$workattr.":;".$buffer['EXT'].substr($workaddr,0,-1)."\n";
if (!$buffer['LABEL']) {
$wlabel = substr($workaddr,0,-1);
$wlabel = ereg_replace(";","=0D=0A",$wlabel);
//$wlabel = ereg_replace("(",",",$wlabel);
//$wlabel = ereg_replace(")",",",$wlabel);
$wlabel = "LABEL;WORK;QUOTED-PRINTABLE:".$wlabel."\n";
}
}
if ($homeaddr) {
$home = "B.ADR;".$homeattr.":;;".substr($homeaddr,0,-1)."\n";
$hlabel = substr($homeaddr,0,-1);
$hlabel = ereg_replace(";","=0D=0A",$hlabel);
//$hlabel = ereg_replace("(",",",$hlabel);
//$hlabel = ereg_replace(")",",",$hlabel);
$hlabel = "LABEL;HOME;QUOTED-PRINTABLE:".$hlabel."\n";
}
$entries = ereg_replace("PUBKEY","KEY",$entries);
$entries .= $work.$home.$wlabel.$hlabel."END:VCARD\n";
$entries .= "\n";
$buffer = $entries;
return $buffer;
} else {
return;
}
} //end function
} //end class
?>