sub auto : Private {
my ( $self, $c ) = @_;
if( $c->user_exists ){
if( $c->user eq 'admin' ){
return 1;
}else{
$c->res->redirect($c->uri_for('/personal'));
return 0;
}
}
$c->res->redirect($c->uri_for('/'));
return 0;
}@@ -42,7 +42,7 @@
if( $loginname eq 'admin' ){
$c->res->redirect($c->uri_for('/admin'));
}else{
- $c->res->redirect($c->uri_for('/'));
+ $c->res->redirect($c->uri_for('/personal'));
}
return;
} else {$ ./script/securesbm_create.pl controller Noauth::Bookmark
created "...(省略)/lib/SecureSBM/Controller/Noauth"
exists "...(省略)/t/Controller"
created "...(省略)/lib/SecureSBM/Controller/Noauth/Bookmark.pm"
created "...(省略)/t/Controller/Noauth-Bookmark.t"
$ ./script/securesbm_create.pl controller Noauth::Profile
exists "...(省略)/lib/SecureSBM/Controller/Noauth"
exists "...(省略)/t/Controller"
created "...(省略)/lib/SecureSBM/Controller/Noauth/Profile.pm"
created "...(省略)/t/Controller/Noauth-Profile.t"
$ $ ./script/securesbm_create.pl controller Personal
exists "...(省略)/lib/SecureSBM/Controller"
exists "...(省略)/t/Controller"
created "...(省略)/lib/SecureSBM/Controller/Personal.pm"
created "...(省略)/t/Controller/Personal.t"
$ sub auto : Private {
my ( $self, $c ) = @_;
# Controller が Login,Root,Noauth の場合には,認証を必要としない
if ( $c->controller eq $c->controller('Login')
|| $c->controller eq $c->controller('Root')
|| $c->controller eq $c->controller('Noauth')
){sub bookmark : Path('/bookmark') {
my ( $self, $c ) = @_;
$c->stash->{pagetitle} = 'Secure-SBM 最新ブックマークリスト';
$c->stash->{template} = 'noauth/bookmark.tt';
if( my $rdb =
$c->model('SecureSBMDB::Role')->find( {role_name => 'public'} )
){
$c->stash->{bookmarks} = $rdb->bookmarks
}
}<h1>ブックマーク リスト</h1>
[% FOREACH v_bookmark = bookmarks.all -%]
<div class="each_bookmark"
id="public_bookmark[% v_bookmark.bookmark_id %]">
<a href="[% v_bookmark.bookmark_uri %]">[% v_bookmark.bookmark_title %]</a>
</div><!-- end of public_bookmark[% v_bookmark.bookmark_id %] -->
[% END %]
sub auto : Private {
my ( $self, $c ) = @_;
if( $c->user_exists ){
return 1;
}
$c->res->redirect($c->uri_for('/login'));
return 0;
}
sub personal : Path('/personal') {
my ( $self, $c ) = @_;
if( my $udb =
$c->model('SecureSBMDB::User')->find( {user_email => $c->user} )
){
$c->stash->{user} = $udb;
}
$c->stash->{pagetitle} = 'Secure-SBM User Top Page';
$c->stash->{template} = 'personal/personal.tt';
}<h1>ユーザページ</h1>
[% IF user -%]
ようこそ [% user.user_surname %] [% user.user_name %] さん.
[% END -%][% IF logintoggle %]
[% logintoggle %]
[% ELSE %]
<a href="/login">Login</a>
[% END %]@@ -32,6 +32,13 @@
$c->log->debug( '*** Controller [' . $c->controller . '].' );
$c->log->debug( '*** action [' . $c->req->action . '].' );
+ # ログインしているか否かでメニューを変更する.
+ if ($c->user_exists) {
+ $c->stash->{logintoggle} = '<a href="/logout">Logout</a>';
+ }else{
+ $c->stash->{logintoggle} = '<a href="/login">Login</a>';
+ }
+
# Controller が Login,Root,Noauth の場合には,認証を必要としない
if ( $c->controller eq $c->controller('Login')
|| $c->controller eq $c->controller('Root')Keyword: Perl Catalyst Secure-SBM SSBM セキュア・ソーシャル・ブックマーク
タグ:Secure-SBM
<< TGIF: アニメ技能検定 | Main | [javascript] 変数が定義されているかどうかをチェックする >>
いかちょー (2007-06-18 13:14) | コメント(0)| トラックバック(6)
トラックバックURL:
Buy amoxicillin with no prescription. - Buy amoxicillin without prescription. (2009年12月21日 15:43)
Buy amoxicillin without prescription. Buy amoxicillin with no prescription. 続きを読む
Tadalafil. - Tadalafil fedez. (2010年2月16日 18:57)
Tadalafil. 続きを読む
Male infertility and propecia. - Buy propecia international pharmacy. (2010年2月17日 00:37)
Propecia. Propecia pill. 続きを読む
Buy ambien. - Ambien generic. (2010年2月19日 23:10)
Ambien cr. Online ambien. Ambien. 続きを読む
Buy ultram from discount store. - The mondego group wiki xwiki buy ultram. (2010年5月19日 23:56)
Buy ultram cheapest site. Ultram buy ultram online order cheap ultram. Buy ul... 続きを読む
Buy cheap tramadol mg tablets only in us online. - Buy tramadol. (2010年5月24日 18:18)
Buy tramadol. 続きを読む
月別アーカイブ
Copyright (C) 2004-2010 Nihon Unisys, Ltd. All Rights Reserved.
Powered by Movable Type Open Source