From 91baeb0561c44cbdcf774220d1b40291c4be8045 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sun, 2 Mar 2014 21:06:00 +0100
Subject: Restructure to generate preseed files from skeleton + packagelists.

---
 bin/pkglist2preseed | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100755 bin/pkglist2preseed

(limited to 'bin')

diff --git a/bin/pkglist2preseed b/bin/pkglist2preseed
new file mode 100755
index 0000000..1691f4e
--- /dev/null
+++ b/bin/pkglist2preseed
@@ -0,0 +1,12 @@
+#!/bin/sh
+
+set -eu
+
+skelfile="$1"; shift
+
+pkgdesc=$(perl -nE '/^[#]{2} (.*)/ and say "# $1"; /^[#]{1} (.*)/ and say "#  * $1"' "$@") #'
+pkglist=$(perl -ne 'chomp; /^[^#]+/ and print "$_ "' "$@")
+
+export pkgdesc pkglist
+
+perl -pe 's,__PKGDESC__,$ENV{"pkgdesc"},;s,__PKGLIST__,$ENV{"pkglist"},' < $skelfile
-- 
cgit v1.2.3