Changeset 29595 for main/trunk/package-kits/linux/perllib/Greenstone/Package.pm

Timestamp:

2014-12-11T18:45:10+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Modifying package generation to use sub-packages in order to avoid compiling the same source multiple times. Currently works for Pacman. Needs testing (and fixing) for other package managers.

File:

• main/trunk/package-kits/linux/perllib/Greenstone/Package.pm (modified) (2 diffs)

main/trunk/package-kits/linux/perllib/Greenstone/Package.pm

@@ -8 +8 @@
 use File::Copy 'cp';
 use POSIX 'uname';
+use Storable 'dclone';
 use Greenstone::Helpers;
 use base 'Exporter';
@@ -127 +128 @@
 sub add_package {
     my $self = shift;
+    
+    # Add the (relatively) static files
     $self->add ("managers/$self->{config}->{MANAGER}", $self->{output});
+
+    if (exists $self->{config}->{SUB_PACKAGES}) {
+        my $packages = [];
+        for my $subpackage (sort @{$self->{config}->{SUB_PACKAGES}}) {
+            my $config = {};
+            for my $key (keys %{$self->{config}}) {
+                if ($key =~ /^${subpackage}_(.*)$/) {
+                    # print "setting '$1' to '$key' = '$self->{config}->{$key}'\n";
+                    $config->{$1} = $self->{config}->{$key};
+                }
+            }
+            # hashdump $self->{config};
+            push @{$packages}, $config;
+        }
+        $self->add_package_impl ($packages);
+    } else {
+        $self->add_package_impl;
+    }
 }