Changeset 1841 for box/chris/general/infrastructure/makeparcels.pl.in
- Timestamp:
- 19/09/2007 21:52:32 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
box/chris/general/infrastructure/makeparcels.pl.in
r1710 r1841 102 102 print MAKE "\ttest -d $dir || mkdir $dir\n"; 103 103 104 open SCRIPT,">parcels/scripts/install-$parcel" or die "Can't open installer script for $parcel for writing"; 105 print SCRIPT "#!/bin/sh\n\n"; 104 unless ($target_windows) 105 { 106 open SCRIPT,">parcels/scripts/install-$parcel" or die 107 "Can't open installer script for $parcel for writing"; 108 print SCRIPT "#!/bin/sh\n\n"; 109 } 106 110 107 111 for(@{$parcel_contents{$parcel}}) … … 137 141 } 138 142 139 print SCRIPT "install $name $install_into_dir\n"; 140 } 141 142 close SCRIPT; 143 144 chmod 0755,"parcels/scripts/install-$parcel"; 143 unless ($target_windows) 144 { 145 print SCRIPT "install $name $install_into_dir\n"; 146 } 147 } 148 149 unless ($target_windows) 150 { 151 close SCRIPT; 152 chmod 0755,"parcels/scripts/install-$parcel"; 153 } 145 154 146 155 my $root = parcel_root($parcel); 147 print MAKE "\tcp parcels/scripts/install-$parcel $dir\n"; 156 157 unless ($target_windows) 158 { 159 print MAKE "\tcp parcels/scripts/install-$parcel $dir\n"; 160 } 161 148 162 print MAKE "\t(cd parcels; tar cf - $root | gzip -9 - > $root.tgz )\n"; 149 163 150 164 print MAKE "\n"; 151 152 print MAKE "install-$parcel:\n"; 153 print MAKE "\t(cd $dir; ./install-$parcel)\n\n"; 165 166 unless ($target_windows) 167 { 168 print MAKE "install-$parcel:\n"; 169 print MAKE "\t(cd $dir; ./install-$parcel)\n\n"; 170 } 154 171 } 155 172
Note: See TracChangeset
for help on using the changeset viewer.
