". "Translations enable you to change / adapt the content of each CSV field for your needs.
". "General syntax is: pattern1 ${ASep} replacement1 ${PSep} ... ${PSep} patternN ${ASep} replacementN
". "If the pattern-part of a pair is ommited it will match everything ('^.*$'), which is only ". "usefull for the last pair, as they are worked from left to right.

". "First example: 1${ASep}private${PSep}public
". "This will translate a '1' in the CSV field to 'privat' and everything else to 'public'.

". "Patterns as well as the replacement can be regular expressions (the replacement is done via ereg_replace). ". "If, after all replacements, the value starts with an '@' the whole value is eval()'ed, so you ". "may use all php, phpgw plus your own functions. This is quiet powerfull, but circumvents all ACL. ". "Therefor this feature is only availible to Adminstrators.

". "Example using regular expressions and '@'-eval():
$mktime_lotus
". "It will read a date of the form '2001-05-20 08:00:00.00000000000000000' (and many more, see the regular expr.). ". "The [ .:-]-separated fields are read and assigned in different order to @mktime(). Please note to use ". "${VPre} insted of a backslash (I couldn't get backslash through all the involved templates and forms.) ". "plus the field-number of the pattern.

". "In addintion to the fields assign by the pattern of the reg.exp. you can use all other CSV-fields, with the ". "syntax ${CPre}CSV-FIELDNAME$CPos. Here is an example:
". ".+$ASep${CPre}Company$CPos: ${CPre}NFamily$CPos, ${CPre}NGiven$CPos$PSep${CPre}NFamily$CPos, ${CPre}NGiven$CPos
". "It is used on the CSV-field 'Company' and constructs a something like Company: FamilyName, GivenName or ". "FamilyName, GivenName if 'Company' is empty.

". "You can use the 'No CSV #'-fields to assign csv-values to more than on field, the following example uses the ". "csv-field 'Note' (which gots already assingned to the description) and construct a short subject: ". "@substr(${CPre}Note$CPos,0,60).' ...'

". "Their is one important user-function for the Addressbook:
". "@cat_id(Cat1,...,CatN) returns a (','-separated) list with the cat_id's. If a category isn't found, it ". "will be automaticaly added.

". "I hope that helped to understand the features, if not ask."; $GLOBALS['egw']->template->set_var('help_on_trans',lang($help_on_trans)); // I don't think anyone will translate this break; case 'next': $_POST['addr_fields'] = unserialize(stripslashes($_POST['addr_fields'])); $_POST['trans'] = unserialize(stripslashes($_POST['trans'])); // fall-through case 'import': $hiddenvars = html::input_hidden(array( 'action' => 'continue', 'fieldsep'=> $_POST['fieldsep'], 'charset' => $_POST['charset'], 'start' => $_POST['start']+(!$_POST['debug'] ? $_POST['max'] : 0), 'max' => $_POST['max'], 'debug' => $_POST['debug'], 'addr_fields' => $_POST['addr_fields'], 'trans' => $_POST['trans'] )); @set_time_limit(0); ini_set('auto_detect_line_endings',true); // to allow to import files created eg. on a mac $fp=fopen($csvfile,'r'); $csv_fields = fgetcsv($fp,8000,$_POST['fieldsep']); $csv_fields = $GLOBALS['egw']->translation->convert($csv_fields,$_POST['charset']); $csv_fields[] = 'no CSV 1'; // eg. for static assignments $csv_fields[] = 'no CSV 2'; $csv_fields[] = 'no CSV 3'; $addr_fields = array_diff($_POST['addr_fields'],array('')); // throw away empty / not assigned entrys $defaults = array(); foreach($addr_fields as $csv_idx => $addr) { // convert $_POST['trans'][$csv_idx] into array of pattern => value $defaults[$csv_fields[$csv_idx]] = $addr; if($_POST['trans'][$csv_idx]) { $defaults[$csv_fields[$csv_idx]] .= $PSep.$_POST['trans'][$csv_idx]; } } $GLOBALS['egw']->preferences->read_repository(); $GLOBALS['egw']->preferences->add('addressbook','cvs_import',$defaults); $GLOBALS['egw']->preferences->save_repository(True); $log = ''."\n\t\n"; if (!in_array('private',$addr_fields)) // autocreate public access if not set by user { $log .= "\t\t\n"; } foreach($addr_fields as $csv_idx => $addr) { // convert $_POST['trans'][$csv_idx] into array of pattern => value // if (!$_POST['debug']) echo "

$csv_idx: ".$csv_fields[$csv_idx].": $addr".($_POST['trans'][$csv_idx] ? ': '.$_POST['trans'][$csv_idx] : '')."

"; $pat_reps = explode($PSep,stripslashes($_POST['trans'][$csv_idx])); $replaces = ''; $values = ''; if($pat_reps[0] != '') { foreach($pat_reps as $k => $pat_rep) { list($pattern,$replace) = explode($ASep,$pat_rep,2); if($replace == '') { $replace = $pattern; $pattern = '^.*$'; } $values[$pattern] = $replace; // replace two with only one, added by the form $replaces .= ($replaces != '' ? $PSep : '') . $pattern . $ASep . $replace; } $_POST['trans'][$csv_idx] = $values; } else { unset( $_POST['trans'][$csv_idx] ); } $log .= "\t\t\n"; } $start = $_POST['start'] < 1 ? 1 : $_POST['start']; // ignore empty lines, is_null($fields[0]) is returned on empty lines !!! for($i = 1; $i < $start; ++$i) // overread lines before our start-record { while(($fields = fgetcsv($fp,8000,$_POST['fieldsep'])) && is_null($fields[0])) ; } for($anz = 0; !$_POST['max'] || $anz < $_POST['max']; ++$anz) { while(($fields = fgetcsv($fp,8000,$_POST['fieldsep'])) && is_null($fields[0])) ; if (!$fields) { break; // EOF } $fields = $GLOBALS['egw']->translation->convert($fields,$_POST['charset']); $log .= "\t\n"; $values = $orig = array(); foreach($addr_fields as $csv_idx => $addr) { //echo "

$csv: $addr".($_POST['trans'][$csv] ? ': '.$_POST['trans'][$csv] : '')."

"; $val = $fields[$csv_idx]; if(isset($_POST['trans'][$csv_idx])) { $trans_csv = $_POST['trans'][$csv_idx]; while(list($pattern,$replace) = each($trans_csv)) { if(ereg((string) $pattern,$val)) { // echo "

csv_idx='$csv_idx',info='$addr',trans_csv=".print_r($trans_csv).",preg_replace('/$pattern/','$replace','$val') = "; $val = preg_replace('/'.(string) $pattern.'/',str_replace($VPre,'\\',$replace),(string) $val); // echo "'$val'

"; $reg = $CPreReg.'([a-zA-Z_0-9]+)'.$CPosReg; while(ereg($reg,$val,$vars)) { // expand all CSV fields $val = str_replace($CPre . $vars[1] . $CPos, $val[0] == '@' ? "'" . addslashes($fields[array_search($vars[1], $csv_fields)]) . "'" : $fields[array_search($vars[1], $csv_fields)], $val); } if($val[0] == '@') { if (!$GLOBALS['egw_info']['user']['apps']['admin']) { echo lang('@-eval() is only availible to admins!!!'); } else { // removing the $ to close security hole of showing vars, which contain eg. passwords $val = 'return '.substr(str_replace('$','',$val),1).';'; // echo "

eval('$val')="; $val = eval($val); // echo "'$val'

"; } } if($pattern[0] != '@' || $val) { break; } } } } $values[$addr] = $orig[$addr] = $val; } $empty = !count($values); // convert the category name to an id if ($values['cat_id']) { $values['cat_id'] = cat_id($values['cat_id']); } // convert dates to timestamps foreach(array('created','modified') as $date) { if (isset($values[$date]) && !is_numeric($date)) { // convert german DD.MM.YYYY format into ISO YYYY-MM-DD format $values[$date] = preg_replace('/([0-9]{1,2}).([0-9]{1,2}).([0-9]{4})/','\3-\2-\1',$values[$date]); // remove fractures of seconds if present at the end of the string if (ereg('(.*)\.[0-9]+',$values[$date],$parts)) $values[$date] = $parts[1]; $values[$date] = strtotime($values[$date]); } } // convert user-names to user-id's foreach(array('owner','modifier','creator') as $user) { if (isset($values[$user]) && !is_numeric($user)) { if (preg_match('/\[([^\]]+)\]/',$values[$user],$matches)) $values[$user] = $matches[1]; $values[$user] = $GLOBALS['egw']->accounts->name2id($values[$user],'account_lid',$user=='owner'?null:'u'); } } if (!in_array('owner',$addr_fields) || !$values['owner']) { $values['owner'] = $GLOBALS['egw_info']['user']['account_id']; } if (!in_array('private',$addr_fields)) { $values['private'] = 0; // public access if not set by user $log .= "\t\t\n"; } else { $values['private'] = (int) in_array($values['private'],array(lang('yes'),'yes','private','1','true')); } foreach(array('adr_one_countryname','adr_two_countryname') as $name) { if (strlen($values[$name]) == 2) { $values[$name] = $GLOBALS['egw']->country->get_full_name($values[$name]); } } if(!$_POST['debug'] && !$empty) // dont import empty contacts { $rvalue=$GLOBALS['egw']->contacts->save($values); //echo "

adding: ".print_r($values,true)."

\n"; } // display read and interpreted results, so the user can check it foreach($addr_fields as $name) { $log .= "\t\t\n"; } } $log .= "\t\n

#	private	$addr
".($start+$anz)."	".$values['private']."	".($orig[$name] != $values[$name] ? htmlspecialchars($orig[$name]).' --> ' : ''). htmlspecialchars($values[$name])."

\n"; $GLOBALS['egw']->template->set_var('anz_imported',($_POST['debug'] ? lang('%1 records read (not yet imported, you may go %2back%3 and uncheck Test Import)', $anz,'','') : lang('%1 records imported',$anz)). ' '. (!$_POST['debug'] && $fields ? html::submit_button('next','Import next set') . ' ':''). html::submit_button('continue','Back') . ' '. html::submit_button('cancel','Cancel')); $GLOBALS['egw']->template->set_var('log',$log); $GLOBALS['egw']->template->parse('importedhandle','imported'); break; } $GLOBALS['egw']->template->set_var('hiddenvars',str_replace('{','{',$hiddenvars)); $GLOBALS['egw']->template->pfp('out','import',True); $GLOBALS['egw']->common->egw_footer();