payment: note that Stripe has instituted an additional 1% fee for non-US cards

[hcoop/portal.git] / quota.mlt

<% @header [("title", ["Disk quota change requests"])];

val admin = Group.inGroupName "server";

if $"new" <> "" then
        ref url = "?cmd=request&msg=" ^ Web.urlEncode ($"msg");
	ref changed = false;
	val uname = Init.getUserName ();

	%>Are you sure you want to request these quota changes?
	<ul><%

	foreach vol in Quotas.getQuotas uname do
		val requested = Web.stoi ($(#vol vol));
   		url := url ^ "&" ^ #vol vol ^ "=" ^ Int.toString requested;
		if requested <> #quota vol then
		   changed := true;
		   %><li> Change quota for <% #vol vol %> from <% #quota vol %> to <% requested %>.</li><%
		end
	end;

	%></ul><%
	if changed then %>
	   <a href="<% url %>">Yes, I'm sure!</a>
	<% else %>
	   Hm, no changes!
	<% end
elseif $"cmd" = "request" then
        ref cmds = "";
	val uname = Init.getUserName ();

	foreach vol in Quotas.getQuotas uname do
		val requested = Web.stoi ($(#vol vol));
		if requested <> #quota vol then
     		   cmds := cmds ^ "fs sq " ^ Quotas.path (#vol vol) ^ " " ^ Int.toString requested
		   	^ "\n# Current quota: " ^ Int.toString (#quota vol) ^ "\n"
		end
	end;

	val id = Quota.add (Init.getUserId (), cmds, $"msg");
	if not (Quota.notifyNew id) then
		%><h3>Error sending e-mail notification</h3><%
	end
	%><h3>Request added</h3><%

elseif $"cmd" = "open" then
	%><h3>Open requests</h3>
	<a href="?cmd=list">List all requests</a><%

	foreach (name, req) in Quota.listOpen () do %>
<br><hr><br>
<table class="blanks">
<tr> <td>By:</td> <td><a href="user?id=<% #usr req %>"><% name %></a></td> </tr>
<tr> <td>Time:</td> <td><% #stamp req %> (<% Util.diffFromNow (#stamp req) %> ago)</td> </tr>
<tr> <td>Request:</td> <td><% Web.htmlNl (#data req) %></td> </tr>
<tr> <td>Reason:</td> <td><% Web.html (#msg req) %></td> </tr>
</table>

<% if admin then %>
	<br>
	<a href="?mod=<% #id req %>">[Modify]</a>
	<a href="?del=<% #id req %>">[Delete]</a><br>
<% end %>

<%	end

elseif $"cmd" = "list" then
	%><h3>All requests</h3><%

	foreach (name, req) in Quota.list () do %>
<br><hr><br>
<table class="blanks">
<tr> <td>By:</td> <td><a href="user?id=<% #usr req %>"><% name %></a></td> </tr>
<tr> <td>Time:</td> <td><% #stamp req %> (<% Util.diffFromNow (#stamp req) %> ago)</td> </tr>
<tr> <td>Request:</td> <td><% Web.htmlNl (#data req) %></td> </tr>
<tr> <td>Reason:</td> <td><% Web.html (#msg req) %></td> </tr>
</table>

<% if admin then %>
	<br>
	<a href="?mod=<% #id req %>">[Modify]</a>
	<a href="?del=<% #id req %>">[Delete]</a>
<% end %>

<%	end

elseif $"mod" <> "" then
	Group.requireGroupName "server";
	val id = Web.stoi ($"mod");
	val req = Quota.lookup id;
	val user = Init.lookupUser (#usr req) %>
<h3>Handle request</h3>

<form method="post">
<input type="hidden" name="save" value="<% id %>">
<table class="blanks">
<tr> <td>Requestor:</td> <td><a href="user?id=<% #usr req %>"><% #name user %></a></td> </tr>
<tr> <td>Time:</td> <td><% #stamp req %> (<% Util.diffFromNow (#stamp req) %> ago)</td> </tr>
<tr> <td>Status:</td> <td><select name="status">
	<option value="0"<% if #status req = Quota.NEW then %> selected<% end %>>New</option>
	<option value="1"<% if #status req = Quota.INSTALLED then %> selected<% end %>>Installed</option>
	<option value="2"<% if #status req = Quota.REJECTED then %> selected<% end %>>Rejected</option>
</select></td> </tr>
<tr> <td>Request:</td> <td><input name="req" size="60" value="<% Web.html (#data req) %>"></td> </tr>
<tr> <td>Message:</td> <td><textarea name="msg" rows="10" cols="80" wrap="soft"><% Web.html (#msg req) %></textarea></td> </tr>
<tr> <td><input type="submit" value="Save"></td> </tr>
</table>
</form>

<% elseif $"save" <> "" then
	Group.requireGroupName "server";
	val id = Web.stoi ($"save");
	val req = Quota.lookup id;
	val oldStatus = #status req;
	val newStatus = Quota.statusFromInt (Web.stoi ($"status"));
	Quota.modify {req with data = $"req", msg = $"msg", status = newStatus};
	if not (Quota.notifyMod (oldStatus, newStatus, Init.getUserName(), id)) then
		%><h3>Error sending e-mail notification</h3><%
	end
	%><h3>Request modified</h3>
	Back to: <a href="?cmd=open">open requests</a>, <a href="?cmd=list">all requests</a>

<% elseif $"del" <> "" then
	Group.requireGroupName "server";
	val id = Web.stoi ($"del");
	val req = Quota.lookup id;
	val user = Init.lookupUser (#usr req)
	%><h3>Are you sure you want to delete request by <% #name user %> for <tt><% #data req %></tt>?</h3>
	<a href="?del2=<% id %>">Yes, I'm sure!</a>

<% elseif $"del2" <> "" then
	Group.requireGroupName "server";
	val id = Web.stoi ($"del2");
	Quota.delete id
	%><h3>Request deleted</b><h3>
	Back to: <a href="?cmd=open">open requests</a>, <a href="?cmd=list">all requests</a>

<% else %>

<h3>Request a disk quota change</h3>

<p>Remember that a high quota does not by itself use up any resources.  Quotas are solely a check on unintentional overusage.  We don't yet have any concrete policies to charge members based on disk usage, and, if we do implement such policies, you'll be charged only on actual disk usage, not quota.</p>

<form method="post">

<table>
  <tr> <th>Volume</th> <th>Used</th> <th>Current Quota</th> <th>Requested Quota (kB)</th> </tr>
<% foreach vol in Quotas.getQuotas (Init.getUserName ()) do %>
   <tr> <td><% #vol vol %></td> <td><% #used vol %> kB (<% (#used vol) / 1024 %> MiB)</td> <td><% #quota vol %> kB (<% (# quota vol) / 1024 %> MiB)</td>
   <td><input name="<% #vol vol %>" value="<% #quota vol %>" pattern="\\d+"></td> </tr>
<% end %>
</table>

<input type="hidden" name="new" value="1">
<table class="blanks">
<tr> <td>Additional comments:</td> <td><textarea name="msg" rows="5" cols="80" wrap="soft"></textarea></td> </tr>
<tr> <td><input type="submit" value="Request"></td> </tr>
</table>
</form>

<% end %>

<% @footer[] %>