%% ``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\nIndex of "++RequestURI++"\n\n\nIndex of "++
RequestURI++"
\n![](\""++icon(blank)++)
Name 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("![\"[~s]\"](\"~s\")
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
\n\n"++binary_to_list(Body)++
"\n
\n\n\n";
false ->
"\n \n