prc.determine_mimetype

If:

Then:

declare extern MimeType,UpOrig

If:

Then:

declare SSet,SChar(1,*)

If:

Then:

declare FString,Extension(5,ALLUP)

If:

Then:

FString=UpOrig

If:

Then:

SSet="\\/"

mainlp

If:

SSet eq ""

Then:

goto startdt

If:

Then:

sl=len(SSet)-"1"

If:

sl lt "1"

Then:

sl="1"

If:

Then:

SChar=mid(SSet,"1","1");SSet=mid(SSet,"2",sl)

slashlp

If:

Then:

ps=instr(FString,SChar)

If:

ps eq "0"

Then:

goto mainlp

If:

ps eq "1"

Then:

FString=mid(FString,"2",len(FString)-"1");goto slashlp

If:

ps eq len(FString)

Then:

FString=mid(FString,"1",len(FString)-"1");goto slashlp

If:

ps eq len(FString)-"1"

Then:

FString=mid(FString,ps+"1","1");goto slashlp

If:

Then:

FString=mid(FString,ps+"1",len(FString)-ps);goto slashlp

startdt

If:

Then:

SSet="."

seclp

If:

SSet eq ""

Then:

goto findtp

If:

Then:

sl=len(SSet)-"1"

If:

sl lt "1"

Then:

sl="1"

If:

Then:

SChar=mid(SSet,"1","1");SSet=mid(SSet,"2",sl)

dotlp

If:

Then:

ps=instr(FString,SChar)

If:

ps eq "0"

Then:

goto seclp

If:

ps eq "1"

Then:

FString=mid(FString,"2",len(FString)-"1");goto dotlp

If:

ps eq len(FString)

Then:

FString=mid(FString,"1",len(FString)-"1");goto dotlp

If:

ps eq len(FString)-"1"

Then:

FString=mid(FString,ps+"1","1");goto dotlp

If:

Then:

FString=mid(FString,ps+"1",len(FString)-ps);goto dotlp

findtp

If:

Then:

Extension=FString;zz=""{Extension{""

If:

len(zz) gt "5"

Then:

MimeType="application/octet-stream";end

If:

Then:

lookup mtype = flfss_mimetypes k=(Extension) i=a -nx

If:

not mtype

Then:

MimeType="application/octet-stream";close mtype;end

If:

Then:

MimeType=mtype(2);close mtype

If:

Then:

end

Processing table: prc.determine_mimetype