<?php
/**
 * EGroupware - InfoLog CSV import
 *
 * @license http://opensource.org/licenses/gpl-license.php GPL - GNU General Public License
 * @package importexport
 * @link http://www.egroupware.org
 * @author Cornelius Weiss <nelius@cwtech.de>
 * @copyright Cornelius Weiss <nelius@cwtech.de>
 * @version $Id$
 */

use EGroupware\Api;
use EGroupware\Api\Link;

/**
 * class import_csv for infolog
 *
 * This does not follow the others (extending importexport_basic_import_csv
 * since we have some fancy things going on with the type / status lookups.
 * It could probably be replaced or update to match.
 */
class infolog_import_infologs_csv implements importexport_iface_import_plugin
{

	private static $plugin_options = array(
		'fieldsep', 		// char
		'charset', 			// string
		'contact_owner', 	// int
		'update_cats', 			// string {override|add} overides record
								// with cat(s) from csv OR add the cat from
								// csv file to exeisting cat(s) of record
		'num_header_lines', // int number of header lines
		'field_conversion', // array( $csv_col_num => conversion)
		'field_mapping',	// array( $csv_col_num => adb_filed)
		'conditions',		/* => array containing condition arrays:
				'type' => exists, // exists
				'string' => '#kundennummer',
				'true' => array(
					'action' => update,
					'last' => true,
				),
				'false' => array(
					'action' => insert,
					'last' => true,
				),*/

	);

	public static $special_fields = array(
		'projectmanager'  => 'Link to Projectmanager, use Project-ID, Title or @project_id(id_or_title)',
		'addressbook'     => 'Link to Addressbook, use nlast,nfirst[,org] or contact_id from addressbook',
		'link_1'      => '1. link: appname:appid the entry should be linked to, eg.: addressbook:123',
		'link_2'      => '2. link: appname:appid the entry should be linked to, eg.: addressbook:123',
		'link_3'      => '3. link: appname:appid the entry should be linked to, eg.: addressbook:123',
		'link_custom'	=> 'Link by custom field, use <appname>:<custom_field_name>:|[<field_index>]'
	);

	/**
	 * actions wich could be done to data entries
	 */
	protected static $actions = array( 'none', 'update', 'insert', 'delete', );

	/**
	 * conditions for actions
	 *
	 * @var array
	 */
	protected static $conditions = array( 'exists' );

	/**
	 * @var definition
	 */
	private $definition;

	/**
	 * @var infolog_bo
	 */
	private $boinfolog;

	/**
	* For figuring out if a record has changed
	*
	* @var infolog_tracking::
	*/
	protected $tracking;

	/**
	 * @var bool
	 */
	private $dry_run = false;

	/**
	 * @var int
	 */
	private $user = null;

	/**
	 * List of import warnings
	 */
	protected $warnings = array();

	/**
	 * List of import errors
	 */
	protected $errors = array();

	/**
 	* List of actions, and how many times that action was taken
	 */
	protected $results = array();

