Add a simple wrapper script to (re)generate the on-disk cache

1 files changed, 23 insertions, 0 deletions

diff --git a/build_vcs_cache.pl b/build_vcs_cache.pl
new file mode 100755
index 00000000000..e4fe0d5c13b
--- /dev/null
+++ b/build_vcs_cache.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+
+## Quick utility - initialise a VCS cache, then save it to disk for
+## others to share in the goodness
+
+## Copyright (C) 2018  Steve McIntyre <93sam@debian.org>
+##
+## This program is free software; you can redistribute it and/or modify it
+## under the terms of version 2 of the GNU General Public License as published
+## by the Free Software Foundation.
+
+use strict;
+
+# These modules reside under webwml/Perl
+use lib ($0 =~ m|(.*)/|, $1 or ".") ."/Perl";
+use Local::VCS;
+
+my $VCS = Local::VCS->new();
+print "Initialising VCS cache for performance\n";
+$VCS->cache_repo();
+$VCS->save_cache_to_database();
+print " ... done\n";
+