V.S.A. III

$ uname -r
2.6.18-1.2869.fc6

$ rpm -qa | grep -i '^perl'
perl-Digest-SHA1-2.11-1.2.1
perl-DBI-1.52-1.fc6
perl-HTML-Tagset-3.10-2.1.1
perl-Archive-Tar-1.30-1.fc6
perl-BSD-Resource-1.28-1.fc6.1
perl-5.8.8-10
perl-Digest-HMAC-1.01-15
perl-HTML-Parser-3.55-1.fc6
perl-libwww-perl-5.805-1.1.1
perl-NKF-2.07-1.1.fc6
perl-URI-1.35-3
perl-XML-Parser-2.34-6.1.2.2.1
perl-Net-DNS-0.59-1.fc6
perl-Net-SSLeay-1.30-4.fc6
perl-SGMLSpm-1.03ii-16.2.1
perl-IO-Socket-INET6-2.51-2.fc6
perl-DBD-Pg-1.49-1.fc6
perl-Socket6-0.19-3.fc6
perl-Compress-Zlib-1.42-1.fc6
perl-IO-Zlib-1.04-4.2.1
perl-Net-IP-1.25-2.fc6
perl-String-CRC32-1.4-2.fc6
perl-IO-Socket-SSL-1.01-1.fc6
perl-DBD-MySQL-3.0007-1.fc6

$ rpm -qa | grep -i mysql
mysql-server-5.0.27-1.fc6
mysql-5.0.27-1.fc6
mysql-devel-5.0.27-1.fc6
perl-DBD-MySQL-3.0007-1.fc6

# cpan
cpan[1]> install Bundle::CPAN
...
cpan[2]> reload
...

cpan[n]> install Task::Catalyst
...
cpan[n]> install DBI
...
cpan[n]> install DBIx::Class::Schema::Loader
...
cpan[n]> install Bundle::LWP
...
cpan[n]> install Catalyst::Helper::Model::DBIC::Schema
...
cpan[n]> install Catalyst::Helper::View::TT
...
cpan[n]> install Catalyst::Model::DBIC::Schema
...
cpan[n]> install Catalyst::Plugin::Charsets::Japanese
...
cpan[n]> install Catalyst::Plugin::FillInForm
...
cpan[n]> install Catalyst::Plugin::Prototype
...

$ catalyst.pl MyApp
$ cd MyApp
$ script/myapp_create.pl controller Library::Login
$ script/myapp_server.pl
...

sub default : Private {
        my ( $self, $c ) = @_;
        $c->res->body( 'The requested page does not exist. \
                       Please check your URL. Thank you. - msi' );
}

$ cd MyApp
$ script/myapp_create.pl controller CatalystTest::testbookmark
...
$ ./script/myapp_create.pl model DBIC DBIC::Schema \
                      MyApp::CatalystTest::testbookmark::Schema
...
$ ./script/bookmark_create.pl view TT View::CatalystTest::testbookmark::TT
...

$ cat testbookmark-mysql-create.txt 
create table testbookmark (
   bookmark_id integer auto_increment primary key,
   url varchar(255) ,
   title varchar(255) ,
   record_time timestamp ,
   comment text
);
$ mysql test < testbookmark-mysql-create.txt 
$ mysql test
...
mysql> show tables;
+----------------+
| Tables_in_test |
+----------------+
| testbookmark   | 
+----------------+
1 row in set (0.00 sec)

mysql> quit
Bye

@@ -3,3 +3,4 @@
 use strict;
 use warnings;
 use base 'Catalyst::Controller';
+use LWP::Simple;
@@ -73,3 +74,19 @@
    $c->forward('index');
 }
 
+sub edit_execute : Local{
+  my($self, $c) = @_;
+  my %data;
+  foreach (qw/comment url title/){
+    $data{$_} = $c->req->param($_);
+  }
+  $data{title} ||= 'no title';
+  if(my $r = $c->model('DBIC::testbookmark')->\
             find({bookmark_id => $c->req->param('bookmark_id')})){
+    $r->update(\%data);
+  }else{
+    $c->msg('update error');
+  }
+  $c->req->param(url => '');
+  $c->forward('index');
+}
+

@@ -2,5 +2,5 @@
 [% IF msg %]
 <div class="bookmark_error">[% msg %]</div>
 [% END %]
-[% FOREACH v = bookmark %]
+[% FOREACH v = testbookmark %]

@@ -13,4 +13,5 @@
 # Static::Simple: will serve static files from the application's root 
 #                 directory
 
-use Catalyst qw/-Debug ConfigLoader Static::Simple/;
+#use Catalyst qw/-Debug ConfigLoader Static::Simple/;
+use Catalyst qw/-Debug ConfigLoader Static::Simple FillInForm \
Charsets::Japanese Prototype/;

@@ -4,4 +4,4 @@
 Charsets::Japanese:
    charsets: 'UTF-8'
-View::TT:
+View::CatalystTest::testbookmark::TT:

$ svn diff
Index: testbookmark.pm
===================================================================
--- CatalystTest/trunk/MyApp/lib/MyApp/Controller/CatalystTest/\
testbookmark.pm (リビジョン 10)
+++ CatalystTest/trunk/MyApp/lib/MyApp/Controller/CatalystTest/\
testbookmark.pm (作業コピー)

@@ -23,6 +23,8 @@
 
 use Catalyst qw/-Debug ConfigLoader Static::Simple FillInForm 
Charsets::Japanese Prototype/;
 
+use Catalyst::Plugin::FillInForm;
+
 #sub index : Private {
 #    my ( $self, $c ) = @_;
 #
