From 66a759e2a1c50d8ac8757a33c7b860d7a89517a8 Mon Sep 17 00:00:00 2001
From: Chris Young <chris@unsatisfactorysoftware.co.uk>
Date: Sat, 8 Nov 2008 23:06:40 +0000
Subject: Local file handling improvements (fetch_file is incomplete and not
 being used yet)

filetype.c has been changed to get the MIME type of a file from the MIMETYPE tooltype
of the icon or default icon for the file.  The install script will set the basic of
these, and icons for default.css and AdBlock.css have been added to ensure these
always return the correct MIME type.

If the MIMETYPE tooltype is not found, the code will use datatypes.library to identify
the file and make a guess as to what the MIME type is.

svn path=/trunk/netsurf/; revision=5651
---
 amiga/filetype.c | 84 +++++++++++++++++++++++++++++++++++++++++++-------------
 1 file changed, 65 insertions(+), 19 deletions(-)

(limited to 'amiga/filetype.c')

diff --git a/amiga/filetype.c b/amiga/filetype.c
index f22ab26f5..2f22ba509 100644
--- a/amiga/filetype.c
+++ b/amiga/filetype.c
@@ -1,5 +1,4 @@
 /*
- * Copyright 2003 James Bursa <bursa@users.sourceforge.net>
  * Copyright 2008 Chris Young <chris@unsatisfactorysoftware.co.uk>
  *
  * This file is part of NetSurf, http://www.netsurf-browser.org/
@@ -22,6 +21,10 @@
 #include "content/fetch.h"
 #include "utils/log.h"
 #include "utils/utils.h"
+#include <proto/icon.h>
+#include <proto/dos.h>
+#include <proto/datatypes.h>
+#include <workbench/icon.h>
 
 /**
  * filetype -- determine the MIME type of a local file
@@ -29,24 +32,67 @@
 
 const char *fetch_filetype(const char *unix_path)
 {
-	int l;
-	LOG(("unix path %s", unix_path));
-	l = strlen(unix_path);
-	if (2 < l && strcasecmp(unix_path + l - 3, "css") == 0)
-		return "text/css";
-	if (2 < l && strcasecmp(unix_path + l - 3, "jpg") == 0)
-		return "image/jpeg";
-	if (3 < l && strcasecmp(unix_path + l - 4, "jpeg") == 0)
-		return "image/jpeg";
-	if (2 < l && strcasecmp(unix_path + l - 3, "gif") == 0)
-		return "image/gif";
-	if (2 < l && strcasecmp(unix_path + l - 3, "png") == 0)
-		return "image/png";
-	if (2 < l && strcasecmp(unix_path + l - 3, "jng") == 0)
-		return "image/jng";
-	if (2 < l && strcasecmp(unix_path + l - 3, "svg") == 0)
-		return "image/svg";
-	return "text/html";
+	static char mimetype[20];
+	STRPTR ttype = NULL;
+	struct DiskObject *dobj = NULL;
+	BPTR lock = 0;
+    struct DataTypeHeader *dth;
+    struct DataType *dtn;
+
+	/* First try getting a tooltype "MIMETYPE" and use that as the MIME type.  Will fail over
+		to default icons if the file doesn't have a real icon. */
+
+	if(dobj = GetIconTags(unix_path,ICONGETA_FailIfUnavailable,FALSE,
+						TAG_DONE))
+	{
+		ttype = FindToolType(dobj->do_ToolTypes, "MIMETYPE");
+		if(ttype) strcpy(mimetype,ttype);
+		FreeDiskObject(dobj);
+	}
+
+	if(!mimetype)
+	{
+		/* If that didn't work, have a go at guessing it using datatypes.library.  This isn't
+			accurate - the base names differ from those used by MIME and it relies on the
+			user having a datatype installed which can handle the file. */
+
+		if (lock = Lock (unix_path, ACCESS_READ))
+		{
+			if (dtn = ObtainDataTypeA (DTST_FILE, (APTR)lock, NULL))
+			{
+				dth = dtn->dtn_Header;
+
+				switch(dth->dth_GroupID)
+				{
+					case GID_SYSTEM:
+						sprintf(mimetype,"application/%s",dth->dth_BaseName);
+					break;
+					case GID_TEXT:
+					case GID_DOCUMENT:
+						sprintf(mimetype,"text/%s",dth->dth_BaseName);
+					break;
+					case GID_SOUND:
+					case GID_INSTRUMENT:
+					case GID_MUSIC:
+						sprintf(mimetype,"audio/%s",dth->dth_BaseName);
+					break;
+					case GID_PICTURE:
+						sprintf(mimetype,"image/%s",dth->dth_BaseName);
+					break;
+					case GID_ANIMATION:
+					case GID_MOVIE:
+						sprintf(mimetype,"video/%s",dth->dth_BaseName);
+					break;
+				}
+				ReleaseDataType(dtn);
+			}
+			UnLock(lock);
+		}
+	}
+
+	if(!mimetype) strcpy(mimetype,"text/plain"); /* If all else fails */
+
+	return mimetype;
 }
 
 
-- 
cgit v1.2.3