X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FCatalyst.pm;h=342ad2235b9890063d2b0948bc87b75404f444a8;hb=16215972f3bf6c3f09e20ba8528215d33d79aac0;hp=034eb1052ab4df97f2aa7f0c68058ccc8804e4ae;hpb=4f5ebacdba8bc446f80d0e8999d117d80f9d2c98;p=catagits%2FCatalyst-Runtime.git
diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 034eb10..342ad22 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -36,7 +36,7 @@ our $DETACH = "catalyst_detach\n";
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/;
@@ -516,6 +516,149 @@ 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
+
+
+
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 documentation.
+
perldocCatalyst::Manual
+perldocCatalyst::Manual::Intro
+
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 actual 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 A to Z
+ , and a whole lot in between.
+
Support
+
Catalyst has a very active community. The main places to get
+ in touch are these.
+
+
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
@@ -1027,15 +1170,16 @@ sub prepare_uploads {
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 );
@@ -1505,6 +1649,8 @@ Tatsuhiko Miyagawa
Ulf Edvinsson
+Yuval Kogman
+
=head1 AUTHOR
Sebastian Riedel, C