require Module::Pluggable::Fast;
# Helper script generation
-our $CATALYST_SCRIPT_GEN = 6;
+our $CATALYST_SCRIPT_GEN = 8;
__PACKAGE__->mk_classdata($_)
for qw/components arguments dispatcher engine log/;
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";
+<html>
+ <head>
+ <title>$name on Catalyst $VERSION</title>
+ <style type="text/css">
+ body {
+ text-align: center;
+ padding-left: 50%;
+ color: #000;
+ background-color: #eee;
+ }
+ div#content {
+ width: 640px;
+ margin-left: -320px;
+ margin-top: 10px;
+ margin-bottom: 10px;
+ text-align: left;
+ background-color: #ccc;
+ border: 1px solid #aaa;
+ -moz-border-radius: 10px;
+ }
+ p, h1, h2, a {
+ margin-left: 20px;
+ margin-right: 20px;
+ font-family: garamond, verdana, tahoma, sans-serif;
+ }
+ div#topbar {
+ margin: 0px;
+ }
+ div#answers {
+ padding: 8px;
+ margin: 10px;
+ background-color: #eee;
+ border: 1px solid #aaa;
+ -moz-border-radius: 10px;
+ }
+ h1 {
+ font-size: 1.2em;
+ text-align: center;
+ }
+ h2 {
+ font-size: 1.0em;
+ }
+ p {
+ font-size: 0.9em;
+ }
+ p.signature {
+ text-align: right;
+ font-style: italic;
+ }
+ </style>
+ </head>
+ <body>
+ <div id="content">
+ <div id="topbar">
+ <h1>$name on Catalyst $VERSION</h1>
+ </div>
+ <div id="answers">
+ <p>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.</p>
+ <h2>What to do now?</h2>
+ <p>That all depends really, on what <b>you</b> want to do.
+ We do, however, provide you with a few starting points.</p>
+ <p>If you want to jump right into web development with Catalyst
+ you might want to check out the following links.</p>
+ <ul>
+ <li>
+ <a href="http://catalyst.perl.org">
+ Catalyst::Manual::Intro
+ </a>
+ </li>
+ </ul>
+ <p>If you would like some background information on the
+ MVC-pattern, theese links might be able to help you out.</p>
+ <ul>
+ <li>
+ <a href="http://catalyst.perl.org">
+ Introduction to Models
+ </a>
+ </li>
+ <li>
+ <a href="http://catalyst.perl.org">
+ Introduction to Views
+ </a>
+ </li>
+ <li>
+ <a href="http://catalyst.perl.org">
+ Introduction to Controllers
+ </a>
+ </li>
+ </ul>
+ <h2>What to do next?</h2>
+ <p>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.</p>
+ <h2>In conclusion</h2>
+ <p>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</p>
+ <p class="signature">-- there is no cabal, 2005</p>
+ </div>
+ </div>
+ </body>
+</html>
+EOF
+}
+
=back
=head1 INTERNAL METHODS
arguments => [],
body_parameters => {},
cookies => {},
- handle => \*STDIN,
headers => HTTP::Headers->new,
parameters => {},
query_parameters => {},
{
body => '',
cookies => {},
- handle => \*STDOUT,
headers => HTTP::Headers->new(),
status => 200
}
=cut
-sub prepare_body_chunk {
- my $c = shift;
+sub prepare_body_chunk {
+ my $c = shift;
$c->engine->prepare_body_chunk( $c, @_ );
}
if ( $c->debug && keys %{ $c->request->uploads } ) {
my $t = Text::ASCIITable->new;
- $t->setCols( 'Filename', 'Type', 'Size' );
- $t->setColWidth( 'Filename', 37, 1 );
- $t->setColWidth( 'Type', 24, 1 );
+ $t->setCols( 'Key', 'Filename', 'Type', 'Size' );
+ $t->setColWidth( 'Key', 12, 1 );
+ $t->setColWidth( 'Filename', 28, 1 );
+ $t->setColWidth( 'Type', 18, 1 );
$t->setColWidth( 'Size', 9, 1 );
$t->alignCol( 'Size', 'left' );
for my $key ( sort keys %{ $c->request->uploads } ) {
my $upload = $c->request->uploads->{$key};
for my $u ( ref $upload eq 'ARRAY' ? @{$upload} : ($upload) ) {
- $t->addRow( $key, $u->type, $u->size );
+ $t->addRow( $key, $u->filename, $u->type, $u->size );
}
}
$c->log->debug( "File Uploads are:\n" . $t->draw );
=cut
-sub write { my $c = shift; return $c->engine->write( $c, @_ ) }
+sub write {
+ my $c = shift;
+
+ # Finalize headers if someone manually writes output
+ $c->finalize_headers;
+
+ return $c->engine->write( $c, @_ );
+}
=back
Ulf Edvinsson
+Yuval Kogman
+
=head1 AUTHOR
Sebastian Riedel, C<sri@oook.de>
projects / catagits/Catalyst-Runtime.git / blobdiff