V.S.A. III

sub _isValidDate : Private { 
    my $date = shift; 
    my @days = (31, 28, 31, 30, 31, 30, 31, 31,  30, 31, 30, 31); 

    $date =~ /^(2[0-9][0-9][0-9])([01][0-9])([0-3][0-9])$/; 
    my $year = $1; 
    my $month = $2; 
    my $day = $3; 

    # 閏年の判定 
    if( _isLeapYear( $year ) ){ 
        $days[1]=29; 
    } 

    # 月の判定: 1 月から 12 月まで 
    if( $month < 1 || $month > 12 ){ 
        return 0; 
    } 

    # 日の判定: 1 日から $days[$month-1] まで 
    if( $day < 1 || $day > $days[$month-1] ){ 
        return 0; 
    } 
    return 1; 

} # end of _isValidDate() 

    if( defined $data{date} ){ 
        if( $data{date} =~ /^2[0-9][0-9][0-9][01][0-9]$/ ){ 
            # YYYYMM 
            $date = $data{date} . '01'; 
            if( SecureSBMLib::_isValidDate( $date ) ){ 
                $where = 'date_trunc(\'month\',user_bookmark_ts)'; 
            } 
        }elsif( $data{date} =~ /^2[0-9][0-9][0-9][01][0-9][0-3][0-9]$/ ){ 
            # YYYYMMDD 
            $date = $data{date}; 
            if( SecureSBMLib::_isValidDate( $date ) ){ 
                $where = 'date_trunc(\'day\',user_bookmark_ts)'; 
            } 
        }else{ 
            # Error 
        } 
    } 

    my @bms; 
    if( defined $where ){ 
        @bms = $ubdb->search({$where => $date}, 
                       {order_by => 'user_bookmark_ts DESC'}) 
                        ->slice( $start, $start + $entrynum - 1 ) 
    }else{ 
        @bms = $ubdb->search(undef, {order_by => 'user_bookmark_ts DESC'}) 
                        ->slice( $start, $start + $entrynum - 1 ); 
    } 

