postinst is in pybit-client 1.0.0-3.
This file is a maintainer script. It is executed when installing (*inst) or removing (*rm) the package.
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 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 | #!/usr/bin/perl
# postinst script for pybit-client
# FIXME: port to use JSON as that is safe in a post-install script.
# see: dh_installdeb(1)
use strict;
use warnings;
use JSON;
use Debconf::Client::ConfModule qw(:all);
use vars qw/ $cfgfile %cfg @lines $json $json_hash $json_text %mapping /;
# summary of how this script can be called:
# * <postinst> `configure' <most-recently-configured-version>
# * <old-postinst> `abort-upgrade' <new version>
# * <conflictor's-postinst> `abort-remove' `in-favour' <package>
# <new-version>
# * <postinst> `abort-remove'
# * <deconfigured's-postinst> `abort-deconfigure' `in-favour'
# <failed-install-package> <version> `removing'
# <conflicting-package> <version>
# for details, see http://www.debian.org/doc/debian-policy/ or
# the debian-policy package
$cfgfile = '/etc/pybit/client/client.conf';
version('2.0');
%cfg=();
%mapping = ("clientid" => 'clientid',
'use_lvm' => 'lvmsnapshot',
'buildroot' => 'buildroot',
'host' => 'rabbitmqhost',
'dput_dest' => 'dputdest',
'host_arch' => 'hostarch',
'distribution' => 'distribution',
'pkg_format' => 'pkgformat',
'port' => 'rabbitport',
'userid' => 'rabbituser',
'vhost' => 'rabbitvhost',
'dput' => 'dput_opt'
);
if ($ARGV[0] eq 'configure' or $ARGV[0] eq 'reconfigure') {
if (-r "$cfgfile") {
# read the edited values
&ScanClientConfFile ($cfgfile);
# set selected ones to update the debconf values.
foreach my $cfgvar ('clientid', 'use_lvm', 'host', 'buildroot', 'dput_dest', 'distribution') {
if (defined $cfg{$cfgvar}) {
set("pybit-client/$mapping{$cfgvar}", $cfg{$cfgvar});
fset("pybit-client/$cfgvar", 'seen', 'true');
}
}
}
$cfg{'clientid'} = scalar get('pybit-client/clientid');
$cfg{'host'} = scalar get('pybit-client/rabbitmqhost');
$cfg{'dput_dest'} = scalar get('pybit-client/dputdest');
$cfg{'buildroot'} = scalar get('pybit-client/buildroot');
$cfg{'use_lvm'} = scalar get('pybit-client/lvmsnapshot');
foreach my $key (keys %cfg) {
my $val = $cfg{$key};
chomp($val);
$val =~ s/"//g;
$val =~ s/'//g;
$val =~ s/,//g;
$cfg{$key} = $val;
}
if (-r "$cfgfile") {
open(CONF, "$cfgfile") or die;
} else {
open(CONF, "/usr/share/pybitclient/client.conf") or die;
}
@lines=<CONF>;
close (CONF);
$json = new JSON;
$json = $json->utf8(1);
$json = $json->pretty(1);
$json = $json->canonical(1);
$json_text = join(' ', @lines);
$json_hash = $json->decode($json_text);
$$json_hash{'clientid'} = $cfg{'clientid'};
$$json_hash{'host'} = $cfg{'host'};
$$json_hash{'dput_dest'} = $cfg{'dput_dest'};
$$json_hash{'buildroot'} = $cfg{'buildroot'};
$$json_hash{'use_lvm'} = ($cfg{'use_lvm'} eq "true") ? JSON::true : JSON::false;
if (not defined $$json_hash{'distribution'} or $$json_hash{'distribution'} !~ /\w/) {
my $distro = `dpkg-vendor --query vendor`;
chomp ($distro);
$$json_hash{'distribution'} = $distro;
}
if (not defined $$json_hash{'pkg_format'} or $$json_hash{'pkg_format'} !~ /\w/) {
$$json_hash{'pkg_format'} = "deb";
}
if (not defined $$json_hash{'host_arch'} or $$json_hash{'host_arch'} !~ /\w/) {
my $host = `dpkg-architecture -qDEB_BUILD_ARCH 2>/dev/null`;
chomp ($host);
$$json_hash{'host_arch'} = $host;
}
$$json_hash{'debconf'} = JSON::true;
open (CONF, ">$cfgfile") or die;
print CONF $json->encode ($json_hash);
close (CONF);
}
# Subroutine to scan client configuration file
# Configfile to parse is the argument to the subroutine
sub ScanClientConfFile {
if ( ! -r "$_[0]" ) { return; };
open(CONFFILE,"<$_[0]") || die "Could not open $_[0]";
while (<CONFFILE>) {
foreach my $key (sort keys %mapping) {
chomp;
if (s#^\s*"$key"\s?:\s?(.*),?$#$1#) {
chomp($cfg{$key} = $_) if /\w/;
}
}
}
foreach my $key (keys %cfg) {
my $val = $cfg{$key};
$val =~ s/"//g;
$val =~ s/'//g;
$val =~ s/,//g;
$cfg{$key} = $val;
}
close CONFFILE;
}
my $dh_commands="set -- @ARGV\\n" . << 'EOF';
set -e
# Automatically added by dh_installinit
if [ "$1" = "configure" ] || [ "$1" = "abort-upgrade" ]; then
if [ -x "/etc/init.d/pybit-client" ]; then
update-rc.d pybit-client defaults >/dev/null
invoke-rc.d pybit-client start || exit $?
fi
fi
# End automatically added section
# Automatically added by dh_python2:
if which pycompile >/dev/null 2>&1; then
pycompile -p pybit-client
fi
# End automatically added section
EOF
system ($dh_commands) / 256 == 0
or die "Problem with shell scripts: $!";
exit 0
|