". "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 CVS 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 '@' AND you have admin rights the whole value is eval()'ed, so you ". "may use php, eGroupWare or your own functions. This is quiet powerfull, but circumvents all ACL.

". "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}CVS-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 CVS-field 'Company' and constructs a something like Company: FamilyName, GivenName or ". "FamilyName, GivenName if 'Company' is empty.

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

". "Their is two important user-function for the calendar:
". "@addr_id(${CPre}NFamily$CPos,${CPre}NGiven$CPos,${CPre}Company$CPos) ". "searches the addressbook for an address and returns the id if it founds an exact match of at least ". "NFamily AND (NGiven OR Company). This is necessary to link your imported calendar-entrys ". "with 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. This function is automaticaly called if the category is not numerical!

". "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['cal_fields'] = unserialize(stripslashes($_POST['cal_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'], 'cal_fields' => $_POST['cal_fields'], 'trans' => $_POST['trans'] )); @set_time_limit(0); $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'; $cal_fields = array_diff($_POST['cal_fields'],array( '' )); // throw away empty / not assigned entrys $defaults = array(); foreach($cal_fields as $csv_idx => $info) { // convert $trans[$csv_idx] into array of pattern => value $defaults[$csv_fields[$csv_idx]] = $info; if ($_POST['trans'][$csv_idx]) { $defaults[$csv_fields[$csv_idx]] .= $PSep.addslashes($_POST['trans'][$csv_idx]); } } $GLOBALS['egw']->preferences->read_repository(); $GLOBALS['egw']->preferences->add('calendar','cvs_import',$defaults); $GLOBALS['egw']->preferences->save_repository(True); $log = ''."\n\t\n"; foreach($cal_fields as $csv_idx => $info) { // convert $trans[$csv_idx] into array of pattern => value // if (!$debug) echo "

$csv_idx: ".$csv_fields[$csv_idx].": $info".($trans[$csv_idx] ? ': '.$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; } $trans[$csv_idx] = $values; } /*else unset( $trans[$csv_idx] );*/ $log .= "\t\t\n"; } if (!in_array('public',$cal_fields)) // autocreate public access if not set by user { $log .= "\t\t\n"; } /* if (!in_array('recur_type',$cal_fields)) // autocreate single event if not set by user { $log .= "\t\t\n"; }*/ $log .= "\t\t\n\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\t\t\n"; $values = array(); foreach($cal_fields as $csv_idx => $info) { //echo "

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

"; $val = $fields[$csv_idx]; if (isset($trans[$csv_idx]) && is_array($trans[$csv_idx])) { foreach($trans[$csv_idx] as $pattern => $replace) { if (ereg((string) $pattern,$val)) { //echo "

csv_idx='$csv_idx',info='$info',trans_csv=".print_r($trans_csv).",ereg_replace('$pattern','$replace','$val') = "; $val = ereg_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); } //echo "='$val'

"; if ($val[0] == '@' && is_admin) { // 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[$info] = $val; $log .= "\t\t\n"; } if (!in_array('public',$cal_fields)) { $values['public'] = 1; // public access if not set by user $log .= "\t\t\n"; } if (!in_array('recur_type',$cal_fields)) { $values['recur_type'] = MCAL_RECUR_NONE; // single event if not set by user // $log .= "\t\t\n"; } if(!$_POST['debug'] && count($values)) // dont import empty contacts { //echo "values=

".print_r($values,True)."

\n"; if (!is_numeric($values['owner'])) { $values['owner'] = $GLOBALS['egw']->accounts->name2id($values['owner']); } if (!$values['owner'] || !$GLOBALS['egw']->accounts->exists($values['owner'])) { $values['owner'] = $GLOBALS['egw_info']['user']['account_id']; } if ($values['priority'] < 1 || $values['priority'] > 3) { $values['priority'] = 2; } // convert the category name to an id if ($values['category'] && !is_numeric($values['category'])) { $values['category'] = cat_id($values['category']); } if (empty($values['title'])) { $values['title'] = '('.lang('none').')'; } // convert dates to timestamps foreach(array('start','end','modified') as $date) { if (isset($values[$date]) && !is_numeric($date)) { // convert german DD.MM.YYYY format into ISO YYYY-MM-DD format $values[$date] = ereg_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 participants-names to user-id's $parts = $values['participants'] ? split('[,;]',$values['participants']) : array(); $values['participants'] = array(); foreach($parts as $part_status) { list($part,$status) = explode('=',$part_status); $valid_status = array('U'=>'U','u'=>'U','A'=>'A','a'=>'A','R'=>'R','r'=>'R','T'=>'T','t'=>'T'); $status = isset($valid_status[$status]) ? $valid_status[$status] : 'U'; if ($GLOBALS['egw']->accounts->exists($part)) { $part = $GLOBALS['egw']->accounts->name2id($part); } if ($part && is_numeric($part)) { $values['participants'][$part] = $status; } } if (!count($values['participants'])) // no valid participants so far --> add the importing user/owner { $values['participants'][$values['owner']] = 'A'; } if ($values['addr_id'] && !is_numeric($values['addr_id'])) { list($lastname,$firstname,$org_name) = explode(',',$values['addr_id']); $values['addr_id'] = addr_id($lastname,$firstname,$org_name); } if ($values['uid']) { if (is_numeric($values['uid'])) // to not conflict with our own id's { $values['uid'] = 'cal-csv-import-'.$values['uid'].'-'.$GLOBALS['egw_info']['server']['install_id']; } if (($event = $cal->read($values['uid'],null,$is_admin))) // no ACL check for admins { //echo "updating existing event"; _debug_array($event); $values['id'] = $event['id']; } } $action = $values['id'] ? 'updating' : 'adding'; //echo $action.'

'.print_r($values,True)."

\n"; $cal_id = $cal->update($values,true,!$values['modified'],$is_admin); // ignoring conflicts and ACL (for admins) on import if ($cal_id) { foreach(array( 'addressbook:'.$values['addr_id'], $values['link_1'],$values['link_2'],$values['link_3'], ) as $value) { list($app,$app_id) = explode(':',$value); if ($app && $app_id) { //echo "

linking infolog:$id with $app:$app_id

\n"; egw_link::link('calendar',$cal_id,$app,$app_id); } } } $log .= "\t\t".'\n\t\n"; } else { $log .= "\t\t".''."\n\t\n"; } } $log .= "

#	$info	isPublic	recureing	Imported
".($start+$anz)."	$val	".$values['public']."	".$values['recure_type']."	'.($cal_id ? $action." cal_id=$cal_id" : 'Error '.$action)."
only test

\n"; $GLOBALS['egw']->template->set_var('anz_imported',($_POST['debug'] ? lang('%1 records read (not yet imported, you may go back 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('rows','imported'); break; } $GLOBALS['egw']->template->set_var('hiddenvars',str_replace('{','{',$hiddenvars)); $GLOBALS['egw']->template->pfp('phpgw_body','import'); $GLOBALS['egw']->common->egw_footer();