Changeset 29598 for main/trunk/package-kits
- Timestamp:
- 2014-12-11T18:58:24+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
r29595 r29598 14 14 sub write_function { 15 15 my ($self, $name, @lines) = @_; 16 open OUT, '>', "/tmp/$name"; 16 my $file = "$self->{output}/debian/$name"; 17 print " - $file\n"; 18 open my $OUT, '>', $file; 17 19 for my $line (@lines) { 18 print OUT $line, "\n";20 print $OUT $line, "\n"; 19 21 } 20 close OUT; 21 chmod 0755, "/tmp/$name"; 22 $self->add ("/tmp/$name", "$self->{output}/debian/$name"); 22 close $OUT; 23 chmod 0755, $file; 23 24 } 24 25 … … 42 43 'Homepage: %HOMEPAGE%', 43 44 'Depends:', 44 ' %DEPENDS',45 ' %DEPENDS%', 45 46 'Description: %DESCRIPTION_SHORT', 46 47 ' %DESCRIPTION' … … 55 56 my ($self, $packages) = @_; 56 57 $self->add_install; 57 open my $CONTROL, '>', "/tmp/gspkg.control"; 58 my $file = "$self->{output}/debian/control"; 59 print " - $file\n"; 60 open my $CONTROL, '>', $file; 58 61 for my $line ( 59 62 'Source: %NAME%', … … 61 64 'Priority: optional', 62 65 'Maintainer: %MAINTAINER_NAME% <%MAINTAINER_EMAIL%>', 63 'Build Depends:',64 ' %MAKEDEPENDS%',66 'Build-Depends:', 67 ' %MAKEDEPENDS%', 65 68 ) { 66 69 my $copy = $line; … … 80 83 } 81 84 close $CONTROL; 82 $self->add ("/tmp/gspkg.control", "$self->{output}/debian/control");83 85 } 84 86 -
main/trunk/package-kits/linux/perllib/Greenstone/Package/_pacman.pm
r29595 r29598 54 54 exists $self->{config}->{PRE_REMOVE} or 55 55 exists $self->{config}->{POST_REMOVE}) { 56 my $name = "$self->{config}->{NAME}.install"; 57 open my $INSTALL, '>', "/tmp/gspkg.$name"; 56 my $file = "$self->{output}/$self->{config}->{NAME}.install"; 57 print " - $file\n"; 58 open my $INSTALL, '>', $file; 58 59 exists $self->{config}->{PRE_INSTALL} and do { 59 60 $self->write_function ("pre_install", $INSTALL, @{$self->{config}->{PRE_INSTALL}}); … … 69 70 $self->write_function ("post_remove", $INSTALL, @{$self->{config}->{POST_REMOVE}}); 70 71 close $INSTALL; 71 $self->add ("/tmp/gspkg.$name", "$self->{output}/$name"); 72 return "install=$name"; 72 return "install=$file"; 73 73 } else { 74 74 return ""; … … 84 84 } 85 85 } 86 open my $PKGBUILD, '>', "/tmp/gspkg.PKGBUILD"; 86 my $file = "$self->{output}/PKGBUILD"; 87 print " - $file\n"; 88 open my $PKGBUILD, '>', $file; 87 89 for my $line ( 88 90 '# Maintainer: %MAINTAINER_NAME% <%MAINTAINER_EMAIL%>', … … 137 139 } 138 140 close $PKGBUILD; 139 $self->add ("/tmp/gspkg.PKGBUILD", "$self->{output}/PKGBUILD");140 141 } 141 142 -
main/trunk/package-kits/linux/perllib/Greenstone/Package/_rpm.pm
r29595 r29598 47 47 sub add_package_impl { 48 48 my ($self, $packages) = @_; 49 open my $SPEC, '>', '/tmp/gspkg.spec'; 49 my $file = "$self->{output}/$self->{config}->{NAME}.spec"; 50 print " - $file\n"; 51 open my $SPEC, '>', $file; 50 52 for my $line ( 51 53 'Name: %NAME%', … … 112 114 } 113 115 close $SPEC; 114 $self->add ("/tmp/gspkg.spec", "$self->{output}/$self->{config}->{NAME}.spec");115 116 } 116 117
Note:
See TracChangeset
for help on using the changeset viewer.