- Timestamp:
- 2014-12-08T12:19:58+13:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/package-kits/linux/perllib/Greenstone/Package/_pacman.pm
r29536 r29546 38 38 } 39 39 40 sub write_function { 41 my ($name, $out, @lines) = @_; 42 print $out $name, "() {\n"; 43 for my $line (@lines) { 44 print $out "\t", $line, "\n"; 45 } 46 print $out "}\n\n"; 47 } 48 49 sub add_install { 50 my $self = shift; 51 if (exists $self->{config}->{PRE_INSTALL} or 52 exists $self->{config}->{POST_INSTALL} or 53 exists $self->{config}->{PRE_REMOVE} or 54 exists $self->{config}->{POST_REMOVE}) { 55 my $name = "$self->{config}->{NAME}.install"; 56 open my $INSTALL, '>', "/tmp/$name"; 57 exists $self->{config}->{PRE_INSTALL} and do { 58 write_function "pre_install", $INSTALL, @{$self->{config}->{PRE_INSTALL}}; 59 write_function "pre_upgrade", $INSTALL, @{$self->{config}->{PRE_INSTALL}}; 60 }; 61 exists $self->{config}->{POST_INSTALL} and do { 62 write_function "post_install", $INSTALL, @{$self->{config}->{POST_INSTALL}}; 63 write_function "post_upgrade", $INSTALL, @{$self->{config}->{POST_INSTALL}}; 64 }; 65 exists $self->{config}->{PRE_REMOVE} and 66 write_function "pre_remove", $INSTALL, @{$self->{config}->{PRE_REMOVE}}; 67 exists $self->{config}->{POST_REMOVE} and 68 write_function "post_remove", $INSTALL, @{$self->{config}->{POST_REMOVE}}; 69 close $INSTALL; 70 $self->add ("/tmp/$name", "$self->{output}/$name"); 71 $self->{config}->{INSTALL} = "install=$name"; 72 } else { 73 $self->{config}->{INSTALL} = ""; 74 } 75 } 76 40 77 1;
Note:
See TracChangeset
for help on using the changeset viewer.