1 files changed, 71 insertions, 0 deletions
diff --git a/lib/VNWeb/VN/Edit.pm b/lib/VNWeb/VN/Edit.pm
new file mode 100644
index 00000000..e71d77ae
--- /dev/null
+++ b/lib/VNWeb/VN/Edit.pm
@@ -0,0 +1,71 @@
+package VNWeb::VN::Edit;
+
+use VNWeb::Prelude;
+
+
+my $FORM = {
+    id         => { required => 0, id => 1 },
+    title      => { maxlength => 250 },
+    original   => { required => 0, default => '', maxlength => 250 },
+    alias      => { required => 0, default => '', maxlength => 500 },
+    desc       => { required => 0, default => '', maxlength => 10240 },
+    hidden     => { anybool => 1 },
+    locked     => { anybool => 1 },
+
+    authmod    => { _when => 'out', anybool => 1 },
+    editsum    => { _when => 'in out', editsum => 1 },
+};
+
+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{vrev}/edit} => sub {
+    my $e = db_entry v => tuwf->capture('id'), tuwf->capture('rev') or return tuwf->resNotFound;
+    return tuwf->resDenied if !can_edit v => $e;
+
+    $e->{image_sex} = $e->{image_vio} = undef;
+    $e->{authmod} = auth->permDbmod;
+    $e->{editsum} = $e->{chrev} == $e->{maxrev} ? '' : "Reverted to revision v$e->{id}.$e->{chrev}";
+
+    framework_ title => "Edit $e->{title}", type => 'v', dbobj => $e, tab => 'edit',
+    sub {
+        editmsg_ v => $e, "Edit $e->{title}";
+        elm_ VNEdit => $FORM_OUT, $e;
+    };
+};
+
+
+# TODO: Make this work
+TUWF::get qr{/v/add}, sub {
+    return tuwf->resDenied if !can_edit v => undef;
+
+    my $e = elm_empty($FORM_OUT);
+
+    framework_ title => 'Add visual novel',
+    sub {
+        editmsg_ v => undef, 'Add visual novel';
+        elm_ VNEdit => $FORM_OUT, $e;
+    };
+};
+
+
+elm_api VNEdit => $FORM_OUT, $FORM_IN, sub {
+    my $data = shift;
+    my $new = !$data->{id};
+    my $e = $new ? { id => 0 } : db_entry v => $data->{id} or return tuwf->resNotFound;
+    return elm_Unauth if !can_edit v => $e;
+
+    if(!auth->permDbmod) {
+        $data->{hidden} = $e->{hidden}||0;
+        $data->{locked} = $e->{locked}||0;
+    }
+    $data->{desc} = bb_subst_links $data->{desc};
+
+    return elm_Unchanged if !$new && !form_changed $FORM_CMP, $data, $e;
+    my($id,undef,$rev) = db_edit v => $e->{id}, $data;
+    elm_Redirect "/v$id.$rev";
+};
+
+1;