From bcad71d5980251cd9337afdedeca1aaf3d2461ca Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Michael=20Kr=C3=B6ll?= Date: Mon, 1 Dec 2008 21:44:18 +0100 Subject: Forgotten to add with last commit --- lib/PAUSE/OpenID/Controller/Root.pm | 6 +++++- lib/PAUSE/OpenID/View/XSLT.pm | 3 +-- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/lib/PAUSE/OpenID/Controller/Root.pm b/lib/PAUSE/OpenID/Controller/Root.pm index 915801c..c37b2c2 100644 --- a/lib/PAUSE/OpenID/Controller/Root.pm +++ b/lib/PAUSE/OpenID/Controller/Root.pm @@ -29,8 +29,12 @@ PAUSE::OpenID::Controller::Root - Root Controller for PAUSE::OpenID sub index :Path :Args(0) { my ( $self, $c ) = @_; +$c->stash->{xml} =< +XML + # Hello World - $c->response->body( $c->welcome_message ); + $c->forward('PAUSE::OpenID::View::XSLT'); } sub default :Path { diff --git a/lib/PAUSE/OpenID/View/XSLT.pm b/lib/PAUSE/OpenID/View/XSLT.pm index 4e2ab2a..423216f 100644 --- a/lib/PAUSE/OpenID/View/XSLT.pm +++ b/lib/PAUSE/OpenID/View/XSLT.pm @@ -8,8 +8,7 @@ use base 'Catalyst::View::XSLT'; __PACKAGE__->config( # relative paths to the directories with templates INCLUDE_PATH => [ - MyApp->path_to( 'root', 'xslt' ), - MyApp->path_to( 'templates', 'xsl' ), + PAUSE::OpenID->path_to( 'root', 'templates' ), ], TEMPLATE_EXTENSION => '.xsl', # default extension when getting template name from the current action DUMP_CONFIG => 1, # use for Debug. Will dump the final (merged) configuration for XSLT view -- cgit v1.2.3 From 9918a2ab5192d0619b51b965946ce0e5ee112ea8 Mon Sep 17 00:00:00 2001 From: Jozef Kutej Date: Mon, 1 Dec 2008 21:48:26 +0100 Subject: #!/usr/bin/perl --- script/pause_openid_cgi.pl | 2 +- script/pause_openid_create.pl | 2 +- script/pause_openid_fastcgi.pl | 2 +- script/pause_openid_server.pl | 2 +- script/pause_openid_test.pl | 2 +- 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/script/pause_openid_cgi.pl b/script/pause_openid_cgi.pl index 58703a1..1bf1139 100755 --- a/script/pause_openid_cgi.pl +++ b/script/pause_openid_cgi.pl @@ -1,4 +1,4 @@ -#!/opt/perl5.10/bin/perl -w +#!/usr/bin/perl BEGIN { $ENV{CATALYST_ENGINE} ||= 'CGI' } diff --git a/script/pause_openid_create.pl b/script/pause_openid_create.pl index 52c2c4e..8303fcc 100755 --- a/script/pause_openid_create.pl +++ b/script/pause_openid_create.pl @@ -1,4 +1,4 @@ -#!/opt/perl5.10/bin/perl -w +#!/usr/bin/perl use strict; use warnings; diff --git a/script/pause_openid_fastcgi.pl b/script/pause_openid_fastcgi.pl index 4b42006..fe8f093 100755 --- a/script/pause_openid_fastcgi.pl +++ b/script/pause_openid_fastcgi.pl @@ -1,4 +1,4 @@ -#!/opt/perl5.10/bin/perl -w +#!/usr/bin/perl BEGIN { $ENV{CATALYST_ENGINE} ||= 'FastCGI' } diff --git a/script/pause_openid_server.pl b/script/pause_openid_server.pl index 2e373c2..8eb3308 100755 --- a/script/pause_openid_server.pl +++ b/script/pause_openid_server.pl @@ -1,4 +1,4 @@ -#!/opt/perl5.10/bin/perl -w +#!/usr/bin/perl BEGIN { $ENV{CATALYST_ENGINE} ||= 'HTTP'; diff --git a/script/pause_openid_test.pl b/script/pause_openid_test.pl index 36aa777..627c2f6 100755 --- a/script/pause_openid_test.pl +++ b/script/pause_openid_test.pl @@ -1,4 +1,4 @@ -#!/opt/perl5.10/bin/perl -w +#!/usr/bin/perl use strict; use warnings; -- cgit v1.2.3