Tripletail::Session::PgSQL - 内部用

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/

Tripletail::Session::PgSQL - 内部用

# INDEX

- AUTHOR INFORMATION
- NAME
- SEE ALSO

Tripletail::Session::PgSQL - 内部用