/usr/sbin/kernel-packageconfig is in kernel-package 13.018+nmu1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | #! /usr/bin/perl
# -*- Mode: Perl -*-
# kernel-package-config ---
# Author : root ( root@melkor.pilgrim.umass.edu )
# Created On : Thu Jun 13 08:17:09 1996
# Created On Node : melkor.pilgrim.umass.edu
# Last Modified By : Manoj Srivastava
# Last Modified On : Tue Feb 1 02:06:56 2000
# Last Machine Used: glaurung.green-gryphon.com
# Update Count : 7
# Status : Unknown, Use with caution!
# HISTORY :
# Description :
#
#
#
# $Id: kernel-packageconfig,v 1.5 2000/02/01 08:07:12 srivasta Exp $
#
$|=1;
use strict;
my $conffile = '/etc/kernel-pkg.conf';
my $prompt = <<"EOP";
You have installed the Debian package kernel-package. This package
essentially consists of a Makefile called debian.rules and supporting
scripts and documentation, and also a site over-ride file
$conffile.
At a minimum, the name and email address of the maintainer of the
kernel packages which will be created by kernel-package should be
provided in $conffile
EOP
;
sub main (){
open (CONF, "$conffile") || do {
my $ans;
warn "Error reading configuration file $conffile:$!";
print "$prompt";
print "I could not read this file, so please edit the file by hand.\n";
print "\n\tPlease Hit return to continue";
$ans = <STDIN>;
exit (1);
};
my $oldrs = $/;
undef $/;
my $File = <CONF>;
$/ = $oldrs;
close (CONF);
if ($File =~ m|^\s*?maintainer\s*?:?=\s*?Unknown.*?$|im) {
my $maintainer;
print <<"EOF1";
Configuring the Full name of the local person responsible for the
kernel packages.
This information will be used to sign the new packages produced. If
you never intend to sign the kernel images, source, or header packages
created, you may safely leave it blank. However, we recommend that
you do supply a full name if only so that the dpkg -s kernel-*
information looks prettier <grin>.
Please supply the full name of the local kernel maintainer
EOF1
;
print "\t[default Unknown]:";
$maintainer = <STDIN>;
$maintainer =~ s|\n||g;
$maintainer =~ s|\s+| |g;
# replace any correctly escaped ' with bare '
$maintainer =~ s/'\\''/'/g;
# then revert
$maintainer =~ s/'/'\\''/g;
if ($maintainer !~ m|^\s*$|) {
$File =~
s|^\s*?maintainer\s*?:?=\s*?Unknown.*?$|maintainer := $maintainer|im;
}
}
if ($File =~ m|^\s*?email\s*?:?=\s*?unknown.*?$|im) {
my $email;
print <<"EOF2";
Configuring the email address of the local person responsible for the
kernel packages.
This information will be put into the dpkg database, you may safely
leave it blank. However, we recommend that you do supply a email
address, it make keeping track easier.
Please supply the email address of the local kernel maintainer
EOF2
;
print "\t[default unknown]:";
$email = <STDIN>;
$email =~ s|\n||g;
$email =~ s|\s+| |g;
if ($email !~ m|^\s*$|) {
$File =~
s|^\s*?email\s*?:?=\s*?unknown.*?$|email := $email|im;
}
}
open (CONF, ">$conffile") || do {
warn "Could not open $conffile for writing:$!";
exit 1;
};
print CONF $File;
close (CONF);
exit 0;
}
&main();
exit 0;
__END__
|