X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=pci-nopaste.git;a=blobdiff_plain;f=rc.d%2Flinux%2FMakefile.PL;fp=rc.d%2Flinux%2FMakefile.PL;h=34a49c6446d5573ed7c28c198b0369e124c7d450;hp=0000000000000000000000000000000000000000;hb=0a3b28409f80df5ebe70dd480e94ed3c9ff3c315;hpb=20d5afe15508cc5352df125e0b39b643d07704bd

diff --git a/rc.d/linux/Makefile.PL b/rc.d/linux/Makefile.PL
new file mode 100644
index 0000000..34a49c6
--- /dev/null
+++ b/rc.d/linux/Makefile.PL
@@ -0,0 +1,27 @@
+use strict;
+use warnings;
+use Config qw(%Config);
+use ExtUtils::MakeMaker;
+use File::Slurp qw(read_file write_file);
+
+# FIXME: Stop hard-coding these variables.
+my %vars = (
+    DAEMON        => '/usr/local/sbin/daemon',
+    bindir        => $Config{installbin},
+    localstatedir => '/usr/local/var',
+    sysconfdir    => '/usr/local/etc'
+   );
+
+my $script = read_file('pci-nopaste.in');
+
+while (my ($var, $subst) = each %vars) {
+    $script =~ s/\@\Q$var\E\@/$subst/g;
+}
+
+print "Writing pci-nopaste\n";
+write_file('pci-nopaste', $script);
+chmod 0755, 'pci-nopaste';
+
+WriteMakefile(
+    NAME => 'linux'
+   );