%% ``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: httpd_util.erl,v 1.1 2008/12/17 09:53:34 mikpe Exp $
%%
-module(httpd_util).
-export([key1search/2, key1search/3, lookup/2, lookup/3, multi_lookup/2,
lookup_mime/2, lookup_mime/3, lookup_mime_default/2,
lookup_mime_default/3, reason_phrase/1, message/3, rfc1123_date/0,
rfc1123_date/1, day/1, month/1, decode_hex/1, decode_base64/1, encode_base64/1,
flatlength/1, split_path/1, split_script_path/1, suffix/1, to_upper/1,
to_lower/1, split/3, header/2, header/3, header/4, uniq/1,
make_name/2,make_name/3,make_name/4,strip/1,
hexlist_to_integer/1,integer_to_hexlist/1,
convert_request_date/1,create_etag/1,create_etag/2,getSize/1,
response_generated/1]).
%%Since hexlist_to_integer is a lousy name make a name convert
-export([encode_hex/1]).
-include("httpd.hrl").
%% key1search
key1search(TupleList,Key) ->
key1search(TupleList,Key,undefined).
key1search(TupleList,Key,Undefined) ->
case lists:keysearch(Key,1,TupleList) of
{value,{Key,Value}} ->
Value;
false ->
Undefined
end.
%% lookup
lookup(Table,Key) ->
lookup(Table,Key,undefined).
lookup(Table,Key,Undefined) ->
case catch ets:lookup(Table,Key) of
[{Key,Value}|_] ->
Value;
_->
Undefined
end.
%% multi_lookup
multi_lookup(Table,Key) ->
remove_key(ets:lookup(Table,Key)).
remove_key([]) ->
[];
remove_key([{_Key,Value}|Rest]) ->
[Value|remove_key(Rest)].
%% lookup_mime
lookup_mime(ConfigDB,Suffix) ->
lookup_mime(ConfigDB,Suffix,undefined).
lookup_mime(ConfigDB,Suffix,Undefined) ->
[{mime_types,MimeTypesDB}|_]=ets:lookup(ConfigDB,mime_types),
case ets:lookup(MimeTypesDB,Suffix) of
[] ->
Undefined;
[{Suffix,MimeType}|_] ->
MimeType
end.
%% lookup_mime_default
lookup_mime_default(ConfigDB,Suffix) ->
lookup_mime_default(ConfigDB,Suffix,undefined).
lookup_mime_default(ConfigDB,Suffix,Undefined) ->
[{mime_types,MimeTypesDB}|_]=ets:lookup(ConfigDB,mime_types),
case ets:lookup(MimeTypesDB,Suffix) of
[] ->
case ets:lookup(ConfigDB,default_type) of
[] ->
Undefined;
[{default_type,DefaultType}|_] ->
DefaultType
end;
[{Suffix,MimeType}|_] ->
MimeType
end.
%% reason_phrase
reason_phrase(100) -> "Continue";
reason_phrase(101) -> "Swithing protocol";
reason_phrase(200) -> "OK";
reason_phrase(201) -> "Created";
reason_phrase(202) -> "Accepted";
reason_phrase(204) -> "No Content";
reason_phrase(205) -> "Reset Content";
reason_phrase(206) -> "Partial Content";
reason_phrase(301) -> "Moved Permanently";
reason_phrase(302) -> "Moved Temporarily";
reason_phrase(304) -> "Not Modified";
reason_phrase(400) -> "Bad Request";
reason_phrase(401) -> "Unauthorized";
reason_phrase(402) -> "Payment Required";
reason_phrase(403) -> "Forbidden";
reason_phrase(404) -> "Not Found";
reason_phrase(405) -> "Method Not Allowed";
reason_phrase(408) -> "Request Timeout";
reason_phrase(411) -> "Length Required";
reason_phrase(414) -> "Request-URI Too Long";
reason_phrase(412) -> "Precondition Failed";
reason_phrase(416) -> "request Range Not Satisfiable";
reason_phrase(417) -> "Expectation failed";
reason_phrase(500) -> "Internal Server Error";
reason_phrase(501) -> "Not Implemented";
reason_phrase(502) -> "Bad Gateway";
reason_phrase(503) -> "Service Unavailable";
reason_phrase(_) -> "Internal Server Error".
%% message
message(301,URL,_) ->
"The document has moved <A HREF=\""++URL++"\">here</A>.";
message(304,_URL,_) ->
"The document has not been changed.";
message(400,none,_) ->
"Your browser sent a query that this server could not understand.";
message(401,none,_) ->
"This server could not verify that you
are authorized to access the document you
requested. Either you supplied the wrong
credentials (e.g., bad password), or your
browser does not understand how to supply
the credentials required.";
message(403,RequestURI,_) ->
"You do not have permission to access "++RequestURI++" on this server.";
message(404,RequestURI,_) ->
"The requested URL "++RequestURI++" was not found on this server.";
message(412,none,_) ->
"The requested preconditions where false";
message(414,ReasonPhrase,_) ->
"Message "++ReasonPhrase++".";
message(416,ReasonPhrase,_) ->
ReasonPhrase;
message(500,none,ConfigDB) ->
ServerAdmin=lookup(ConfigDB,server_admin,"unknown@unknown"),
"The server encountered an internal error or
misconfiguration and was unable to complete
your request.
<P>Please contact the server administrator "++ServerAdmin++",
and inform them of the time the error occurred
and anything you might have done that may have
caused the error.";
message(501,{Method,RequestURI,HTTPVersion},_ConfigDB) ->
Method++" to "++RequestURI++" ("++HTTPVersion++") not supported.";
message(503,String,_ConfigDB) ->
"This service in unavailable due to: "++String.
%%convert_rfc_date(Date)->{{YYYY,MM,DD},{HH,MIN,SEC}}
convert_request_date([D,A,Y,DateType|Rest]) ->
Func=case DateType of
$\, ->
fun convert_rfc1123_date/1;
$\ ->
fun convert_ascii_date/1;
_ ->
fun convert_rfc850_date/1
end,
case catch Func([D,A,Y,DateType|Rest])of
{ok,Date} ->
Date;
_Error ->
bad_date
end.
convert_rfc850_date(DateStr) ->
case string:tokens(DateStr," ") of
[_WeekDay,Date,Time,_TimeZone|_Rest] ->
convert_rfc850_date(Date,Time);
_Error ->
bad_date
end.
convert_rfc850_date([D1,D2,_,M,O,N,_,Y1,Y2|_Rest],[H1,H2,_Col,M1,M2,_Col,S1,S2|_Rest2])->
Year=list_to_integer([50,48,Y1,Y2]),
Day=list_to_integer([D1,D2]),
Month=convert_month([M,O,N]),
Hour=list_to_integer([H1,H2]),
Min=list_to_integer([M1,M2]),
Sec=list_to_integer([S1,S2]),
{ok,{{Year,Month,Day},{Hour,Min,Sec}}};
convert_rfc850_date(_BadDate,_BadTime)->
bad_date.
convert_ascii_date([_D,_A,_Y,_SP,M,O,N,_SP,D1,D2,_SP,H1,H2,_Col,M1,M2,_Col,S1,S2,_SP,Y1,Y2,Y3,Y4|_Rest])->
Year=list_to_integer([Y1,Y2,Y3,Y4]),
Day=case D1 of
$\ ->
list_to_integer([D2]);
_->
list_to_integer([D1,D2])
end,
Month=convert_month([M,O,N]),
Hour=list_to_integer([H1,H2]),
Min=list_to_integer([M1,M2]),
Sec=list_to_integer([S1,S2]),
{ok,{{Year,Month,Day},{Hour,Min,Sec}}};
convert_ascii_date(BadDate)->
bad_date.
convert_rfc1123_date([_D,_A,_Y,_C,_SP,D1,D2,_SP,M,O,N,_SP,Y1,Y2,Y3,Y4,_SP,H1,H2,_Col,M1,M2,_Col,S1,S2|Rest])->
Year=list_to_integer([Y1,Y2,Y3,Y4]),
Day=list_to_integer([D1,D2]),
Month=convert_month([M,O,N]),
Hour=list_to_integer([H1,H2]),
Min=list_to_integer([M1,M2]),
Sec=list_to_integer([S1,S2]),
{ok,{{Year,Month,Day},{Hour,Min,Sec}}};
convert_rfc1123_date(BadDate)->
bad_date.
convert_month("Jan")->1;
convert_month("Feb") ->2;
convert_month("Mar") ->3;
convert_month("Apr") ->4;
convert_month("May") ->5;
convert_month("Jun") ->6;
convert_month("Jul") ->7;
convert_month("Aug") ->8;
convert_month("Sep") ->9;
convert_month("Oct") ->10;
convert_month("Nov") ->11;
convert_month("Dec") ->12.
%% rfc1123_date
rfc1123_date() ->
{{YYYY,MM,DD},{Hour,Min,Sec}}=calendar:universal_time(),
DayNumber=calendar:day_of_the_week({YYYY,MM,DD}),
lists:flatten(io_lib:format("~s, ~2.2.0w ~3.s ~4.4.0w ~2.2.0w:~2.2.0w:~2.2.0w GMT",
[day(DayNumber),DD,month(MM),YYYY,Hour,Min,Sec])).
rfc1123_date({{YYYY,MM,DD},{Hour,Min,Sec}}) ->
DayNumber=calendar:day_of_the_week({YYYY,MM,DD}),
lists:flatten(io_lib:format("~s, ~2.2.0w ~3.s ~4.4.0w ~2.2.0w:~2.2.0w:~2.2.0w GMT",
[day(DayNumber),DD,month(MM),YYYY,Hour,Min,Sec])).
%% uniq
uniq([]) ->
[];
uniq([First,First|Rest]) ->
uniq([First|Rest]);
uniq([First|Rest]) ->
[First|uniq(Rest)].
%% day
day(1) -> "Mon";
day(2) -> "Tue";
day(3) -> "Wed";
day(4) -> "Thu";
day(5) -> "Fri";
day(6) -> "Sat";
day(7) -> "Sun".
%% month
month(1) -> "Jan";
month(2) -> "Feb";
month(3) -> "Mar";
month(4) -> "Apr";
month(5) -> "May";
month(6) -> "Jun";
month(7) -> "Jul";
month(8) -> "Aug";
month(9) -> "Sep";
month(10) -> "Oct";
month(11) -> "Nov";
month(12) -> "Dec".
%% decode_hex
decode_hex([$%,Hex1,Hex2|Rest]) ->
[hex2dec(Hex1)*16+hex2dec(Hex2)|decode_hex(Rest)];
decode_hex([First|Rest]) ->
[First|decode_hex(Rest)];
decode_hex([]) ->
[].
hex2dec(X) when X>=$0,X=<$9 -> X-$0;
hex2dec(X) when X>=$A,X=<$F -> X-$A+10;
hex2dec(X) when X>=$a,X=<$f -> X-$a+10.
%% decode_base64 (DEBUG STRING: QWxhZGRpbjpvcGVuIHNlc2FtZQ==)
decode_base64([]) ->
[];
decode_base64([Sextet1,Sextet2,$=,$=|Rest]) ->
Bits2x6=
(d(Sextet1) bsl 18) bor
(d(Sextet2) bsl 12),
Octet1=Bits2x6 bsr 16,
[Octet1|decode_base64(Rest)];
decode_base64([Sextet1,Sextet2,Sextet3,$=|Rest]) ->
Bits3x6=
(d(Sextet1) bsl 18) bor
(d(Sextet2) bsl 12) bor
(d(Sextet3) bsl 6),
Octet1=Bits3x6 bsr 16,
Octet2=(Bits3x6 bsr 8) band 16#ff,
[Octet1,Octet2|decode_base64(Rest)];
decode_base64([Sextet1,Sextet2,Sextet3,Sextet4|Rest]) ->
Bits4x6=
(d(Sextet1) bsl 18) bor
(d(Sextet2) bsl 12) bor
(d(Sextet3) bsl 6) bor
d(Sextet4),
Octet1=Bits4x6 bsr 16,
Octet2=(Bits4x6 bsr 8) band 16#ff,
Octet3=Bits4x6 band 16#ff,
[Octet1,Octet2,Octet3|decode_base64(Rest)];
decode_base64(CatchAll) ->
"BAD!".
d(X) when X >= $A, X =<$Z ->
X-65;
d(X) when X >= $a, X =<$z ->
X-71;
d(X) when X >= $0, X =<$9 ->
X+4;
d($+) -> 62;
d($/) -> 63;
d(_) -> 63.
encode_base64([]) ->
[];
encode_base64([A]) ->
[e(A bsr 2), e((A band 3) bsl 4), $=, $=];
encode_base64([A,B]) ->
[e(A bsr 2), e(((A band 3) bsl 4) bor (B bsr 4)), e((B band 15) bsl 2), $=];
encode_base64([A,B,C|Ls]) ->
encode_base64_do(A,B,C, Ls).
encode_base64_do(A,B,C, Rest) ->
BB = (A bsl 16) bor (B bsl 8) bor C,
[e(BB bsr 18), e((BB bsr 12) band 63),
e((BB bsr 6) band 63), e(BB band 63)|encode_base64(Rest)].
e(X) when X >= 0, X < 26 -> X+65;
e(X) when X>25, X<52 -> X+71;
e(X) when X>51, X<62 -> X-4;
e(62) -> $+;
e(63) -> $/;
e(X) -> exit({bad_encode_base64_token, X}).
%% flatlength
flatlength(List) ->
flatlength(List, 0).
flatlength([H|T],L) when list(H) ->
flatlength(H,flatlength(T,L));
flatlength([H|T],L) when binary(H) ->
flatlength(T,L+size(H));
flatlength([H|T],L) ->
flatlength(T,L+1);
flatlength([],L) ->
L.
%% split_path
split_path(Path) ->
case regexp:match(Path,"[\?].*\$") of
%% A QUERY_STRING exists!
{match,Start,Length} ->
{httpd_util:decode_hex(string:substr(Path,1,Start-1)),
string:substr(Path,Start,Length)};
%% A possible PATH_INFO exists!
nomatch ->
split_path(Path,[])
end.
split_path([],SoFar) ->
{httpd_util:decode_hex(lists:reverse(SoFar)),[]};
split_path([$/|Rest],SoFar) ->
Path=httpd_util:decode_hex(lists:reverse(SoFar)),
case file:read_file_info(Path) of
{ok,FileInfo} when FileInfo#file_info.type == regular ->
{Path,[$/|Rest]};
{ok,FileInfo} ->
split_path(Rest,[$/|SoFar]);
{error,Reason} ->
split_path(Rest,[$/|SoFar])
end;
split_path([C|Rest],SoFar) ->
split_path(Rest,[C|SoFar]).
%% split_script_path
split_script_path(Path) ->
case split_script_path(Path, []) of
{Script, AfterPath} ->
{PathInfo, QueryString} = pathinfo_querystring(AfterPath),
{Script, {PathInfo, QueryString}};
not_a_script ->
not_a_script
end.
pathinfo_querystring(Str) ->
pathinfo_querystring(Str, []).
pathinfo_querystring([], SoFar) ->
{lists:reverse(SoFar), []};
pathinfo_querystring([$?|Rest], SoFar) ->
{lists:reverse(SoFar), Rest};
pathinfo_querystring([C|Rest], SoFar) ->
pathinfo_querystring(Rest, [C|SoFar]).
split_script_path([$?|QueryString], SoFar) ->
Path = httpd_util:decode_hex(lists:reverse(SoFar)),
case file:read_file_info(Path) of
{ok,FileInfo} when FileInfo#file_info.type == regular ->
{Path, [$?|QueryString]};
{ok,FileInfo} ->
not_a_script;
{error,Reason} ->
not_a_script
end;
split_script_path([], SoFar) ->
Path = httpd_util:decode_hex(lists:reverse(SoFar)),
case file:read_file_info(Path) of
{ok,FileInfo} when FileInfo#file_info.type == regular ->
{Path, []};
{ok,FileInfo} ->
not_a_script;
{error,Reason} ->
not_a_script
end;
split_script_path([$/|Rest], SoFar) ->
Path = httpd_util:decode_hex(lists:reverse(SoFar)),
case file:read_file_info(Path) of
{ok, FileInfo} when FileInfo#file_info.type == regular ->
{Path, [$/|Rest]};
{ok, _FileInfo} ->
split_script_path(Rest, [$/|SoFar]);
{error, _Reason} ->
split_script_path(Rest, [$/|SoFar])
end;
split_script_path([C|Rest], SoFar) ->
split_script_path(Rest,[C|SoFar]).
%% suffix
suffix(Path) ->
case filename:extension(Path) of
[] ->
[];
Extension ->
tl(Extension)
end.
%% to_upper
to_upper([C|Cs]) when C >= $a, C =< $z ->
[C-($a-$A)|to_upper(Cs)];
to_upper([C|Cs]) ->
[C|to_upper(Cs)];
to_upper([]) ->
[].
%% to_lower
to_lower([C|Cs]) when C >= $A, C =< $Z ->
[C+($a-$A)|to_lower(Cs)];
to_lower([C|Cs]) ->
[C|to_lower(Cs)];
to_lower([]) ->
[].
%% strip
strip(Value)->
lists:reverse(remove_ws(lists:reverse(remove_ws(Value)))).
remove_ws([$\s|Rest])->
remove_ws(Rest);
remove_ws([$\t|Rest]) ->
remove_ws(Rest);
remove_ws(Rest) ->
Rest.
%% split
split(String,RegExp,Limit) ->
case regexp:parse(RegExp) of
{error,Reason} ->
{error,Reason};
{ok,_} ->
{ok,do_split(String,RegExp,Limit)}
end.
do_split(String,RegExp,1) ->
[String];
do_split(String,RegExp,Limit) ->
case regexp:first_match(String,RegExp) of
{match,Start,Length} ->
[string:substr(String,1,Start-1)|
do_split(lists:nthtail(Start+Length-1,String),RegExp,Limit-1)];
nomatch ->
[String]
end.
%% header
header(StatusCode,Date)when list(Date)->
header(StatusCode,"text/plain",false);
header(StatusCode, PersistentConnection) when integer(StatusCode)->
Date = rfc1123_date(),
Connection =
case PersistentConnection of
true ->
"";
_ ->
"Connection: close \r\n"
end,
io_lib:format("HTTP/1.1 ~w ~s \r\nDate: ~s\r\nServer: ~s\r\n~s",
[StatusCode, httpd_util:reason_phrase(StatusCode),
Date, ?SERVER_SOFTWARE, Connection]).
%%----------------------------------------------------------------------
header(StatusCode, MimeType, Date) when list(Date) ->
header(StatusCode, MimeType, false,rfc1123_date());
header(StatusCode, MimeType, PersistentConnection) when integer(StatusCode) ->
header(StatusCode, MimeType, PersistentConnection,rfc1123_date()).
%%----------------------------------------------------------------------
header(416, MimeType,PersistentConnection,Date)->
Connection =
case PersistentConnection of
true ->
"";
_ ->
"Connection: close \r\n"
end,
io_lib:format("HTTP/1.1 ~w ~s \r\nDate: ~s\r\nServer: ~s\r\n"
"Content-Range:bytes *"
"Content-Type: ~s\r\n~s",
[416, httpd_util:reason_phrase(416),
Date, ?SERVER_SOFTWARE, MimeType, Connection]);
header(StatusCode, MimeType,PersistentConnection,Date) when integer(StatusCode)->
Connection =
case PersistentConnection of
true ->
"";
_ ->
"Connection: close \r\n"
end,
io_lib:format("HTTP/1.1 ~w ~s \r\nDate: ~s\r\nServer: ~s\r\n"
"Content-Type: ~s\r\n~s",
[StatusCode, httpd_util:reason_phrase(StatusCode),
Date, ?SERVER_SOFTWARE, MimeType, Connection]).
%% make_name/2, make_name/3
%% Prefix -> string()
%% First part of the name, e.g. "httpd"
%% Addr -> {A,B,C,D} | string() | undefined
%% The address part of the name.
%% e.g. "123.234.55.66" or {123,234,55,66} or "otp.ericsson.se"
%% for a host address or undefined if local host.
%% Port -> integer()
%% Last part of the name, such as the HTTPD server port
%% number (80).
%% Postfix -> Any string that will be added last to the name
%%
%% Example:
%% make_name("httpd","otp.ericsson.se",80) => httpd__otp_ericsson_se__80
%% make_name("httpd",undefined,8088) => httpd_8088
make_name(Prefix,Port) ->
make_name(Prefix,undefined,Port,"").
make_name(Prefix,Addr,Port) ->
make_name(Prefix,Addr,Port,"").
make_name(Prefix,"*",Port,Postfix) ->
make_name(Prefix,undefined,Port,Postfix);
make_name(Prefix,any,Port,Postfix) ->
make_name1(io_lib:format("~s_~w~s",[Prefix,Port,Postfix]));
make_name(Prefix,undefined,Port,Postfix) ->
make_name1(io_lib:format("~s_~w~s",[Prefix,Port,Postfix]));
make_name(Prefix,Addr,Port,Postfix) ->
NameString =
Prefix ++ "__" ++ make_name2(Addr) ++ "__" ++
integer_to_list(Port) ++ Postfix,
make_name1(NameString).
make_name1(String) ->
list_to_atom(lists:flatten(String)).
make_name2({A,B,C,D}) ->
io_lib:format("~w_~w_~w_~w",[A,B,C,D]);
make_name2(Addr) ->
search_and_replace(Addr,$.,$_).
search_and_replace(S,A,B) ->
Fun = fun(What) ->
case What of
A -> B;
O -> O
end
end,
lists:map(Fun,S).
%%----------------------------------------------------------------------
%% Converts a string that constists of 0-9,A-F,a-f to a
%% integer
%%----------------------------------------------------------------------
hexlist_to_integer([])->
empty;
%%When the string only contains one value its eaasy done.
%% 0-9
hexlist_to_integer([Size]) when Size>=48 , Size=<57 ->
Size-48;
%% A-F
hexlist_to_integer([Size]) when Size>=65 , Size=<70 ->
Size-55;
%% a-f
hexlist_to_integer([Size]) when Size>=97 , Size=<102 ->
Size-87;
hexlist_to_integer([Size]) ->
not_a_num;
hexlist_to_integer(Size) ->
Len=string:span(Size,"1234567890abcdefABCDEF"),
hexlist_to_integer2(Size,16 bsl (4 *(Len-2)),0).
hexlist_to_integer2([],_Pos,Sum)->
Sum;
hexlist_to_integer2([HexVal|HexString],Pos,Sum)when HexVal>=48,HexVal=<57->
hexlist_to_integer2(HexString,Pos bsr 4,Sum+((HexVal-48)*Pos));
hexlist_to_integer2([HexVal|HexString],Pos,Sum)when HexVal>=65,HexVal=<70->
hexlist_to_integer2(HexString,Pos bsr 4,Sum+((HexVal-55)*Pos));
hexlist_to_integer2([HexVal|HexString],Pos,Sum)when HexVal>=97,HexVal=<102->
hexlist_to_integer2(HexString,Pos bsr 4,Sum+((HexVal-87)*Pos));
hexlist_to_integer2(_AfterHexString,_Pos,Sum)->
Sum.
%%----------------------------------------------------------------------
%%Converts an integer to an hexlist
%%----------------------------------------------------------------------
encode_hex(Num)->
integer_to_hexlist(Num).
integer_to_hexlist(Num)->
integer_to_hexlist(Num,getSize(Num),[]).
integer_to_hexlist(Num,Pot,Res) when Pot<0 ->
convert_to_ascii([Num|Res]);
integer_to_hexlist(Num,Pot,Res) ->
Position=(16 bsl (Pot*4)),
PosVal=Num div Position,
integer_to_hexlist(Num-(PosVal*Position),Pot-1,[PosVal|Res]).
convert_to_ascii(RevesedNum)->
convert_to_ascii(RevesedNum,[]).
convert_to_ascii([],Num)->
Num;
convert_to_ascii([Num|Reversed],Number)when Num>-1, Num<10 ->
convert_to_ascii(Reversed,[Num+48|Number]);
convert_to_ascii([Num|Reversed],Number)when Num>9, Num<16 ->
convert_to_ascii(Reversed,[Num+55|Number]);
convert_to_ascii(NumReversed,Number) ->
error.
getSize(Num)->
getSize(Num,0).
getSize(Num,Pot)when Num<(16 bsl(Pot *4)) ->
Pot-1;
getSize(Num,Pot) ->
getSize(Num,Pot+1).
create_etag(FileInfo)->
create_etag(FileInfo#file_info.mtime,FileInfo#file_info.size).
create_etag({{Year,Month,Day},{Hour,Min,Sec}},Size)->
create_part([Year,Month,Day,Hour,Min,Sec])++io_lib:write(Size);
create_etag(FileInfo,Size)->
create_etag(FileInfo#file_info.mtime,Size).
create_part(Values)->
lists:map(fun(Val0)->
Val=Val0 rem 60,
if
Val=<25 ->
65+Val; % A-Z
Val=<50 ->
72+Val; % a-z
%%Since no date s
true ->
Val-3
end
end,Values).
%%----------------------------------------------------------------------
%%Function that controls whether a response is generated or not
%%----------------------------------------------------------------------
response_generated(Info)->
case httpd_util:key1search(Info#mod.data,status) of
%% A status code has been generated!
{StatusCode,PhraseArgs,Reason}->
true;
%%No status code control repsonsxe
undefined ->
case httpd_util:key1search(Info#mod.data, response) of
%% No response has been generated!
undefined ->
false;
%% A response has been generated or sent!
Response ->
true
end
end.
