Permalink
Browse files

CGI & TT abstraction

  • Loading branch information...
barbie committed May 13, 2011
1 parent 4431d01 commit 8ce2beb57588fb4ce3a4b05896cc63f0c5140ff2
View
@@ -1,5 +1,12 @@
Changes for the Labyrinth Core
+5.06 current
+ - 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 parsers
+ to be used.
+
5.05 11/04/2011
- fixes and code cleaning from CPAN Testers Blog site.
View
@@ -23,13 +23,16 @@ lib/Labyrinth/Metadata.pm
lib/Labyrinth/Phrasebook.pm
lib/Labyrinth/Plugin/Base.pm
lib/Labyrinth/Plugins.pm
+lib/Labyrinth/Query/CGI.pm
lib/Labyrinth/RSS.pm
lib/Labyrinth/Request.pm
lib/Labyrinth/Session.pm
lib/Labyrinth/Support.pm
lib/Labyrinth/Users.pm
lib/Labyrinth/Variables.pm
lib/Labyrinth/Writer.pm
+lib/Labyrinth/Writer/Parser/TT.pm
+lib/Labyrinth/Writer/Render/CGI.pm
README
t/00use.t
t/90podtest.t
View
@@ -1,6 +1,6 @@
{
"name": "Labyrinth",
- "version": "5.05",
+ "version": "5.06",
"abstract": "Labyrinth Website Management Framework",
"author": [
"Barbie (BARBIE) <barbie@cpan.org>"
@@ -79,111 +79,123 @@
"provides": {
"Labyrinth": {
"file": "lib/Labyrinth.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Audit": {
"file": "lib/Labyrinth/Audit.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Constraints": {
"file": "lib/Labyrinth/Constraints.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Constraints::Emails": {
"file": "lib/Labyrinth/Constraints/Emails.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::CookieLib": {
"file": "lib/Labyrinth/CookieLib.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::DBUtils": {
"file": "lib/Labyrinth/DBUtils.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::DIUtils": {
"file": "lib/Labyrinth/DIUtils.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::DIUtils::Base": {
"file": "lib/Labyrinth/DIUtils/Base.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::DTUtils": {
"file": "lib/Labyrinth/DTUtils.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Globals": {
"file": "lib/Labyrinth/Globals.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Groups": {
"file": "lib/Labyrinth/Groups.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::IPAddr": {
"file": "lib/Labyrinth/IPAddr.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Inbox": {
"file": "lib/Labyrinth/Inbox.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::MLUtils": {
"file": "lib/Labyrinth/MLUtils.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Mailer": {
"file": "lib/Labyrinth/Mailer.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Media": {
"file": "lib/Labyrinth/Media.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Metadata": {
"file": "lib/Labyrinth/Metadata.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Phrasebook": {
"file": "lib/Labyrinth/Phrasebook.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Plugin::Base": {
"file": "lib/Labyrinth/Plugin/Base.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Plugins": {
"file": "lib/Labyrinth/Plugins.pm",
- "version": "5.05"
+ "version": "5.06"
+ },
+ "Labyrinth::Query::CGI": {
+ "file": "lib/Labyrinth/Query/CGI.pm",
+ "version": "5.06"
},
"Labyrinth::RSS": {
"file": "lib/Labyrinth/RSS.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Request": {
"file": "lib/Labyrinth/Request.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Session": {
"file": "lib/Labyrinth/Session.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Support": {
"file": "lib/Labyrinth/Support.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Users": {
"file": "lib/Labyrinth/Users.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Variables": {
"file": "lib/Labyrinth/Variables.pm",
- "version": "5.05"
+ "version": "5.06"
},
"Labyrinth::Writer": {
"file": "lib/Labyrinth/Writer.pm",
- "version": "5.05"
+ "version": "5.06"
+ },
+ "Labyrinth::Writer::Parser::TT": {
+ "file": "lib/Labyrinth/Writer/Parser/TT.pm",
+ "version": "5.06"
+ },
+ "Labyrinth::Writer::Render::CGI": {
+ "file": "lib/Labyrinth/Writer/Render/CGI.pm",
+ "version": "5.06"
}
},
"no_index": {
View
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Labyrinth
-version: 5.05
+version: 5.06
abstract: Labyrinth Website Management Framework
author:
- Barbie <barbie@cpan.org>
@@ -60,85 +60,94 @@ build_requires:
provides:
Labyrinth:
file: lib/Labyrinth.pm
- version: 5.05
+ version: 5.06
Labyrinth::Audit:
file: lib/Labyrinth/Audit.pm
- version: 5.05
+ version: 5.06
Labyrinth::Constraints:
file: lib/Labyrinth/Constraints.pm
- version: 5.05
+ version: 5.06
Labyrinth::Constraints::Emails:
file: lib/Labyrinth/Constraints/Emails.pm
- version: 5.05
+ version: 5.06
Labyrinth::CookieLib:
file: lib/Labyrinth/CookieLib.pm
- version: 5.05
+ version: 5.06
Labyrinth::DBUtils:
file: lib/Labyrinth/DBUtils.pm
- version: 5.05
+ version: 5.06
Labyrinth::DIUtils:
file: lib/Labyrinth/DIUtils.pm
- version: 5.05
+ version: 5.06
Labyrinth::DIUtils::Base:
file: lib/Labyrinth/DIUtils/Base.pm
- version: 5.05
+ version: 5.06
Labyrinth::DTUtils:
file: lib/Labyrinth/DTUtils.pm
- version: 5.05
+ version: 5.06
Labyrinth::Globals:
file: lib/Labyrinth/Globals.pm
- version: 5.05
+ version: 5.06
Labyrinth::Groups:
file: lib/Labyrinth/Groups.pm
- version: 5.05
+ version: 5.06
Labyrinth::IPAddr:
file: lib/Labyrinth/IPAddr.pm
- version: 5.05
+ version: 5.06
Labyrinth::Inbox:
file: lib/Labyrinth/Inbox.pm
- version: 5.05
+ version: 5.06
Labyrinth::MLUtils:
file: lib/Labyrinth/MLUtils.pm
- version: 5.05
+ version: 5.06
Labyrinth::Mailer:
file: lib/Labyrinth/Mailer.pm
- version: 5.05
+ version: 5.06
Labyrinth::Media:
file: lib/Labyrinth/Media.pm
- version: 5.05
+ version: 5.06
Labyrinth::Metadata:
file: lib/Labyrinth/Metadata.pm
- version: 5.05
+ version: 5.06
Labyrinth::Phrasebook:
file: lib/Labyrinth/Phrasebook.pm
- version: 5.05
+ version: 5.06
Labyrinth::Plugin::Base:
file: lib/Labyrinth/Plugin/Base.pm
- version: 5.05
+ version: 5.06
Labyrinth::Plugins:
file: lib/Labyrinth/Plugins.pm
- version: 5.05
+ version: 5.06
+ Labyrinth::Query::CGI:
+ file: lib/Labyrinth/Query/CGI.pm
+ version: 5.06
Labyrinth::RSS:
file: lib/Labyrinth/RSS.pm
- version: 5.05
+ version: 5.06
Labyrinth::Request:
file: lib/Labyrinth/Request.pm
- version: 5.05
+ version: 5.06
Labyrinth::Session:
file: lib/Labyrinth/Session.pm
- version: 5.05
+ version: 5.06
Labyrinth::Support:
file: lib/Labyrinth/Support.pm
- version: 5.05
+ version: 5.06
Labyrinth::Users:
file: lib/Labyrinth/Users.pm
- version: 5.05
+ version: 5.06
Labyrinth::Variables:
file: lib/Labyrinth/Variables.pm
- version: 5.05
+ version: 5.06
Labyrinth::Writer:
file: lib/Labyrinth/Writer.pm
- version: 5.05
+ version: 5.06
+ Labyrinth::Writer::Parser::TT:
+ file: lib/Labyrinth/Writer/Parser/TT.pm
+ version: 5.06
+ Labyrinth::Writer::Render::CGI:
+ file: lib/Labyrinth/Writer/Render/CGI.pm
+ version: 5.06
no_index:
directory:
View
@@ -3,7 +3,7 @@ package Labyrinth;
use warnings;
use strict;
-our $VERSION = '5.05';
+our $VERSION = '5.06';
=head1 NAME
@@ -188,7 +188,7 @@ LogDebug("run: layout=$tvars{layout}");
LogDebug("run: content=$tvars{content}");
LogDebug("run: loggedin=$tvars{loggedin}");
- Publish();
+ return Publish();
}
=item load()
View
@@ -4,7 +4,7 @@ use warnings;
use strict;
use vars qw($VERSION @ISA %EXPORT_TAGS @EXPORT @EXPORT_OK);
-$VERSION = '5.05';
+$VERSION = '5.06';
=head1 NAME
@@ -164,11 +164,8 @@ sub LogRecord {
my $audit = "<:$username> [$level] $mess";
if($CALLER) {
- my @calls = caller(1);
- $audit .= " CALLER($calls[1],$calls[2])";
- for my $i (2..5) {
- @calls = caller($i);
- last unless(@calls);
+ my $i = 1;
+ while(my @calls = caller($i++)) {;
$audit .= " => CALLER($calls[1],$calls[2])";
}
}
@@ -4,7 +4,7 @@ use warnings;
use strict;
use vars qw($VERSION $AUTOLOAD @ISA @EXPORT);
-$VERSION = '5.05';
+$VERSION = '5.06';
=head1 NAME
@@ -4,7 +4,7 @@ use warnings;
use strict;
use vars qw($VERSION $AUTOLOAD);
-$VERSION = '5.05';
+$VERSION = '5.06';
=head1 NAME
@@ -4,7 +4,7 @@ use warnings;
use strict;
use vars qw(%cookie_config $VERSION @ISA %EXPORT_TAGS @EXPORT @EXPORT_OK);
-$VERSION = '5.05';
+$VERSION = '5.06';
=head1 NAME
View
@@ -4,7 +4,7 @@ use warnings;
use strict;
use vars qw($VERSION $AUTOLOAD);
-$VERSION = '5.05';
+$VERSION = '5.06';
=head1 NAME
Oops, something went wrong.

0 comments on commit 8ce2beb

Please sign in to comment.