	/**
	 * imports entries according to given definition object.
	 * @param resource $_stream
	 * @param string $_charset
	 * @param definition $_definition
	 */
	public function import( $_stream, importexport_definition $_definition ) {
		$import_csv = new importexport_import_csv( $_stream, array(
			'fieldsep' => $_definition->plugin_options['fieldsep'],
			'charset' => $_definition->plugin_options['charset'],
		));

		if(!$this->dry_run)
		{
			// This needs to scan the whole file, so it can take a while
			$record_count = $import_csv->get_num_of_records();
		}

		$this->definition = $_definition;

		$this->user = $GLOBALS['egw_info']['user']['account_id'];

		// dry run?
		$this->dry_run = isset( $_definition->plugin_options['dry_run'] ) ? $_definition->plugin_options['dry_run'] :  false;

		// fetch the infolog bo
		$this->boinfolog = new infolog_bo();

		// Get the tracker for changes
		$this->tracking = new infolog_tracking($this->boinfolog);

		// Need translations for some human stuff (early type detection)
		Api\Translation::add_app('infolog');

		// set FieldMapping.
		$import_csv->mapping = $_definition->plugin_options['field_mapping'];

		// set FieldConversion
		$import_csv->conversion = $_definition->plugin_options['field_conversion'];

		// Add extra conversions
		$import_csv->conversion_class = $this;

		//check if file has a header lines
		if ( isset( $_definition->plugin_options['num_header_lines'] ) && $_definition->plugin_options['num_header_lines'] > 0) {
			$import_csv->skip_records($_definition->plugin_options['num_header_lines']);
		} elseif(isset($_definition->plugin_options['has_header_line']) && $_definition->plugin_options['has_header_line']) {
			// First method is preferred
			$import_csv->skip_records(1);
		}

		// set Owner
		$plugin_options = $_definition->plugin_options;
		$plugin_options['record_owner'] = $_definition->plugin_options['record_owner'] ?
			$_definition->plugin_options['record_owner'] : $this->user;
		$plugin_options['record_owner'] = $this->user;
		$_definition->plugin_options = $plugin_options;

		$_lookups = array(
			'info_type'	=>	$this->boinfolog->enums['type'],
			'info_status'	=>	$this->boinfolog->status['task'],
			'info_priority'	=>	$this->boinfolog->enums['priority'],
			'info_confirm'	=>	$this->boinfolog->enums['confirm']
		);

		// Start counting successes
		$count = 0;
		$this->results = array();

		// Failures
		$this->errors = array();
		$this->warnings = array();
		set_time_limit(100);

		while ( $record = $import_csv->get_record() )
		{
			$success = false;

			// don't import empty records
			if( count( array_unique( $record ) ) < 2 ) continue;
			$lookups = $_lookups;

			// Early detection of type, to load appropriate statuses
			foreach(array($lookups['info_type'], array_map('strtolower',array_map('lang',$lookups['info_type']))) as $types)
			{
				if($record['info_type'] && $key = array_search(strtolower($record['info_type']),$types))
				{
					$lookups['info_status'] = $this->boinfolog->status[$key];
				}
			}

			$result = importexport_import_csv::convert($record, infolog_egw_record::$types, 'infolog', $lookups, $_definition->plugin_options['convert']);
			if($result)
			{
				$this->warnings[$import_csv->get_current_position()] = $result;
			}

			// Make sure type is valid
			if(!$record['info_type'] || $record['info_type'] && !$this->boinfolog->enums['type'][$record['info_type']])
			{
				// Check for translated type
				$un_trans = Api\Translation::get_message_id($record['info_type'],'infolog');
				if($record['info_type'] && $this->boinfolog->enums['type'][$un_trans])
				{
					$record['info_type'] = $un_trans;
				}
				else
				{
					$this->errors[$import_csv->get_current_position()] .= ($this->errors[$import_csv->get_current_position()] ? "\n":'').
						lang('Unknown type: %1', $record['info_type']);
				}
			}

			// Set default status for type, if not specified
			if(!$record['info_status'] && $record['info_type'])
			{
				$record['info_status'] = $this->boinfolog->status['defaults'][$record['info_type']];
			}

			if($_definition->plugin_options['override_values'])
			{
				$egw_record = new infolog_egw_record();
				$egw_record->set_record($record);
				$this->set_overrides($_definition, $egw_record);
				$record = $egw_record->get_record_array();
			}

			// Set owner, unless it's supposed to come from CSV file
			if($_definition->plugin_options['owner_from_csv'])
			{
				if(!is_numeric($record['info_owner']))
				{
					$this->errors[$import_csv->get_current_position()] = lang(
						'Invalid owner ID: %1.  Might be a bad field translation.  Used %2 instead.',
						$record['info_owner'],
						$_definition->plugin_options['record_owner']
					);
					$record['info_owner'] = $_definition->plugin_options['record_owner'];
				}
			}
			else
			{
				$record['info_owner'] = $_definition->plugin_options['record_owner'];
			}
			if (!isset($record['info_owner'])) $record['info_owner'] = $GLOBALS['egw_info']['user']['account_id'];

			// Responsible has to be an array
			$record['info_responsible'] = $record['info_responsible'] ? explode(',',$record['info_responsible']) : 0;

			// Don't let them import into info_link_id unless it's a number
			if($record['info_link_id'] && !is_numeric($record['info_link_id']))
			{
				// But try to search for it as a contact
				if(!$record['info_contact'])
				{
					$record['info_contact'] = $record['info_link_id'];
				}
				unset($record['info_link_id']);
			}
			// If contact or from is set and not an ID, find it.  Use quotes for exact match.
			foreach(['info_from','info_contact'] as $field)
			{
				if ($record[$field] && is_string($record[$field]))
				{
					$contacts = Link::query('addressbook', '"' . $record[$field] . '"');
					if ($contacts)
					{
						$record['info_contact'] = array(
								'id' => array_key_first($contacts),
								'app' => 'addressbook'
						);
					}
				}
			}
			// Special values
			if ($record['addressbook'] && !is_numeric($record['addressbook']))
			{
				list($lastname,$firstname,$org_name) = explode(',',$record['addressbook']);
				$record['addressbook'] = importexport_basic_import_csv::addr_id($lastname,$firstname,$org_name);
			}
			if ($record['projectmanager'] && !is_numeric($record['projectmanager']))
			{
				$record['projectmanager'] = self::project_id($record['projectmanager']);
			}

			if ( $_definition->plugin_options['conditions'] )
			{
				foreach ( $_definition->plugin_options['conditions'] as $condition )
				{
					$results = array();
					switch ( $condition['type'] )
					{
						// exists
						case 'exists' :
							if($record[$condition['string']]) {
								$query['col_filter'] = array( $condition['string'] => $record[$condition['string']],);
								// Needed to query custom fields
								if($condition['string'][0] == '#') $query['custom_fields'] = true;
								$results = $this->boinfolog->search($query);
							}

							if ( is_array( $results ) && count( array_keys( $results )) >= 1) {
								// apply action to all records matching this exists condition
								$action = $condition['true'];
								foreach ( (array)$results as $contact ) {
									$record['info_id'] = $contact['info_id'];
									$record['info_owner'] = $contact['info_owner'];
									if ( $_definition->plugin_options['update_cats'] == 'add' ) {
										if ( !is_array( $contact['cat_id'] ) ) $contact['cat_id'] = explode( ',', $contact['cat_id'] );
										if ( !is_array( $record['cat_id'] ) ) $record['cat_id'] = explode( ',', $record['cat_id'] );
										$record['cat_id'] = implode( ',', array_unique( array_merge( $record['cat_id'], $contact['cat_id'] ) ) );
									}
									$success = $this->action(  $action['action'], $record, $import_csv->get_current_position() );
								}
							} else {
								$action = $condition['false'];
								$success = ($this->action(  $action['action'], $record, $import_csv->get_current_position() ));
							}
							break;

						// not supported action
						default :
							die('condition / action not supported!!!');
							break;
					}
					if ($action['last']) break;
				}
			}
			else
			{
				// unconditional insert
				$success = $this->action( 'insert', $record, $import_csv->get_current_position() );
			}
			if($success) $count++;

			// Add some more time
			if($success && $import_csv->get_current_position() > 0 && $import_csv->get_current_position() % 10 == 0)
			{
				set_time_limit(10);
			}
			// Send an update to client
			if(!$this->dry_run)
			{
				$complete = $record_count ? (int)(100 * ($import_csv->get_current_position() / $record_count)) : false;
				$this->sendUpdate($complete, $record);
			}
			if($this->warnings[$import_csv->get_current_position()])
			{
				$this->warnings[$import_csv->get_current_position()] .= "\nRecord:\n" .array2string($record);
			}
			if($this->errors[$import_csv->get_current_position()])
			{
				$this->errors[$import_csv->get_current_position()] .= "\nRecord:\n" .array2string($record);
			}
		}
		return $count;
	}

