2 rcs_id('$Id: WikiAdminSetAcl.php,v 1.4 2004-03-17 20:23:44 rurban Exp $');
4 Copyright 2004 $ThePhpWikiProgrammingTeam
6 This file is not yet part of PhpWiki. It does not work yet.
8 PhpWiki is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 PhpWiki is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with PhpWiki; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24 * Set individual PagePermissions
26 * Usage: <?plugin WikiAdminSetAcl ?> or called via WikiAdminSelect
27 * Author: Reini Urban <rurban@x-ray.at>
30 * Currently we must be Admin. Later we use PagePermissions authorization.
31 * (require_authority_for_post' => WIKIAUTH_ADMIN)
32 * Requires PHP 4.2 so far.
34 require_once('lib/PageList.php');
35 require_once('lib/plugin/WikiAdminSelect.php');
37 class WikiPlugin_WikiAdminSetAcl
38 extends WikiPlugin_WikiAdminSelect
41 return _("WikiAdminSetAcl");
44 function getDescription() {
45 return _("Set individual page permissions.");
48 function getVersion() {
49 return preg_replace("/[Revision: $]/", '',
53 function getDefaultArguments() {
57 /* Pages to exclude in listing */
59 /* Columns to include in listing */
60 'info' => 'pagename,perm,owner,group,mtime,author',
62 'sortby' => 'pagename',
67 function setaclPages(&$dbi, &$request, $pages, $acl) {
70 if ($perm = new PagePermission($acl)) {
71 foreach ($pages as $name) {
72 if ( $perm->store($dbi->getPage($name)) ) {
73 /* not yet implemented for all backends */
74 $ul->pushContent(HTML::li(fmt("set acl for page '%s'.",$name)));
77 $ul->pushContent(HTML::li(fmt("Couldn't setacl page '%s'.", $name)));
81 $ul->pushContent(HTML::li(fmt("Invalid acl")));
86 HTML::p(fmt("%s pages have been changed.",$count)));
89 HTML::p(fmt("No pages changed.")));
93 function run($dbi, $argstr, &$request, $basepage) {
95 return $this->disabled("WikiAdminSetAcl not yet enabled. Set DEBUG to try it.");
97 $args = $this->getArgs($argstr, $request);
99 if (!empty($args['exclude']))
100 $exclude = explodePageList($args['exclude']);
104 $p = $request->getArg('p');
105 $post_args = $request->getArg('admin_setacl');
106 $next_action = 'select';
108 if ($p && !$request->isPost())
110 if ($p && $request->isPost() &&
111 !empty($post_args['acl']) && empty($post_args['cancel'])) {
113 // FIXME: check individual PagePermissions
114 if (!$request->_user->isAdmin()) {
115 $request->_notAuthorized(WIKIAUTH_ADMIN);
116 $this->disabled("! user->isAdmin");
119 if ($post_args['action'] == 'verify') {
121 return $this->setaclPages($dbi, $request, array_keys($p),
124 if ($post_args['action'] == 'select') {
125 if (!empty($post_args['acl']))
126 $next_action = 'verify';
127 foreach ($p as $name => $c) {
132 if ($next_action == 'select' and empty($pages)) {
133 // List all pages to select from.
134 $pages = $this->collectPages($pages, $dbi, $args['sortby'], $args['limit']);
136 if ($next_action == 'verify') {
137 $args['info'] = "checkbox,pagename,perm,owner,group,mtime,author";
139 $pagelist = new PageList_Selectable($args['info'], $exclude);
140 $pagelist->addPageList($pages);
143 if ($next_action == 'verify') {
144 $button_label = _("Yes");
145 $header = $this->setaclForm($header, $post_args, $pages);
146 $header->pushContent(
147 HTML::p(HTML::strong(
148 _("Are you sure you want to permanently change the selected files?"))));
151 $button_label = _("SetAcl");
152 $header = $this->setaclForm($header, $post_args, $pages);
153 $header->pushContent(HTML::p(_("Select the pages to change:")));
156 $buttons = HTML::p(Button('submit:admin_setacl[acl]', $button_label, 'wikiadmin'),
157 Button('submit:admin_setacl[cancel]', _("Cancel"), 'button'));
159 return HTML::form(array('action' => $request->getPostURL(),
162 $pagelist->getContent(),
163 HiddenInputs($request->getArgs(),
165 array('admin_setacl')),
166 HiddenInputs(array('admin_setacl[action]' => $next_action,
167 'require_authority_for_post' => WIKIAUTH_ADMIN)),
171 function setaclForm(&$header, $post_args, $pagehash) {
172 $acl = $post_args['acl'];
173 $header->pushContent(HTML::p(HTML::em(_("This plugin is currently under development and does not work!"))));
174 //todo: find intersection of all page perms
176 foreach ($pagehash as $name => $checked) {
177 if ($checked) $pages[] = $name;
179 $perm_tree = pagePermissions($pagename);
180 $table = pagePermissionsAclFormat($perm_tree,true);
181 $header->pushContent(HTML::p(fmt("Pages: %s",join(',',$pages))));
182 $type = $perm_tree[0];
183 if ($type == 'inherited')
184 $type = sprintf(_("page permission inherited from %s"),$perm_tree[1][0]);
185 elseif ($type == 'page')
186 $type = _("invidual page permission");
187 elseif ($type == 'default')
188 $type = _("default page permission");
189 $header->pushContent(HTML::p(_("Type: "),$type));
190 $header->pushContent(HTML::blockquote($table));
192 // display array of checkboxes for existing perms
193 // and a dropdown for user/group to add perms.
194 // disabled if inherited,
195 // checkbox to disable inheritance,
196 // another checkbox to progate new permissions to all childs (if there exist some)
197 // warn if more pages are selected and they have different perms
198 //$header->pushContent(HTML::input(array('name' => 'admin_setacl[acl]',
199 // 'value' => $post_args['acl'])));
200 $header->pushContent(HTML::br());
201 $checkbox = HTML::input(array('type' => 'checkbox',
202 'name' => 'admin_setacl[updatechildren]',
204 if ($post_args['updatechildren']) $checkbox->setAttr('checked','checked');
205 $header->pushContent($checkbox,
206 _("Propagate new permissions to all subpages?"),
207 HTML::raw(" "),
208 HTML::em(_("(disable individual page permissions, enable inheritance)?")));
209 $header->pushContent(HTML::hr(),HTML::p());
215 // $Log: not supported by cvs2svn $
216 // Revision 1.3 2004/03/12 13:31:43 rurban
217 // enforce PagePermissions, errormsg if not Admin
219 // Revision 1.2 2004/02/24 04:02:07 rurban
220 // Better warning messages
222 // Revision 1.1 2004/02/23 21:30:25 rurban
223 // more PagePerm stuff: (working against 1.4.0)
224 // ACL editing and simplification of ACL's to simple rwx------ string
233 // c-hanging-comment-ender-p: nil
234 // indent-tabs-mode: nil