Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

Bug 8235 - allow a whitelist of modules that aren't in Debian

Browse source 
This allows modules that aren't in the main debian repos to be handled
by the list-deps script when building a control file.

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
This commit is contained in:
Robin Sheat 2012-06-11 16:04:06 +01:00 committed by Paul Poulain
parent f380a6c804
commit 42915154d4
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
debian/list-deps vendored
View file

@ -23,6 +23,16 @@ use warnings;
use C4::Installer::PerlDependencies; use C4::Installer::PerlDependencies;
# These are packages that may not be in the apt archive in a way that
# apt-file can find, e.g. in the Koha repo rather than the regular
# debian one.
my %overrides = (
'CGI::Session::Driver::memcached' => 'libcgi-session-driver-memcached-perl',
'CHI' => 'libchi-perl',
'CHI::Driver::Memcached' => 'libchi-driver-memcached-perl',
'Template::Plugin::HtmlToText' => 'libtemplate-plugin-htmltotext-perl',
);
my $deps = $C4::Installer::PerlDependencies::PERL_DEPS; my $deps = $C4::Installer::PerlDependencies::PERL_DEPS;
my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+)"; my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+)";
@ -31,7 +41,7 @@ foreach my $module (keys %$deps) {
my $ver = $deps->{$module}->{'min_ver'}; my $ver = $deps->{$module}->{'min_ver'};
my $subpath = $module; my $subpath = $module;
$subpath =~ s,::,/,g; $subpath =~ s,::,/,g;
my $output = my $output =
qx(apt-file -l -x search "$prefix/$subpath.pm\$"); qx(apt-file -l -x search "$prefix/$subpath.pm\$");
my @temp = split(/\n/, $output); my @temp = split(/\n/, $output);
my @lines = (); my @lines = ();
@ -64,6 +74,8 @@ foreach my $module (keys %$deps) {
# is no reason to be suspicious of this # is no reason to be suspicious of this
# commit.) # commit.)
# RM note: suspicious? me? always! # RM note: suspicious? me? always!
} elsif (exists $overrides{$module}) {
print "$overrides{$module}\n";
} else { } else {
print "EEEK: unknown package for $module\n"; print "EEEK: unknown package for $module\n";
} }