sub _createSessionTable { my $this = shift;

    my $DB    = $TL->getDB($this->{dbgroup});
    my $table = $DB->symquote($this->{sessiontable}         , $this->{dbset});
    my $index = $DB->symquote($this->{sessiontable} . '_idx', $this->{dbset});

    # PostgreSQL: 9223372036854775807. (64bit/signed)
    $DB->execute(
        \$this->{dbset},
        sprintf(
            q{DO $$
                     BEGIN
                         CREATE TABLE %s (
                             sid         BIGSERIAL NOT NULL,
                             checkval    BIGINT    NOT NULL,
                             checkvalssl BIGINT    NOT NULL,
                             data        BIGINT,
                             updatetime  TIMESTAMP NOT NULL,

                             PRIMARY KEY (sid)
                         );
                         CREATE INDEX %s ON %s (updatetime);
                     EXCEPTION WHEN duplicate_table THEN
                     END;
                 $$},
            $table, $index, $table));

    return $this;
}

NAME

Tripletail::Session::PgSQL - 内部用

SEE ALSO

Tripletail::Session

AUTHOR INFORMATION

Copyright 2011 YMIRLINK Inc.

This framework is free software; you can redistribute it and/or modify it under the same terms as Perl itself

このフレームワークはフリーソフトウェアです。あなたは Perl と同じライセンスの 元で再配布及び変更を行うことが出来ます。

Address bug reports and comments to: tl@tripletail.jp

HP : http://tripletail.jp/