egroupware_official/addressbook/vcardin.php

<?php
/**************************************************************************\
* phpGroupWare - E-Mail                                                    *
* http://www.phpgroupware.org                                              *
* This file written by Joseph Engo <jengo@phpgroupware.org>                *
+   and Miles Lott <miloschjengo@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$ */

	if ($action == 'Load Vcard')
	{
		$phpgw_info['flags'] = array(
			'noheader'   => True,
			'nonavbar'   => True,
			'currentapp' => 'addressbook',
			'enable_contacts_class' => True
		);
		include('../header.inc.php');
	}
	else
	{
		$phpgw_info['flags'] = array(
			'currentapp' => 'addressbook',
			'enable_contacts_class' => True
		);
		include('../header.inc.php');
		echo '<body bgcolor="' . $phpgw_info['theme']['bg_color'] . '">';
	}
  
	$uploaddir = $phpgw_info['server']['temp_dir'] . SEP;

	if ($action == 'Load Vcard')
	{
		if($uploadedfile == 'none' || $uploadedfile == '')
		{
			Header('Location: ' . $phpgw->link('/addressbook/vcardin.php','action=GetFile'));
		}
		else
		{
			srand((double)microtime()*1000000);
			$random_number = rand(100000000,999999999);
			$newfilename = md5("$uploadedfile, $uploadedfile_name, "
						. time() . getenv("REMOTE_ADDR") . $random_number );

			copy($uploadedfile, $uploaddir . $newfilename);
			$ftp = fopen($uploaddir . $newfilename . '.info','w');
			fputs($ftp,"$uploadedfile_type\n$uploadedfile_name\n");
			fclose($ftp);

			$filename = $uploaddir . $newfilename;

			$vcard = CreateObject('phpgwapi.vcard');
			$entry = $vcard->in_file($filename);
			/* _debug_array($entry);exit; */
			$contacts = CreateObject('phpgwapi.contacts');
			$contacts->add($phpgw_info['user']['account_id'],$entry);

			/* Delete the temp file. */
			unlink($filename);
			unlink($filename . '.info');
			Header('Location: ' . $phpgw->link('/addressbook/', 'cd=14'));
		}
	}

	if ($action == 'GetFile')
	{
		echo '<b><center>You must select a vcard. (*.vcf)</b></center><br><br>';
	}

	$t = new Template(PHPGW_APP_TPL);
	$t->set_file(array('vcardin' => 'vcardin.tpl'));

	$vcard_header  = '<p>&nbsp;<b>' . lang('Address book - VCard in') . '</b><hr><p>';

	$t->set_var(vcard_header,$vcard_header);
	$t->set_var(action_url,$phpgw->link('/addressbook/vcardin.php'));
	$t->set_var(lang_access,lang('Access'));
	$t->set_var(lang_groups,lang('Which groups'));
	$t->set_var(access_option,$access_option);

	$t->set_var(group_option,$group_option);

	$t->pparse('out','vcardin');

	if ($action != 'Load Vcard')
	{
		$phpgw->common->phpgw_footer();
	}
?>
Forgot to add a few files 2000-11-03 22:11:39 +01:00			`<?php`
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`/**************************************************************************\`
			`* phpGroupWare - E-Mail *`
			`* http://www.phpgroupware.org *`
			`* This file written by Joseph Engo <jengo@phpgroupware.org> *`
Cleaned up import in vcard class to handle files directly using in_file() 2001-07-03 11:02:16 +02:00			`+ and Miles Lott <miloschjengo@phpgroupware.org> *`
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`* -------------------------------------------- *`
			`* 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. *`
			`\**************************************************************************/`
Forgot to add a few files 2000-11-03 22:11:39 +01:00
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`/* $Id$ */`
Forgot to add a few files 2000-11-03 22:11:39 +01:00
Formatting 2001-05-21 09:56:46 +02:00			`if ($action == 'Load Vcard')`
			`{`
			`$phpgw_info['flags'] = array(`
			`'noheader' => True,`
			`'nonavbar' => True,`
			`'currentapp' => 'addressbook',`
			`'enable_contacts_class' => True`
Minor adjustments 2001-02-15 18:21:38 +01:00			`);`
Formatting 2001-05-21 09:56:46 +02:00			`include('../header.inc.php');`
			`}`
			`else`
			`{`
			`$phpgw_info['flags'] = array(`
			`'currentapp' => 'addressbook',`
			`'enable_contacts_class' => True`
