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";