<?php
/* $Id$ */
(defined('MCMS') && (basename(__FILE__) != basename($_SERVER['PHP_SELF']))) or die('ACCESS DENIED');

use \Mammut\Locale\Locale;
use \MCMS\System;
use \MCMS\Request;
use \MCMS\Response;
class PlugInMMPIMediaManager implements \MCMS\Plugin\iPlugIn {

	protected function getLocaleStrings() {
		$allowed = array('en','en_EN','de','de_DE');
		$lang = '_default_';
		
		foreach(Locale::getLocaleList($_SERVER['HTTP_ACCEPT_LANGUAGE']) as $l) {
			if(in_array($l, $allowed)) {
				$lang = $l;
				break;
			}
		}
		
		include (__DIR__ . __DS__ . '_locale_' . __DS__ . '_default_.php');
		($lang != '_default_') and include (__DIR__ . __DS__ . '_locale_' . __DS__ . $lang . '.php');
		return $text;
	}
	
	// this method has been created to allow a developer to create implement another switching logic
	protected function getRealName(stdClass $instanceInfo) {
		if(is_null($instanceInfo))
			throw new RuntimeException('no module found for ident ' + $instanceName);
		return $instanceInfo->module;
	}

	protected function isAccessAllowed($thisInstance, $module) {
		$system = System::getInstance();
		$usrSvc = $system->getUserSvc();
		$usr = $usrSvc->getUser();
		
		if(!is_null($usr) && $usrSvc->userHasPriv($usr, $system->getSiteId(), false, false))
			$allowed = true;
		else {
			$allowed = false;
			/*				switch ($info->visible) {
			 case 'all':
			$allowed = true;
			break;
			case 'user':
			if (is_null($usr))
				break;
			$allowed = true;
			break;
			case 'acl':
			if (is_null($usr))
				break;
			if ($system->getDB()->table('moduleinstanceacl')->getObject(
					array(
							'instance' => $instanceName,
							'site_id' => $system->getSiteId(),
							'account_id' => $usr->getId(),
					)
			)
			) {
			$allowed = true;
			}
			// TODO: add group support
			// TODO: add timing support
			break;
			case 'none':
			default:
			$response->addError(403,'Access denied','http');
			break;
			} */
		}
		return $allowed;
	}

