summaryrefslogtreecommitdiff
path: root/lib/VNWeb/User
diff options
context:
space:
mode:
Diffstat (limited to 'lib/VNWeb/User')
-rw-r--r--lib/VNWeb/User/Edit.pm2
-rw-r--r--lib/VNWeb/User/Lists.pm14
-rw-r--r--lib/VNWeb/User/Login.pm4
-rw-r--r--lib/VNWeb/User/Register.pm2
4 files changed, 11 insertions, 11 deletions
diff --git a/lib/VNWeb/User/Edit.pm b/lib/VNWeb/User/Edit.pm
index f934466e..e34ef0ba 100644
--- a/lib/VNWeb/User/Edit.pm
+++ b/lib/VNWeb/User/Edit.pm
@@ -78,7 +78,7 @@ TUWF::get qr{/$RE{uid}/edit}, sub {
};
-json_api qr{/u/edit}, $FORM, sub {
+json_api qr{/u/edit\.json}, $FORM, sub {
my $data = shift;
my $username = tuwf->dbVali('SELECT username FROM users WHERE id =', \$data->{id});
diff --git a/lib/VNWeb/User/Lists.pm b/lib/VNWeb/User/Lists.pm
index eea7eb4f..94071076 100644
--- a/lib/VNWeb/User/Lists.pm
+++ b/lib/VNWeb/User/Lists.pm
@@ -17,7 +17,7 @@ my $LABELS = form_compile any => {
elm_form 'UListManageLabels', undef, $LABELS;
-json_api qr{/u/ulist/labels.json}, $LABELS, sub {
+json_api qr{/u/ulist/labels\.json}, $LABELS, sub {
my($uid, $labels) = ($_[0]{uid}, $_[0]{labels});
return elm_Unauth if !auth || auth->uid != $uid;
@@ -80,7 +80,7 @@ my $VNVOTE = form_compile any => {
elm_form 'UListVoteEdit', undef, $VNVOTE;
-json_api qr{/u/ulist/setvote.json}, $VNVOTE, sub {
+json_api qr{/u/ulist/setvote\.json}, $VNVOTE, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
tuwf->dbExeci(
@@ -110,7 +110,7 @@ my $VNLABELS_IN = form_compile in => $VNLABELS;
elm_form 'UListLabelEdit', $VNLABELS_OUT, $VNLABELS_IN;
-json_api qr{/u/ulist/setlabel.json}, $VNLABELS_IN, sub {
+json_api qr{/u/ulist/setlabel\.json}, $VNLABELS_IN, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
die "Attempt to set vote label" if $data->{label} == 7;
@@ -141,7 +141,7 @@ my $VNDATE = form_compile any => {
elm_form 'UListDateEdit', undef, $VNDATE;
-json_api qr{/u/ulist/setdate.json}, $VNDATE, sub {
+json_api qr{/u/ulist/setdate\.json}, $VNDATE, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
tuwf->dbExeci(
@@ -183,7 +183,7 @@ my $VNNOTES = form_compile any => {
elm_form 'UListVNNotes', undef, $VNNOTES;
-json_api qr{/u/ulist/setnote.json}, $VNNOTES, sub {
+json_api qr{/u/ulist/setnote\.json}, $VNNOTES, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
tuwf->dbExeci(
@@ -203,7 +203,7 @@ my $VNDEL = form_compile any => {
elm_form 'UListDel', undef, $VNDEL;
-json_api qr{/u/ulist/del.json}, $VNDEL, sub {
+json_api qr{/u/ulist/del\.json}, $VNDEL, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
tuwf->dbExeci('DELETE FROM ulist_vns WHERE uid =', \$data->{uid}, 'AND vid =', \$data->{vid});
@@ -221,7 +221,7 @@ my $RSTATUS = form_compile any => {
elm_form 'UListRStatus', undef, $RSTATUS;
# Adds the release when not in the list.
-json_api qr{/u/ulist/rstatus.json}, $RSTATUS, sub {
+json_api qr{/u/ulist/rstatus\.json}, $RSTATUS, sub {
my($data) = @_;
return elm_Unauth if !auth || auth->uid != $data->{uid};
if($data->{status} == -1) {
diff --git a/lib/VNWeb/User/Login.pm b/lib/VNWeb/User/Login.pm
index 7c93e058..d1069b26 100644
--- a/lib/VNWeb/User/Login.pm
+++ b/lib/VNWeb/User/Login.pm
@@ -15,7 +15,7 @@ TUWF::get '/u/login' => sub {
};
-json_api '/u/login', {
+json_api qr{/u/login\.json}, {
username => { username => 1 },
password => { password => 1 }
}, sub {
@@ -41,7 +41,7 @@ json_api '/u/login', {
};
-json_api '/u/changepass', {
+json_api qr{/u/changepass\.json}, {
username => { username => 1 },
oldpass => { password => 1 },
newpass => { password => 1 },
diff --git a/lib/VNWeb/User/Register.pm b/lib/VNWeb/User/Register.pm
index 5135531b..05a1d433 100644
--- a/lib/VNWeb/User/Register.pm
+++ b/lib/VNWeb/User/Register.pm
@@ -11,7 +11,7 @@ TUWF::get '/u/register', sub {
};
-json_api '/u/register', {
+json_api qr{/u/register\.json}, {
username => { username => 1 },
email => { email => 1 },
vns => { int => 1 },