Changeset 12406

Timestamp:

2006-08-04T17:11:49+12:00 (18 years ago)

Author:

shaoqun

Message:

uses the cache_dir par rather than ${ENV{'HOME'} to get the cache dir

File:

• trunk/gsdl/bin/script/downloadfrom.pl (modified) (5 diffs)

trunk/gsdl/bin/script/downloadfrom.pl

@@ -31 +31 @@
     die "GSDLHOME not set\n" unless defined $ENV{'GSDLHOME'};
     die "GSDLOS not set\n" unless defined $ENV{'GSDLOS'};
-    die "HOME not set\n" unless defined $ENV{'HOME'};
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib");
     unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan");
-    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/downloaders");
+    unshift (@INC, "$ENV{'GSDLHOME'}/perllib/downloaders");         
 }
 
@@ -51 +50 @@
         'desc' => "{downloadfrom.download_mode.OAI}",
     'downloadname' => "OAIDownload" },
-      { 'name' => "Z39.50",
+      { 'name' => "Z3950",
         'desc' => "{downloadfrom.download_mode.Z3950}",
     'downloadname' => "Z3950Download" },
@@ -67 +66 @@
     'desc' => "{downloadfrom.cache_dir}",
     'type' => "string",
-    'deft' => "$ENV{'HOME'}/.gli/cache",
+    'deft' => "\"$ENV{'HOME'}/.gli/cache\"",
     'reqd' => "no" },
       { 'name' => "gli",
@@ -122 +121 @@
    $strMode = &findMode($hashOptions->{'download_mode'});
   
-   if ($strMode eq "") {
+    if ($strMode eq "") {
        &gsprintf(STDERR, "{downloadfrom.incorrect_mode}\n");
        &PrintUsage::print_txt_usage($options, "{downloadfrom.params}");
@@ -142 +141 @@
     
     ($blnResult eq "true")?
-        print "\ndownloadfrom.pl has completed data gathering\n":
+        print  "\ndownloadfrom.pl has completed data gathering\n":
         print "\ndownloadfrom.pl has failed to gather data\n";
-    }   
+    } 
+
+     
 }
 
 
 &main();
+
+