Add page showing latest build steps

src/lib/Hydra/Helper/CatalystUtils.pm

@@ -23,6 +23,7 @@ our @EXPORT = qw(
     showStatus
     getResponsibleAuthors
     setCacheHeaders
+    approxTableSize
 );
 
 
@@ -296,4 +297,11 @@ sub setCacheHeaders {
 }
 
 
+sub approxTableSize {
+    my ($c, $name) = @_;
+    return $c->model('DB')->schema->storage->dbh->selectrow_hashref(
+        "select reltuples::int from pg_class where relname = lower(?)", { }, $name)->{"reltuples"};
+}
+
+
 1;