# Copyright (c) 2008 bivio Software, Inc. All Rights Reserved. # # Visit http://www.bivio.biz for more info. # # This library is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation; either version 2.1 of the # License, or (at your option) any later version. # # This library 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 # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; If not, you may get a copy from: # http://www.opensource.org/licenses/lgpl-license.html # # $Id: WikiDataName.bunit,v 1.2 2009/04/18 00:52:11 nagler Exp $ Type(); [ { method => 'format_uri', compute_params => sub { my(undef, $params) = @_; req()->set_realm(shift(@$params)); req()->initialize_fully(shift(@$params)); return [shift(@$params), { req => req(), task_id => req('task_id'), realm_name => req('auth_realm')->is_general ? undef : req(qw(auth_realm owner_name)), is_public => 0, }]; }, } => [ [undef, qw(SITE_WIKI_VIEW zz)] => qr{^/\w+/zz$}, [qw(fourem FORUM_WIKI_VIEW zz)] => qr{^/fourem/\w+/zz$}, ], ];