Minor adjustments 2001-02-15 18:21:38 +01:00			`);`
Formatting 2001-05-21 09:56:46 +02:00			`include('../header.inc.php');`
			`echo '<body bgcolor="' . $phpgw_info['theme']['bg_color'] . '">';`
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`}`
Forgot to add a few files 2000-11-03 22:11:39 +01:00
Cleaned up import in vcard class to handle files directly using in_file() 2001-07-03 11:02:16 +02:00			`$uploaddir = $phpgw_info['server']['temp_dir'] . SEP;`
Forgot to add a few files 2000-11-03 22:11:39 +01:00
Formatting 2001-05-21 09:56:46 +02:00			`if ($action == 'Load Vcard')`
			`{`
			`if($uploadedfile == 'none' \|\| $uploadedfile == '')`
			`{`
			`Header('Location: ' . $phpgw->link('/addressbook/vcardin.php','action=GetFile'));`
			`}`
			`else`
			`{`
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`srand((double)microtime()*1000000);`
			`$random_number = rand(100000000,999999999);`
Remove unnecessary mkdir call and associated info - was breaking in safe_mode 2001-03-21 04:13:42 +01:00			`$newfilename = md5("$uploadedfile, $uploadedfile_name, "`
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`. time() . getenv("REMOTE_ADDR") . $random_number );`
Move parsecard's functions to functions.inc.php and basically remove call to parsecard.php 2001-02-05 06:38:26 +01:00
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`copy($uploadedfile, $uploaddir . $newfilename);`
Formatting 2001-05-21 09:56:46 +02:00			`$ftp = fopen($uploaddir . $newfilename . '.info','w');`
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`fputs($ftp,"$uploadedfile_type\n$uploadedfile_name\n");`
			`fclose($ftp);`
Move parsecard's functions to functions.inc.php and basically remove call to parsecard.php 2001-02-05 06:38:26 +01:00
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`$filename = $uploaddir . $newfilename;`
Move parsecard's functions to functions.inc.php and basically remove call to parsecard.php 2001-02-05 06:38:26 +01:00
Formatting 2001-05-21 09:56:46 +02:00			`$vcard = CreateObject('phpgwapi.vcard');`
Cleaned up import in vcard class to handle files directly using in_file() 2001-07-03 11:02:16 +02:00			`$entry = $vcard->in_file($filename);`
			`/* _debug_array($entry);exit; */`
			`$contacts = CreateObject('phpgwapi.contacts');`
Formatting 2001-05-21 09:56:46 +02:00			`$contacts->add($phpgw_info['user']['account_id'],$entry);`
Make vcardin use vcard class, alter class comments to reflect how it uses it 2001-03-21 21:52:02 +01:00
Cleaned up import in vcard class to handle files directly using in_file() 2001-07-03 11:02:16 +02:00			`/* Delete the temp file. */`
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`unlink($filename);`
Formatting 2001-05-21 09:56:46 +02:00			`unlink($filename . '.info');`
			`Header('Location: ' . $phpgw->link('/addressbook/', 'cd=14'));`
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`}`
			`}`
Forgot to add a few files 2000-11-03 22:11:39 +01:00
Formatting 2001-05-21 09:56:46 +02:00			`if ($action == 'GetFile')`
			`{`
			`echo '<b><center>You must select a vcard. (*.vcf)</b></center><br><br>';`
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`}`
Forgot to add a few files 2000-11-03 22:11:39 +01:00
now using PHPGW_APP_TPL, and index.php is using new single template file 2001-05-10 14:21:16 +02:00			`$t = new Template(PHPGW_APP_TPL);`
Formatting 2001-05-21 09:56:46 +02:00			`$t->set_file(array('vcardin' => 'vcardin.tpl'));`
Table upgrade and changes to implement better vcard std and more useful fields 2001-03-16 02:31:25 +01:00
Formatting 2001-05-21 09:56:46 +02:00			`$vcard_header = '<p> <b>' . lang('Address book - VCard in') . '</b><hr><p>';`
Minor adjustments 2001-02-15 18:21:38 +01:00
			`$t->set_var(vcard_header,$vcard_header);`
Formatting 2001-05-21 09:56:46 +02:00			`$t->set_var(action_url,$phpgw->link('/addressbook/vcardin.php'));`
			`$t->set_var(lang_access,lang('Access'));`
			`$t->set_var(lang_groups,lang('Which groups'));`
Minor adjustments 2001-02-15 18:21:38 +01:00			`$t->set_var(access_option,$access_option);`
Table upgrade and changes to implement better vcard std and more useful fields 2001-03-16 02:31:25 +01:00
Minor adjustments 2001-02-15 18:21:38 +01:00			`$t->set_var(group_option,$group_option);`
Table upgrade and changes to implement better vcard std and more useful fields 2001-03-16 02:31:25 +01:00
Formatting 2001-05-21 09:56:46 +02:00			`$t->pparse('out','vcardin');`
Forgot to add a few files 2000-11-03 22:11:39 +01:00
Formatting 2001-05-21 09:56:46 +02:00			`if ($action != 'Load Vcard')`
			`{`
Changing tabs to spaces, hope this still works. 2001-02-10 13:56:49 +01:00			`$phpgw->common->phpgw_footer();`
Formatting 2001-05-21 09:56:46 +02:00			`}`
Forgot to add a few files 2000-11-03 22:11:39 +01:00			`?>`