Changeset 2413

Timestamp:

2001-05-15T10:24:25+12:00 (23 years ago)

Author:

sjboddie

Message:

* empty log message *

File:

• trunk/gsdl/bin/script/create_distributions.pl (modified) (4 diffs)

trunk/gsdl/bin/script/create_distributions.pl

@@ -47 +47 @@
 
 # temporary working directory
-my $tmpdir = '/tmp';
+my $tmpdir = '/tmp/sjboddie';
 
 # docs directory - up-to-date copy of everything to go in the docs directory 
@@ -64 +64 @@
 use parsargv;
 use util;
+
+use Cwd;
 
 sub print_usage {
@@ -264 +266 @@
     &util::cp_r (&util::filename_cat ($tmpdir, "gsdl", "mappings"), $gsdldir);
 
+    # untar the perllib/cpan/Ping.tgz archive
+    my $cwd = cwd;
+    chdir(&util::filename_cat ($gsdldir, "perllib", "cpan"));
+    `tar xvzf Ping.tgz`;
+    chdir ($cwd);
+
     # make sure that modelcol collection contains all the right 
     # empty directories
@@ -684 +692 @@
     # edit VERSION file
     my $version_file = &util::filename_cat ($tmpdir, "gsdl", "etc" , "VERSION");
-    open (VERSION, $version_file) || die;
+    open (VERSION, $version_file) || die "failed to open $version_file\n";
     my $found = 0; my $line = ""; my $file = "";
     while (defined ($line = <VERSION>)) {