* @copyright Cornelius Weiss * @version $Id$ */ /** * class importexport_helper_functions (only static methods) * use importexport_helper_functions::method */ class importexport_helper_functions { /** * Plugins are scanned and cached for all instances using this source path for given time (in seconds) */ const CACHE_EXPIRATION = 3600; /** * Files known to cause problems, and will be skipped in a plugin scan * If you put appname => true, the whole app will be skipped. */ protected static $blacklist_files = array( 'news_admin' => array( 'class.news_admin_import.inc.php', ), ); /** * Class used to provide extra conversion functions * * Passed in as a param to conversion() */ protected static $cclass = null; /** * nothing to construct here, only static functions! */ /** * Converts a custom time string to to unix timestamp * The format of the time string is given by the argument $_format * which takes the same parameters as the php date() function. * * @abstract supportet formatstrings: d,m,y,Y,H,h,i,s,O,a,A * If timestring is empty, php strtotime is used. * @param string $_string time string to convert * @param string $_format format of time string e.g.: d.m.Y H:i * @param int $_is_dst is day light saving time? 0 = no, 1 = yes, -1 = system default */ public static function custom_strtotime( $_string, $_format='', $_is_dst = -1) { if ( empty( $_format ) ) return strtotime( $_string ); $fparams = explode( ',', chunk_split( $_format, 1, ',' ) ); $spos = 0; foreach ( $fparams as $fparam ) { switch ( $fparam ) { case 'd': (int)$day = substr( $_string, $spos, 2 ); $spos += 2; break; case 'm': (int)$mon = substr( $_string, $spos, 2 ); $spos += 2; break; case 'y': (int)$year = substr( $_string, $spos, 2 ); $spos += 2; break; case 'Y': (int)$year = substr( $_string, $spos, 4 ); $spos += 4; break; case 'H': (int)$hour = substr( $_string, $spos, 2 ); $spos += 2; break; case 'h': (int)$hour = substr( $_string, $spos, 2 ); $spos += 2; break; case 'i': (int)$min = substr( $_string, $spos, 2 ); $spos += 2; break; case 's': (int)$sec = substr( $_string, $spos, 2 ); $spos += 2; break; case 'O': (int)$offset = $year = substr( $_string, $spos, 5 ); $spos += 5; break; case 'a': (int)$hour = $fparam == 'am' ? $hour : $hour + 12; break; case 'A': (int)$hour = $fparam == 'AM' ? $hour : $hour + 12; break; default: $spos++; // seperator } } print_debug("hour:$hour; min:$min; sec:$sec; mon:$mon; day:$day; year:$year;\n"); $timestamp = mktime($hour, $min, $sec, $mon, $day, $year, $_is_dst); // offset given? if ( isset( $offset ) && strlen( $offset == 5 ) ) { $operator = $offset{0}; $ohour = 60 * 60 * (int)substr( $offset, 1, 2 ); $omin = 60 * (int)substr( $offset, 3, 2 ); if ( $operator == '+' ) $timestamp += $ohour + $omin; else $timestamp -= $ohour + $omin; } return $timestamp; } /** * converts accound_lid to account_id * * @param mixed $_account_lid comma seperated list or array with lids * @return mixed comma seperated list or array with ids */ public static function account_name2id( $_account_lids ) { $account_lids = is_array( $_account_lids ) ? $_account_lids : explode( ',', $_account_lids ); foreach ( $account_lids as $account_lid ) { if ( $account_id = $GLOBALS['egw']->accounts->name2id( $account_lid )) { $account_ids[] = $account_id; } } return is_array( $_account_lids ) ? $account_ids : implode( ',', (array)$account_ids ); } // end of member function account_lid2id /** * converts account_ids to account_lids * * @param mixed $_account_ids comma seperated list or array with ids * @return mixed comma seperated list or array with lids */ public static function account_id2name( $_account_id ) { $account_ids = is_array( $_account_id ) ? $_account_id : explode( ',', $_account_id ); foreach ( $account_ids as $account_id ) { if ( $account_lid = $GLOBALS['egw']->accounts->id2name( $account_id )) { $account_lids[] = $account_lid; } } return is_array( $_account_id ) ? $account_lids : implode( ',', (array)$account_lids ); } // end of member function account_id2lid /** * converts cat_id to a cat_name * * @param mixed _cat_ids comma seperated list or array * @return mixed comma seperated list or array with cat_names */ public static function cat_id2name( $_cat_ids ) { $cat_ids = is_array( $_cat_ids ) ? $_cat_ids : explode( ',', $_cat_ids ); foreach ( $cat_ids as $cat_id ) { $cat_names[] = categories::id2name( (int)$cat_id ); } return is_array( $_cat_ids ) ? $cat_names : implode(',',(array)$cat_names); } // end of member function category_id2name /** * converts cat_name to a cat_id. * If a cat isn't found, it will be created. * * @param mixed $_cat_names comma seperated list or array. * @return mixed comma seperated list or array with cat_ids */ public static function cat_name2id( $_cat_names ) { $cats = new categories(); // uses current user and app (egw_info[flags][currentapp]) $cat_names = is_array( $_cat_names ) ? $_cat_names : explode( ',', $_cat_names ); foreach ( $cat_names as $cat_name ) { if ( $cat_name == '' ) continue; // Handle any IDs that slip in if ( is_numeric($cat_name) && categories::id2name((int)$cat_name)) { $cat_ids[] = (int)$cat_name; continue; } if ( ( $cat_id = $cats->name2id( $cat_name ) ) == 0 ) { $cat_id = $cats->add( array( 'name' => $cat_name, 'access' => 'public', 'descr' => $cat_name. ' ('. lang('Automatically created by importexport'). ')' )); } $cat_ids[] = $cat_id; } return is_array( $_cat_names ) ? $cat_ids : implode( ',', (array)$cat_ids ); } // end of member function category_name2id /** * conversion * * Conversions enable you to change / adapt the content of each _record field for your needs. * General syntax is: pattern1 |> replacement1 || ... || patternN |> 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. * Example: 1|>private||public * This will translate a '1' in the _record field to 'privat' and everything else to 'public'. * * In addintion to the fields assign by the pattern of the reg.exp. * you can use all other _record fields, with the syntax |[FIELDINDEX]. * Example: * Your record is: * array( 0 => Company, 1 => NFamily, 2 => NGiven * Your conversion string for field 0 (Company): * .+|>|[0]: |[1], |[2]|||[1], |[2] * This constructs something like * Company: FamilyName, GivenName or FamilyName, GivenName if 'Company' is empty. * * Moreover the two helper function cat() and account() can be used. * cat(Cat1,...,CatN) returns a (','-separated) list with the cat_id's. If a * category isn't found, it will be automaticaly added. * * Patterns as well as the replacement can be regular expressions (the replacement is done * via ereg_replace). * * @param array _record reference with record to do the conversion with * @param array _conversion array with conversion description * @param object &$cclass calling class to process the '@ evals' * @return bool */ public static function conversion( &$_record, $_conversion, &$_cclass = null ) { if (empty( $_conversion ) ) return $_record; self::$cclass =& $_cclass; $PSep = '||'; // Pattern-Separator, separats the pattern-replacement-pairs in conversion $ASep = '|>'; // Assignment-Separator, separats pattern and replacesment $CPre = '|['; $CPos = ']'; // |[_record-idx] is expanded to the corespondig value $TPre = '|T{'; $TPos = '}'; // |{_record-idx} is trimmed $CntlPre = '|TC{'; // Filter all cntl-chars \x01-\x1f and trim $CntlnCLPre = '|TCnCL{'; // Like |C{ but allowes CR and LF $INE = '|INE{'; // Only insert if stuff in ^^ is not empty foreach ( $_conversion as $idx => $conversion_string ) { if ( empty( $conversion_string ) ) continue; // fetch patterns ($rvalues) $pat_reps = explode( $PSep, stripslashes( $conversion_string ) ); foreach( $pat_reps as $k => $pat_rep ) { list( $pattern, $replace ) = explode( $ASep, $pat_rep, 2 ); if( $replace == '' ) { $replace = $pattern; $pattern = '^.*$'; } $rvalues[$pattern] = $replace; // replace two with only one, added by the form } // conversion list may be longer than $_record aka (no_csv) $val = array_key_exists( $idx, $_record ) ? $_record[$idx] : ''; $c_functions = array('cat', 'account', 'strtotime'); if($_cclass) { // Add in additional methods $reflection = new ReflectionClass(get_class($_cclass)); $methods = $reflection->getMethods(ReflectionMethod::IS_STATIC); foreach($methods as $method) { $c_functions[] = $method->name; } } $c_functions = implode('|', $c_functions); foreach ( $rvalues as $pattern => $replace ) { if( ereg( (string)$pattern, $val) ) { $val = ereg_replace( (string)$pattern, $replace, (string)$val ); $reg = '\|\[([a-zA-Z_0-9]+)\]'; while( ereg( $reg, $val, $vars ) ) { // expand all _record fields $val = str_replace( $CPre . $vars[1] . $CPos, $_record[array_search($vars[1], array_keys($_record))], $val ); } $val = preg_replace_callback( "/($c_functions)\(([^)]*)\)/i", array( self, 'c2_dispatcher') , $val ); break; } } // clean each field $val = preg_replace_callback("/(\|T\{|\|TC\{|\|TCnCL\{|\|INE\{)(.*)\}/", array( self, 'strclean'), $val ); $_record[$idx] = $val; } return $_record; } // end of member function conversion /** * callback for preg_replace_callback from self::conversion. * This function gets called when 2nd level conversions are made, * like the cat() and account() statements in the conversions. * * @param array $_matches */ private static function c2_dispatcher( $_matches ) { $action = &$_matches[1]; // cat or account ... $data = &$_matches[2]; // datas for action switch ( $action ) { case 'strtotime' : list( $string, $format ) = explode( ',', $data ); return self::custom_strtotime( trim( $string ), trim( $format ) ); default : if(self::$cclass && method_exists(self::$cclass, $action)) { $class = get_class(self::$cclass); return call_user_func("$class::$action", $data); } $method = (string)$action. ( is_int( $data ) ? '_id2name' : '_name2id' ); if(self::$cclass && method_exists(self::$cclass, $method)) { $class = get_class(self::$cclass); return call_user_func("$class::$action", $data); } else { return self::$method( $data ); } } } private static function strclean( $_matches ) { switch( $_matches[1] ) { case '|T{' : return trim( $_matches[2] ); case '|TC{' : return trim( preg_replace( '/[\x01-\x1F]+/', '', $_matches[2] ) ); case '|TCnCL{' : return trim( preg_replace( '/[\x01-\x09\x11\x12\x14-\x1F]+/', '', $_matches[2] ) ); case '|INE{' : return preg_match( '/\^.+\^/', $_matches[2] ) ? $_matches[2] : ''; default: throw new Exception('Error in conversion string! "'. substr( $_matches[1], 0, -1 ). '" is not valid!'); } } /** * returns a list of importexport plugins * * @param string $_tpye {import | export | all} * @param string $_appname { | all} * @return array( => array( => array( =>