1 files changed, 15 insertions, 1 deletions
diff --git a/lib/VNDB/DB/VN.pm b/lib/VNDB/DB/VN.pm
index f12bf513..e062f6e1 100644
--- a/lib/VNDB/DB/VN.pm
+++ b/lib/VNDB/DB/VN.pm
@@ -6,7 +6,7 @@ use warnings;
 use Exporter 'import';
 use VNDB::Func 'gtintype';
 
-our @EXPORT = qw|dbVNGet dbVNAdd dbVNEdit dbVNImageId dbVNCache dbScreenshotAdd dbScreenshotGet|;
+our @EXPORT = qw|dbVNGet dbVNAdd dbVNEdit dbVNImageId dbVNCache dbScreenshotAdd dbScreenshotGet dbScreenshotRandom|;
 
 
 # Options: id, rev, char, search, cati, cate, lang, platform, results, page, order, what
@@ -264,5 +264,19 @@ sub dbScreenshotGet {
 }
 
 
+# Fetch random VN + screenshots
+sub dbScreenshotRandom {
+  return shift->dbAll(q|
+    SELECT vs.scr, vr.vid, vr.title
+      FROM vn_screenshots vs
+      JOIN vn v ON v.latest = vs.vid
+      JOIN vn_rev vr ON vr.id = v.latest
+      WHERE vs.nsfw = FALSE
+      ORDER BY RANDOM()
+      LIMIT 5|
+  );
+}
+
+
 1;