2015-11-04 01:22:39 +01:00
|
|
|
%%%----------------------------------------------------------------------
|
2015-10-26 13:10:10 +01:00
|
|
|
%%% File : mod_http_upload_quota.erl
|
|
|
|
%%% Author : Holger Weiss <holger@zedat.fu-berlin.de>
|
|
|
|
%%% Purpose : Quota management for HTTP File Upload (XEP-0363)
|
|
|
|
%%% Created : 15 Oct 2015 by Holger Weiss <holger@zedat.fu-berlin.de>
|
2015-11-04 01:22:39 +01:00
|
|
|
%%%
|
|
|
|
%%%
|
2017-01-02 21:41:53 +01:00
|
|
|
%%% ejabberd, Copyright (C) 2015-2017 ProcessOne
|
2015-11-04 01:22:39 +01:00
|
|
|
%%%
|
|
|
|
%%% This program is free software; you can redistribute it and/or
|
|
|
|
%%% modify it under the terms of the GNU General Public License as
|
|
|
|
%%% published by the Free Software Foundation; either version 2 of the
|
|
|
|
%%% License, or (at your option) any later version.
|
|
|
|
%%%
|
|
|
|
%%% This program is distributed in the hope that it will be useful,
|
|
|
|
%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
%%% General Public License for more details.
|
|
|
|
%%%
|
|
|
|
%%% You should have received a copy of the GNU General Public License along
|
|
|
|
%%% with this program; if not, write to the Free Software Foundation, Inc.,
|
|
|
|
%%% 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
%%%
|
|
|
|
%%%----------------------------------------------------------------------
|
2015-10-26 13:10:10 +01:00
|
|
|
|
|
|
|
-module(mod_http_upload_quota).
|
|
|
|
-author('holger@zedat.fu-berlin.de').
|
|
|
|
|
|
|
|
-define(TIMEOUT, timer:hours(24)).
|
|
|
|
-define(INITIAL_TIMEOUT, timer:minutes(10)).
|
|
|
|
-define(FORMAT(Error), file:format_error(Error)).
|
|
|
|
|
2017-02-14 13:39:57 +01:00
|
|
|
-behaviour(gen_server).
|
2015-10-26 13:10:10 +01:00
|
|
|
-behaviour(gen_mod).
|
|
|
|
|
|
|
|
%% gen_mod/supervisor callbacks.
|
2017-02-14 10:39:26 +01:00
|
|
|
-export([start/2,
|
2015-10-26 13:10:10 +01:00
|
|
|
stop/1,
|
2016-07-06 13:58:48 +02:00
|
|
|
depends/2,
|
2015-10-26 13:10:10 +01:00
|
|
|
mod_opt_type/1]).
|
|
|
|
|
|
|
|
%% gen_server callbacks.
|
|
|
|
-export([init/1,
|
|
|
|
handle_call/3,
|
|
|
|
handle_cast/2,
|
|
|
|
handle_info/2,
|
|
|
|
terminate/2,
|
|
|
|
code_change/3]).
|
|
|
|
|
|
|
|
%% ejabberd_hooks callback.
|
|
|
|
-export([handle_slot_request/5]).
|
|
|
|
|
2016-07-30 16:48:52 +02:00
|
|
|
-include("jid.hrl").
|
2015-10-26 13:10:10 +01:00
|
|
|
-include("logger.hrl").
|
|
|
|
-include_lib("kernel/include/file.hrl").
|
|
|
|
|
|
|
|
-record(state,
|
|
|
|
{server_host :: binary(),
|
|
|
|
access_soft_quota :: atom(),
|
|
|
|
access_hard_quota :: atom(),
|
|
|
|
max_days :: pos_integer() | infinity,
|
|
|
|
docroot :: binary(),
|
2016-01-16 01:30:22 +01:00
|
|
|
disk_usage = #{} :: map(),
|
2015-10-26 13:10:10 +01:00
|
|
|
timers :: [timer:tref()]}).
|
|
|
|
|
|
|
|
-type state() :: #state{}.
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
%% gen_mod/supervisor callbacks.
|
|
|
|
%%--------------------------------------------------------------------
|
2017-02-18 07:36:27 +01:00
|
|
|
-spec start(binary(), gen_mod:opts()) -> {ok, pid()}.
|
2015-10-26 13:10:10 +01:00
|
|
|
|
|
|
|
start(ServerHost, Opts) ->
|
2017-02-14 10:39:26 +01:00
|
|
|
Proc = mod_http_upload:get_proc_name(ServerHost, ?MODULE),
|
|
|
|
gen_mod:start_child(?MODULE, ServerHost, Opts, Proc).
|
2015-10-26 13:10:10 +01:00
|
|
|
|
2017-02-18 07:36:27 +01:00
|
|
|
-spec stop(binary()) -> ok | {error, any()}.
|
2015-10-26 13:10:10 +01:00
|
|
|
|
|
|
|
stop(ServerHost) ->
|
2017-02-14 10:39:26 +01:00
|
|
|
Proc = mod_http_upload:get_proc_name(ServerHost, ?MODULE),
|
|
|
|
gen_mod:stop_child(Proc).
|
2015-10-26 13:10:10 +01:00
|
|
|
|
|
|
|
-spec mod_opt_type(atom()) -> fun((term()) -> term()) | [atom()].
|
|
|
|
|
|
|
|
mod_opt_type(access_soft_quota) ->
|
2016-06-21 13:18:24 +02:00
|
|
|
fun acl:shaper_rules_validator/1;
|
2015-10-26 13:10:10 +01:00
|
|
|
mod_opt_type(access_hard_quota) ->
|
2016-06-21 13:18:24 +02:00
|
|
|
fun acl:shaper_rules_validator/1;
|
2015-10-26 13:10:10 +01:00
|
|
|
mod_opt_type(max_days) ->
|
|
|
|
fun(I) when is_integer(I), I > 0 -> I;
|
|
|
|
(infinity) -> infinity
|
|
|
|
end;
|
|
|
|
mod_opt_type(_) ->
|
|
|
|
[access_soft_quota, access_hard_quota, max_days].
|
|
|
|
|
2016-07-06 13:58:48 +02:00
|
|
|
-spec depends(binary(), gen_mod:opts()) -> [{module(), hard | soft}].
|
|
|
|
|
|
|
|
depends(_Host, _Opts) ->
|
2016-07-08 20:47:02 +02:00
|
|
|
[{mod_http_upload, hard}].
|
2016-07-06 13:58:48 +02:00
|
|
|
|
2015-10-26 13:10:10 +01:00
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
%% gen_server callbacks.
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
2017-02-14 10:39:26 +01:00
|
|
|
init([ServerHost, Opts]) ->
|
2015-10-26 13:10:10 +01:00
|
|
|
process_flag(trap_exit, true),
|
|
|
|
AccessSoftQuota = gen_mod:get_opt(access_soft_quota, Opts,
|
|
|
|
soft_upload_quota),
|
|
|
|
AccessHardQuota = gen_mod:get_opt(access_hard_quota, Opts,
|
|
|
|
hard_upload_quota),
|
2017-04-30 18:01:47 +02:00
|
|
|
MaxDays = gen_mod:get_opt(max_days, Opts, infinity),
|
2015-10-26 13:10:10 +01:00
|
|
|
DocRoot1 = gen_mod:get_module_opt(ServerHost, mod_http_upload, docroot,
|
|
|
|
<<"@HOME@/upload">>),
|
|
|
|
DocRoot2 = mod_http_upload:expand_home(str:strip(DocRoot1, right, $/)),
|
2016-02-20 20:13:30 +01:00
|
|
|
DocRoot3 = mod_http_upload:expand_host(DocRoot2, ServerHost),
|
2015-10-26 13:10:10 +01:00
|
|
|
Timers = if MaxDays == infinity -> [];
|
|
|
|
true ->
|
|
|
|
{ok, T1} = timer:send_after(?INITIAL_TIMEOUT, sweep),
|
|
|
|
{ok, T2} = timer:send_interval(?TIMEOUT, sweep),
|
|
|
|
[T1, T2]
|
|
|
|
end,
|
|
|
|
ejabberd_hooks:add(http_upload_slot_request, ServerHost, ?MODULE,
|
|
|
|
handle_slot_request, 50),
|
|
|
|
{ok, #state{server_host = ServerHost,
|
|
|
|
access_soft_quota = AccessSoftQuota,
|
|
|
|
access_hard_quota = AccessHardQuota,
|
|
|
|
max_days = MaxDays,
|
2016-02-20 20:13:30 +01:00
|
|
|
docroot = DocRoot3,
|
2015-10-26 13:10:10 +01:00
|
|
|
timers = Timers}}.
|
|
|
|
|
|
|
|
-spec handle_call(_, {pid(), _}, state()) -> {noreply, state()}.
|
|
|
|
|
|
|
|
handle_call(Request, From, State) ->
|
|
|
|
?ERROR_MSG("Got unexpected request from ~p: ~p", [From, Request]),
|
|
|
|
{noreply, State}.
|
|
|
|
|
|
|
|
-spec handle_cast(_, state()) -> {noreply, state()}.
|
|
|
|
|
|
|
|
handle_cast({handle_slot_request, #jid{user = U, server = S} = JID, Path, Size},
|
|
|
|
#state{server_host = ServerHost,
|
|
|
|
access_soft_quota = AccessSoftQuota,
|
|
|
|
access_hard_quota = AccessHardQuota,
|
|
|
|
disk_usage = DiskUsage} = State) ->
|
|
|
|
HardQuota = case acl:match_rule(ServerHost, AccessHardQuota, JID) of
|
2015-11-09 19:23:52 +01:00
|
|
|
Hard when is_integer(Hard), Hard > 0 ->
|
|
|
|
Hard * 1024 * 1024;
|
|
|
|
_ ->
|
|
|
|
0
|
2015-10-26 13:10:10 +01:00
|
|
|
end,
|
|
|
|
SoftQuota = case acl:match_rule(ServerHost, AccessSoftQuota, JID) of
|
2015-11-09 19:23:52 +01:00
|
|
|
Soft when is_integer(Soft), Soft > 0 ->
|
|
|
|
Soft * 1024 * 1024;
|
|
|
|
_ ->
|
|
|
|
0
|
2015-10-26 13:10:10 +01:00
|
|
|
end,
|
2016-01-16 01:30:22 +01:00
|
|
|
OldSize = case maps:find({U, S}, DiskUsage) of
|
2015-11-09 19:23:52 +01:00
|
|
|
{ok, Value} ->
|
|
|
|
Value;
|
|
|
|
error ->
|
|
|
|
undefined
|
2015-10-26 13:10:10 +01:00
|
|
|
end,
|
|
|
|
NewSize = case {HardQuota, SoftQuota} of
|
2015-11-09 19:23:52 +01:00
|
|
|
{0, 0} ->
|
|
|
|
?DEBUG("No quota specified for ~s",
|
2017-02-26 08:07:12 +01:00
|
|
|
[jid:encode(JID)]),
|
2015-11-10 22:08:16 +01:00
|
|
|
undefined;
|
2015-11-09 19:23:52 +01:00
|
|
|
{0, _} ->
|
2015-10-26 13:10:10 +01:00
|
|
|
?WARNING_MSG("No hard quota specified for ~s",
|
2017-02-26 08:07:12 +01:00
|
|
|
[jid:encode(JID)]),
|
2015-10-26 13:10:10 +01:00
|
|
|
enforce_quota(Path, Size, OldSize, SoftQuota, SoftQuota);
|
2015-11-09 19:23:52 +01:00
|
|
|
{_, 0} ->
|
2015-10-26 13:10:10 +01:00
|
|
|
?WARNING_MSG("No soft quota specified for ~s",
|
2017-02-26 08:07:12 +01:00
|
|
|
[jid:encode(JID)]),
|
2015-10-26 13:10:10 +01:00
|
|
|
enforce_quota(Path, Size, OldSize, HardQuota, HardQuota);
|
2015-11-09 19:23:52 +01:00
|
|
|
_ when SoftQuota > HardQuota ->
|
2015-10-26 13:10:10 +01:00
|
|
|
?WARNING_MSG("Bad quota for ~s (soft: ~p, hard: ~p)",
|
2017-02-26 08:07:12 +01:00
|
|
|
[jid:encode(JID),
|
2015-10-26 13:10:10 +01:00
|
|
|
SoftQuota, HardQuota]),
|
|
|
|
enforce_quota(Path, Size, OldSize, SoftQuota, SoftQuota);
|
2015-11-09 19:23:52 +01:00
|
|
|
_ ->
|
2015-10-26 13:10:10 +01:00
|
|
|
?DEBUG("Enforcing quota for ~s",
|
2017-02-26 08:07:12 +01:00
|
|
|
[jid:encode(JID)]),
|
2015-10-26 13:10:10 +01:00
|
|
|
enforce_quota(Path, Size, OldSize, SoftQuota, HardQuota)
|
|
|
|
end,
|
2015-11-10 22:08:16 +01:00
|
|
|
NewDiskUsage = if is_integer(NewSize) ->
|
2016-01-16 01:30:22 +01:00
|
|
|
maps:put({U, S}, NewSize, DiskUsage);
|
2015-11-10 22:08:16 +01:00
|
|
|
true ->
|
|
|
|
DiskUsage
|
|
|
|
end,
|
|
|
|
{noreply, State#state{disk_usage = NewDiskUsage}};
|
2015-10-26 13:10:10 +01:00
|
|
|
handle_cast(Request, State) ->
|
|
|
|
?ERROR_MSG("Got unexpected request: ~p", [Request]),
|
|
|
|
{noreply, State}.
|
|
|
|
|
|
|
|
-spec handle_info(_, state()) -> {noreply, state()}.
|
|
|
|
|
|
|
|
handle_info(sweep, #state{server_host = ServerHost,
|
|
|
|
docroot = DocRoot,
|
|
|
|
max_days = MaxDays} = State)
|
|
|
|
when is_integer(MaxDays), MaxDays > 0 ->
|
|
|
|
?DEBUG("Got 'sweep' message for ~s", [ServerHost]),
|
|
|
|
case file:list_dir(DocRoot) of
|
2015-11-09 19:23:52 +01:00
|
|
|
{ok, Entries} ->
|
|
|
|
BackThen = secs_since_epoch() - (MaxDays * 86400),
|
|
|
|
DocRootS = binary_to_list(DocRoot),
|
|
|
|
PathNames = lists:map(fun(Entry) ->
|
|
|
|
DocRootS ++ "/" ++ Entry
|
|
|
|
end, Entries),
|
|
|
|
UserDirs = lists:filter(fun filelib:is_dir/1, PathNames),
|
|
|
|
lists:foreach(fun(UserDir) ->
|
|
|
|
delete_old_files(UserDir, BackThen)
|
|
|
|
end, UserDirs);
|
|
|
|
{error, Error} ->
|
|
|
|
?ERROR_MSG("Cannot open document root ~s: ~s",
|
|
|
|
[DocRoot, ?FORMAT(Error)])
|
2015-10-26 13:10:10 +01:00
|
|
|
end,
|
|
|
|
{noreply, State};
|
|
|
|
handle_info(Info, State) ->
|
|
|
|
?ERROR_MSG("Got unexpected info: ~p", [Info]),
|
|
|
|
{noreply, State}.
|
|
|
|
|
2016-04-19 09:15:09 +02:00
|
|
|
-spec terminate(normal | shutdown | {shutdown, _} | _, state()) -> ok.
|
2015-10-26 13:10:10 +01:00
|
|
|
|
|
|
|
terminate(Reason, #state{server_host = ServerHost, timers = Timers}) ->
|
|
|
|
?DEBUG("Stopping upload quota process for ~s: ~p", [ServerHost, Reason]),
|
|
|
|
ejabberd_hooks:delete(http_upload_slot_request, ServerHost, ?MODULE,
|
|
|
|
handle_slot_request, 50),
|
2016-07-27 00:28:47 +02:00
|
|
|
lists:foreach(fun timer:cancel/1, Timers).
|
2015-10-26 13:10:10 +01:00
|
|
|
|
|
|
|
-spec code_change({down, _} | _, state(), _) -> {ok, state()}.
|
|
|
|
|
|
|
|
code_change(_OldVsn, #state{server_host = ServerHost} = State, _Extra) ->
|
|
|
|
?DEBUG("Updating upload quota process for ~s", [ServerHost]),
|
|
|
|
{ok, State}.
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
%% ejabberd_hooks callback.
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
2016-08-12 12:17:42 +02:00
|
|
|
-spec handle_slot_request(allow | deny, jid(), binary(),
|
|
|
|
non_neg_integer(), binary()) -> allow | deny.
|
2015-10-26 13:10:10 +01:00
|
|
|
|
|
|
|
handle_slot_request(allow, #jid{lserver = ServerHost} = JID, Path, Size,
|
|
|
|
_Lang) ->
|
2017-02-14 10:39:26 +01:00
|
|
|
Proc = mod_http_upload:get_proc_name(ServerHost, ?MODULE),
|
2017-02-14 13:39:57 +01:00
|
|
|
gen_server:cast(Proc, {handle_slot_request, JID, Path, Size}),
|
2015-10-26 13:10:10 +01:00
|
|
|
allow;
|
|
|
|
handle_slot_request(Acc, _JID, _Path, _Size, _Lang) -> Acc.
|
|
|
|
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
%% Internal functions.
|
|
|
|
%%--------------------------------------------------------------------
|
|
|
|
|
|
|
|
-spec enforce_quota(file:filename_all(), non_neg_integer(),
|
|
|
|
non_neg_integer() | undefined, non_neg_integer(),
|
|
|
|
non_neg_integer())
|
|
|
|
-> non_neg_integer().
|
|
|
|
|
|
|
|
enforce_quota(_UserDir, SlotSize, OldSize, _MinSize, MaxSize)
|
|
|
|
when is_integer(OldSize), OldSize + SlotSize =< MaxSize ->
|
|
|
|
OldSize + SlotSize;
|
|
|
|
enforce_quota(UserDir, SlotSize, _OldSize, MinSize, MaxSize) ->
|
|
|
|
Files = lists:sort(fun({_PathA, _SizeA, TimeA}, {_PathB, _SizeB, TimeB}) ->
|
|
|
|
TimeA > TimeB
|
|
|
|
end, gather_file_info(UserDir)),
|
|
|
|
{DelFiles, OldSize, NewSize} =
|
|
|
|
lists:foldl(fun({_Path, Size, _Time}, {[], AccSize, AccSize})
|
|
|
|
when AccSize + Size + SlotSize =< MinSize ->
|
|
|
|
{[], AccSize + Size, AccSize + Size};
|
|
|
|
({Path, Size, _Time}, {[], AccSize, AccSize}) ->
|
|
|
|
{[Path], AccSize + Size, AccSize};
|
|
|
|
({Path, Size, _Time}, {AccFiles, AccSize, NewSize}) ->
|
|
|
|
{[Path | AccFiles], AccSize + Size, NewSize}
|
|
|
|
end, {[], 0, 0}, Files),
|
|
|
|
if OldSize + SlotSize > MaxSize ->
|
2016-07-27 00:28:47 +02:00
|
|
|
lists:foreach(fun del_file_and_dir/1, DelFiles),
|
2015-10-26 13:10:10 +01:00
|
|
|
file:del_dir(UserDir), % In case it's empty, now.
|
|
|
|
NewSize + SlotSize;
|
|
|
|
true ->
|
|
|
|
OldSize + SlotSize
|
|
|
|
end.
|
|
|
|
|
|
|
|
-spec delete_old_files(file:filename_all(), integer()) -> ok.
|
|
|
|
|
2015-11-09 19:23:52 +01:00
|
|
|
delete_old_files(UserDir, CutOff) ->
|
2015-10-26 13:10:10 +01:00
|
|
|
FileInfo = gather_file_info(UserDir),
|
2015-11-09 19:23:52 +01:00
|
|
|
case [Path || {Path, _Size, Time} <- FileInfo, Time < CutOff] of
|
|
|
|
[] ->
|
|
|
|
ok;
|
|
|
|
OldFiles ->
|
2016-07-27 00:28:47 +02:00
|
|
|
lists:foreach(fun del_file_and_dir/1, OldFiles),
|
2015-11-09 19:23:52 +01:00
|
|
|
file:del_dir(UserDir) % In case it's empty, now.
|
2015-10-26 13:10:10 +01:00
|
|
|
end.
|
|
|
|
|
|
|
|
-spec gather_file_info(file:filename_all())
|
|
|
|
-> [{binary(), non_neg_integer(), non_neg_integer()}].
|
|
|
|
|
|
|
|
gather_file_info(Dir) when is_binary(Dir) ->
|
|
|
|
gather_file_info(binary_to_list(Dir));
|
|
|
|
gather_file_info(Dir) ->
|
|
|
|
case file:list_dir(Dir) of
|
2015-11-09 19:23:52 +01:00
|
|
|
{ok, Entries} ->
|
|
|
|
lists:foldl(fun(Entry, Acc) ->
|
|
|
|
Path = Dir ++ "/" ++ Entry,
|
|
|
|
case file:read_file_info(Path,
|
|
|
|
[{time, posix}]) of
|
|
|
|
{ok, #file_info{type = directory}} ->
|
|
|
|
gather_file_info(Path) ++ Acc;
|
|
|
|
{ok, #file_info{type = regular,
|
|
|
|
mtime = Time,
|
|
|
|
size = Size}} ->
|
|
|
|
[{Path, Size, Time} | Acc];
|
|
|
|
{ok, _Info} ->
|
|
|
|
?DEBUG("Won't stat(2) non-regular file ~s",
|
|
|
|
[Path]),
|
|
|
|
Acc;
|
|
|
|
{error, Error} ->
|
|
|
|
?ERROR_MSG("Cannot stat(2) ~s: ~s",
|
|
|
|
[Path, ?FORMAT(Error)]),
|
|
|
|
Acc
|
|
|
|
end
|
|
|
|
end, [], Entries);
|
|
|
|
{error, enoent} ->
|
|
|
|
?DEBUG("Directory ~s doesn't exist", [Dir]),
|
|
|
|
[];
|
|
|
|
{error, Error} ->
|
|
|
|
?ERROR_MSG("Cannot open directory ~s: ~s", [Dir, ?FORMAT(Error)]),
|
|
|
|
[]
|
2015-10-26 13:10:10 +01:00
|
|
|
end.
|
|
|
|
|
|
|
|
-spec del_file_and_dir(file:name_all()) -> ok.
|
|
|
|
|
|
|
|
del_file_and_dir(File) ->
|
|
|
|
case file:delete(File) of
|
2015-11-09 19:23:52 +01:00
|
|
|
ok ->
|
|
|
|
?INFO_MSG("Removed ~s", [File]),
|
|
|
|
Dir = filename:dirname(File),
|
|
|
|
case file:del_dir(Dir) of
|
|
|
|
ok ->
|
|
|
|
?DEBUG("Removed ~s", [Dir]);
|
|
|
|
{error, Error} ->
|
|
|
|
?DEBUG("Cannot remove ~s: ~s", [Dir, ?FORMAT(Error)])
|
|
|
|
end;
|
|
|
|
{error, Error} ->
|
|
|
|
?WARNING_MSG("Cannot remove ~s: ~s", [File, ?FORMAT(Error)])
|
2015-10-26 13:10:10 +01:00
|
|
|
end.
|
|
|
|
|
|
|
|
-spec secs_since_epoch() -> non_neg_integer().
|
|
|
|
|
|
|
|
secs_since_epoch() ->
|
|
|
|
{MegaSecs, Secs, _MicroSecs} = os:timestamp(),
|
|
|
|
MegaSecs * 1000000 + Secs.
|