Commit | Line | Data |
---|---|---|
6704531c AC |
1 | <% @header [("title", ["Disk quota change requests"])]; |
2 | ||
3 | val admin = Group.inGroupName "server"; | |
4 | ||
5 | if $"new" <> "" then | |
6 | ref url = "?cmd=request&msg=" ^ Web.urlEncode ($"msg"); | |
7 | ref changed = false; | |
8 | val uname = Init.getUserName (); | |
9 | ||
10 | %>Are you sure you want to request these quota changes? | |
11 | <ul><% | |
12 | ||
13 | foreach vol in Quotas.getQuotas uname do | |
14 | val requested = Web.stoi ($(#vol vol)); | |
15 | url := url ^ "&" ^ #vol vol ^ "=" ^ Int.toString requested; | |
16 | if requested <> #quota vol then | |
17 | changed := true; | |
18 | %><li> Change quota for <% #vol vol %> from <% #quota vol %> to <% requested %>.</li><% | |
19 | end | |
20 | end; | |
21 | ||
22 | %></ul><% | |
23 | if changed then %> | |
24 | <a href="<% url %>">Yes, I'm sure!</a> | |
25 | <% else %> | |
26 | Hm, no changes! | |
27 | <% end | |
28 | elseif $"cmd" = "request" then | |
29 | ref cmds = ""; | |
30 | val uname = Init.getUserName (); | |
31 | ||
32 | foreach vol in Quotas.getQuotas uname do | |
33 | val requested = Web.stoi ($(#vol vol)); | |
34 | if requested <> #quota vol then | |
35 | cmds := cmds ^ "fs sq " ^ Quotas.path (#vol vol) ^ " " ^ Int.toString requested | |
36 | ^ "\n# Current quota: " ^ Int.toString (#quota vol) ^ "\n" | |
37 | end | |
38 | end; | |
39 | ||
40 | val id = Quota.add (Init.getUserId (), cmds, $"msg"); | |
41 | if not (Quota.notifyNew id) then | |
42 | %><h3>Error sending e-mail notification</h3><% | |
43 | end | |
44 | %><h3>Request added</h3><% | |
45 | ||
46 | elseif $"cmd" = "open" then | |
47 | %><h3>Open requests</h3> | |
48 | <a href="?cmd=list">List all requests</a><% | |
49 | ||
50 | foreach (name, req) in Quota.listOpen () do %> | |
51 | <br><hr><br> | |
52 | <table class="blanks"> | |
53 | <tr> <td>By:</td> <td><a href="user?id=<% #usr req %>"><% name %></a></td> </tr> | |
54 | <tr> <td>Time:</td> <td><% #stamp req %></td> </tr> | |
55 | <tr> <td>Request:</td> <td><% Web.htmlNl (#data req) %></td> </tr> | |
56 | <tr> <td>Reason:</td> <td><% Web.html (#msg req) %></td> </tr> | |
57 | </table> | |
58 | ||
59 | <% if admin then %> | |
60 | <br> | |
61 | <a href="?mod=<% #id req %>">[Modify]</a> | |
62 | <a href="?del=<% #id req %>">[Delete]</a><br> | |
63 | <% end %> | |
64 | ||
65 | <% end | |
66 | ||
67 | elseif $"cmd" = "list" then | |
68 | %><h3>All requests</h3><% | |
69 | ||
70 | foreach (name, req) in Quota.list () do %> | |
71 | <br><hr><br> | |
72 | <table class="blanks"> | |
73 | <tr> <td>By:</td> <td><a href="user?id=<% #usr req %>"><% name %></a></td> </tr> | |
74 | <tr> <td>Time:</td> <td><% #stamp req %></td> </tr> | |
75 | <tr> <td>Request:</td> <td><% Web.htmlNl (#data req) %></td> </tr> | |
76 | <tr> <td>Reason:</td> <td><% Web.html (#msg req) %></td> </tr> | |
77 | </table> | |
78 | ||
79 | <% if admin then %> | |
80 | <br> | |
81 | <a href="?mod=<% #id req %>">[Modify]</a> | |
82 | <a href="?del=<% #id req %>">[Delete]</a> | |
83 | <% end %> | |
84 | ||
85 | <% end | |
86 | ||
87 | elseif $"mod" <> "" then | |
88 | Group.requireGroupName "server"; | |
89 | val id = Web.stoi ($"mod"); | |
90 | val req = Quota.lookup id; | |
91 | val user = Init.lookupUser (#usr req) %> | |
92 | <h3>Handle request</h3> | |
93 | ||
94 | <form method="post"> | |
95 | <input type="hidden" name="save" value="<% id %>"> | |
96 | <table class="blanks"> | |
97 | <tr> <td>Requestor:</td> <td><a href="user?id=<% #usr req %>"><% #name user %></a></td> </tr> | |
98 | <tr> <td>Time:</td> <td><% #stamp req %></td> </tr> | |
99 | <tr> <td>Status:</td> <td><select name="status"> | |
100 | <option value="0"<% if #status req = Quota.NEW then %> selected<% end %>>New</option> | |
101 | <option value="1"<% if #status req = Quota.INSTALLED then %> selected<% end %>>Installed</option> | |
102 | <option value="2"<% if #status req = Quota.REJECTED then %> selected<% end %>>Rejected</option> | |
103 | </select></td> </tr> | |
104 | <tr> <td>Request:</td> <td><input name="req" size="60" value="<% Web.html (#data req) %>"></td> </tr> | |
105 | <tr> <td>Message:</td> <td><textarea name="msg" rows="10" cols="80" wrap="soft"><% Web.html (#msg req) %></textarea></td> </tr> | |
106 | <tr> <td><input type="submit" value="Save"></td> </tr> | |
107 | </table> | |
108 | </form> | |
109 | ||
110 | <% elseif $"save" <> "" then | |
111 | Group.requireGroupName "server"; | |
112 | val id = Web.stoi ($"save"); | |
113 | val req = Quota.lookup id; | |
114 | val oldStatus = #status req; | |
115 | val newStatus = Quota.statusFromInt (Web.stoi ($"status")); | |
116 | Quota.modify {req with data = $"req", msg = $"msg", status = newStatus}; | |
117 | if oldStatus <> newStatus then | |
118 | if not (Quota.notifyMod (oldStatus, newStatus, Init.getUserName(), id)) then | |
119 | %><h3>Error sending e-mail notification</h3><% | |
120 | end | |
121 | end | |
122 | %><h3>Request modified</h3> | |
123 | Back to: <a href="?cmd=open">open requests</a>, <a href="?cmd=list">all requests</a> | |
124 | ||
125 | <% elseif $"del" <> "" then | |
126 | Group.requireGroupName "server"; | |
127 | val id = Web.stoi ($"del"); | |
128 | val req = Quota.lookup id; | |
129 | val user = Init.lookupUser (#usr req) | |
130 | %><h3>Are you sure you want to delete request by <% #name user %> for <tt><% #data req %></tt>?</h3> | |
131 | <a href="?del2=<% id %>">Yes, I'm sure!</a> | |
132 | ||
133 | <% elseif $"del2" <> "" then | |
134 | Group.requireGroupName "server"; | |
135 | val id = Web.stoi ($"del2"); | |
136 | Quota.delete id | |
137 | %><h3>Request deleted</b><h3> | |
138 | Back to: <a href="?cmd=open">open requests</a>, <a href="?cmd=list">all requests</a> | |
139 | ||
140 | <% else %> | |
141 | ||
142 | <h3>Request a disk quota change</h3> | |
143 | ||
144 | <form method="post"> | |
145 | ||
146 | <table> | |
147 | <tr> <th>Volume</th> <th>Used (kB)</th> <th>Quota now (kB)</th> <th>Requested quota (kB)</th> </tr> | |
148 | <% foreach vol in Quotas.getQuotas (Init.getUserName ()) do %> | |
149 | <tr> <td><% #vol vol %></td> <td><% #used vol %></td> <td><% #quota vol %></td> | |
150 | <td><input name="<% #vol vol %>" value="<% #quota vol %>"></td> </tr> | |
151 | <% end %> | |
152 | </table> | |
153 | ||
154 | <input type="hidden" name="new" value="1"> | |
155 | <table class="blanks"> | |
156 | <tr> <td>Additional comments:</td> <td><textarea name="msg" rows="5" cols="80" wrap="soft"></textarea></td> </tr> | |
157 | <tr> <td><input type="submit" value="Request"></td> </tr> | |
158 | </table> | |
159 | </form> | |
160 | ||
161 | <% end %> | |
162 | ||
163 | <% @footer[] %> |