1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
package VNWeb::LangPref;
use v5.26;
use TUWF;
use VNDB::Types;
use VNWeb::Auth;
use VNWeb::DB;
use VNWeb::Validation;
use Exporter 'import';
our @EXPORT = qw/
langpref_parse
langpref_fmt
$DEFAULT_TITLE_LANGS
$DEFAULT_ALTTITLE_LANGS
sql_vn_hist
/;
TUWF::set('custom_validations')->{langpref} = { type => 'array', maxlength => 5, values => { type => 'hash', keys => {
lang => { required => 0, enum => \%LANGUAGE }, # undef referring to the original title language
latin => { anybool => 1 },
original => { anybool => 1 },
official => { anybool => 1 },
}}};
my $LANGPREF = tuwf->compile({langpref=>1});
sub langpref_parse {
return undef if !defined $_[0];
my $p = $LANGPREF->validate(JSON::XS->new->decode($_[0]))->data;
for (@$p) {
$_->{official} = $_->{original} = 1 if !defined $_->{lang};
}
$p
}
sub langpref_fmt {
return undef if !defined $_[0];
JSON::XS->new->canonical(1)->encode([ map +{
lang => $_->{lang},
$_->{latin} ? (latin => \1) : (),
$_->{lang} && $_->{original} ? (original => \1) : (),
$_->{lang} && $_->{official} ? (official => \1) : (),
}, $_[0]->@*]);
}
our $DEFAULT_TITLE_LANGS = [{ lang => undef, latin => 1, official => 1, original => 1 }];
our $DEFAULT_ALTTITLE_LANGS = [{ lang => undef, latin => 0, official => 1, original => 1 }];
my $DEFAULT_SESSION = langpref_fmt($DEFAULT_TITLE_LANGS).langpref_fmt($DEFAULT_ALTTITLE_LANGS);
my $CURRENT_SESSION = $DEFAULT_SESSION;
sub pref {
my $titles = langpref_parse(auth->pref('title_langs')) // $DEFAULT_TITLE_LANGS;
my $alttitles = langpref_parse(auth->pref('alttitle_langs')) // $DEFAULT_ALTTITLE_LANGS;
tuwf->req->{langpref} //= [ $titles, $alttitles, langpref_fmt($titles).langpref_fmt($alttitles) ];
}
sub gen_sql {
my($tbl_main, $tbl_titles, $join_col) = @_;
my $p = pref;
sub id { ($_[0]{original}?'r':$_[0]{official}?'o':'u').($_[0]{lang}//'') }
my %joins = map +(id($_),1), $p->[0]->@*, $p->[1]->@*;
my $var = 'a';
$joins{$_} = 'x_'.$var++ for sort keys %joins;
my @joins = map sql(
"LEFT JOIN $tbl_titles $joins{$_} ON", sql_and
"$joins{$_}.$join_col = x.$join_col",
$_ =~ /^r/ ? "$joins{$_}.lang = x.olang" : (),
length($_) > 1 ? sql("$joins{$_}.lang =", \(''.substr($_,1))) : (),
$_ =~ /^o./ ? "$joins{$_}.official" : (),
), sort keys %joins;
my $title = 'COALESCE('.join(',',
map +($_->{latin} ? ($joins{ id($_) }.'.latin') : (), $joins{ id($_) }.'.title'), $p->[0]->@*
).')';
my $sorttitle = 'COALESCE('.join(',',
map +($joins{ id($_) }.'.latin', $joins{ id($_) }.'.title'), $p->[0]->@*
).')';
my $alttitle = 'COALESCE('.join(',',
(map +($_->{latin} ? ($joins{ id($_) }.'.latin') : (), $joins{ id($_) }.'.title'), $p->[1]->@*), "''"
).')';
sql "SELECT x.*, $title AS title, $sorttitle AS sorttitle, $alttitle AS alttitle FROM $tbl_main x", @joins;
}
# Similar to the 'vnt' VIEW, except for vn_hist and it generates a SELECT query for inline use.
sub sql_vn_hist { gen_sql 'vn_hist', 'vn_titles_hist', 'chid' }
# Run the given subroutine with the default language preferences, by
# temporarily disabling any user preferences in the current database session.
# (This function is a hack)
sub run_with_defaults {
my($f) = @_;
return $f->() if $CURRENT_SESSION eq $DEFAULT_SESSION;
tuwf->dbExeci('SET search_path TO public,pg_temp');
my $r;
my $e = eval { $r = $f->(); 1 };
my $s = $@;
tuwf->dbExeci('SET search_path TO public');
die $s if !$e;
$r;
}
TUWF::hook db_connect => sub { $CURRENT_SESSION = $DEFAULT_SESSION };
TUWF::hook before => sub {
my $p = pref;
return if $p->[2] eq $CURRENT_SESSION;
$CURRENT_SESSION = $p->[2];
tuwf->dbExeci('CREATE OR REPLACE TEMPORARY VIEW vnt AS', gen_sql('vn', 'vn_titles', 'id'));
};
1;
|
