<?
/**
 * Tries to get mime data of the file.
 * @return {String} mime-type of the given file
 * @param $filename String
 */
function get_mime($filename){
    preg_match("/\.(.*?)$/", $filename, $m);    # Get File extension for a better match
    switch(strtolower($m[1])){
        case "js": return "application/javascript";
        case "json": return "application/json";
        case "jpg": case "jpeg": case "jpe": return "image/jpg";
        case "png": case "gif": case "bmp": return "image/".strtolower($m[1]);
        case "css": return "text/css";
        case "xml": return "application/xml";
        case "html": case "htm": case "php": return "text/html";
        default:
            if(function_exists("mime_content_type")){ # if mime_content_type exists use it.
               $m = mime_content_type($filename);
            }else if(function_exists("")){    # if Pecl installed use it
               $finfo = finfo_open(FILEINFO_MIME);
               $m = finfo_file($finfo, $filename);
               finfo_close($finfo);
            }else{    # if nothing left try shell
               if(strstr($_SERVER[HTTP_USER_AGENT], "Windows")){ # Nothing to do on windows
                   return ""; # Blank mime display most files correctly especially images.
               }
               if(strstr($_SERVER[HTTP_USER_AGENT], "Macintosh")){ # Correct output on macs
                   $m = trim(exec('file -b --mime '.escapeshellarg($filename)));
               }else{    # Regular unix systems
                   $m = trim(exec('file -bi '.escapeshellarg($filename)));
               }
            }
            $m = split(";", $m);
            return trim($m[0]);
    }
}
?>

               if(strstr($_SERVER[HTTP_USER_AGENT], "Windows")){ # Nothing to do on windows
                   return ""; # Blank mime display most files correctly especially images.
               }
               if(strstr($_SERVER[HTTP_USER_AGENT], "Macintosh")){ # Correct output on macs

               if(strstr($_SERVER["HTTP_USER_AGENT"], "Windows")){ # Nothing to do on windows
                   return ""; # Blank mime display most files correctly especially images.
               }
               if(strstr($_SERVER["HTTP_USER_AGENT"], "Macintosh")){ # Correct output on macs

		$vartype = mime_content_type($vartemp);

		$vartype = get_mime($varname);

$varrand = substr(md5(uniqid(rand())),0,10);		

$varallw = array("image/bmp","image/gif","image/jpeg","image/pjpeg","image/png","image/x-png");

$varpath = "http://foromus.com/imagehosting.php?image=";

$varstat = "";
$tam = 1073741824; //Tamaño del archivo en este en este ejemplo 1MB

if ($_POST["action"] == "upload") {
	if (is_uploaded_file($_FILES["imagen"]["tmp_name"])) {
		$varname = $_FILES["imagen"]['name'];
		$vartemp = $_FILES['imagen']['tmp_name'];
		$vartype = mime_content_type($vartemp);

		if (in_array($vartype, $varallw) && $varname != "") {
			$arrname = explode(".", $varname);
			$varname = $varrand.".".$arrname[1];
			if ((filesize($vartemp) < $tam)) {
				if (copy($vartemp, "tmp/".$varname)) {
					$varpath = $varpath.$varname;
					$varstat = "ok";
				} else {
					$varstat = "Error al subir el archivo";
				}
			} else {
				$varstat = "El archivo excede el maximo de 1MB permitido";
		} else {
			$varstat = "Archivo no valido";
		}
	}
}

if(isset($_POST["action"]) == "upload"){
	if (is_uploaded_file($_FILES["imagen"]["tmp_name"])) {
		$vtemp1 = $_FILES["imagen"]['name'];
		$vtemp2 = filesize($vtemp1);