	public function handleRequest(Request $request, Response &$response, $context) {
		$system = System::getInstance();
		$params = $request->getParam();
		if(empty($params['target'])) {
			$response->setContent('Missing target');
			return;
		}
		$target = $params['target'];
		
		$info = NULL;
		if($system->cacheExists($system->getSiteId(), '$p:mcms.mmpimaincontent:modinstinfo', $target)) {
			$info = $system->cacheFetch($system->getSiteId(), '$p:mcms.mmpimaincontent:modinstinfo', $target);
		}
		if(empty($info)) {
			$info = $system->getDB()->table('moduleinstances')->getObject(array(
					'instance' => $target,'site_id' => $system->getSiteId()));
			$system->cacheStore($system->getSiteId(), '$p:mcms.mmpimaincontent:modinstinfo', $target, $info, 60);
		}

//			if (is_null($info) || $info === false)
//				throw new RuntimeException('no module found for ident '+$target);
		

		$usrSvc = $system->getUserSvc();
		$usr = $usrSvc->getUser();
		$realName = $this->getRealName($info);
		
		if(!$this->isAccessAllowed($target, $realName)) {
			$classname = loadModule($realName);
			if(class_exists($classname)) {
				$obj = new $classname();
				if($obj instanceof \MCMS\Module\iModule) {
					$activeInstance = &$obj;
					if(!method_exists($activeInstance, 'hasFilePriv') || !$activeInstance->hasFilePriv($usr, $params)) {
						$response->setContent('Not found or access denied');
						return;
					}
				}
				else
					throw new \Mammut\Exception\IllegalStateException('class does not define the module interface: ' . $classname);
			}
			else {
				$response->setContent('Not found or access denied');
				return;
			}
		}
		
		$type = isset($params['part']) ? $params['part'] : 'base';
		$dir = isset($params['dir']) ? $params['dir'] : '';
		$st = 'invalid request';
		
		$basedir = dirname($_SERVER['SCRIPT_FILENAME']) . '/datax/media/' . $system->getSiteId();
		$dirParts = preg_split('#(/|\\\\)#', $dir);
		foreach($dirParts as $id=>$part) {
			$part = trim($part);
			if($part == '' || preg_match('#^\.+$#', $part))
				unset($dirParts[$id]);
		}
		$dir = implode(__DS__, $dirParts);
		$realDir = $basedir . __DS__ . $dir;
		
		$mode = 'file';
		if(isset($_REQUEST['mode']) && $_REQUEST['mode'] == 'image')
			$mode = 'image';
		if(isset($_REQUEST['mode']) && $_REQUEST['mode'] == 'flash')
			$mode = 'flash';
		if(isset($_REQUEST['mode']) && $_REQUEST['mode'] == 'video')
			$mode = 'video';
		
		$id = 0;
		
		switch($type) {
			case 'base':
				$st = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Frameset//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-frameset.dtd">';
				$st .= '<html xmlns="http://www.w3.org/1999/xhtml">';
				
				$st .= '<head>';
				$st .= '<title>MCMS MediaManager</title>';
				$st .= '<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />';
				
				$handler = System::getInstance()->getFormDatatypeHandlers('html');
				$targetClass = loadComponent('editor', 'html.' . $handler['editor']);
				$st .= call_user_func(array($targetClass,'generateSelectCallBack'), isset($_REQUEST['id']) ? $_REQUEST['id'] : false);
				$st .= '</head>';
				
				$st .= '<frameset cols="200,*">';
				$st .= ' <frame src="' . $_SERVER['PHP_SELF'] . '?mod=*mm&amp;target=' . $target . '&amp;mode=' . $mode . '&amp;part=dirlist&amp;id=' . $id . '" name="dirlist" />';
				$st .= ' <frameset rows="*,100">';
				$st .= '   <frame src="' . $_SERVER['PHP_SELF'] . '?mod=*mm&amp;target=' . $target . '&amp;mode=' . $mode . '&amp;part=filelist&amp;id=' . $id . '" name="filelist" />';
				$st .= '   <frame src="' . $_SERVER['PHP_SELF'] . '?mod=*mm&amp;target=' . $target . '&amp;mode=' . $mode . '&amp;part=actions&amp;id=' . $id . '" name="actions" />';
				$st .= ' </frameset>';
				$st .= '</frameset>';
				
				$st .= '<noframes><body>Needs a frame-able browser</body></noframes>';
				
				$st .= '</html>';
			break;
			case 'dirlist':
				$st = $this->doDirListPart($dir, $realDir, $target, $mode, $id, $dirParts, $params);
			break;
			case 'filelist':
				$st = $this->doFileListPart($dir, $realDir, $target, $mode, $id, $dirParts, $params);
			break;
			case 'actions':
				$st = $this->doActionPart($dir, $realDir, $target, $mode, $id, $dirParts, $params);
			break;
		}
		$response->setContent($st);
	}

