sub service_disable : Local {
my ( $self, $c ) = @_;
if( _makeLockfile( @_ ) ){
$c->log->debug('Success: make ' . $c->config->{lockoutfile});
}else{
$c->stash->{resultmessage} = 'Cannot make lockfile';
}
$c->stash->{lockout} = 1;
$c->logout;
$c->forward('index');
}
sub service_enable : Local {
my ( $self, $c ) = @_;
if( _deleteLockfile( @_ ) ){
$c->log->debug('Success: delete ' . $c->config->{lockoutfile});
undef $c->stash->{lockout};
}else{
$c->stash->{resultmessage} = 'Cannot delete lockfile';
}
$c->forward('index');
}sub auto : Private {
my ( $self, $c ) = @_;
if( my $sessionid = SecureSBMLib::_isServiceLocked( @_ ) ){
$c->stash->{lockout} = 1;
if( $c->controller eq $c->controller('Noauth::Mentenance') ){
return 1;
}
if ( $c->sessionid eq $sessionid ) {
if( $c->controller eq $c->controller('Admin::ServiceCtl') ){
return 1;
}
}
$c->res->redirect( $c->uri_for('/mentenance') );
return 0;
}else{
...
Keyword: Perl Catalyst Secure-SBM SSBM セキュア・ソーシャル・ブックマーク オープンソース
タグ:Secure-SBM
<< インターネット治安情勢 2007/06 月期 | Main | [Secure-SBM:027] データベースのバックアップ >>
いかちょー (2007-07-25 11:21) | コメント(0)| トラックバック(22)
トラックバックURL:
月別アーカイブ
Copyright (C) 2004-2011 Nihon Unisys, Ltd. All Rights Reserved.
Powered by Movable Type Open Source