#!/usr/bin/perl
#
-# Write dependency list from Koha PerlDependencies.pm, in Debian format.
+# Write dependency list from Koha cpanfile, in Debian format.
#
# Copyright 2010 Catalyst IT, Ltd
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
-use strict;
-use warnings;
+use Modern::Perl;
+use Parallel::ForkManager;
+use Sys::CPU;
-use C4::Installer::PerlDependencies;
+use C4::Installer::PerlModules;
# 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 = ();
+my %overrides = (
+ 'LWP::Protocol::https' => 'liblwp-protocol-https-perl | libwww-perl (<<6.02), libio-socket-ssl-perl',
+ 'HTTP::OAI' => 'libhttp-oai-perl (>= 3.2) | libhttp-oai-3.27-perl, libhttp-oai-perl (<< 4.0) | libhttp-oai-3.27-perl',
+ 'IO::Socket::IP' => 'perl-modules (>= 5.20.0) | libio-socket-ip-perl',
+ 'Swagger2' => 'libswagger2-perl (>= 0.59)',
+ 'Mojolicious' => 'libmojolicious-perl (>= 6.0)',
+ 'CPAN::Meta' => 'libcpan-meta-perl (>= 2.150010) | perl-modules-5.28 | perl-modules-5.30 | perl-modules (>= 5.20.2)',
+ 'CGI::Compile' => 'libcgi-compile-perl (>= 0.25) | libcgi-compile-perl (<< 0.24)',
+ 'DBD::SQLite' => 'libdbd-sqlite3-perl',
+);
# These are packages we're going to ignore
my %ignore = (
'CHI::Driver::Memcached' => 1,
);
-my $deps = $C4::Installer::PerlDependencies::PERL_DEPS;
+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.]+)";
-my $prefix = "^/usr/((lib|share)/perl5|(lib|share)/perl/[0-9.]+)";
+my $pm = Parallel::ForkManager->new( Sys::CPU::cpu_count() );
-foreach my $module ( keys %$deps ) {
- next if $ignore{$module};
- my $ver = $deps->{$module}->{'min_ver'};
- my $subpath = $module;
- $subpath =~ s,::,/,g;
- my $output = qx(apt-file -l -x search "$prefix/$subpath.pm\$");
- my @temp = split( /\n/, $output );
- my @lines = ();
+my $modules = C4::Installer::PerlModules->new();
+my $prereqs = $modules->prereqs;
+foreach my $phase ($prereqs->phases) {
+ foreach my $type ($prereqs->types_in($phase)) {
+ my $reqs = $prereqs->requirements_for($phase, $type);
- # Remove packages that are required/essential and always installed on
- # a Debian system. Debian packages should not have unversioned
- # dependencies on such packages.
- foreach my $line (@temp) {
- if ( $line ne "perl-base" ) {
- @lines = ( @lines, $line );
- }
- }
- if ( scalar(@lines) == 1 && $lines[0] ne "" ) {
- my $pkg = $lines[0];
- print "$pkg\n";
- }
- elsif ( scalar(@lines) > 1 ) {
- foreach my $pkg (@lines) {
- print " | " if ( $pkg ne $lines[0] );
- print "$pkg";
- }
- print "\n";
- }
- elsif ( scalar(@temp) != 0 ) {
+ MODULE_LOOP:
+ foreach my $module ( $reqs->required_modules ) {
+ my $pid = $pm->start and next MODULE_LOOP;
- # I'm an Essential and I'm OK,
- # I install all night, and work all day.
- # I chomp up strings. I eat my bugs.
- # I go to the base install.
- # On Fridays I go drinking,
- # and have buttered commits for git.
- # (Beer O'Clock is more than two hours
- # away. I don't even drink beer. There
- # is no reason to be suspicious of this
- # commit.)
- # RM note: suspicious? me? always!
- }
- elsif ( exists $overrides{$module} ) {
- print "$overrides{$module}\n";
- }
- else {
- print "EEEK: unknown package for $module\n";
+ next if $ignore{$module};
+ my $subpath = $module;
+ $subpath =~ s,::,/,g;
+
+ my $output = qx(apt-file -l -x search "$prefix/$subpath.pm\$");
+ my @temp = split( /\n/, $output );
+ my @lines = ();
+
+ # Remove packages that are required/essential and always installed on
+ # a Debian system. Debian packages should not have unversioned
+ # dependencies on such packages.
+
+
+ # skip perl-base and problematic version specific libperl* and
+ # perl-module* packages (they get installed as deps. anyway)
+ foreach my $line (@temp) {
+ if ( $line ne "perl-base" and $line !~ /^libperl5\./ and $line !~ /^perl-modules-5\./ ) {
+ @lines = ( @lines, $line );
+ }
+ }
+
+ if ( exists $overrides{$module} ) {
+ print "$overrides{$module}\n";
+ }
+ elsif ( scalar(@lines) == 1 && $lines[0] ne "" ) {
+ my $pkg = $lines[0];
+ print "$pkg\n";
+ }
+ elsif ( scalar(@lines) > 1 ) {
+ foreach my $pkg (@lines) {
+ print " | " if ( $pkg ne $lines[0] );
+ print "$pkg";
+ }
+ print "\n";
+ }
+ elsif ( scalar(@temp) != 0 ) {
+ # hmm, skip module
+ }
+ elsif ( $type ne 'requires' ) {
+ # Ignore because we don't have it and we don't care.
+ }
+ else {
+ print "EEEK: unknown package for $module\n";
+ }
+
+ $pm->finish; # Terminates the child process
+ }
}
}
+$pm->wait_all_children;
projects / koha-ffzg.git / blobdiff