Tyzohブログ Tyzoh（タイゾウ）

Tyzohブログ - ikarashiさんのエントリ

ikarashiさんのエントリ配信

2007/01/22

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

カテゴリ: 技術開発日記 : Secure-SBM :

執筆者: ikarashi (6:32 pm)

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

左の画像は，社内のページを登録してみたところです．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');
+}
+

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

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

Catalyst を使ってみる #001 (2007/01/12 Tyzoh ブログ)
Catalyst を使ってみる #002 (2007/01/15 Tyzoh ブログ)
Catalyst を使ってみる #003 (2007/01/16 Tyzoh ブログ)
Catalyst を使ってみる #004 (2007/01/17 Tyzoh ブログ)
Catalyst を使ってみる #005 (2007/01/19 Tyzoh ブログ)
Catalyst を使ってみる #006 (2007/01/20 Tyzoh ブログ)
動いた! - Catalyst を使ってみる #007 (2007/01/22 Tyzoh ブログ)

ikarashiさんのブログを読む | コメント (0) | トラックバック数 (0) | 閲覧数 (7066)

前のエントリ | 次のエントリ

Trackback is not accepted now.

投稿された内容の著作権はコメントの投稿者に帰属します。

Tyzoh.jp