Labyrinth
view release on metacpan or search on metacpan
5.18 2013-10-13- removed Crypt::RandPasswd from prerequisites.- added ResizeDimensionsfordisplaying images (Media).5.17 2013-05-03- fixed � style entities (MLUtils).- added Filters.pm a DFV pluginforadditional parameter validation.- fixed missing pre-requisite, Session::Token.5.16 2013-04-28- post-processing XHTML contentbeforewriting out is now optional,defaultisnopost-processing. Use'parsehtml'config setting(Writer).- new'parsetest'configuration setting to allow tests to determinedifferences between original and post-processed content (Writer).- added DumpToFileforparsetest functionality (Audit).- fixed url validation (Variables).- improvements to post-processing content (MLUtils).- Enabled phrasebook caching to reduce disk I/O (Phrasebook).- switched from Crypt::RandPasswd to Session::Tokenforpasswordgenerationforspeed and efficiency (Users).
- moved SetLogFile into Globals and allowed more settings.- added titles to links,withthe ability to provide user mappings.5.08 2011-06-19- documentation updates.- added url mappingforMetaCloud links.- fixesforGetImageSize.5.07 2011-06-19- added GetImageSize & GetGravatar to Media.pm.- added a cleanup of erroneous XHTML patterns in MLUtils.pm.- store error messageifopening mailpipefails in Mailer.pm.5.06 2011-05-19- abstracted input CGI to Labyrinth::Query::CGI.- abstracted output CGI to Labyrinth::Writer::Render::CGI.- abstracted template parser to Labyrinth::Writer::Parser::TT.- all above in order to allow PSGI packages and other template parsersto be used.- documentation updates.
- comments can be ignored or removed in MLUtils.-'#'is valid in a URL.-'noscript'added to the list of valid tags.- defaults applied to'who'whensaving IPs.- added UserID lookup in Users.4.16 2009-03-06- fixed DTUtils.pm undefined error.- simplified Metadata searches and combined photo/page searches intoa single table using nested selects- updated MLUtils.pmwithnew XHTML compatibility fixes.- removed unused Exporter references from several modules.- reduced unncessary function calls- reduced unncessary database calls- added protectionforbad image calls (IMDriver.pm/GDDriver.pm)- moved Plugins management to Plugins.pm- remove whitespacebefore</p> in MLUtils.pm- added demoroniser code to MLUtils.pm4.15 2008-05-31
- added more entries to%safe_tags(MLUtils.pm)- improved Metadata.pm interfaces- removedlastremaining forum references4.05 2007-03-08- lots of fixes!4.04 2007-02-21- created Variables.pm to stop cyclic dependency, simplifying Globals.pmin the process.- improved Writer.pm so valid XHTML is correctly parsed out.- as a result of the above extended MLUtils.pm and fixed severalhidden content bugs in the templates.- Croak moved to Writer.pm as it's a better fit in the chain.- removed unnecessary references to Globals.pm, Session.pm & Specific.pm-SafeHTML=> CleanTags in several plugins.-undefbody bugfix to images in paragraphs (Articles.pm)- initialise event types (Events.pm)4.03 2007-02-04
lib/Labyrinth/Groups.pm view on Meta::CPAN
Checks whether the specified user (or current user) is in the specified groupReturns 1iftrue, otherwise 0forfalse.=item UserGroups()For the current user login, return the list of groups they are associated with.=item GroupSelect([$opt])Provides the XHTML code for a single select dropdown box. Pass the id of agroup to pre-select that group.=item GroupSelectMulti([$opt[,$rows]])Provides the XHTML code for a multiple select dropdown box. Pass the group idor an arrayref to a list of group ids to pre-select those groups. By defaultthe number of rows displayed is 5, although this can be changed by passing thenumber of rows you require.=cutsubGetGroupID {my$name=shift||return;my@rows=$dbi->GetQuery('array','GetGroupID',$name);returnunless(@rows);
lib/Labyrinth/MLUtils.pm view on Meta::CPAN
=item CleanLinkAttempts to remove known spam style links.=item CleanWordsAttempts to remove known profanity words.=item LinkTitlesGiven a XHTML snippet, will look for basic links and add title attributes.Titles are of rhe format 'External Site: $domain', where $domain is the domainused in the link.=back=cutsubLegalTag {my$tag=lcshift;
lib/Labyrinth/MLUtils.pm view on Meta::CPAN
%closetag_is_dependent %force_closetag %transpose_tag$convert_nl %auto_deinterleave $auto_deinterleave_pattern);# check the validity of a URL.subprocess_html {my($text,$line_breaks,$allow_html) =@_;# cleanup erroneous XHTML patternsif($text) {$text=~ s!</pre><pre>!<br />!gsi;$text=~ s!<ul>\s*<br />!<ul>!gsi;$text=~ s!<br />\s*</ul>!</ul>!gsi;$text=~ s!<ul>\s*</ul>!!gsi;$text=~ s!<ol>\s*</ol>!!gsi;}# clean text of any nasties#$text =~ s/[\x201A\x2018\x2019`]/'/g; # nasty single quotes
lib/Labyrinth/MLUtils.pm view on Meta::CPAN
return$_;}subcleanup_tag {my($tag,$attrs) =@_;unless(exists$safe_tags->{$tag}) {return'';}# for XHTML conformity$tag=$transpose_tag{$tag}if($transpose_tag{$tag});my$html='';if($force_closetag{$tag}) {while(scalar@stackand$force_closetag{$tag}{$stack[0]{NAME}}) {$html= cleanup_close($stack[0]{NAME});}}my$t=$safe_tags->{$tag};
lib/Labyrinth/MLUtils.pm view on Meta::CPAN
unshift@stack, {NAME=>$tag,FULL=>$full};$str="$html$full";}#LogDebug("cleanup_tag: str=$str");return$str;}subcleanup_close {my$tag=shift;# for XHTML conformity$tag=$transpose_tag{$tag}if($transpose_tag{$tag});# Ignore a close without an openunless(grep{$_->{NAME} eq$tag}@stack) {return'';}# Close open tags up to the matching openmy@close= ();while(scalar@stackand$stack[0]{NAME} ne$tag) {
lib/Labyrinth/Media.pm view on Meta::CPAN
=item StockPathReturn the path for the given stock id.=item StockTypeReturn the stock id for the given stock code.=item StockSelectReturns an XHTML snippet for a dropdown selection box of stock entries.=item PathMove=back=cutsubStockName {my$stock=shift|| 1;_init_stock()unless(%stock);
lib/Labyrinth/Metadata.pm view on Meta::CPAN
=item MetaSaveRecords the metadata with the given sqlkey for the name record id.=item MetaGetGets the metadata for the given id.=item MetaCloudReturns the XHTML snippet to display a Metadata Tag Cloud.=item MetaTagsReturns the list of tags attributed to a entry type and section ids.=back=cutsubMetaSearch {
lib/Labyrinth/Support.pm view on Meta::CPAN
=head1 FUNCTIONS=over 4=item PublishStateReturns the name of the current publish state, given the numeric state.=item PublishSelectProvides a dropdown selection box, as a XHTML code snippet, of the currentlyavailable publishing states.=item PublishActionProvides a dropdown selection box, as a XHTML code snippet, of the currentlyaccessible publishing states.=cutmy%publishstates= (1=> {Action=>'Draft',State=>'Draft'},2=> {Action=>'Submit',State=>'Submitted'},3=> {Action=>'Publish',State=>'Published'},4=> {Action=>'Archive',State=>'Archived'},);
lib/Labyrinth/Support.pm view on Meta::CPAN
=item AlignNameReturns the name of the given alignment type, defaults to 'none'.=item AlignClassReturns the class of the given alignment type, defaults to 'nail'.=item AlignSelectProvides a dropdown selection box, as a XHTML code snippet, of the currentlyavailable alignment states.=cutsubAlignName {my$opt=shift|| 1;return$alignments{$opt}->{name};}subAlignClass {
lib/Labyrinth/Support.pm view on Meta::CPAN
Default permission level is ADMIN. Returns 1ifpermission is granted, 0otherwise.=item AccessGroupReturns whether the current user has access to the given group. Returns 1 ifyes, 0 otherwise.=item AccessSelectProvides a dropdown selection box, as a XHTML code snippet, of the currentlyavailable access states.=item AccessAllFoldersReturn list of folders current user has access to.=item AccessAllAreasReturn list of areas current user has access to.
lib/Labyrinth/Support.pm view on Meta::CPAN
my@areas=map{"'$_->[0]'"}@rows;returnjoin(',',@areas);}=item RealmCheckChecks whether the given realm is known within the system.=item RealmSelectProvides a dropdown selection box, as a XHTML code snippet, of the currentlyavailable realms.=item RealmNameReturns the name of a realm, given a realm id.=item RealmIDReturns the id of a realm, given a realm name.
lib/Labyrinth/Support.pm view on Meta::CPAN
=item FolderIDReturns the folder id, given the folder name.=item FolderNameReturns the name of a folder, given a folder id.=item FolderSelectProvides a dropdown selection box, as a XHTML code snippet, of the currentlyavailable folders.=cutsubProfileSelect {my$opt=shift|| 0;my$name=shift||'profile';LoadProfiles();my@rows=map{ {profile=>$_} }sortgrep{$_ne$settings{profiles}{default} }keys%{$settings{profiles}{profiles}};unshift@rows, {profile=>$settings{profiles}{default} }if($settings{profiles}{default});
lib/Labyrinth/Support.pm view on Meta::CPAN
subFolderSelect {my$opt=shift|| 0;my$name=shift||'folderid';my@rows=$dbi->GetQuery('hash','AllFolders');DropDownRows($opt,$name,'folderid','foldername',@rows);}=item AreaSelectProvides a dropdown selection box, as a XHTML code snippet, of the currentlyavailable areas.=cutsubAreaSelect {my$opt=shift;my@rows=$dbi->GetQuery('hash','AllAreas');DropDownRows($opt,'area','areaid','title',@rows);}
lib/Labyrinth/Users.pm view on Meta::CPAN
return3;}=head1 ADMIN INTERFACE METHODS=over 4=item UserSelectProvides a dropdown selection box, as a XHTML code snippet, of the currentlylisted users.By default only users listed as searchable are listed.=back=cutsubUserSelect {my$opt=shift;
( run in 1.759 second using v1.01-cache-2.11-cpan-95122f20152 )