egroupware_official/addressbook/import.php
2001-07-03 07:17:13 +00:00

223 lines
6.6 KiB
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(
'currentapp' => 'addressbook',
'enable_contacts_class' => True,
'enable_browser_class' => True
);
include('../header.inc.php');
if (!$convert)
{
$t = new Template(PHPGW_APP_TPL);
$t->set_file(array('import' => 'import.tpl'));
$dir_handle=opendir(PHPGW_APP_ROOT . SEP . 'import');
$i=0; $myfilearray='';
while ($file = readdir($dir_handle))
{
//echo "<!-- ".is_file($phpgw_info["server"]["app_root"].$sep."import".$sep.$file)." -->";
if ((substr($file, 0, 1) != '.') && is_file(PHPGW_APP_ROOT . SEP . 'import' . SEP . $file) )
{
$myfilearray[$i] = $file;
$i++;
}
}
closedir($dir_handle);
sort($myfilearray);
for ($i=0;$i<count($myfilearray);$i++)
{
$fname = ereg_replace('_',' ',$myfilearray[$i]);
$conv .= '<OPTION VALUE="' . $myfilearray[$i].'">' . $fname . '</OPTION>';
}
$t->set_var('lang_cancel',lang('Cancel'));
$t->set_var('lang_cat',lang('Select Category'));
$t->set_var('cancel_url',$phpgw->link('/addressbook/index.php'));
$t->set_var('navbar_bg',$phpgw_info['theme']['navbar_bg']);
$t->set_var('navbar_text',$phpgw_info['theme']['navbar_text']);
$t->set_var('import_text',lang('Import from LDIF, CSV, or VCard'));
$t->set_var('action_url',$phpgw->link('/addressbook/import.php'));
$t->set_var('cat_link',cat_option($cat_id,True,False));
$t->set_var('tsvfilename','');
$t->set_var('conv',$conv);
$t->set_var('debug',lang('Debug output in browser'));
$t->set_var('filetype',lang('LDIF'));
$t->set_var('download',lang('Submit'));
$t->set_var('start',$start);
$t->set_var('sort',$sort);
$t->set_var('order',$order);
$t->set_var('filter',$filter);
$t->set_var('query',$query);
$t->set_var('cat_id',$cat_id);
$t->pparse('out','import');
$phpgw->common->phpgw_footer();
}
else
{
include (PHPGW_APP_ROOT . SEP. 'import' . SEP . $conv_type);
if ($private == '') { $private = 'public'; }
$row=0;
$buffer=array();
$contacts = new import_conv;
$buffer = $contacts->import_start_file($buffer);
$fp=fopen($tsvfile,'r');
if ($contacts->type == 'csv')
{
while ($data = fgetcsv($fp,8000,','))
{
$num = count($data);
$row++;
if ($row == 1)
{
// Changed here to ignore the header, set to our array
while(list($lhs,$rhs) = each($contacts->import))
{
$header[] = $lhs;
}
}
else
{
$buffer = $contacts->import_start_record($buffer);
for ($c=0; $c<$num; $c++ )
{
//Send name/value pairs along with the buffer
if ($contacts->import[$header[$c]] != '' && $data[$c] != '')
{
$buffer = $contacts->import_new_attrib($buffer, $contacts->import[$header[$c]],$data[$c]);
}
}
$buffer = $contacts->import_end_record($buffer,$private);
}
}
}
elseif ($contacts->type == 'ldif')
{
while ($data = fgets($fp,8000))
{
$url = "";
list($name,$value,$extra) = split(':', $data);
if (substr($name,0,2) == 'dn')
{
$buffer = $contacts->import_start_record($buffer);
}
$test = trim($value);
if ($name && !empty($test) && $extra)
{
// Probable url string
$url = $test;
$value = $extra;
}
elseif ($name && empty($test) && $extra)
{
// Probable multiline encoding
$newval = base64_decode(trim($extra));
$value = $newval;
//echo $name.':'.$value;
}
if ($name && $value)
{
$test = split(',mail=',$value);
if ($test[1])
{
$name = "mail";
$value = $test[1];
}
if ($url)
{
$name = "homeurl";
$value = $url. ':' . $value;
}
//echo '<br>'.$j.': '.$name.' => '.$value;
if ($contacts->import[$name] != '' && $value != '')
{
$buffer = $contacts->import_new_attrib($buffer, $contacts->import[$name],$value);
}
}
else
{
$buffer = $contacts->import_end_record($buffer,$private);
}
}
}
else
{
while ($data = fgets($fp,8000))
{
$data = trim($data); // RB 2001/05/07 added for Lotus Organizer
while (substr($data,-1) == '=') { // '=' at end-of-line --> line to be continued with next line
$data = substr($data,0,-1) . trim(fgets($fp,8000));
}
if (strstr($data,';ENCODING=QUOTED-PRINTABLE')) { // RB 2001/05/07 added for Lotus Organizer
$data = quoted_printable_decode(str_replace(';ENCODING=QUOTED-PRINTABLE','',$data));
}
list($name,$value) = explode(':', $data,2); // RB 2001/05/09 to allow ':' in Values (not only in URL's)
if (strtolower(substr($name,0,5)) == 'begin')
{
$buffer = $contacts->import_start_record($buffer);
}
if ($name && $value)
{
reset($contacts->import);
while ( list($fname,$fvalue) = each($contacts->import) )
{
if ( strstr(strtolower($name), $contacts->import[$fname]) )
{
$buffer = $contacts->import_new_attrib($buffer,$name,$value);
}
}
}
else
{
$buffer = $contacts->import_end_record($buffer);
}
}
}
fclose($fp);
$buffer = $contacts->import_end_file($buffer,$private,$cat_id);
if ($download == '')
{
if($conv_type == 'Debug LDAP' || $conv_type == 'Debug SQL' )
{
// filename, default application/octet-stream, length of file, default nocache True
$phpgw->browser->content_header($tsvfilename,'',strlen($buffer));
echo $buffer;
}
else
{
echo "<pre>$buffer</pre>";
echo '<a href="'.$phpgw->link('/addressbook/index.php',
"sort=$sort&order=$order&filter=$filter&start=$start&query=$query&cat_id=$cat_id")
. '">'.lang("OK").'</a>';
$phpgw->common->phpgw_footer();
}
}
else
{
echo "<pre>$buffer</pre>";
echo '<a href="'.$phpgw->link('/addressbook/index.php',
"sort=$sort&order=$order&filter=$filter&start=$start&query=$query&cat_id=$cat_id")
. '">'.lang("OK").'</a>';
$phpgw->common->phpgw_footer();
}
}
?>