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

Timestamp:

2014-12-08T12:19:58+13:00 (9 years ago)

Author:

Jeremy Symon

Message:

Arch package now automatically sets the owner of the web directory to the tomcat user. The functionality is also implemented for the other package managers, but not yet tested.

File:

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

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

@@ -12 +12 @@
 }
 
+sub write_function {
+    my ($self, $name, @lines) = @_;
+    open OUT, '>', "/tmp/$name";
+    for my $line (@lines) {
+        print OUT $line, "\n";
+    }
+    close OUT;
+    $self->add ("/tmp/$name", "$self->{output}/$name");
+}
+
+sub add_install {
+    my $self = shift;
+    exists $self->{config}->{PRE_INSTALL} and
+        $self->write_function ("preinst", @{$self->{config}->{PRE_INSTALL}});
+    exists $self->{config}->{POST_INSTALL} and
+        $self->write_function ("postinst", @{$self->{config}->{POST_INSTALL}});
+    exists $self->{config}->{PRE_REMOVE} and
+        $self->write_function ("prerm", @{$self->{config}->{PRE_REMOVE}});
+    exists $self->{config}->{POST_REMOVE} and
+        $self->write_function ("postrm", @{$self->{config}->{POST_REMOVE}});
+}
+
 1;