Proxy + バックエンド（Catalyst + mod_perl）で - pepponの日記
今までフロントエンドでApache2.2でバックエンドでApache2.0（Catalyst+mod_perl)で動かしていましたが。 なんか微妙に動作がおかしいので、いろいろとサイトとか見てまわった。 うちの場合のHttpd.confは以下のようになる。 フロントエンド（Apache2.2)のhttpd.conf #### mysite #### <VirtualHost X.X.X.X> ServerName www.example.com DocumentRoot /home/mysite/public_html ErrorLog /home/mysite/error.log CustomLog /home/mysite/access.log combined env=!no_log AddDefaultCharset off RewriteEngine On RewriteLog
Catalyst::Plugin::Session::State::URIと携帯端末とfragment付きリンク - Unknown::Programming
C::P::Session::State::URIは便利なんだけどfragmentが付いてるリンクまでセッションIDを埋め込んでしまうので微妙。 なんでかっていうとDoCoMo等、クエリとfragmentが存在する場合、ページ内リンクにならずにページ遷移してしまうんだよね。 ちなみにfragmentってのは以下のようなものね。 <a href="#">foo</a> 動画のダウンロードとかでオブジェクトタグ使ってるとダウンロードできなくなってしまうので困った困った。 なのでfragment付いてる時はセッションIDを埋め込まないようにするモジュールを作った。 package MyApp::Session::State::MobileURI; use strict; use warnings; our $VERSION = 0.01; sub session_should_rewrite_u
続:Catalystでマルチバイトを取り扱うときのまとめ - hide-k.net#blog
以前、Catalystでマルチバイトを取り扱うときのまとめという記事を書いたのですが、情報が少し古いので、最近僕がやっている方法を紹介します。 この記事では Catalyst 5.7015 Catalyst::View::TT 0.27 Catalyst::Plugin::ConfigLoader 0.22 Catalyst::Plugin::FillInForm 0.10 Catalyst::Plugin::Static::Simple 0.20 Catalyst::Plugin::Unicode 0.8 の環境で紹介しています。 また、基本的にDBICに関しては以前の記事の通りDBIx::Class::UTF8Columnsを使うという感じです。 まず、こんな感じのアプリケーションを用意します。 MyApp package MyApp; use strict; use warnings
tokuhirom blog
Blog Search when-present<#else>when-missing. (These only cover the last step of the expression; to cover the whole expression, use parenthesis: (myOptionalVar.foo)!myDefault, (myOptionalVar.foo)?? ---- ---- FTL stack trace ("~" means nesting-related): - Failed at: ${entry.path} [in template "__entry.ftlh" at line 3, column 25] - Reached through: #include "__entry.ftlh" [in template "entry.ftlh" at
HTML::MobileJP::Filter::DoCoMoGUIDで同一ホスト内でのguid=ONを有効にするには - Unknown::Programming
今やってるやつでCatalyst::View::MobileJpFilterを使って実装しようと思ってるんだけどHTML::MobileJP::Filter::DoCoMoGUIDで下記のようなケースではguid=ONがついてくれないのです。 <a href="http://example.com/">link</a> どうやらhttpから始まるURLに対してはつかないようですが、これは元となるHTML::StickyQueryモジュールのabsオプションを使えばついてくれるみたい。 my $html = '<a href="http://example.com/">link</a>'; my $sticky = HTML::StickyQuery::DoCoMoGUID->new; local $sticky->{sticky}->{abs} = 1; $sticky->sticky(
はてなグループの終了日を2020年1月31日(金)に決定しました - はてなの告知
はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28
ＭＶＣのモデルはDBじゃなくてもいいんだよ - D-6 [相変わらず根無し]
ＭＶＣのモデルはDBじゃなくてもいいんだよ id:charsbarさんが、先ほど書いたエントリに関して 後半その通りなわけですが、CatalystはModel::DBIC系のせいでMVCが誤解されてるのよねー と言っておられる。たしかにその通り。「モデルってDBでしょ？」みたいな印象が一般的にあると思う。 そういう印象を持ってる人に説明すると、「モデルを作る」って何かというと、DBのようなストレージにあるものをどうこうする、ではなくて「データに対する操作を抽象化したものを作る」ということです。例えば、ブログを作ると、Blog、BlogEntry、BlogUserみたいなモデルを作ります。そしてその操作方法はこんな感じ： # ブログを登録するみたいなAPI MyApp::Model::Blog->create({ user => $blog_user, title => $title, .
hide-k.net#blog: Catalyst::Model::Adaptorを使ってみた
Catalyst::Model::Adaptor - use a plain class as a Catalyst model 要はどんなクラスでもCatalystのモデルにしてくれるクラスです。 たとえばこんなクラスを作って lib/MyApp/DateTime.pm package MyApp::DateTime; use strict; use warnings; use base qw/DateTime/; use DateTime::Format::W3CDTF; sub now { my ($class, $args) = @_; $args->{time_zone} = 'local' unless $args->{time_zone}; return $class->SUPER::now(%$args); } sub parse { my ( $class, $str )
「第4回 Catalyst（前編）---Perl向けWebアプリ・フレームワーク：ITpro」を Ubuntu 8.04LTS で - Tociyuki::Diary
id:hyuki さんの ITpro の連載で、Catalyst を取り上げています。記事では Windows での使い方を説明してますので、Ubuntu Linux 8.04LTS で同じことをやってみました。 ⇒ 第4回 Catalyst（前編）---Perl向けWebアプリ・フレームワーク：ITpro 依存関係が複雑なモジュールを扱うため、Ubuntu 8.04LTS のバイナリ・パッケージ管理機能を使って、deb パッケージからインストールすることにします。SQLite は、特に 2 を使わなければならない理由がない限り、3 を推奨したいので、sqlite3 を使うことにしました。設定を YAML で記述したいので、それもインストールしておきます。元記事で使っている、Data::Uniqid モジュールは ubuntu の deb リポジトリにないようですので、これだけは CPAN
Catalyst Advent Calendar
Articles Day 1: Day 1 - Getting started with ExtJS screen library Day 2: Get more REST - Using YUI and JavaScript for REST Day 3: Application Design Techniques Day 4: Catalyst + Open Flash Chart: Fancy graphs with minimal fuss Day 5: Adding Authentication to your Catalyst App Day 6: Inline Authentication Without Redirection Day 7: Day 7 - Rapid CRUD with Catalyst Day 8: local::lib and Catalyst Day
CLI系でmyapp.ymlを取得 - Unknown::Programming
CLI系のプログラムからmyapp.ymlを読み込みたいってことは多分あると思うけど、みなさんはどうしてるんでしょうね。 僕の場合はとりあえずMyApp::CLI::ConfigLoaderみたいなのを作ってます。 package MyApp::CLI::ConfigLoader; use strict; use warnings; use Catalyst::Utils(); use YAML; use Path::Class(); use Data::Visitor::Callback; our $VERSION = 0.02; sub new { my $class = shift; bless {@_}, ref $class || $class; } sub get_config { my $self = shift; my $path = $self->get_path(shi
Catalyst/DBICでDigest認証する - 日向夏特殊応援部隊
自分の為のメモですよ。 準備 まずはCatalystプロジェクトを作ります $ mkdir -p /path/to/dir $ cd /path/to/dir $ catalyst.pl AuthSample ユーザー用のDBICスキーマを定義します。 $ module-starter --module AuthSample::Schema $ cd AuthSample-Schemaでこのディレクトリにて、 CREATE TABLE user ( user_seq INTEGER PRIMARY KEY, user_id TEXT UNIQUE, password TEXT, created_on DATETIME, updated_on DATETIME ); こんなスキーマを定義して、schema.sqlとして保存して、 $ sqlite3 -init schema.sql auth
自分のCatalyst環境？を晒してみる - pepponの日記
いろいろあって雨降って地固まるでしょうか。 ようやくCatalystをどう作るかが頭の中ですっきりしてきました。 構成 MyApp | | Changes | MyApp.yml | Makefile.PL | README | |-lib | | | | Myapp.pm | |-MyApp | | | |-Controller コントローラ テンプレート指定と単純な分岐のみ 主にLocalとかChainedを利用 | | $c->model('Logic::Hoge')->moge();なんかでロジックにアクセス | | | |-Logic ロジック部分、Catalystから独立したロジック群、Model::DynamicAdaptorのおかげ簡単便利、テスト楽勝 | | LogicからDBはCatalyst::MyApp::Model::DBIC | | | |-Mo
第4回 Catalyst（前編）---Perl向けWebアプリ・フレームワーク
この記事は，日経ソフトウエア2006年9月号，連載「簡単実装で学ぶWeb技術2006」の第3回「Catalyst――Perl向けWebアプリ・フレームワーク」の再録です。記事は執筆時の情報に基づいており，現在では異なる場合があります。 こんにちは，結城浩です。今回はPerlのWebアプリケーション・フレームワーク「Catalyst」を解説し，簡単なメモ帳プログラムを作ります。 Catalyst（カタリスト）は，Perlで作られたWebアプリケーション・フレームワークです。Catalystを使うと，Webアプリを簡単に作成・テスト・配布することができます。catalystという単語のそもそもの意味は，「触媒」あるいは「促進させるもの」です。Perlのモジュール同士を触媒のようにうまく結びつけて，Webアプリ作成を促進させるという意味の名前なのでしょう。 Catalystのオフィシャルページは
hide-k.net#blog: Catalyst::Controller::RequestToken 0.01 release
あちこちで叫ばれている、むやみやたらにCatalystのPluginを作るべきではない運動。(この辺はトクヒロムさんがキャンペーンを張ってるので一読して方がいいです。) まー言われていることはもっともで、ComponentでできることはComponentにすべきなわけです。 で、拙作のCatalyst::Plugin::RequestTokenなる代物も一部finilizeを使っているものの、明らかにControllerにするべきなので、C::P::RequestTokenをdeprecateさせてCatalyst::Controller::ReqeustTokenってのをとりあえず作ってCPANでリリースしました。 使い方は package MyApp::Controller::Foo; use base qw(Catalyst::Controller::RequestToken);
woremacx.com - https://woremacx.com/
Windows 10 の入ったディスクのバックアップが clonezilla で外形的にできることがわかった Posted on Jun 27, 2020 Windows10 が載ってるディスクに破壊的な変更加える前にバックアップしたくて、SystemRescueCd で clonezilla 使ってディスクまるごとイメージ化した(内部的には partimage が使われてる?)。 でこれ、レストアしたら起動する状態まで持っていけるんかな? すんごく不安だ。。。 — woremacx (@woremacx) June 15, 2020 systemrescuecd に同梱されている clonezilla を使ってまるまる取った Windows 10 のバックアップが戻せるか不安で仕方なかったので、VirtualBox に戻せるか試した。 そもそもなぜ clonezilla を試したかったの
lighttpd + virtualhost + fastcgi + Catalyst - Devel::Bayside
半日に及ぶ試行錯誤の結果 最新版 lighttpd（1.4.15） バーチャルホストを有効 fastcgi を使用 複数 Catalyst アプリの実行 に成功したので、その設定をメモしておきます。お金がないので、とりあえずひとつのサーバーでサービスをたくさん起動したい、という時に使える方法です。 pcre のインストール これがインストールされていないとまともに動かないので、先にインストールします。 $ wget ftp://ftp.csx.cam.ac.uk/pub/software/programming/pcre/pcre-7.1.tar.gz $ tar xvzf pcre-7.1.tar.gz $ cd pcre-7.1 $ ./configure $ make $ sudo make install ligttpd のインストール さきほどインストールした pcre を有効に
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://pub.woremacx.com/DBIC/ProfilerOutput.pm
http://hibinokoto.jp/archives/2008/08/post-285.html
perl-mongers.org