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

Timestamp:

2014-12-12T15:12:15+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Changes to get Ubuntu working.

File:

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

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

@@ -6 +6 @@
 use parent 'Greenstone::Package';
 
+# Deb packages expect lists to be comma separated
 sub replacement_array {
     my $self = shift;
@@ -16 +17 @@
     my $file = "$self->{output}/debian/$name";
     print "    - $file\n";
-    open my $OUT, '>', $file;
+    open my $OUT, '>', $file
+        or die "Failed to open $file: $!";
     for my $line (@lines) {
         print $OUT $line, "\n";
@@ -24 +26 @@
 }
 
+# Add pre/post install/remove hooks
 sub add_install {
-    my $self = shift;
+    my ($self, $name) = @_;
+    my $prefix = (defined $name ? "$name." : "");
     exists $self->{config}->{PRE_INSTALL} and
-        $self->write_function ("preinst", @{$self->{config}->{PRE_INSTALL}});
+        $self->write_function ("${prefix}preinst", @{$self->{config}->{PRE_INSTALL}});
     exists $self->{config}->{POST_INSTALL} and
-        $self->write_function ("postinst", @{$self->{config}->{POST_INSTALL}});
+        $self->write_function ("${prefix}postinst", @{$self->{config}->{POST_INSTALL}});
     exists $self->{config}->{PRE_REMOVE} and
-        $self->write_function ("prerm", @{$self->{config}->{PRE_REMOVE}});
+        $self->write_function ("${prefix}prerm", @{$self->{config}->{PRE_REMOVE}});
     exists $self->{config}->{POST_REMOVE} and
-        $self->write_function ("postrm", @{$self->{config}->{POST_REMOVE}});
+        $self->write_function ("${prefix}postrm", @{$self->{config}->{POST_REMOVE}});
 }
 
+# Adds a definition for a package or subpackage
 sub add_package_section {
     my ($self, $out) = @_;
@@ -42 +47 @@
         'Architecture: %ARCHITECTURE%',
         'Homepage: %HOMEPAGE%',
-        'Depends:',
-        '  %DEPENDS%',
-        'Description: %DESCRIPTION_SHORT',
-        '  %DESCRIPTION'
+        'Depends: %DEPENDS%',
+        'Description: %DESCRIPTION_SHORT%',
+        '  %DESCRIPTION%',
+        ''
     ) {
         my $copy = $line;
@@ -53 +58 @@
 }
 
+# Handles the apt-specific package generation
 sub add_package_impl {
     my ($self, $packages) = @_;
-    $self->add_install;
     my $file = "$self->{output}/debian/control";
     print "    - $file\n";
-    open my $CONTROL, '>', $file;
+    open my $CONTROL, '>', $file
+        or die "Failed to open $file: $!";
     for my $line (
         'Source: %NAME%',
@@ -64 +70 @@
         'Priority: optional',
         'Maintainer: %MAINTAINER_NAME% <%MAINTAINER_EMAIL%>',
-        'Build-Depends:',
-        '  %MAKEDEPENDS%',
+        'Build-Depends: %MAKEDEPENDS%',
+        ''
     ) {
         my $copy = $line;
@@ -73 +79 @@
     if (defined $packages) {
         my $config = $self->{config};
+        my @names;
         for my $package (@{$packages}) {
+            push @names, $package->{NAME};
             $package->{HOMEPAGE} = $config->{HOMEPAGE};
             $self->{config} = $package;
+            $self->add_install ($package->{NAME});
             $self->add_package_section ($CONTROL);
+            my $install = "$self->{output}/debian/$self->{config}->{NAME}.install";
+            open my $INSTALL, '>', $install;
+            for my $line (@{$self->{config}->{FILES}}) {
+                print $INSTALL $line, "\n";
+            }
+            close $INSTALL;
         }
         $self->{config} = $config;
+        my $rules = "$self->{output}/debian/rules";
+        open my $RULES, '>>', $rules
+            or die "Failed to open $rules: $!";
+        print $RULES "\noverride_dh_gencontrol:\n";
+        for my $name (@names) {
+            print $RULES "\tdh_gencontrol -p$name\n";
+        }
+        close $RULES;
     } else {
+        $self->add_install;
         $self->add_package_section ($CONTROL);
     }