Bug 25896: Add missing closing </td> tag
[koha.git] / debian / list-deps
blob4bf9367df116cebb84fe6a7c98c76fb247c50e4b
1 #!/usr/bin/perl
3 # Write dependency list from Koha cpanfile, in Debian format.
5 # Copyright 2010 Catalyst IT, Ltd
7 # This program is free software: you can redistribute it and/or modify
8 # it under the terms of the GNU General Public License as published by
9 # the Free Software Foundation, either version 3 of the License, or
10 # (at your option) any later version.
12 # This program is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with this program. If not, see <http://www.gnu.org/licenses/>.
20 use Modern::Perl;
22 use C4::Installer::PerlModules;
24 # These are packages that may not be in the apt archive in a way that
25 # apt-file can find, e.g. in the Koha repo rather than the regular
26 # debian one.
27 my %overrides = (
28 'LWP::Protocol::https' => 'liblwp-protocol-https-perl|libwww-perl (<<6.02), libio-socket-ssl-perl',
29 'HTTP::OAI' => 'libhttp-oai-perl (>= 3.2) | libhttp-oai-3.27-perl, libhttp-oai-perl (<< 4.0) | libhttp-oai-3.27-perl',
30 'IO::Socket::IP' => 'perl-modules (>= 5.20.0) | libio-socket-ip-perl',
31 'Swagger2' => 'libswagger2-perl (>= 0.59)',
32 'Mojolicious' => 'libmojolicious-perl (>= 6.0)',
33 'CPAN::Meta' => 'libcpan-meta-perl (>= 2.150010) | perl-modules-5.28 | perl-modules-5.30 | perl-modules (>= 5.20.2)'
36 # These are packages we're going to ignore
37 my %ignore = (
38 'Data::Pagination' => 1,
39 'CHI' => 1,
40 'CHI::Driver::Memcached' => 1,
43 my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+|(lib|share)/.*-linux-gnu.*/perl/[0-9.]+|(lib|share)/.*-linux-gnu.*/perl5/[0-9.]+)";
45 my $modules = C4::Installer::PerlModules->new();
46 my $prereqs = $modules->prereqs;
47 foreach my $phase ($prereqs->phases) {
48 foreach my $type ($prereqs->types_in($phase)) {
49 my $reqs = $prereqs->requirements_for($phase, $type);
50 foreach my $module ( $reqs->required_modules ) {
51 next if $ignore{$module};
52 my $subpath = $module;
53 $subpath =~ s,::,/,g;
54 my $output = qx(apt-file -l -x search "$prefix/$subpath.pm\$");
55 my @temp = split( /\n/, $output );
56 my @lines = ();
58 # Remove packages that are required/essential and always installed on
59 # a Debian system. Debian packages should not have unversioned
60 # dependencies on such packages.
63 # skip perl-base and problematic version specific libperl* and
64 # perl-module* packages (they get installed as deps. anyway)
65 foreach my $line (@temp) {
66 if ( $line ne "perl-base" and $line !~ /^libperl5\./ and $line !~ /^perl-modules-5\./ ) {
67 @lines = ( @lines, $line );
71 if ( exists $overrides{$module} ) {
72 print "$overrides{$module}\n";
74 elsif ( scalar(@lines) == 1 && $lines[0] ne "" ) {
75 my $pkg = $lines[0];
76 print "$pkg\n";
78 elsif ( scalar(@lines) > 1 ) {
79 foreach my $pkg (@lines) {
80 print " | " if ( $pkg ne $lines[0] );
81 print "$pkg";
83 print "\n";
85 elsif ( scalar(@temp) != 0 ) {
87 # I'm an Essential and I'm OK,
88 # I install all night, and work all day.
89 # I chomp up strings. I eat my bugs.
90 # I go to the base install.
91 # On Fridays I go drinking,
92 # and have buttered commits for git.
93 # (Beer O'Clock is more than two hours
94 # away. I don't even drink beer. There
95 # is no reason to be suspicious of this
96 # commit.)
97 # RM note: suspicious? me? always!
99 elsif ( $type ne 'requires' ) {
100 # Ignore because we don't have it and we don't care.
102 else {
103 print "EEEK: unknown package for $module\n";