egroupware/addressbook/parsecard.php

<?php

  /**************************************************************************\
  * phpGroupWare - addressbook                                               *
  * http://www.phpgroupware.org						     *
  * Written by Joseph Engo <jengo@phpgroupware.org>			     *
  * --------------------------------------------			     *
  *  This program is free software; you can redistribute it and/or modify it *
  *  under the terms of the GNU General Public License as published by the   *
  *  Free Software Foundation; either version 2 of the License, or (at your  *
  *	  option) any later version. 					     *
  \**************************************************************************/

  /* $Id$ */

  $phpgw_info["flags"] = array("noheader" => True, "nonavbar" => True);
  $phpgw_info["flags"]["currentapp"] = "addressbook";
  include("../header.inc.php");


// parse a vcard and fill the address book with it.
function parsevcard($filename,$access)
{
      global $phpgw;
      global $phpgw_info;

	$vcard = fopen($filename, "r");
	if (!$vcard) // Make sure we have a file to read.
	{
		fclose($vcard);
		return FALSE;
	}


        // Keep runnig through this to support vcards
	// with multiple entries.
        while (!feof($vcard))
	{
	  if(!empty($varray))
            unset($varray);

	  // Make sure our file is a vcard.
	  // I should deal with empty line at the
	  // begining of the file. Those will fail here.
	  $vline = fgets($vcard,20);
	  $vline = strtolower($vline);
	  if(strcmp("begin:vcard", substr($vline, 0, strlen("begin:vcard")) ) != 0)
	  {	
		fclose($vcard);
		return FALSE;
	  }

	  // Write the vcard into an array.
	  // You can have multiple vcards in one file.
	  // I only deal with halve of that. :)
	  // It will only return values from the 1st vcard.
	  $varray[0] = "begin";
	  $varray[1] = "vcard";
	  $i=2;
	  while(!feof($vcard) && strcmp("end:vcard", strtolower(substr($vline, 0, strlen("end:vcard"))) ) !=0 )
	  {
		$vline = fgets($vcard,4096);
		// Check for folded lines and escaped colons '\:'
		$la = explode(":", $vline);


//if (ereg("\:",$vline))
//{
//	// Oh, no....  Horrible disaster....
//	// Yell.
//	echo "<PRE><FLAILING ARMS></PRE><BR>";
//	echo "DANGER WILL ROBINSON!!!!!!!!!!<BR>";
//	echo "This just broke.  Really.<BR>";
//	echo "<PRE></FLAILING ARMS></PRE><BR>";
//}


		// DANGER Will Robinson!!!!!!!
		// I don't check for escaped colons here.
		//  '\:'  These would cause horrible disaster..
		// Fix this situation.  Check if the last character
		// of the line is \  If it is, you've found one.
		if (count($la) > 1)
		{
			$varray[$i] = strtolower($la[0]);
			$i++;

			for($j=1;$j<=count($la);$j++)
			{
				$varray[$i] .= $la[$j];
			}
			$i++;
		}
		else // This is the continuation of a folded line.
		{
			$varray[$i-1] .= $la[0];
		}
	  }

	  fillab($varray,$access); // Add this entry to the addressbook before
			 // moving on to the next one.

	} // while(!feof($vcard))

	fclose($vcard);
	return TRUE;
}