sub makebackup : Local {
        my ( $self, $c ) = @_;

        $_ = $c->config->{'Model::SecureSBMDB'}->{connect_info}[0];
        my ( $dbi, $dbd, $dbparams ) = split( ':' );
        my ( @dbparams ) = split( ';', $dbparams );
        my %dbparams;
        foreach my $d (@dbparams){
                my ( $name, $data ) = split( '=', $d );
                $dbparams{$name} = $data;
        }

        my $dbname = (defined $dbparams{dbname})?$dbparams{dbname}:'';

        my $dbuser = $c->config->{'Model::SecureSBMDB'}->{connect_info}[1];
        my $dbpwd = $c->config->{'Model::SecureSBMDB'}->{connect_info}[2];

        if( $dbd eq 'Pg' ){
                my $dbhostopt = (defined $dbparams{host})?
"-h $dbparams{host}":'';
                my $dbportopt = (defined $dbparams{port})?
"-p $dbparams{port}":'';
                my $dbfileopt = "-f $backuppath";

                system( "pg_dump -U $dbuser -F t $dbhostopt $dbportopt 
$dbfileopt $dbname" );
                my ( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, 
                      $atime, $mtime, $ctime, $blksize, $blocks ) 
                        = stat($backuppath);
                my ( $sec, $min, $hour, $mday, $mon, 
                      $year, $wday, $yday, $isdst ) 
                        = localtime($mtime);
                my $filestat 
                        = sprintf( '%s <br />owner:%s group:%s size:%s 
                          <br />mtime: %4d/%02d/%02d %02d:%02d:%02d',
                            $backupfilename, $uid, $gid, $size,
                            $year + 1900, $mon + 1, $mday, $hour, $min, $sec
                        );
                $c->stash->{backupfileinfo} = $filestat;
                $c->stash->{backupfilename} = $backupfilename;
        }else{
                # Not implimented
                $c->stash->{resultmessage} = 'Not implimented yet';
        }
        $c->forward('index');

} # end of makebackup()

sub getbackup : Local {
        my ( $self, $c, $bfname ) = @_;

        if( $bfname ne $backupfilename ){
                $c->forward('index');
                return 0;
        }

        my $backupfilepath = $backupdir . '/' . $bfname;
        my ( $dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size, 
$atime, $mtime, $ctime, $blksize, $blocks ) = stat($backupfilepath);

        my $bfcontents = '';

        if( open( BFH, $backupfilepath ) ){
                my $rsize = 1;
                while( $rsize && $size > 0){
                        my $tmp;
                        $rsize = read( BFH, $tmp, $size );
                        $bfcontents .= $tmp;
                        $size -= $rsize;
                }
                close( BFH );
        }

        $c->res->headers->header(
                'Content-Type' => 'application/x-tar;'
                        . 'name="' . $bfname . '";' );

        $c->res->body( $bfcontents );
        $c->forward('index');

} # end of getbackup()

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{

...

    if( my $bdb = $c->model('SecureSBMDB::Bookmark')->find(
                        {
                            bookmark_id => $bookmarkid
                        }       
                )
    ){              
        my $bookmark = {
            url => $bdb->bookmark_uri,
            title => $bdb->bookmark_title
        };
       ...

        my %user;
        my @users;
        my $usersnum = 0;
        foreach my $ubdb ($bdb->user_bookmarks->search(
                {
                    -or     =>  \@ORquery,
                    -and    =>  \@ANDquery,
                },
                {
                    join    =>  [qw/
                        user_bookmark_roles
                    /],
                    order_by    =>  'user_bookmark_ts DESC',
                }
                )
        ){
            my $userid = $ubdb->user_id;
            my $profile = $ubdb->user->user_profiles->find({user_id => $userid});

            my $nickname;
            if( $profile->user_profile_nickname_publish == 1 ){
                $nickname = '<ul class="noId"><li>'
                    . $profile->user_profile_nickname
                    . '</li></ul>';
            }else{
                $nickname = '<ul class="onlyId"><li>'
                    . $profile->user_id
                    . '</li></ul>';
            }

            my $comment = $ubdb->user_bookmark_comment;
       ...
    }

    my @ORquery = ({'user_bookmark_roles.role_id' => 2});
    if( $c->user_exists ){
        my $udb = $c->stash->{user};
        foreach my $ur ($udb->user_roles->all){
            push( @ORquery, {'user_bookmark_roles.role_id' => $ur->role_id} );
        }
    }

if( defined $bookmark && $#users > 0 ){ 
    $c->stash->{bookmark} = $bookmark; 
    $c->stash->{publishusers} = \@users; 
    $c->stash->{usersnum} = $#users; 
} 

CREATE TABLE user_tags ( 
        user_tag_id     SERIAL, 
        user_id                 INTEGER, 
        tag_id                  INTEGER, 
        PRIMARY KEY(user_tag_id), 
        FOREIGN KEY(user_id) REFERENCES users(user_id), 
        FOREIGN KEY(tag_id) REFERENCES tags(tag_id) 
);

sub updateFromVersion02 : Local {
    my ( $self, $c ) = @_;

    my $num = 0;
    $c->stash->{pagetitle} = 'Secure-SBM Users-Tags Update';
    $c->stash->{template} = 'admin/updatefromversion02.tt';

    $c->model('SecureSBMDB::UserTag')->delete_all;
    foreach my $udb ($c->model('SecureSBMDB::User')->all){
        my $uid = $udb->user_id;
        foreach my $ubdb ($udb->user_bookmarks->all){
            foreach my $ubtdb ($ubdb->user_bookmark_tags->all){
                my $tid = $ubtdb->tag_id;
                if( $c->model('SecureSBMDB::UserTag')->find_or_create({
                        user_id => $uid,
                        tag_id  => $tid
                    })
                ){
                    $num++;
                }
            }
        }
    }

    $c->stash->{resultnum} = $num;

} # end of updateFromVersion02()

       $c->model('SecureSBMDB::UserTag')-> 
             find_or_create( 
                        { 
                             user_id => $uid, 
                             tag_id  => $tid 
                         } 
                    ); 

<?xml version="1.0" encoding="UTF-8" ?>
<OpenSearchDescription
        xmlns="http://a9.com/-/spec/opensearch/1.1/"
        xmlns:moz="http://www.mozilla.org/2006/browser/search/">
  <ShortName>Secure-SBM</ShortName>
  <Description>Secure-SBM(セキュア・ソーシャル・ブックマーク)検索</Description>
  <InputEncoding>UTF-8</InputEncoding>
  <Image width="16" height="16">
    data:image/x-icon;base64,AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAA
    QAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBWiAAglsgAH5
    aJQB%2FWyUAflsmAHVaMwCAXyoAeV42AINhLQCHYy0Ae2A6AIpoNQCJaTgAi
    2s6AI1sOgCQbjsAim1AAI5uPgCRcD4AkXFBAIpvSQCOcUYAjXNKAJR1RgCXd
    0gAjnVQAJh4SQCWeEsAj3ZSAJZ5TACTeVIAm3tNAJl7TgCUe1QAkHpYAJp9U
    QCVfFUAm35SAJ1%2FUACcf1IAn4JVAJF%2BYwCchmIAq5VzAJGRkQCwmXkAs
    pt2ALSdewComocAlpaWALWefAC3oX8AtaGCAKmejQC2ooIAq5%2BNALmjgQC
    4o4IAuaSFALilhwC9qYoAs6eUAL6qjQC%2Fq40Av6uOAMCsjwCrq6sAuq%2B
    eAK2trQCyr6gAv7KeAL%2BznwCvr68AsbCuALCwsAC1sqwAsrGwALKysgDFt
    6IAt7SuALOzswC6ubUAybyrALm5uQDNvqkAurq6AMu%2FrADPwq4Avr6%2BA
    MbDvQDUyLcAxcXFANbKuADHx8cAzsvFANnOvADaz74AzszKANHNygDR0dEA3
    dXKANjVzwDh4eEA4uLiAOjk3gDp5d8A6ubgAOfn5wDp6OYA7erkAOnp6QDq6
    uoA7evnAO3r6ADv7OcA6%2BvrAOzs7ADt7e0A8O7tAPHv7ADv7%2B8A8PDwA
    PPx7gDz8e8A8fHxAPLy8gDz8%2FMA9vX0APX19QD29fUA9%2Fb0APb29gD39
    %2FcA%2Bvj1APr59wD6%2BfgA%2Bfn5APr6%2BAD7%2B%2FsA%2FPz7AP38%
    2BwD8%2FPwA%2Ff38AP39%2FQD%2B%2Fv4A%2F%2F%2F%2FAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkYh1bnl%2BgHyDioR4b4ORkZB
    1UyxCRFBdY1tNVTFTfZGRXwEdGwE3IGVFNScMUW6QkZEXPnsBYkB2KTBaCoi
    PkZGRMxMfJH9fMgZWVwFxkZGRkT8ZkAI%2BhgsEkS8NK5GRkZEYAxImbV8BT
    pGGABqJkZGQg359c2dreX58b2d1ipGRjWxeT0lIWGFZS0xKXXONkWABAQEBP
    UcBIwEBQ2Z0ipGLRo%2BDNAdwUoqBLQWNj5GRkYI6ISIUiHc2HhUckZGRkZE
    8FhEzaZEuECU5cpGRkZGRQQyHkVxoOCqOkVR6kZGRkYwoDgEPZIU7CQEIapG
    RkZGRkZGRkZGRkZGRkZGRkQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA%3D
  </Image>
  <Url type="text/html" 
     template="http://localhost:3000/searchbookmark?searchword={searchTerms}"/>
  <moz:SearchForm>http://localhost:3000/personal</moz:SearchForm>
</OpenSearchDescription>
<!--
This Program is distributed under version 1.0 of the Rinza Public
License Agreement, that is bundled with this package in the file
LICENSE, and is available through the website at the following URL:
http://www.tyzoh.jp/rinza/licenses/LICENSE-1.0.txt.

The Initial Developer of the Original Program is Nihon Unisys, Ltd.
The Original Program is copyrighted (C) 2007 by Nihon Unisys, Ltd.
with all rights reserved.
There is NO WARRANTY OF ANY KIND by the Initial Developer of the
Original Program.
-->

<?xml version="1.0" encoding="UTF-8" ?>
<OpenSearchDescription
        xmlns="http://a9.com/-/spec/opensearch/1.1/"
        xmlns:moz="http://www.mozilla.org/2006/browser/search/">
  <ShortName>Secure-SBM</ShortName>
  <Description>Secure-SBM(セキュア・ソーシャル・ブックマーク)検索</Description>
  <InputEncoding>UTF-8</InputEncoding>
  <Image width="16" height="16">
    data:image/x-icon;base64,AAABAAEAEBAAAAEACABoBQAAFgAAACgAAAA
    QAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACBWiAAglsgAH5
    aJQB%2FWyUAflsmAHVaMwCAXyoAeV42AINhLQCHYy0Ae2A6AIpoNQCJaTgAi
    2s6AI1sOgCQbjsAim1AAI5uPgCRcD4AkXFBAIpvSQCOcUYAjXNKAJR1RgCXd
    0gAjnVQAJh4SQCWeEsAj3ZSAJZ5TACTeVIAm3tNAJl7TgCUe1QAkHpYAJp9U
    QCVfFUAm35SAJ1%2FUACcf1IAn4JVAJF%2BYwCchmIAq5VzAJGRkQCwmXkAs
    pt2ALSdewComocAlpaWALWefAC3oX8AtaGCAKmejQC2ooIAq5%2BNALmjgQC
    4o4IAuaSFALilhwC9qYoAs6eUAL6qjQC%2Fq40Av6uOAMCsjwCrq6sAuq%2B
    eAK2trQCyr6gAv7KeAL%2BznwCvr68AsbCuALCwsAC1sqwAsrGwALKysgDFt
    6IAt7SuALOzswC6ubUAybyrALm5uQDNvqkAurq6AMu%2FrADPwq4Avr6%2BA
    MbDvQDUyLcAxcXFANbKuADHx8cAzsvFANnOvADaz74AzszKANHNygDR0dEA3
    dXKANjVzwDh4eEA4uLiAOjk3gDp5d8A6ubgAOfn5wDp6OYA7erkAOnp6QDq6
    uoA7evnAO3r6ADv7OcA6%2BvrAOzs7ADt7e0A8O7tAPHv7ADv7%2B8A8PDwA
    PPx7gDz8e8A8fHxAPLy8gDz8%2FMA9vX0APX19QD29fUA9%2Fb0APb29gD39
    %2FcA%2Bvj1APr59wD6%2BfgA%2Bfn5APr6%2BAD7%2B%2FsA%2FPz7AP38%
    2BwD8%2FPwA%2Ff38AP39%2FQD%2B%2Fv4A%2F%2F%2F%2FAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAkYh1bnl%2BgHyDioR4b4ORkZB
    1UyxCRFBdY1tNVTFTfZGRXwEdGwE3IGVFNScMUW6QkZEXPnsBYkB2KTBaCoi
    PkZGRMxMfJH9fMgZWVwFxkZGRkT8ZkAI%2BhgsEkS8NK5GRkZEYAxImbV8BT
    pGGABqJkZGQg359c2dreX58b2d1ipGRjWxeT0lIWGFZS0xKXXONkWABAQEBP
    UcBIwEBQ2Z0ipGLRo%2BDNAdwUoqBLQWNj5GRkYI6ISIUiHc2HhUckZGRkZE
    8FhEzaZEuECU5cpGRkZGRQQyHkVxoOCqOkVR6kZGRkYwoDgEPZIU7CQEIapG
    RkZGRkZGRkZGRkZGRkZGRkQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
    AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA%3D
  </Image>
  <Url type="text/html" 
     template="http://localhost:3000/searchbookmark?q={searchTerms}"/>
  <moz:SearchForm>http://localhost:3000/personal</moz:SearchForm>
</OpenSearchDescription>
<!--
This Program is distributed under version 1.0 of the Rinza Public
License Agreement, that is bundled with this package in the file
LICENSE, and is available through the website at the following URL:
http://www.tyzoh.jp/rinza/licenses/LICENSE-1.0.txt.

The Initial Developer of the Original Program is Nihon Unisys, Ltd.
The Original Program is copyrighted (C) 2007 by Nihon Unisys, Ltd.
with all rights reserved.
There is NO WARRANTY OF ANY KIND by the Initial Developer of the
Original Program.
-->

    unless( _checkRole( $c, $bookmark_id ) ){
        return undef;
    }

sub _checkRole : Private {
    my ( $c, $bookmark_id ) = @_; 
    my $udb = $c->stash->{user};

    if( my $bdb = $c->model('SecureSBMDB::Bookmark')->
        find( {bookmark_id => $bookmark_id} )
    ){  
        foreach my $brole ($bdb->roles->all){
            foreach my $urole ($udb->roles->all){
                if( $brole->role_id == $urole->role_id ){
                    return 1;
                }   
            }
        }
    }
    return 0;
}

<style type="text/css">
<!--

.imgbutton1720 {
  cursor: pointer;
}

.imgbutton1720_2 {
  width: 32px;
  height: 32px;
}

.imgbutton1720_3 {
  border: 0px;
  margin: 0px;
  padding: 0px;
}
-->
</style>

<form method="POST" action="http://www.tyzoh.jp/modules/weblog/details.php?blog_id=1720">
<input type="image" src="http://www.tyzoh.jp/uploads/weblog_imagethumbs/273.png"
alt="submit" 
title="実行"
class="imgbutton1720_2"
name="input1720_1"
id="input1720_1_2"
/>
</form>

<script type/javascript>
<!--
document.getElementById('input1720_1_2').onmouseover = function(){
  this.src = "http://www.tyzoh.jp/uploads/weblog_imagephotos/276.jpg";
}

document.getElementById('input1720_1_2').onmouseout = function(){
  this.src = "http://www.tyzoh.jp/uploads/weblog_imagephotos/273.png";
}
// -->
</script>

<input 
type="image" src="http://www.tyzoh.jp/uploads/weblog_imagethumbs/273.png"
alt="submit" 
title="実行" 
name="img1720_2"
id="img1720_2_2"
class="imgbutton1720_2"
/>

<script>
<!--
document.getElementById('img1720_2_2').onclick = function(){
  location.href="http://www.tyzoh.jp/modules/weblog/details.php?blog_id=1720";
}

document.getElementById('img1720_2_2').onmouseover = function(){
  this.src = "http://www.tyzoh.jp/uploads/weblog_imagephotos/276.jpg";
}

document.getElementById('img1720_2_2').onmouseout = function(){
  this.src = "http://www.tyzoh.jp/uploads/weblog_imagethumbs/273.png";
}
// -->
</script>

<img
src="http://www.tyzoh.jp/uploads/weblog_imagethumbs/273.png"
name="img1720_3" 
alt="submit"
title="実行"
class="imgbutton1720 imgbutton1720_2" 
/>

<script type/javascript>
<!--
document.img1720_3.onclick = function(){
  location.href = "http://www.tyzoh.jp/modules/weblog/details.php?blog_id=1720";
}

document.img1720_3.onmouseover = function(){
  this.src = "http://www.tyzoh.jp/uploads/weblog_imagephotos/276.jpg";
}

document.img1720_3.onmouseout = function(){
  this.src = "http://www.tyzoh.jp/uploads/weblog_imagephotos/273.png";
}
// -->
</script>

<img
src="http://www.tyzoh.jp/uploads/weblog_imagethumbs/273.png"
id="img1720_4" 
alt="submit"
title="実行"
class="imgbutton1720 imgbutton1720_2"
/>

<script type/javascript>
<!--
document.getElementById('img1720_4').onclick = function(){
  location.href = "http://www.tyzoh.jp/modules/weblog/details.php?blog_id=1720";
}

document.getElementById('img1720_4').onmouseover = function(){
  this.src = "http://www.tyzoh.jp/uploads/weblog_imagephotos/276.jpg";
}

document.getElementById('img1720_4').onmouseout = function(){
  this.src = "http://www.tyzoh.jp/uploads/weblog_imagephotos/273.png";
}
// -->
</script>

<button 
type="button" 
id="img1720_5_1" 
class="imgbutton1720 imgbutton1720_3" 
alt="submit">
<img
src="http://www.tyzoh.jp/uploads/weblog_imagethumbs/273.png"
name="img1720_5_2" 
alt="submit"
title="実行"
class="imgbutton1720 imgbutton1720_2 imgbutton1720_3"
id="img1720_5_3"
/>
</button>

<script type="text/javascript">
<!--
document.getElementById('img1720_5_1').onclick = function (){
  location.href="http://www.tyzoh.jp/modules/weblog/details.php?blog_id=1720";
}

document.getElementById('img1720_5_3').onmouseover = function(){
  this.src = "http://www.tyzoh.jp/uploads/weblog_imagephotos/276.jpg";
}

document.getElementById('img1720_5_3').onmouseout = function(){
  this.src = "http://www.tyzoh.jp/uploads/weblog_imagephotos/273.png";
}
// -->
</script>

<style type="text/css">
button {
  img: http://foo.bar.jp/hoge.gif;
}
</style>

<style type="text/css">
<!-- 
button.engageimage1720 {
  background: url('http://www.tyzoh.jp/uploads/weblog_imagephotos/276.jpg');
  cursor: pointer;
}

button.editimage1720 {
  background: url('http://www.tyzoh.jp/uploads/weblog_imagethumbs/273.png');
  cursor: pointer;
}
-->
</style>

<button class="editimage1720 imgbutton1720_2" id="button1720_6"></button>

<script type="text/javascript">
<!-- 
document.getElementById('button1720_6').onclick = function(){
  location.href="http://www.tyzoh.jp/modules/weblog/details.php?blog_id=1720";
}

document.getElementById('button1720_6').onmouseover = function(){
  this.className = "engageimage1720 imgbutton1720_2";
}

document.getElementById('button1720_6').onmouseout = function(){
  this.className = "editimage1720 imgbutton1720_2";
}
// -->
</script>

[%- FOREACH tag_v IN bookmark_v.tags -%]
  [%- SET tagelement = 'tag_' _ bookmark_v.id _ tag_v | html | collapse -%]
  <span id="[% tagelement %]" class="eachtag">
  [%- tag_v | html %]</span>,
[%- END -%]

[% FOREACH tag_v IN bookmark_v.tags %]
    [%- SET tagelement = 'tag_' _ bookmark_v.id _ tag_v | html | collapse -%]
    var var_[% tagelement %]
        = _getElementById('[% tagelement %]');
    var_[% tagelement %].onmouseover
        = function () {
            this.style.color='#ffffff';
            this.style.background='#999999'; 
            this.style.cursor='pointer';
        }
    var_[% tagelement %].onmouseout
        = function () {
            this.style.color='#000000';
            this.style.background='#ffffff';
            this.style.cursor='auto';
        }
    var_[% tagelement %].onclick
        = function () {
            location.href 
                = '/searchbookmark?tag='
                    + encodeURI('[% tag_v | html %]');
        }
[% END %]

sub searchbookmark : Path('/searchbookmark') {
    my ( $self, $c ) = @_;
...(省略)
    # Bookmark の検索
    $tid = $c->model('SecureSBMDB::Tag')->
                   find( {tag_name => $data{tag}} )->tag_id;
    foreach my $ub ($udb->user_bookmarks->all){
        foreach my $t ($ub->user_bookmark_tags->all){
            if( $t->tag_id == $tid ){
                my $tmpbe = _makeOneBookmarkEntry( $c, $ub->bookmark_id );
                if( $tmpbe ){
                    unshift( @bookmarks, $tmpbe );
                }
            }
        }
    }

    $c->stash->{pagetitle} = 'Secure-SBM Search Bookmark Result';
    $c->stash->{template} = 'personal/personal.tt';

    $c->stash->{mybookmarks} = \@bookmarks;
}

sub deletebookmark : Path('/deletebookmark') {
    my ( $self, $c ) = @_;
    my $bookmarkid = $c->req->param('bookmark_id');
    my $uid = $c->stash->{user}->user_id;
    my $title;

    if( my $ubdb = $c->model('SecureSBMDB::UserBookmark')->
            find( {user_id => $uid, bookmark_id => $bookmarkid} )
    ){
        $title = $ubdb->bookmark->bookmark_title;
        $ubdb->user_bookmark_tags->delete_all;
        $ubdb->delete;
    }

    $c->flash->{resultmessage} = '「' . $title . '」を削除しました．';
    $c->res->redirect('/personal');
}

<div id="resultmessage">
[% resultmessage || c.flash.resultmessage -%]
</div> <!-- end of resultmessage -->

<button type="button" id="deletebookmark_button[% bookmark_v.id %]">
削除
</button>

<div id="bookmark_info[% bookmark_v.id %]">
タグ: [%- FOREACH tag_v IN bookmark_v.tags -%][% tag_v | html %],[% END -%]
<br />
コメント: [% bookmark_v.comment | html %]<br />
タイムスタンプ: [% bookmark_v.timestamp %]
</div> <!-- end of bookmark_info[% bookmark_v.id %] -->