# Copyright (c) 2006-2010 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: WikiName.bunit,v 1.11 2010/04/03 17:25:00 nagler Exp $ Type(); [ class() => [ from_literal => [ '' => [undef, undef], MixedCase => 'MixedCase', MiC => 'MiC', Mi9C => 'Mi9C', M9iC => 'M9iC', MiC9 => 'MiC9', MIC9 => 'MIC9', MIC_9 => 'MIC_9', 'MIC 9' => 'MIC_9', 'MIC9;1' => 'MIC9;1', 'MIC9;0.1' => 'MIC9;0.1', '20090502030303' => '20090502030303', 'Sub/Folder' => 'Sub/Folder', # This is the behavior documented in BlogFileName.bunit, # but I'm not sure it's right '/Sub/Folder' => 'Sub/Folder', # This one is behavior that FilePath supports. 'Sub/' => 'Sub', '.' => WIKI_NAME(), ' ' => WIKI_NAME(), '_' => WIKI_NAME(), '^a' => WIKI_NAME(), ], to_absolute => [ [undef] => '/Wiki', 'a' => '/Wiki/a', 'Sub1/b' => '/Wiki/Sub1/b', '' => '/Wiki', [qw(a 1)] => '/Public/Wiki/a', [qw(a;1 1)] => '/Archived/Public/Wiki/a;1', [qw(Dir2/b;1 1)] => '/Archived/Public/Wiki/Dir2/b;1', ], is_absolute => [ [undef] => 0, '/Wiki/StartPage' => 1, '/wiki/StartPage' => 1, '/Wiki/' => 0, '/Wiki/AAA' => 1, '/Wiki/^' => 0, ], from_absolute => [ '/Wiki/StartPage' => 'StartPage', '/Wiki/Dir/b' => 'Dir/b', ], title_to_help => [ 'Foo Bar' => 'Foo_Bar_Help', ], ], ];