function fillab($varray,$access)
{
      global $phpgw;
      global $phpgw_info;

	$i=0;
	while($i < count($varray)) // incremented by 2
	{
		$k = explode(";",$varray[$i]); // Key
		$v = explode(";",$varray[$i+1]); // Values
		for($h=0;$h<count($k);$h++)
		{
			switch($k[$h])
			{
				case "fn":
					$formattedname = $v[0];
					break;
				case "n":
					$lastname = $v[0];
					$firstname = $v[1];
					break;
				case "bday":
					$bday = $v[0];
					break;
				case "adr": // This one is real ugly. :(
					$street = $v[2];
					$address2 = $v[1] . " " . $v[0];
					$city = $v[3];
					$state = $v[4];
					$zip = $v[5];
					$country = $v[6];
					break;
				case "tel": // Check to see if there another phone entry.
					if(!ereg("home",$varray[$i]) &&
					   !ereg("work",$varray[$i]) &&
					   !ereg("fax",$varray[$i])  &&
					   !ereg("cell",$varray[$i]) &&
					   !ereg("pager",$varray[$i]) &&
					   !ereg("bbs",$varray[$i])  &&
					   !ereg("modem",$varray[$i]) &&
					   !ereg("car",$varray[$i])  &&
					   !ereg("isdn",$varray[$i]) &&
					   !ereg("video",$varray[$i])   )
					{ // There isn't a seperate home entry.
					  // Use this number.
						$hphone = $v[0];
					}
					break;
				case "home":
					$hphone = $v[0];
					break;
				case "work":
					$wphone = $v[0];
					break;
				case "fax":
					$fax = $v[0];
					break;
				case "pager":
					$pager = $v[0];
					break;
				case "cell":
					$mphone = $v[0];
					break;
				case "pref":
					$notes .= "Preferred phone number is ";
					$notes .= $v[0] . "\n";
					break;
				case "msg":
					$notes .= "Messaging service on number "; 
					$notes .= $v[0] . "\n";
					break;
				case "bbs":
					$notes .= "BBS phone number ";
					$notes .= $v[0] . "\n";
					break;
				case "modem":
					$notes .= "Modem phone number ";
					$notes .= $v[0] . "\n";
					break;
				case "car":
					$notes .= "Car phone number ";
					$notes .= $v[0] . "\n";
					break;
				case "isdn":
					$notes .= "ISDN number ";
					$notes .= $v[0] . "\n";
					break;
				case "video":
					$notes .= "Video phone number ";
					$notes .= $v[0] . "\n";
					break;
				case "email":
					if(!ereg("internet",$varray[$i]))
					{
						$email = $v[0];
					}
					break;
				case "internet":
					$email = $v[0];
					break;
				case "title":
					$title = $v[0];
					break;
				case "org":
					$company = $v[0];
					if(count($v) > 1)
					{
						$notes .= $v[0] . "\n";
						for($j=1;$j<count($v);$j++)
						{
							$notes .= $v[$j] . "\n";
						}
					}
					break;
				default: // Throw most other things into notes.
					break;
			} // switch
		} // for
		$i++;
	} // All of the values that are getting filled are.

//echo "Formatted name: " . $formattedname . "<BR>";
//echo "First Name: " . $firstname . "<BR>";
//echo "Last Name: " . $lastname . "<BR>";
//echo "Home Phone: " .$hphone . "<BR>";
//echo "Cell Phone: " . $mphone . "<BR>";
//echo "Work Phone: " . $wphone . "<BR>";
//echo "Fax: " . $fax . "<BR>";
//echo "Email: " . $email . "<BR>";
//echo "Organization: " . $company . "<BR>";
//echo "Address:<BR>";
//echo $address2 . "<BR>" . $street ."<BR>";
//echo $city . " " . $state . " " . $zip . "<BR>";
//echo "Notes: " . $notes . "<BR>";


     if($phpgw_info["apps"]["timetrack"]["enabled"]) {
       $sql = "insert into addressbook (ab_owner,ab_access,ab_firstname,ab_lastname,ab_title,ab_email,"
        . "ab_hphone,ab_wphone,ab_fax,ab_pager,ab_mphone,ab_ophone,ab_street,ab_address2,ab_city,"
        . "ab_state,ab_zip,ab_bday,"
          . "ab_notes,ab_company_id) values ('" . $phpgw_info["user"]["account_id"] . "','$access','"
          . addslashes($firstname). "','"
          . addslashes($lastname) . "','"
          . addslashes($title)  . "','"
          . addslashes($email)  . "','"
          . addslashes($hphone) . "','"
          . addslashes($wphone) . "','"
          . addslashes($fax)    . "','"
          . addslashes($pager)  . "','"
          . addslashes($mphone) . "','"
          . addslashes($ophone) . "','"
          . addslashes($street) . "','"
          . addslashes($address2) . "','"
          . addslashes($city)   . "','"
          . addslashes($state)  . "','"
          . addslashes($zip)    . "','"
          . addslashes($bday)   . "','"
          . addslashes($notes)  . "','"
          . addslashes($company). "')";
     } else {
       $sql = "insert into addressbook (ab_owner,ab_access,ab_firstname,ab_lastname,ab_title,ab_email,"
        . "ab_hphone,ab_wphone,ab_fax,ab_pager,ab_mphone,ab_ophone,ab_street,ab_address2,ab_city,"
        . "ab_state,ab_zip,ab_bday,"
          . "ab_notes,ab_company) values ('" . $phpgw_info["user"]["account_id"] . "','$access','"
          . addslashes($firstname). "','"
          . addslashes($lastname) . "','"
          . addslashes($title)  . "','"
          . addslashes($email)  . "','"
          . addslashes($hphone) . "','"
          . addslashes($wphone) . "','"
          . addslashes($fax)    . "','"
          . addslashes($pager)  . "','"
          . addslashes($mphone) . "','"
          . addslashes($ophone) . "','"
          . addslashes($street) . "','"
          . addslashes($address2) . "','"
          . addslashes($city)   . "','"
          . addslashes($state)  . "','"
          . addslashes($zip)    . "','"
          . addslashes($bday)   . "','"
          . addslashes($notes)  . "','"
          . addslashes($company). "')";
     }
     $phpgw->db->query($sql);
}

if($access == "group")
  $access = $n_groups;
//echo $access . "<BR>";

parsevcard($filename,$access);
// Delete the temp file.
unlink($filename);
unlink($filename . ".info");
Header("Location: " . $phpgw->link($phpgw_info["server"]["webserver_url"] . "/addressbook/",
            "cd=14"));

// End of php.
?>