	/**
	 * perform the required action
	 *
	 * @param int $_action one of $this->actions
	 * @param array $_data contact data for the action
	 * @return bool success or not
	 */
	private function action ( $_action, $_data, $record_num = 0 )
	{
		try
		{
			$result = true;
			switch($_action)
			{
				case 'none' :
					return true;
				case 'update' :
					// Only update if there are changes
					$old = $this->boinfolog->read($_data['info_id']);

					if(!$this->definition->plugin_options['change_owner'])
					{
						// Don't change addressbook of an existing contact
						unset($_data['owner']);
					}

					// Merge to deal with fields not in import record
					if(is_array($old))
					{
						$_data = array_merge($old, $_data);
					}
					$changed = $this->tracking->changed_fields($_data, $old);
					if(count($changed) == 0 && !$this->definition->plugin_options['update_timestamp'])
					{
						break;
					}

				// Fall through
				case 'insert' :
					if($this->dry_run)
					{
						//print_r($_data);

						// Check for link during dry run
						if($_data['link_custom'])
						{
							list($app, $app_id2) = explode(':', $_data['link_custom'], 2);
							$app_id = $this->link_by_cf($record_num, $app, $field, $app_id2);
						}

						$this->results[$_action]++;
						break;
					}
					else
					{
						$result = $this->boinfolog->write(
							$_data, true, 2, true,    // 2 = dont touch modification date
							$this->definition->plugin_options['no_notification']
						);
						if(!$result)
						{
							if($result === false)
							{
								$this->errors[$record_num] = lang('Permissions error - %1 could not %2',
																  $GLOBALS['egw']->accounts->id2name($_data['info_owner']),
																  lang($_action)
								);
							}
							else
							{
								$this->errors[$record_num] = lang('Error: the entry has been updated since you opened it for editing!');
							}
						}
						else
						{
							$this->results[$_action]++;
						}
						break;
					}
				default:
					throw new Api\Exception('Unsupported action');
			}

			// Process some additional fields
			if(!is_numeric($result))
			{
				return $result;
			}
			$info_link_id = $_data['info_link_id'];
			foreach(array_keys(self::$special_fields) as $field)
			{
				if(!$_data[$field])
				{
					continue;
				}
				if(strpos($field, 'link') === 0)
				{
					list($app, $app_id) = explode(':', $_data[$field], 2);

					// Linking to another entry based on matching custom fields
					if($field == 'link_custom')
					{
						$app_id = $this->link_by_cf($record_num, $app, $field, $app_id);
					}
				}
				else
				{
					$app = $field;
					$app_id = $_data[$field];
				}
				if($app && $app_id)
				{
					$id = $_data['info_id'] ? $_data['info_id'] : (int)$result;
					//echo "<p>linking infolog:$id with $app:$app_id</p>\n";
					$link_id = Link::link('infolog', $id, $app, $app_id);
					if($link_id && !$info_link_id)
					{
						$to_write = array(
							'info_id'      => $id,
							'info_link_id' => $link_id,
						);
						$this->boinfolog->write($to_write, False, false, true, true);    // last true = no notifications, as no real change
						$info_link_id = $link_id;
					}
				}
			}
		}
		catch (Exception $e)
		{
			$this->errors[$record_num] = $e->getMessage();
			return false;
		}
		return $result;
	}

