%% ``Licensed under the Apache License, Version 2.0 (the "License"); %% you may not use this file except in compliance with the License. %% You may obtain a copy of the License at %% %% http://www.apache.org/licenses/LICENSE-2.0 %% %% Unless required by applicable law or agreed to in writing, software %% distributed under the License is distributed on an "AS IS" BASIS, %% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. %% See the License for the specific language governing permissions and %% limitations under the License. %% %% The Initial Developer of the Original Code is Ericsson Utvecklings AB. %% Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings %% AB. All Rights Reserved.'' %% %% $Id: mod_dir.erl,v 1.1 2008/12/17 09:53:35 mikpe Exp $ %% -module(mod_dir). -export([do/1]). -include("httpd.hrl"). %% do do(Info) -> ?DEBUG("do -> entry",[]), case Info#mod.method of "GET" -> case httpd_util:key1search(Info#mod.data,status) of %% A status code has been generated! {StatusCode,PhraseArgs,Reason} -> {proceed,Info#mod.data}; %% No status code has been generated! undefined -> case httpd_util:key1search(Info#mod.data,response) of %% No response has been generated! undefined -> do_dir(Info); %% A response has been generated or sent! Response -> {proceed,Info#mod.data} end end; %% Not a GET method! _ -> {proceed,Info#mod.data} end. do_dir(Info) -> ?DEBUG("do_dir -> Request URI: ~p",[Info#mod.request_uri]), Path = mod_alias:path(Info#mod.data,Info#mod.config_db, Info#mod.request_uri), DefaultPath = mod_alias:default_index(Info#mod.config_db,Path), %% Is it a directory? case file:read_file_info(DefaultPath) of {ok,FileInfo} when FileInfo#file_info.type == directory -> DecodedRequestURI = httpd_util:decode_hex(Info#mod.request_uri), ?DEBUG("do_dir -> ~n" " Path: ~p~n" " DefaultPath: ~p~n" " DecodedRequestURI: ~p", [Path,DefaultPath,DecodedRequestURI]), case dir(DefaultPath,string:strip(DecodedRequestURI,right,$/),Info#mod.config_db) of {ok, Dir} -> Head=[{content_type,"text/html"}, {content_length,integer_to_list(httpd_util:flatlength(Dir))}, {date,httpd_util:rfc1123_date(FileInfo#file_info.mtime)}, {code,200}], {proceed,[{response,{response,Head,Dir}}, {mime_type,"text/html"}|Info#mod.data]}; {error, Reason} -> ?ERROR("do_dir -> dir operation failed: ~p",[Reason]), {proceed, [{status,{404,Info#mod.request_uri,Reason}}| Info#mod.data]} end; {ok,FileInfo} -> ?DEBUG("do_dir -> ~n" " Path: ~p~n" " DefaultPath: ~p~n" " FileInfo: ~p", [Path,DefaultPath,FileInfo]), {proceed,Info#mod.data}; {error,Reason} -> ?LOG("do_dir -> failed reading file info (~p) for: ~p", [Reason,DefaultPath]), {proceed, [{status,read_file_info_error(Reason,Info,DefaultPath)}| Info#mod.data]} end. dir(Path,RequestURI,ConfigDB) -> case file:list_dir(Path) of {ok,FileList} -> SortedFileList=lists:sort(FileList), {ok,[header(Path,RequestURI), body(Path,RequestURI,ConfigDB,SortedFileList), footer(Path,SortedFileList)]}; {error,Reason} -> {error,?NICE("Can't open directory "++Path++": "++Reason)} end. %% header header(Path,RequestURI) -> Header= "\n
\n\nName Last modified Size Description
\n", case regexp:sub(RequestURI,"[^/]*\$","") of {ok,"/",_} -> Header; {ok,ParentRequestURI,_} -> {ok,ParentPath,_}=regexp:sub(string:strip(Path,right,$/),"[^/]*\$",""), Header++format(ParentPath,ParentRequestURI) end. format(Path,RequestURI) -> {ok,FileInfo}=file:read_file_info(Path), {{Year,Month,Day},{Hour,Minute,Second}}=FileInfo#file_info.mtime, io_lib:format("Parent directory ~2.2.0w-~s-~w ~2.2.0w:~2.2.0w -\n", [icon(back),"DIR",RequestURI,Day, httpd_util:month(Month),Year,Hour,Minute]). %% body body(Path,RequestURI,ConfigDB,[]) -> []; body(Path,RequestURI,ConfigDB,[Entry|Rest]) -> [format(Path,RequestURI,ConfigDB,Entry)|body(Path,RequestURI,ConfigDB,Rest)]. format(Path,RequestURI,ConfigDB,Entry) -> case file:read_file_info(Path++"/"++Entry) of {ok,FileInfo} when FileInfo#file_info.type == directory -> {{Year,Month,Day},{Hour,Minute,Second}}=FileInfo#file_info.mtime, EntryLength=length(Entry), if EntryLength > 21 -> io_lib:format("
~-21.s..~2.2.0w-~s-~w ~2.2.0w:~2.2.0w -\n", [icon(folder),"DIR",RequestURI++"/"++Entry++"/",Entry, Day,httpd_util:month(Month),Year,Hour,Minute]); true -> io_lib:format("
~s~*.*c~2.2.0w-~s-~w ~2.2.0w:~2.2.0w -\n", [icon(folder),"DIR",RequestURI++"/"++Entry++"/",Entry, 23-EntryLength,23-EntryLength,$ ,Day, httpd_util:month(Month),Year,Hour,Minute]) end; {ok,FileInfo} -> {{Year,Month,Day},{Hour,Minute,Second}}=FileInfo#file_info.mtime, Suffix=httpd_util:suffix(Entry), MimeType=httpd_util:lookup_mime(ConfigDB,Suffix,""), EntryLength=length(Entry), if EntryLength > 21 -> io_lib:format("
~-21.s..~2.2.0w-~s-~w ~2.2.0w:~2.2.0w~8wk ~s\n", [icon(Suffix,MimeType),Suffix,RequestURI++"/"++Entry, Entry,Day,httpd_util:month(Month),Year,Hour,Minute, trunc(FileInfo#file_info.size/1024+1),MimeType]); true -> io_lib:format("
~s~*.*c~2.2.0w-~s-~w ~2.2.0w:~2.2.0w~8wk ~s\n", [icon(Suffix,MimeType),Suffix,RequestURI++"/"++Entry, Entry,23-EntryLength,23-EntryLength,$ ,Day, httpd_util:month(Month),Year,Hour,Minute, trunc(FileInfo#file_info.size/1024+1),MimeType]) end; {error,Reason} -> "" end. %% footer footer(Path,FileList) -> case lists:member("README",FileList) of true -> {ok,Body}=file:read_file(Path++"/README"), "
\n"++binary_to_list(Body)++ "\n\n\n\n"; false -> "\n