- Timestamp:
- 2014-12-08T12:19:58+13:00 (9 years ago)
- Location:
- main/trunk/package-kits/linux/perllib/Greenstone/Package
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/package-kits/linux/perllib/Greenstone/Package/_apt.pm
r29539 r29546 12 12 } 13 13 14 sub write_function { 15 my ($self, $name, @lines) = @_; 16 open OUT, '>', "/tmp/$name"; 17 for my $line (@lines) { 18 print OUT $line, "\n"; 19 } 20 close OUT; 21 $self->add ("/tmp/$name", "$self->{output}/$name"); 22 } 23 24 sub add_install { 25 my $self = shift; 26 exists $self->{config}->{PRE_INSTALL} and 27 $self->write_function ("preinst", @{$self->{config}->{PRE_INSTALL}}); 28 exists $self->{config}->{POST_INSTALL} and 29 $self->write_function ("postinst", @{$self->{config}->{POST_INSTALL}}); 30 exists $self->{config}->{PRE_REMOVE} and 31 $self->write_function ("prerm", @{$self->{config}->{PRE_REMOVE}}); 32 exists $self->{config}->{POST_REMOVE} and 33 $self->write_function ("postrm", @{$self->{config}->{POST_REMOVE}}); 34 } 35 14 36 1; -
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; -
main/trunk/package-kits/linux/perllib/Greenstone/Package/_rpm.pm
r29539 r29546 12 12 } 13 13 14 sub write_function { 15 my ($name, @lines) = @_; 16 my $ret = ""; 17 $ret .= "%" . $name . "\n"; 18 for my $line (@lines) { 19 $ret .= $line . "\n"; 20 } 21 $ret .= "\n"; 22 return $ret; 23 } 24 25 sub add_install { 26 my $self = shift; 27 $self->{config}->{INSTALL} = ""; 28 exists $self->{config}->{PRE_INSTALL} and 29 $self->{config}->{INSTALL} .= write_function "pre", @{$self->{config}->{PRE_INSTALL}}; 30 exists $self->{config}->{POST_INSTALL} and 31 $self->{config}->{INSTALL} .= write_function "post", @{$self->{config}->{POST_INSTALL}}; 32 exists $self->{config}->{PRE_REMOVE} and 33 $self->{config}->{INSTALL} .= write_function "preun", @{$self->{config}->{PRE_INSTALL}}; 34 exists $self->{config}->{POST_REMOVE} and 35 $self->{config}->{INSTALL} .= write_function "postun", @{$self->{config}->{POST_INSTALL}}; 36 } 37 14 38 1;
Note:
See TracChangeset
for help on using the changeset viewer.