@@ -103,9 +105,10 @@
    my ( $self, $c ) = @_;
 
    # body が指定されていない場合にTT を使う
-   $c->forward( $c->view('CatalystTest::testbookmark::View::TT') ) 
unless $c->response->body;
+   #$c->forward( $c->view('CatalystTest::testbookmark::View::TT') ) 
unless $c->response->body;
+   $c->forward( $c->view('CatalystTest::testbookmark::View::TT') );
    # FillInForm を使ってフォームを埋める
-   $c->fillform($c->stash->{fdat});
+   $c->Catalyst::Plugin::FillInForm::fillform($c->stash->{fdat});
 }
 
 1;
$ 

Use of uninitialized value in print \
at /usr/lib/perl5/site_perl/5.8.8/Catalyst/Engine.pm line 583.
[info] *** Request 1 (0.040/s) [27232] [Fri Jan 19 18:56:25 2007] ***
[debug] "GET" request for "catalysttest/testbookmark/" from "127.0.0.1"
[debug] Path is "catalysttest/testbookmark/"
[debug] Nothing to forward to
[info] Request took 0.274999s (3.636/s)
.----------------------------------------------------------------+-----------.
| Action                                                         | Time      |
+----------------------------------------------------------------+-----------+
| /catalysttest/testbookmark/index                               | 0.010304s |
| /catalysttest/testbookmark/end                                 | 0.002112s |
'----------------------------------------------------------------+-----------'

     1  [% INCLUDE header.tt %]
     2  [% INCLUDE bookmark_list.tt %]
     3  [% INCLUDE footer.tt %]

     1  <html>
     2  <head>
     3  <title>Test Bookmark</title>
     4  <link rel="stylesheet" href="/static/css/style.css" 
type="text/css" media="all">
     5  </head>
     6  <body>
     7   [% c.prototype.define_javascript_functions %]
     8  <h1 id="h1">Test Bookmark</h1>
     9  <div class="menu">
    10  : <a href="/">Home</a> : <a href="/regist">Regist</a> : <br><br>
    11  </div>
    12  <div class="left_menu">
    13  <form action="/regist_execute/" method="GET">
    14   <div>
    15   Quick Regist bookmark:<br>
    16   <input type=text id="bookmark" name="url"/>
    17   [% c.prototype.observe_field( 'bookmark', 
{ url => base _ 'ajax_regist/', with => "'url=' + value", 
'update' => 'main' } ) %]
    18  </div>
    19  <div id="regist_submit"><input type="submit" 
value="regist"></div>
    20  </form>
    21  </div>
    22  <script type="text/javascript">
    23  <!--
    24  $("regist_submit").style.display = 'none'; 
    25
    26  function drop_hover(draggable, droppable, pcnt){alert(draggable)}
    27  // -->
    28  </script>
    29  <div id="main">

     1  <div class="bookmark_list">
     2  [% IF msg %]
     3  <div class="bookmark_error">[% msg %]</div>
     4  [% END %]
     5  [% FOREACH v = bookmark %]
     6  <div class="each_bookmark">
     7  <a name="[% v.comment %]" href="[% v.url %]">[% v.title %]</a>
 at [% v.record_time %]<br>
     8   [ <a href="/edit?bookmark_id=[% v.bookmark_id %]">編集</a> / 
<a href="/delete?bookmark_id=[% v.bookmark_id %]">削除</a> ]
     9  </div>
    10  [% END %]
    11  </div>

     1  </div>
     2  </div>
     3  </body>
     4  </html>

perl -MCPAN -e 'install MODULE'

# http_proxy=http://my.proxy.co.jp:8080 yum -y install mysql-server
...
Complete!
# 

# chkconfig --list mysqld; chkconfig mysqld on && chkconfig --list mysqld
mysqld          0:off   1:off   2:off   3:off   4:off   5:off   6:off
mysqld          0:off   1:off   2:on    3:on    4:on    5:on    6:off
# 
# (cd / ; env - /etc/rc.d/init.d/mysqld start)
MySQL データベースを初期化中:  Installing all prepared tables
Fill help tables
...
MySQL を起動中:                                            [  OK  ]
# 

# mysqlshow
+--------------------+
|     Databases      |
+--------------------+
| information_schema |
| mysql              |
| test               |
+--------------------+
# 

$ cat testbookmark-mysql-create.txt 
create table testbookmark (
   bookmark_id integer auto_increment primary key,
   url varchar(255) ,
   title varchar(255) ,
   record_time timestamp ,
   comment text
);
$ mysql test < testbookmark-mysql-create.txt 
$ mysql test
...
mysql> show tables;
+----------------+
| Tables_in_test |
+----------------+
| testbookmark   | 
+----------------+
1 row in set (0.00 sec)

mysql> quit
Bye
$ 

$ cd MyApp
$ script/myapp_create.pl controller CatalystTest
 exists "/home/ikarashi/MyApp/script/../lib/MyApp/Controller"
 exists "/home/ikarashi/MyApp/script/../t"
created "/home/ikarashi/MyApp/script/../lib/MyApp/Controller/CatalystTest.pm"
created "/home/ikarashi/MyApp/script/../t/controller_CatalystTest.t"

$ script/myapp_server.pl

sub index : Private {
    my ( $self, $c ) = @_;

    $c->response->body('Matched MyApp::Controller::CatalystTest \
                             in CatalystTest.');
}

sub default : Private {
        my ( $self, $c ) = @_;
        $c->res->body( 'The requested page does not exist. \
                       Please check your URL. Thank you. - msi' );
}

$ catalyst.pl MyApp
$ cd MyApp
$ script/myapp_create.pl controller Library::Login
$ script/myapp_server.pl