	protected function doDirListPart($dir, $realDir, $target, $mode, $id, $dirParts, $params) {
		$text = $this->getLocaleStrings();
		
		$st = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">';
		$st .= '<html xmlns="http://www.w3.org/1999/xhtml">';
		$st .= '<body style="font-family:Arial; font-size: 12px;">';
		
		$st .= '<b>' . $text['currentdir'] . '</b><br/>';
		$st .= '<span class="dirname">/' . str_replace(__DS__, '/', $dir) . '</span><hr style="padding: 0px; margin: 1px;"/>';
		$st .= '<ul style="padding: 0px; margin: 0px;">';
		
		$files = scandir($realDir);
		foreach($files as $file) {
			$fullpath = $realDir . __DS__ . $file;
			if(is_dir($fullpath)) {
				$dir = str_replace(__DS__, '/', $dir);
				if($file == '.')
					continue;
				elseif($file == '..') {
					$parts = explode('/', $dir);
					unset($parts[count($parts) - 1]);
					$targetDir = implode('/', $parts);
				}
				else
					$targetDir = $dir . '/' . $file;
				$st .= '<li><a href="' . $_SERVER['PHP_SELF'] . '?mod=*mm&amp;target=' . $target . '&amp;mode=' . $mode . '&amp;part=dirlist&amp;id=' . $id . '&amp;dir=' . $targetDir . '"';
				$st .= ' onClick="';
				$st .= 'parent.filelist.location.href=\'' . $_SERVER['PHP_SELF'] . '?mod=*mm&amp;target=' . $target . '&amp;mode=' . $mode . '&amp;part=filelist&amp;id=' . $id . '&amp;dir=' . $targetDir . '\';';
				$st .= 'parent.actions.location.href=\'' . $_SERVER['PHP_SELF'] . '?mod=*mm&amp;target=' . $target . '&amp;mode=' . $mode . '&amp;part=actions&amp;id=' . $id . '&amp;dir=' . $targetDir . '\';';
				$st .= '" ';
				if($file == '..')
					$st .= '><img src="' . _LAYOUTURL_ . '/_system_/images/actions/16x16/arrow_back.png" align="absmiddle" hspace="3" border="0" height="16" width="16"/>..</li>';
				else
					$st .= '><img src="' . _LAYOUTURL_ . '/_system_/images/filetype/16x16/folder.png" align="absmiddle" hspace="3" border="0" height="16" width="16"/>' . $file . '</li>';
			}
		}
		$st .= '</ul></body>';
		$st .= '</html>';
		return $st;
	}

	protected function doFileListPart($dir, $realDir, $target, $mode, $id, $dirParts, $params) {
		$text = $this->getLocaleStrings();
		
		$st = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">';
		$st .= '<html xmlns="http://www.w3.org/1999/xhtml">';
		
		$st .= "<script type=\"text/javascript\">
					function SelectFile(fileUrl) {
						parent.document.onFileManagerSelect(fileUrl);
					}
					</script>";
		$st .= '<body style="font-family:Arial; font-size: 12px;">';
		$actionDone = '';
		if(isset($params['dodelete'])) {
			$filename = basename($params['dodelete']);
			unlink($realDir . __DS__ . $filename);
			$actionDone = '<p>file deleted:' . $filename . '</p>';
		}
		$st .= '<table style="width: 95%">';
		$files = scandir($realDir);
		$st .= '<tr>';
		$st .= '<th style="background-color: #CCCCCC;">&nbsp;</th>';
		$st .= '<th style="background-color: #CCCCCC;">' . $text['th']['filename'] . '</th>';
		$st .= '<th style="background-color: #CCCCCC;">' . $text['th']['filesize'] . '</th>';
		$st .= '<th style="background-color: #CCCCCC;">&nbsp;</th>';
		$st .= '</tr>';
		foreach($files as $file) {
			$fullpath = $realDir . __DS__ . $file;
			if(!is_dir($fullpath)) {
				if($mode == 'image' && !preg_match('#.*\.(png|jpg|jpeg|bmp|gif|xpm|svg)$#i', $file))
					continue;
				$subdir = implode('/', $dirParts);
				if($subdir != '')
					$subdir = '/' . $subdir;
				$url = _DATAURLX_ . '/media/' . System::getInstance()->getSiteId() . $subdir . '/' . $file;
				
				$fsize = filesize($fullpath);
				$fsunit = 'B';
				if($fsize > 1024 * 1024) {
					$fsize = round($fsize / 1024 / 1024, 2);
					$fsunit = 'MB';
				}
				elseif($fsize > 1024) {
					$fsize = round($fsize / 1024, 2);
					$fsunit = 'KB';
				}
				
				$st .= '<tr>';
				$st .= '<td style="background-color: #F0F0F0; width: 30px;">&nbsp;</td>';
				$st .= '<td style="background-color: #F0F0F0;">' . $file . '</td>';
				$st .= '<td style="background-color: #F0F0F0; text-align:right;">' . $fsize . ' ' . $fsunit . '</td>';
				$st .= '<td style="background-color: #F0F0F0;">';
				$st .= '<a href="javascript:SelectFile(\'' . $url . '\');">' . $text['lnk']['usefile'] . '</a><br />';
				$st .= '<a href="' . $_SERVER['PHP_SELF'] . '?mod=*mm&amp;target=' . $target . '&amp;mode=' . $mode . '&amp;part=filelist&amp;id=' . $id . '&amp;dir=' . $dir . '&amp;dodelete=' . $file . '">' . $text['lnk']['delfile'] . '</a>';
				$st .= '</td>';
				$st .= '</tr>';
			}
		}
		$st .= '</table>' . $actionDone . '</body>';
		$st .= '</html>';
		return $st;
	}

