api: add /random/media

lib/PoorBooru/API/V0.pm

@@ -28,6 +28,7 @@ sub startup ($self)
 	$r->get("/media")->to("media#list");
 	$r->get("/media/:media_id")->to("media#show");
 
+	$r->get("/random/media")->to("random#media");
 	$r->get("/random/tag")->to("random#tag");
 }
 

lib/PoorBooru/API/V0/Controller/Random.pm

@@ -5,17 +5,30 @@ use warnings;
 
 use Mojo::Base "Mojolicious::Controller";
 
+sub media ($self)
+{
+	$self->_random_entry("Media", sub ($c, $m) {
+		$c->redirect_to("/media/" . $m->media_id)
+	})
+}
+
 sub tag ($self)
 {
-	my $tag = $self->schema->resultset("Tag")
+	$self->_random_entry("Tag", sub ($c, $t) {
-	    ->search({}, { order_by => \"random()", limit => 1 })->single;
+		$c->redirect_to("/tag/" . $t->name)
+	})
+}
+
+sub _random_entry ($self, $rs, $cb) {
+	my $entry = $self->schema->resultset($rs)
+	    ->search(undef, { order_by => \"random()", rows => 1 })->single;
 
 	return $self->render(
-		json => {error => "Tag not found"},
+		json   => {error => "$rs not found"},
 		status => 404,
-	) if !defined($tag);
+	) if !defined($entry);
 
-	return $self->redirect_to("/tag/" . $tag->name);
+	return &$cb($self, $entry);
 }
 
 1;