1 files changed, 43 insertions, 0 deletions
diff --git a/lib/VNWeb/Releases/Engines.pm b/lib/VNWeb/Releases/Engines.pm
new file mode 100644
index 00000000..c6e142e2
--- /dev/null
+++ b/lib/VNWeb/Releases/Engines.pm
@@ -0,0 +1,43 @@
+package VNWeb::Releases::Engines;
+
+use VNWeb::Prelude;
+use VNWeb::AdvSearch;
+
+
+TUWF::get qr{/r/engines}, sub {
+    my $list = tuwf->dbAlli('
+        SELECT engine, count(*) AS cnt
+          FROM releases
+         WHERE NOT hidden AND engine <> \'\'
+         GROUP BY engine
+         ORDER BY count(*) DESC'
+    );
+
+    framework_ title => 'Engine list', sub {
+        div_ class => 'mainbox', sub {
+            h1_ 'Engine list';
+            p_ sub {
+                lit_ q{
+                 This is a list of all engines currently associated with releases. This
+                 list can be used as reference when filling out the engine field for a
+                 release and to find inconsistencies in the engine names. See the <a
+                 href="/d3#3">releases guidelines</a> for more information.
+                };
+            };
+        };
+        div_ class => 'mainbox browse', sub {
+            table_ class => 'stripe', sub {
+                my $c = tuwf->compile({advsearch => 'r'});
+                tr_ sub {
+                    td_ class => 'tc1', style => 'text-align: right; width: 80px', $_->{cnt};
+                    td_ class => 'tc2', sub {
+                        a_ href => '/r?f='.$c->validate([engine => '=', $_->{engine}])->data->query_encode(), $_->{engine};
+                    }
+                } for @$list;
+            };
+        };
+    };
+};
+
+
+1;