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/