Changeset 3781
- Timestamp:
- 2003-03-03T11:30:21+13:00 (21 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/create_distributions.pl
r3779 r3781 16 16 # packagefortheweb to create self-extracting executable 17 17 18 # Linux distribution - gsdl-x.xx-linux.tgz18 # Unix distribution - gsdl-x.xx-unix.tgz 19 19 20 20 # Source distribution - gsdl-x.xx.tgz … … 145 145 146 146 &create_windows_distribution(); 147 &create_ linux_distribution();147 &create_unix_distribution(); 148 148 &create_src_distribution(); 149 149 &create_cdrom_distribution() unless $no_cdrom; … … 185 185 } 186 186 187 sub create_ linux_distribution {188 my $ linux_dir = "gsdl-" . $version_num . "-linux";189 my $ linux_dist_dir = &util::filename_cat ($output_dir, $linux_dir);190 mkdir ($ linux_dist_dir, 0777);187 sub create_unix_distribution { 188 my $unix_dir = "gsdl-" . $version_num . "-unix"; 189 my $unix_dist_dir = &util::filename_cat ($output_dir, $unix_dir); 190 mkdir ($unix_dist_dir, 0777); 191 191 192 192 # empty "collect" directory 193 mkdir (&util::filename_cat($ linux_dist_dir, "collect"), 0777);193 mkdir (&util::filename_cat($unix_dist_dir, "collect"), 0777); 194 194 195 195 # docs directory, README.TXT, COPYING and Support.htm 196 &install_docs ($ linux_dist_dir, 1);196 &install_docs ($unix_dist_dir, 1); 197 197 198 198 # gsdl directory 199 &install_gsdl ($ linux_dist_dir);199 &install_gsdl ($unix_dist_dir); 200 200 201 201 # src directory 202 &install_src ($ linux_dist_dir, "unix");202 &install_src ($unix_dist_dir, "unix"); 203 203 204 204 # Unix directory 205 &install_unix_specific ($ linux_dist_dir);205 &install_unix_specific ($unix_dist_dir); 206 206 207 207 # we want to include the unbuilt bits of the demo collection too 208 my $demodir = &util::filename_cat($ linux_dist_dir, "gsdl", "collect", "demo");208 my $demodir = &util::filename_cat($unix_dist_dir, "gsdl", "collect", "demo"); 209 209 my $demoetc = &util::filename_cat($demodir, "etc"); 210 210 my $tmpdemo = &util::filename_cat($tmpdir, "gsdl", "collect", "demo"); … … 218 218 219 219 # tar and gzip it 220 # &zip ($ linux_dir, $linux_dir, $output_dir, 2);221 # &util::rm_r ($ linux_dist_dir);220 # &zip ($unix_dir, $unix_dir, $output_dir, 2); 221 # &util::rm_r ($unix_dist_dir); 222 222 } 223 223 … … 291 291 $manfile = &util::filename_cat ($install_dir, "docs", "Install-en.pdf"); 292 292 &util::rm ($manfile) if -e $manfile; 293 $manfile = &util::filename_cat ($install_dir, "docs", "Develop er-en.pdf");293 $manfile = &util::filename_cat ($install_dir, "docs", "Develop-en.pdf"); 294 294 &util::rm ($manfile) if -e $manfile; 295 295 $manfile = &util::filename_cat ($install_dir, "docs", "Paper-en.pdf"); … … 299 299 $manfile = &util::filename_cat ($install_dir, "docs", "Install-fr.pdf"); 300 300 &util::rm ($manfile) if -e $manfile; 301 $manfile = &util::filename_cat ($install_dir, "docs", "Develop er-fr.pdf");301 $manfile = &util::filename_cat ($install_dir, "docs", "Develop-fr.pdf"); 302 302 &util::rm ($manfile) if -e $manfile; 303 303 $manfile = &util::filename_cat ($install_dir, "docs", "Paper-fr.pdf"); … … 307 307 $manfile = &util::filename_cat ($install_dir, "docs", "Install-es.pdf"); 308 308 &util::rm ($manfile) if -e $manfile; 309 $manfile = &util::filename_cat ($install_dir, "docs", "Develop er-es.pdf");309 $manfile = &util::filename_cat ($install_dir, "docs", "Develop-es.pdf"); 310 310 &util::rm ($manfile) if -e $manfile; 311 311 $manfile = &util::filename_cat ($install_dir, "docs", "Paper-es.pdf"); … … 438 438 439 439 # make sure Install.sh is executable 440 my $install_sh = &util::filename_cat 440 my $install_sh = &util::filename_cat($unixdir, "Install.sh"); 441 441 `chmod a+x $install_sh`; 442 442 443 &util::cp_r ($linuxbin, $unixbindir); 444 # make sure linux binaries are all executable 445 my $linuxbindir = &util::filename_cat($linuxbin, 'linux'); 446 `chmod -R a+x $linuxbindir`; 443 447 444 448 # make sure there aren't any CVS directories laying around
Note:
See TracChangeset
for help on using the changeset viewer.