31 lines
580 B
Perl
31 lines
580 B
Perl
package MyRedland::DB::Migrations;
|
|
|
|
use v5.34.1;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub MIGRATIONS {
|
|
return (
|
|
'CREATE TABLE options (
|
|
name TEXT PRIMARY KEY,
|
|
value TEXT
|
|
)',
|
|
'CREATE EXTENSION IF NOT EXISTS "uuid-ossp"',
|
|
'CREATE TABLE paths (
|
|
path TEXT PRIMARY KEY,
|
|
first_seen timestamp DEFAULT NOW()
|
|
)',
|
|
'CREATE TABLE requests (
|
|
uuid UUID DEFAULT uuid_generate_v4(),
|
|
remote_address TEXT NOT NULL,
|
|
user_agent TEXT NOT NULL,
|
|
params JSON NOT NULL,
|
|
date timestamp DEFAULT NOW(),
|
|
path TEXT,
|
|
FOREIGN KEY (path) REFERENCES paths(path)
|
|
)',
|
|
);
|
|
}
|
|
1;
|