summaryrefslogtreecommitdiffstats
path: root/t/recipes/checks/debian/debconf/debconf-templates-general/build-spec/orig/config-gen.pl
diff options
context:
space:
mode:
Diffstat (limited to 't/recipes/checks/debian/debconf/debconf-templates-general/build-spec/orig/config-gen.pl')
-rw-r--r--t/recipes/checks/debian/debconf/debconf-templates-general/build-spec/orig/config-gen.pl31
1 files changed, 31 insertions, 0 deletions
diff --git a/t/recipes/checks/debian/debconf/debconf-templates-general/build-spec/orig/config-gen.pl b/t/recipes/checks/debian/debconf/debconf-templates-general/build-spec/orig/config-gen.pl
new file mode 100644
index 0000000..e6588b7
--- /dev/null
+++ b/t/recipes/checks/debian/debconf/debconf-templates-general/build-spec/orig/config-gen.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+# Helper script to generate d/config from d/templates.
+# It is just here to make sure all templates are "used".
+
+use strict;
+use warnings;
+
+print <<EOF ;
+#!/bin/sh
+
+set -e
+
+. /usr/share/debconf/confmodule
+
+EOF
+
+for my $line ( <STDIN> ) {
+
+ if ($line =~ /^Template:\s*(\S+)\s*$/) {
+
+ my $template = $1;
+ next
+ unless defined $template;
+
+ print "db_input high $template || true\n";
+ print "db_go\n\n";
+ }
+}
+
+exit 0;