V.S.A. III

動いた! - Catalyst を使ってみる #007

こんにちは，五十嵐です．長いことかかりましたが，やっと動きました．

左の画像は，社内のページを登録してみたところです．Proxy 越えができないので，社外のページをリンクしようとするとエラーになります．

細かい部分でまだ良くわかっていないところがありますが，大まかには理解できました．何も参照せずに書くというところまでは行きませんが，文献を参照しながら簡単な Web アプリケーションは作れそうです．

今後は，今回作成したブックマークを参考にして，Proxy 越えとマルチユーザ対応に進んでみたいと思います．「Catalyst を使ってみる」はあと一回，作業の流れなどを整理してまとめたものを書いて終わりにしたいと思います．

以下は今回の修正/追加点です．

MyApp/root/tmpl/catalysttest/testbookmark/regist.tt： URL を修正．
MyApp/root/tmpl/catalysttest/testbookmark/delete.tt： URL を修正．
MyApp/root/tmpl/catalysttest/testbookmark/edit.tt： URL を修正．
MyApp/root/tmpl/bookmark_list.tt： URL を修正．

MyApp/lib/MyApp/Controller/CatalystTest/testbookmark.pm：
edit_execute を追加．


@@ -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');
+}
+

現在のソースの状態はこちらからどうぞ．

以下は今までの記事です．