	/**
	 * Handle setting specific values from the definition on every record
	 *
	 *
	 * @param importexport_definition $_definition
	 * @param importexport_iface_egw_record $record
	 */
	protected function set_overrides(importexport_definition &$_definition, importexport_iface_egw_record &$record)
	{
		$overrides = $_definition->plugin_options['override_values'];

		// Set the record field, with some type checks
		$set = function($record, $field, $value)
		{
			if(is_array($record->$field))
			{
				array_unshift($record->$field, $value['value']);
			}
			else
			{
				$record->$field = $value['value'];
			}
		};

		// Set category
		if($overrides['cat_id'] && $record::$types['select-cat'])
		{
			foreach($record::$types['select-cat'] as $field)
			{
				$set($record, $field, $overrides['cat_id']);
			}
		}
	}

	/**
	 * returns translated name of plugin
	 *
	 * @return string name
	 */
	public static function get_name() {
		return lang('Infolog CSV import');
	}

	/**
	 * returns translated (user) description of plugin
	 *
	 * @return string descriprion
	 */
	public static function get_description() {
		return lang("Imports entries into the infolog from a CSV File. CSV means 'Comma Separated Values'. However in the options Tab you can also choose other seperators.");
	}

	/**
	 * retruns file suffix(s) plugin can handle (e.g. csv)
	 *
	 * @return string suffix (comma seperated)
	 */
	public static function get_filesuffix() {
		return 'csv';
	}

	/**
	 * return etemplate components for options.
	 * @abstract We can't deal with etemplate objects here, as an uietemplate
	 * objects itself are scipt orientated and not "dialog objects"
	 *
	 * @return array (
	 * 		name 		=> string,
	 * 		content		=> array,
	 * 		sel_options => array,
	 * 		preserv		=> array,
	 * )
	 */
	public function get_options_etpl(importexport_definition &$definition=null)
	{
		// lets do it!
	}