	protected function doActionPart($dir, $realDir, $target, $mode, $id, $dirParts, $params) {
		$text = $this->getLocaleStrings();
		
		$st = '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">';
		$st .= '<html xmlns="http://www.w3.org/1999/xhtml">';
		$st .= '<body style="font-family:Arial; font-size: 12px;">';
		$st .= '<form action="' . $_SERVER['PHP_SELF'] . '" method="post" enctype="multipart/form-data">';
		$st .= 'Datei hochladen: <input type="file" name="file"/>';
		$st .= '<input type="hidden" name="mod" value="*mm"/>';
		$st .= '<input type="hidden" name="id" value="' . $id . '"/>';
		$st .= '<input type="hidden" name="target" value="' . $target . '"/>';
		$st .= '<input type="hidden" name="part" value="actions"/>';
		$st .= '<input type="hidden" name="dir" value="' . $dir . '"/>';
		$st .= '<input type="hidden" name="mode" value="' . $mode . '"/>';
		$st .= '<input type="hidden" name="doupload" value="y"/>';
		$st .= '<input type="submit" value="' . $text['form']['btn_upload'] . '"/><br/>';
		if(isset($params['doupload'])) {
			$infile = $_FILES['file']['tmp_name'];
			$filename = $_FILES['file']['name'];
			move_uploaded_file($infile, $realDir . __DS__ . $filename);
			$st .= '<script type="text/javascript" language="javascript"><!--';
			$st .= "\nparent.filelist.location.reload();\n";
			$st .= '--></script>';
			$st .= '<p>file uploaded:' . $filename . '</p>';
		}
		$st .= '</form>';
		$st .= '<form action="' . $_SERVER['PHP_SELF'] . '" method="post" enctype="multipart/form-data">';
		$st .= 'Verzeichnis erstellen: <input type="string" name="name"/>';
		$st .= '<input type="hidden" name="mod" value="*mm"/>';
		$st .= '<input type="hidden" name="id" value="' . $id . '"/>';
		$st .= '<input type="hidden" name="target" value="' . $target . '"/>';
		$st .= '<input type="hidden" name="part" value="actions"/>';
		$st .= '<input type="hidden" name="dir" value="' . $dir . '"/>';
		$st .= '<input type="hidden" name="mode" value="' . $mode . '"/>';
		$st .= '<input type="hidden" name="domkdir" value="y"/>';
		$st .= '<input type="submit" value="' . $text['form']['btn_createdir'] . '"/><br/>';
		if(isset($params['domkdir'])) {
			$d = $_POST['name'];
			mkdir($realDir . __DS__ . $_POST['name']);
			$st .= '<script type="text/javascript" language="javascript"><!--';
			$st .= "\nparent.dirlist.location.reload();\n";
			$st .= '--></script>';
			$st .= '<p>directory created:' . $d . '</p>';
		}
		$st .= '</form>';
		$st .= '</body>';
		$st .= '</html>';
		return $st;
	}
}