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

Timestamp:

2014-12-11T18:58:24+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Changed package generators to not use the tmp directory needlessly, and fixed some problems with the debian generator. Still need to test on systems with rpm/apt and fix all the problems.

File:

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

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

@@ -14 +14 @@
 sub write_function {
     my ($self, $name, @lines) = @_;
-    open OUT, '>', "/tmp/$name";
+    my $file = "$self->{output}/debian/$name";
+    print "    - $file\n";
+    open my $OUT, '>', $file;
     for my $line (@lines) {
-        print OUT $line, "\n";
+        print $OUT $line, "\n";
     }
-    close OUT;
-    chmod 0755, "/tmp/$name";
-    $self->add ("/tmp/$name", "$self->{output}/debian/$name");
+    close $OUT;
+    chmod 0755, $file;
 }
 
@@ -42 +43 @@
         'Homepage: %HOMEPAGE%',
         'Depends:',
-        '%DEPENDS',
+        '  %DEPENDS%',
         'Description: %DESCRIPTION_SHORT',
         '  %DESCRIPTION'
@@ -55 +56 @@
     my ($self, $packages) = @_;
     $self->add_install;
-    open my $CONTROL, '>', "/tmp/gspkg.control";
+    my $file = "$self->{output}/debian/control";
+    print "    - $file\n";
+    open my $CONTROL, '>', $file;
     for my $line (
         'Source: %NAME%',
@@ -61 +64 @@
         'Priority: optional',
         'Maintainer: %MAINTAINER_NAME% <%MAINTAINER_EMAIL%>',
-        'BuildDepends:',
-        '%MAKEDEPENDS%',
+        'Build-Depends:',
+        '  %MAKEDEPENDS%',
     ) {
         my $copy = $line;
@@ -80 +83 @@
     }
     close $CONTROL;
-    $self->add ("/tmp/gspkg.control", "$self->{output}/debian/control");
 }