	/**
	 * returns etemplate name for slectors of this plugin
	 *
	 * @return string etemplate name
	 */
	public function get_selectors_etpl() {
		// lets do it!
	}

	/**
	* Returns warnings that were encountered during importing
	* Maximum of one warning message per record, but you can append if you need to
	*
	* @return Array (
	*       record_# => warning message
	*       )
	*/
	public function get_warnings() {
		return $this->warnings;
	}

	/**
	* Returns errors that were encountered during importing
	* Maximum of one error message per record, but you can append if you need to
	*
	* @return Array (
	*       record_# => error message
	*       )
	*/
	public function get_errors() {
		return $this->errors;
	}

	/**
	* Returns a list of actions taken, and the number of records for that action.
	* Actions are things like 'insert', 'update', 'delete', and may be different for each plugin.
	*
	* @return Array (
	*       action => record count
	* )
	*/
	public function get_results() {
		return $this->results;
	}
	// end of iface_export_plugin

	// Extra conversion functions - must be static
	public static function project_id($num_or_title)
	{
		static $boprojects=null;

		if (!$num_or_title) return false;

		if (!is_object($boprojects))
		{
			$boprojects = new projectmanager_bo();
		}
		if (($projects = $boprojects->search(array('pm_number' => $num_or_title))) ||
			($projects = $boprojects->search(array('pm_title'  => $num_or_title))))
		{
			return $projects[0]['pm_id'];
		}
		return false;
	}

	/**
	 * Get the primary key for an entry based on a custom field
	 * Returns key, so regular linking can take over
	 *
	 * This is a copy of what's in importexport_basic_import_csv, and can go
	 * away if this is changed to extend it
	 */
	protected function link_by_cf($record_num, $app, $fieldname, $_value)
	{
		$app_id = false;

		list($custom_field, $value) = explode(':',$_value);
		// Find matching entry
		if($app && $custom_field && $value)
		{
			$cfs = Api\Storage\Customfields::get($app);
			// Error if no custom fields, probably something wrong in definition
			if(!$cfs[$custom_field])
			{
				// Check for users specifing label instead of name
				foreach($cfs as $name => $settings)
				{
					if(strtolower($settings['label']) == strtolower($custom_field))
					{
						$custom_field = $name;
						break;
					}
				}
			}

			// Couldn't find field, give an error - something's wrong
			if(!$cfs[$custom_field] && !$cfs[substr($custom_field,1)]) {
				$this->errors[$record_num] .= lang('No custom field "%1" for %2.',
					$custom_field, lang($app));
				return false;
			}
			if($custom_field[0] != '#') $custom_field = '#' . $custom_field;

			// Search
			if(Link::get_registry($app, 'query'))
			{
				$options = array('filter' => array("$custom_field = " . $GLOBALS['egw']->db->quote($value)));
				$result = Link::query($app, '', $options);

				// Only one allowed
				if(count($result) != 1)
				{
					$this->warnings[$record_num] .= ($this->warnings[$record_num] ? "\n" : '') .
						lang('Unable to link to %3 by custom field "%1": "%4".  %2 matches.',
						$custom_field, count($result), lang($app), $options['filter'][0]
					);
					return false;
				}
				$app_id = key($result);
			}
		}
		return $app_id;
	}

	/**
	 * Send some progress so the UI doesn't look frozen
	 *
	 * @param integer $complete 0-100 or false for indeterminate
	 * @param importexport_iface_egw_record $record
	 * @return void
	 * @throws Api\Json\Exception
	 */
	protected function sendUpdate($complete, $record)
	{
		$label = "";
		try
		{
			$label = $this->boinfolog->link_title($record) ?: "";
		}
		catch (Exception $e)
		{
		}
		importexport_import_ui::sendUpdate($complete, $label, substr(array2string($record), 0, 120) . '...');
	}

	function convert($size)
	{
		$unit = array('b', 'kb', 'mb', 'gb', 'tb', 'pb');
		return @round($size / pow(1024, ($i = floor(log($size, 1024)))), 2) . ' ' . $unit[$i];
	}

}
