Index: freexp/xp6m.inc
===================================================================
RCS file: /server/cvs/freexp/xp6m.inc,v
retrieving revision 1.10
retrieving revision 1.13
diff -u -r1.10 -r1.13
--- freexp/xp6m.inc 28 Mar 2006 13:58:13 -0000 1.10
+++ freexp/xp6m.inc 17 Apr 2006 15:40:36 -0000 1.13
@@ -6,7 +6,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp6m.inc,v 1.10 2006/03/28 13:58:13 mw Exp $ }
+{ $Id: xp6m.inc,v 1.13 2006/04/17 15:40:36 mw Exp $ }
{ MIME-Encoding Unterroutinen für XP6.PAS }
@@ -92,8 +92,8 @@
if pos(keytab,typ)>0 then typ:=Left(typ,pos(keytab,typ)-1);
if pos(' ',typ)>0 then typ:=Left(typ,pos(' ',typ)-1);
break;
+ end else typ:='';
end;
- end;
end;
mimetyptxt:=typ;
close(f);
@@ -105,7 +105,8 @@
function getmimetyp(ext:pathstr):string;
var s:string;
begin
- s:=mimetyptxt(ext);
+ s:='';
+ if ext<>'' then s:=mimetyptxt(ext);
if ustr(ext)='TXT' then getmimetyp:='text/plain' else
if ustr(ext)='HTM' then getmimetyp:='text/html' else
if s<>'' then getmimetyp:=s else
@@ -614,6 +615,16 @@
{
$Log: xp6m.inc,v $
+ Revision 1.13 2006/04/17 15:40:36 mw
+ MW: - Unbekannte Endungen wurde der letzte Eintrag in der MIME.TYP
+ zugewiesen.
+
+ Revision 1.12 2006/04/17 14:48:21 mw
+ MW: - MIME-Typ wurde nicht inialisiert.
+
+ Revision 1.11 2006/04/17 14:44:45 mw
+ MW: - Dateien ohne Endung erhielten seltsamen MIME-Typ.
+
Revision 1.10 2006/03/28 13:58:13 mw
MW: - Unterstützung für Textdatei mime.types (dosbedingt MIME.TYP)
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
