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
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
package VNWeb::Chars::Edit;
use VNWeb::Prelude;
use VNWeb::Images::Lib 'enrich_image';
use VNWeb::Releases::Lib;
my $FORM = {
id => { required => 0, id => 1 },
name => { maxlength => 200 },
original => { required => 0, default => '', maxlength => 200 },
alias => { required => 0, default => '', maxlength => 500 },
desc => { required => 0, default => '', maxlength => 5000 },
gender => { default => 'unknown', enum => \%GENDER },
spoil_gender=>{ required => 0, enum => \%GENDER },
b_month => { required => 0, default => 0, uint => 1, range => [ 0, 12 ] },
b_day => { required => 0, default => 0, uint => 1, range => [ 0, 31 ] },
age => { required => 0, uint => 1, range => [ 0, 32767 ] },
s_bust => { required => 0, uint => 1, range => [ 0, 32767 ], default => 0 },
s_waist => { required => 0, uint => 1, range => [ 0, 32767 ], default => 0 },
s_hip => { required => 0, uint => 1, range => [ 0, 32767 ], default => 0 },
height => { required => 0, uint => 1, range => [ 0, 32767 ], default => 0 },
weight => { required => 0, uint => 1, range => [ 0, 32767 ] },
bloodt => { default => 'unknown', enum => \%BLOOD_TYPE },
cup_size => { required => 0, default => '', enum => \%CUP_SIZE },
main => { required => 0, id => 1 },
main_spoil => { uint => 1, range => [0,2] },
main_ref => { _when => 'out', anybool => 1 },
main_name => { _when => 'out', default => '' },
image => { required => 0, vndbid => 'ch' },
image_info => { _when => 'out', required => 0, type => 'hash', keys => $VNWeb::Elm::apis{ImageResult}[0]{aoh} },
traits => { sort_keys => 'id', aoh => {
tid => { id => 1 },
spoil => { uint => 1, range => [0,2] },
name => { _when => 'out' },
group => { _when => 'out', required => 0 },
applicable => { _when => 'out', anybool => 1 },
new => { _when => 'out', anybool => 1 },
} },
vns => { sort_keys => ['vid', 'rid'], aoh => {
vid => { id => 1 },
rid => { id => 1, required => 0 },
spoil => { uint => 1, range => [0,2] },
role => { enum => \%CHAR_ROLE },
title => { _when => 'out' },
} },
hidden => { anybool => 1 },
locked => { anybool => 1 },
authmod => { _when => 'out', anybool => 1 },
editsum => { _when => 'in out', editsum => 1 },
releases => { _when => 'out', aoh => {
id => { id => 1 },
rels => $VNWeb::Elm::apis{Releases}[0]
} },
};
my $FORM_OUT = form_compile out => $FORM;
my $FORM_IN = form_compile in => $FORM;
my $FORM_CMP = form_compile cmp => $FORM;
TUWF::get qr{/$RE{crev}/(?<action>edit|copy)} => sub {
my $e = db_entry c => tuwf->capture('id'), tuwf->capture('rev') or return tuwf->resNotFound;
my $copy = tuwf->capture('action') eq 'copy';
return tuwf->resDenied if !can_edit c => $copy ? {} : $e;
$e->{main_name} = $e->{main} ? tuwf->dbVali('SELECT name FROM chars WHERE id =', \$e->{main}) : '';
$e->{main_ref} = tuwf->dbVali('SELECT 1 FROM chars WHERE main =', \$e->{id})||0;
enrich_merge tid => 'SELECT t.id AS tid, t.name, t.applicable, g.name AS group, g.order AS order, false AS new FROM traits t LEFT JOIN traits g ON g.id = t.group WHERE t.id IN', $e->{traits};
$e->{traits} = [ sort { ($a->{order}//99) <=> ($b->{order}//99) || $a->{name} cmp $b->{name} } grep !$copy || $_->{applicable}, $e->{traits}->@* ];
enrich_merge vid => 'SELECT id AS vid, title FROM vn WHERE id IN', $e->{vns};
$e->{vns} = [ sort { $a->{title} cmp $b->{title} || $a->{vid} <=> $b->{vid} || ($a->{rid}||0) <=> ($b->{rid}||0) } $e->{vns}->@* ];
my %vns;
$e->{releases} = [ map !$vns{$_->{vid}}++ ? { id => $_->{vid}, rels => releases_by_vn $_->{vid} } : (), $e->{vns}->@* ];
if($e->{image}) {
$e->{image_info} = { id => $e->{image} };
enrich_image 0, [$e->{image_info}];
} else {
$e->{image_info} = undef;
}
$e->{authmod} = auth->permDbmod;
$e->{editsum} = $copy ? "Copied from c$e->{id}.$e->{chrev}" : $e->{chrev} == $e->{maxrev} ? '' : "Reverted to revision c$e->{id}.$e->{chrev}";
my $title = ($copy ? 'Copy ' : 'Edit ').$e->{name};
framework_ title => $title, type => 'c', dbobj => $e, tab => tuwf->capture('action'),
sub {
editmsg_ c => $e, $title, $copy;
elm_ CharEdit => $FORM_OUT, $copy ? {%$e, id=>undef} : $e;
};
};
TUWF::get qr{/$RE{vid}/addchar}, sub {
return tuwf->resDenied if !can_edit c => undef;
my $v = tuwf->dbRowi('SELECT id, title FROM vn WHERE NOT hidden AND id =', \tuwf->capture('id'));
return tuwf->resNotFound if !$v->{id};
my $e = elm_empty($FORM_OUT);
$e->{vns} = [{ vid => $v->{id}, title => $v->{title}, rid => undef, spoil => 0, role => 'primary' }];
$e->{releases} = [{ id => $v->{id}, rels => releases_by_vn $v->{id} }];
framework_ title => 'Add character',
sub {
editmsg_ c => undef, 'Add character';
elm_ CharEdit => $FORM_OUT, $e;
};
};
elm_api CharEdit => $FORM_OUT, $FORM_IN, sub {
my $data = shift;
my $new = !$data->{id};
my $e = $new ? { id => 0 } : db_entry c => $data->{id} or return tuwf->resNotFound;
return elm_Unauth if !can_edit c => $e;
if(!auth->permDbmod) {
$data->{hidden} = $e->{hidden}||0;
$data->{locked} = $e->{locked}||0;
}
$data->{desc} = bb_subst_links $data->{desc};
$data->{b_day} = 0 if !$data->{b_month};
$data->{main} = undef if $data->{hidden};
die "Attempt to set main to self" if $data->{main} && $data->{main} == $e->{id};
die "Attempt to set main while this character is already referenced." if $data->{main} && tuwf->dbVali('SELECT 1 AS ref FROM chars WHERE main =', \$e->{id});
# It's possible that the referenced character has been deleted since it was added as main, so don't die() on this one, just unset main.
$data->{main} = undef if $data->{main} && !tuwf->dbVali('SELECT 1 FROM chars WHERE NOT hidden AND main IS NULL AND id =', \$data->{main});
$data->{main_spoil} = 0 if !$data->{main};
validate_dbid 'SELECT id FROM images WHERE id IN', $data->{image} if $data->{image};
# Allow non-applicable traits only when they were already applied to this character.
validate_dbid
sql('SELECT id FROM traits t WHERE state = 1+1 AND (applicable OR EXISTS(SELECT 1 FROM chars_traits ct WHERE ct.tid = t.id AND ct.id =', \$e->{id}, ')) AND id IN'),
map $_->{tid}, $data->{traits}->@*;
validate_dbid 'SELECT id FROM vn WHERE id IN', map $_->{vid}, $data->{vns}->@*;
# XXX: This will also die when the release has been moved to a different VN
# and the char hasn't been updated yet. Would be nice to give a better
# error message in that case.
for($data->{vns}->@*) {
die "Bad release for v$_->{vid}: r$_->{rid}\n" if defined $_->{rid} && !tuwf->dbVali('SELECT 1 FROM releases_vn WHERE id =', \$_->{rid}, 'AND vid =', \$_->{vid});
}
return elm_Unchanged if !$new && !form_changed $FORM_CMP, $data, $e;
my($id,undef,$rev) = db_edit c => $e->{id}, $data;
elm_Redirect "/c$id.$rev";
};
1;
|
