tools/mklayers
changeset 1 a9c30a9d07e4
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/mklayers	Fri May 02 13:01:50 2014 +0200
@@ -0,0 +1,10 @@
+#! /usr/bin/perl
+use 5.010;
+use strict;
+use warnings;
+
+die "$0 src dst\n" if not @ARGV == 3;
+
+my ($src, $dst, @layers) = @ARGV;
+
+system "dia --export=$dst --show-layers=layer-@layers $src";