summaryrefslogtreecommitdiff
path: root/lib/VN3/VN/Edit.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VN3/VN/Edit.pm')
-rw-r--r--lib/VN3/VN/Edit.pm187
1 files changed, 0 insertions, 187 deletions
diff --git a/lib/VN3/VN/Edit.pm b/lib/VN3/VN/Edit.pm
deleted file mode 100644
index bee48a5f..00000000
--- a/lib/VN3/VN/Edit.pm
+++ /dev/null
@@ -1,187 +0,0 @@
-package VN3::VN::Edit;
-
-use VN3::Prelude;
-use VN3::VN::Lib;
-
-
-my $FORM = {
- alias => { required => 0, default => '', maxlength => 500 },
- anime => { maxlength => 50, sort_keys => 'aid', aoh =>{
- aid => { id => 1 }
- } },
- desc => { required => 0, default => '', maxlength => 10240 },
- image => { required => 0, default => 0, id => 1 }, # X
- img_nsfw => { anybool => 1 },
- hidden => { anybool => 1 },
- l_encubed => { required => 0, default => '', maxlength => 100 },
- l_renai => { required => 0, default => '', maxlength => 100 },
- l_wp => { required => 0, default => '', maxlength => 150 },
- length => { vn_length => 1 },
- locked => { anybool => 1 },
- original => { required => 0, default => '', maxlength => 250 },
- relations => { maxlength => 50, sort_keys => 'vid', aoh => {
- vid => { id => 1 }, # X
- relation => { vn_relation => 1 },
- official => { anybool => 1 },
- title => { _when => 'out' },
- } },
- screenshots => { maxlength => 10, sort_keys => 'scr', aoh => {
- scr => { id => 1 }, # X
- rid => { id => 1 }, # X
- nsfw => { anybool => 1 },
- width => { _when => 'out', uint => 1 },
- height => { _when => 'out', uint => 1 },
- } },
- seiyuu => { sort_keys => ['aid','cid'], aoh => {
- aid => { id => 1 }, # X
- cid => { id => 1 }, # X
- note => { required => 0, default => '', maxlength => 250 },
- id => { _when => 'out', id => 1 },
- name => { _when => 'out' },
- } },
- staff => { sort_keys => ['aid','role'], aoh => {
- aid => { id => 1 }, # X
- role => { staff_role => 1 },
- note => { required => 0, default => '', maxlength => 250 },
- id => { _when => 'out', id => 1 },
- name => { _when => 'out' },
- } },
- title => { maxlength => 250 },
-
- id => { _when => 'out', required => 0, id => 1 },
- authmod => { _when => 'out', anybool => 1 },
- editsum => { _when => 'in out', editsum => 1 },
- chars => { _when => 'out', aoh => {
- id => { id => 1 },
- name => {},
- } },
- releases => { _when => 'out', aoh => {
- id => { id => 1 },
- title => {},
- original => {},
- display => {},
- resolution=> {},
- } },
-};
-
-my $FORM_OUT = form_compile out => $FORM;
-my $FORM_IN = form_compile in => $FORM;
-my $FORM_CMP = form_compile cmp => $FORM;
-
-elm_form VNEdit => $FORM_OUT, $FORM_IN;
-
-
-TUWF::get qr{/$VREV_RE/edit} => sub {
- my $vn = entry v => tuwf->capture('id'), tuwf->capture('rev') or return tuwf->resNotFound;
- return tuwf->resDenied if !can_edit v => $vn;
-
- enrich aid => q{SELECT id, aid, name FROM staff_alias WHERE aid IN} => $vn->{staff}, $vn->{seiyuu};
- enrich vid => q{SELECT id AS vid, title FROM vn WHERE id IN} => $vn->{relations};
- enrich scr => q{SELECT id AS scr, width, height FROM screenshots WHERE id IN}, $vn->{screenshots};
- $vn->{chars} = tuwf->dbAlli('SELECT id, name FROM chars c WHERE id IN(SELECT id FROM chars_vns WHERE vid =', \$vn->{id}, ') ORDER BY name');
-
- $vn->{releases} = tuwf->dbAlli('SELECT id, title, original, resolution FROM releases WHERE id IN(SELECT id FROM releases_vn WHERE vid =', \$vn->{id}, ') ORDER BY id');
- enrich_list1 lang => id => id => q{SELECT id, lang FROM releases_lang WHERE id IN}, $vn->{releases};
- $_->{display} = sprintf '[%s] %s (r%d)', join(',', @{ delete $_->{lang} }), $_->{title}, $_->{id} for @{$vn->{releases}};
-
- $vn->{authmod} = auth->permDbmod;
- $vn->{editsum} = $vn->{chrev} == $vn->{maxrev} ? '' : "Reverted to revision v$vn->{id}.$vn->{chrev}";
-
- Framework index => 0, title => "Edit $vn->{title}",
- top => sub {
- Div class => 'col-md', sub {
- EntryEdit v => $vn;
- Div class => 'detail-page-title', sub {
- Txt $vn->{title};
- Debug $vn;
- };
- TopNav edit => $vn;
- };
- }, sub {
- FullPageForm module => 'VNEdit.Main', data => $vn, schema => $FORM_OUT, sections => [
- general => 'General info',
- staff => 'Staff',
- cast => 'Cast',
- relations => 'Relations',
- screenshots => 'Screenshots',
- ];
- };
-};
-
-
-TUWF::get '/v/add', sub {
- return tuwf->resDenied if !auth->permEdit;
- Framework index => 0, title => 'Add a new visual novel', narrow => 1, sub {
- Div class => 'row', sub {
- Div class => 'col-md col-md--1', sub { Div 'data-elm-module' => 'VNEdit.New', '' };
- };
- };
-};
-
-
-json_api qr{/(?:$VID_RE/edit|v/add)}, $FORM_IN, sub {
- my $data = shift;
- my $new = !tuwf->capture('id');
- my $vn = $new ? { id => 0 } : entry v => tuwf->capture('id') or return tuwf->resNotFound;
-
- return $elm_Unauth->() if !can_edit v => $vn;
-
- if(!auth->permDbmod) {
- $data->{hidden} = $vn->{hidden}||0;
- $data->{locked} = $vn->{locked}||0;
- }
-
- # Elm doesn't actually verify this one
- die "Image not found" if $data->{image} && !-e tuwf->imgpath(cv => $data->{image});
-
- die "Relation with self" if grep $_->{vid} == $vn->{id}, @{$data->{relations}};
- validate_dbid 'SELECT id FROM vn WHERE id IN', map $_->{vid}, @{$data->{relations}};
- validate_dbid 'SELECT id FROM screenshots WHERE id IN', map $_->{scr}, @{$data->{screenshots}};
- validate_dbid sql('SELECT DISTINCT id FROM releases_vn WHERE vid =', \$vn->{id}, ' AND id IN'), map $_->{rid}, @{$data->{screenshots}};
- validate_dbid 'SELECT aid FROM staff_alias WHERE aid IN', map $_->{aid}, @{$data->{seiyuu}}, @{$data->{staff}};
- validate_dbid sql('SELECT DISTINCT id FROM chars_vns WHERE vid =', \$vn->{id}, ' AND id IN'), map $_->{cid}, @{$data->{seiyuu}};
-
- $data->{desc} = bb_subst_links $data->{desc};
- return $elm_Unchanged->() if !$new && !form_changed $FORM_CMP, $data, $vn;
-
- my($id,undef,$rev) = update_entry v => $vn->{id}, $data;
-
- update_reverse($id, $rev, $vn, $data);
-
- $elm_Changed->($id, $rev);
-};
-
-
-sub update_reverse {
- my($id, $rev, $old, $new) = @_;
-
- my %old = map +($_->{vid}, $_), $old->{relations} ? @{$old->{relations}} : ();
- my %new = map +($_->{vid}, $_), @{$new->{relations}};
-
- # Updates to be performed, vid => { vid => x, relation => y, official => z } or undef if the relation should be removed.
- my %upd;
-
- for my $i (keys %old, keys %new) {
- if($old{$i} && !$new{$i}) {
- $upd{$i} = undef;
- } elsif(!$old{$i} || $old{$i}{relation} ne $new{$i}{relation} || !$old{$i}{official} != !$new{$i}{official}) {
- $upd{$i} = {
- vid => $id,
- relation => vn_relation_reverse($new{$i}{relation}),
- official => $new{$i}{official}
- };
- }
- }
-
- for my $i (keys %upd) {
- my $v = entry v => $i;
- $v->{relations} = [
- $upd{$i} ? $upd{$i} : (),
- grep $_->{vid} != $id, @{$v->{relations}}
- ];
- $v->{editsum} = "Reverse relation update caused by revision v$id.$rev";
- update_entry v => $i, $v, 1;
- }
-}
-
-1;
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-19 14:58:02 +0000