V.S.A. III

sub registbookmark : Path('/registbookmark') {
    my ( $self, $c ) = @_; 
    my %data;
    my $uid = $c->stash->{user}->user_id;
    my $bookmark_exist = 0;
    my $bdb;

    # URL から直接ブックマークの場合
    if( $c->req->method eq 'GET' ){
        $c->stash->{template} = 'personal/getregistbookmark.tt';
    }   

    foreach my $k (qw/
            bookmark_title
            bookmark_url
            bookmark_tags
            bookmark_comment
            /
    ){
        $data{$k} = Jcode::jcode($c->req->param($k))->utf8;
    }

    # URL の確認
    if( $data{bookmark_url} eq '' ){
        $c->flash->{resultmessage} = 'URL が入力されていません';
        $c->res->redirect('/personal');
        return 1;
    }

    my $url = $data{bookmark_url};

    # Bookmark の既存確認
    if( $bdb = $c->model('SecureSBMDB::Bookmark')->
        find( {bookmark_uri => $url} )
    ){
        if( my $ubdb = $c->model('SecureSBMDB::UserBookmark')->
                find( {user_id => $uid, bookmark_id => $bdb->bookmark_id} )
        ){
            $c->flash->{resultmessage} = $url . ' は既に登録されています．';
            $c->res->redirect('/personal');
            return 1;
        }
        $bookmark_exist = 1;
    }

@@ -70,7 +70,7 @@
 <tr><td><button id="editrole_button[% role_v.role_id  %]">
        編集</button></td>
        <td><button id="deleterole_button[% role_v.role_id %]">
         削除</button></td>
        <td align="right">[% role_v.role_id %]</td>
-       <td>[% role_v.role_name %]</td>
+       <td>[% role_v.role_name | html %]</td>
 </tr>
 
 <tr>

use Catalyst qw/
                -Log=info
                ...

    foreach (@arguments) {

        if (/^-Debug$/) {
            $flags->{log} =
              ( $flags->{log} ) ? 'debug,' . $flags->{log} : 'debug';
        }
        elsif (/^-(\w+)=?(.*)$/) {
            $flags->{ lc $1 } = $2;
        }
        else {
            push @{ $flags->{plugins} }, $_;
        }
    }
... 略 ...
    $class->setup_log( delete $flags->{log} );

sub setup_log {
    my ( $class, $debug ) = @_;

    unless ( $class->log ) {
        $class->log( Catalyst::Log->new );
    }

    my $app_flag = Catalyst::Utils::class2env($class) . '_DEBUG';

    if (
          ( defined( $ENV{CATALYST_DEBUG} ) || defined( $ENV{$app_flag} ) )
        ? ( $ENV{CATALYST_DEBUG} || $ENV{$app_flag} )
        : $debug
      )
    {
        no strict 'refs';
        *{"$class\::debug"} = sub { 1 };
        $class->log->debug('Debug messages enabled');
    }
}

+if( ! defined $ENV{CATALYST_DEBUG} ){
+       $ENV{CATALYST_DEBUG} = 0;
+}
+
 __PACKAGE__->setup;
 
+if( $ENV{CATALYST_DEBUG} == 0 ){
+       __PACKAGE__->log->disable('debug');
+}
+

<script type="text/javascript">
<!-- 
for( num = 0; num < 4; num++ ){
  eval("var a_" + num + " = new Array(1,2,3,4);");

  document.write( 'a_' + num + ': ' + eval('a_' + num) + "<br />" );

  eval('delete a_' + num);

  try{
    eval("var tmp = a_" + num);
  }catch(e){
    document.write( "a_" + num + " Error: " + e + "<br />" );
    eval("var a_" + num + " = new Array(11,12,13,14);");
  }

  document.write( 'a_' + num + ': ' + eval('a_' + num) + "<br /><br />" );
}
// -->
</script>

<script type="text/javascript">
<!-- 
function _isDefined( obj ){
  if( window.hasOwnProperty( obj ) ){
    return true;
  }
  return false;
}

for( num = 4; num < 8; num++ ){
  eval("var a_" + num + " = new Array(1,2,3,4);");

  if( _isDefined( "a_" + num ) ){
    document.write( 'a_' + num + ': ' + eval('a_' + num) + "<br />" );
  }

  eval('delete a_' + num);

  if( ! _isDefined( "a_" + num ) ){
    document.write( "a_" + num + " is NOT defined.<br />" );
    eval("var a_" + num + " = new Array(11,12,13,14);");
  }

  document.write( 'a_' + num + ': ' + eval('a_' + num) + "<br /><br />" );
}
// -->
</script>

<script type="text/javascript">
<!-- 
function _isDefined2( obj ){
  if( obj in window ){
    return true;
  }
  return false;
}

for( num = 8; num < 12; num++ ){
  eval("var a_" + num + " = new Array(1,2,3,4);");

  if( _isDefined2( "a_" + num ) ){
    document.write( 'a_' + num + ': ' + eval('a_' + num) + "<br />" );
  }

  eval('delete a_' + num);

  if( ! _isDefined2( "a_" + num ) ){
    document.write( "a_" + num + " is NOT defined.<br />" );
    eval("var a_" + num + " = new Array(11,12,13,14);");
  }

  document.write( 'a_' + num + ': ' + eval('a_' + num) + "<br /><br />" );
}
// -->
</script>

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 {

$ perl -MDigest::SHA -e 'print Digest::SHA::sha1_hex("admin"), "\n"'
d033e22ae348aeb5660fc2140aec35850c4da997
$ 

$ ./script/securesbm_server.pl -r
...(省略)
File(s) "...(省略)/Controller/Admin.pm" modified, restarting
...(省略)

@@ -16,6 +16,14 @@
                Charsets::Japanese
 
                StackTrace
+
+               Authentication
+               Authentication::Store::DBIC
+               Authentication::Credential::Password
+
+               Session
+               Session::Store::FastMmap
+               Session::State::Cookie
                /;
 
 use Digest::SHA;

authentication:
  dbic:
    user_class:           SecureSBMDB::User
    user_field:           user_email
    password_field:       user_password
    password_type:        hashed
    password_hash_type:   SHA-1

Zellerの公式

0 が日曜とすると，与えられた「年」「月」「日」の曜日は
　　　　　(年 + 年/4 - 年/100 + 年/400 + (13*月+8)/5 + 日) % 7
となる．
（ただし 1月，2月は前年の13月，14月として計算する）

<script type="text/javascript">
<!-- 
function getDayOfTheWeek(year, month, day) {
    if( month < 3 ){
        month += 12;
        year--;
    }

    return (
        year
        + Math.floor( year / 4 )
        - Math.floor( year / 100 )
        + Math.floor( year / 400 )
        + Math.floor( (13 * month + 8) / 5 ) + day
        ) % 7;
}

function make_calendar( year, month, curyear, curmonth ){
    var days = new Array(31, 28, 31, 30, 31, 30, 31, 31,  30,31, 30, 31);
    if( (((year % 4) == 0)&&((year % 100) != 0)) || ((year % 400) == 0) ){
        days[1]=29;
    }

    var startday = getDayOfTheWeek(year, month, 1);
    var lastday = days[month-1];

    var calhtml = "";
    calhtml += "<table align=\"center\">";
    calhtml += "<tr><td>日</td><td>月</td><td>火</td><td>水</td>";
    calhtml += "<td>木</td><td>金</td><td>土</td></tr>";
 
    var cols = 0;
    if( startday != 0 ){
        calhtml += "<tr>";
        for( cols = 0; cols < startday; cols++ ){
            calhtml += "<td>&nbsp;</td>";
        }
    }

    for( day = 1; day <= lastday; day++ ){
        if( cols == 0 ){
            calhtml += "<tr>";
        }
        calhtml += "<td align=\"right\">" + day + "</td>";                
        cols++;
        if( cols >= 7 ){
            calhtml += "</tr>";
            if( day < lastday ){
                cols = 0;
            }
        }
    }
    for( i = cols; i < 7; i++){
        calhtml += "<td>&nbsp;</td>";
    }
    calhtml += "</tr></table>";
    return calhtml;
}

var today = new Date();
document.write( today.getFullYear() + "年" + (today.getMonth() + 1) + "月<br  />" ) 
var cal = make_calendar( today.getFullYear(), today.getMonth() + 1, 0, 0 );
document.write( cal );
// -->
</script>

sub is_deletableuser : Private {
    my( $c, $user_id ) = @_; 

    if( $user_id eq '1' ){ # for admin
        return ''; 
    }

    if( my $udb = $c->model('SecureSBMDB::User')
                                      ->find({user_id => $user_id}) ){
        my $udbname = $udb->user_email;
        if( $udbname eq '' || $udbname eq 'admin' ){
            return '';
        }else{  
            return $udb;
        }
    }

    return '';
}