From: Sebastian Riedel Date: Wed, 19 Oct 2005 04:43:33 +0000 (+0000) Subject: Added first welcome screen mockup X-Git-Tag: 5.7099_04~1192 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=ab2374d3a68f4d44601813f351b38222822b7c39;hp=e1b364f4ee5165fd5cd9473e89e4c31c10d00cf2 Added first welcome screen mockup --- diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index dc17610..6e1a14f 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -516,6 +516,126 @@ sub stash { return $c->{stash}; } +=head1 $c->welcome_message + +Returns the Catalyst welcome HTML page. + +=cut + +sub welcome_message { + my $c = shift; + my $name = $c->config->{name}; + return <<"EOF"; + + + $name on Catalyst $VERSION + + + +
+
+

$name on Catalyst $VERSION

+
+
+

Welcome to the wonderfull world of Catalyst. + This MVC framework will make webdevelopment + something you had never expected it to be: + Fun, rewarding and quick.

+

What to do now?

+

That all depends really, on what you want to do. + We do, however, provide you with a few starting points.

+

If you want to jump right into web development with Catalyst + you might want to check out the following links.

+ +

If you would like some background information on the + MVC-pattern, theese links might be able to help you out.

+ +

What to do next?

+

Next you need to create an actuall application. Use the + helper scripts for what they are worth, they can save you + alot of work getting everything set up. Also, be sure to + check out the vast array of plugins for Catalyst. + They can handle everything from Authentication to Static + files, and a whole lot in between.

+

In conclusion

+

The Catalyst team hope you will enjoy Catalyst as much as we enjoyed making it, and that rest asure that any and all + feedback is welcomed

+

-- there is no cabal, 2005

+
+
+ + +EOF +} + =back =head1 INTERNAL METHODS diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm index df7f24d..14af0d1 100644 --- a/lib/Catalyst/Helper.pm +++ b/lib/Catalyst/Helper.pm @@ -463,7 +463,7 @@ sub default : Private { my ( $self, $c ) = @_; # Hello World - $c->response->output('Congratulations, [% name %] is on Catalyst!'); + $c->response->output( $c->welcome_message ); } #=item end