1 files changed, 41 insertions, 0 deletions
diff --git a/workflow.pl b/workflow.pl
new file mode 100644
index 0000000..cf2b8e1
--- /dev/null
+++ b/workflow.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+
+use Term::ReadKey;
+
+print " .---------------------------------------------.\n";
+print " | cpan-explorer.org static content generation |\n";
+print " '---------------------------------------------'\n";
+
+echo ""
+echo "Step 1 - Downloading database.."
+#`./download_sqlite.pl`;
+
+echo ""
+echo "Step 2 - Manual spatialization : press any key when svg is ready"
+ReadMode 4; # Turn off controls keys
+while (not defined ($key = ReadKey(-1)) {
+    # No key yet
+}
+ReadMode 0; # Reset tty mode before exiting
+
+
+print "\nStep 3 - Generating high-res PNGs..\n";
+
+my $scale = 20000;
+my $inputfile = 'packages.svg';
+my $outputfile = 'packages.png';
+my $rsvgpath = 'rsvg';
+
+die "couldn't find $inputfile" unless -e $inputfile;
+`$rsvgpath -x $scale -y $scale $inputfile $outputfile`;
+
+my $inputfile = 'authors.svg';
+my $outputfile = 'authors.png';
+my $rsvgpath = 'rsvg';
+
+die "couldn't find $inputfile" unless -e $inputfile;
+`$rsvgpath -x $scale -y $scale $inputfile $outputfile`;
+
+print "\nStep 4 - Generating tiles..\n";
+`./generate_tiles.pl';
+