Changeset 9236
- Timestamp:
- 2005-03-01T15:39:25+13:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/exportcol.pl
r7951 r9236 39 39 'desc' => "{scripts.language}", 40 40 'type' => "string", 41 'reqd' => "no" }, 42 { 'name' => "xml", 43 'desc' => "{scripts.xml}", 44 'type' => "flag", 41 45 'reqd' => "no" }, 42 46 { 'name' => "out", … … 45 49 'deft' => "STDERR", 46 50 'reqd' => "no" }, 51 { 'name' => "nonetscape", 52 'desc' => "{exportcol.nonetscape}", 53 'type' => "flag", 54 'reqd' => "no" }, 47 55 { 'name' => "cdname", 48 56 'desc' => "{exportcol.cdname}", … … 67 75 68 76 my $xml = 0; 77 my $no_netscape = 0; 69 78 70 79 if (!parsargv::parse(\@ARGV, … … 73 82 'cdname/.*/', \$cdname, 74 83 'gli', \$gli, 84 'nonetscape', \$no_netscape, 75 85 q^xml^, \$xml)) { 76 86 … … 78 88 die "\n"; 79 89 } 90 91 my $use_netscape = ($no_netscape) ? 0 : 1; 80 92 81 93 # If $language has been specified, load the appropriate resource bundle … … 234 246 if ((!-d $imagesdir) || (!-d $macrosdir) || (!-d $mappingsdir) || (!-e $maincfg) || 235 247 (!-e $serverexe) || (!-e $gssetupexe) || (!-e $setupexe) || (!-d $net32dir) || 236 (!-d $net16dir) || ( !-d $netscapedir) || (!-d $win32sdir) || (!-e $phindjar) ||248 (!-d $net16dir) || ($use_netscape && (!-d $netscapedir)) || (!-d $win32sdir) || (!-e $phindjar) || 237 249 (!-e $gsdlcollageappletjar)) { 238 250 &gsprintf($out, "{exportcol.fail} {exportcol.non_exist_files}\n"); … … 246 258 &gsprintf($out, " $net32dir\n"); 247 259 &gsprintf($out, " $net16dir\n"); 248 &gsprintf($out, " $netscapedir\n") ;260 &gsprintf($out, " $netscapedir\n") if ($use_netscape); 249 261 &gsprintf($out, " $win32sdir\n"); 250 262 &gsprintf($out, " $phindjar\n"); … … 262 274 &util::cp_r ($net32dir, $gsdldir); 263 275 &util::cp_r ($net16dir, $gsdldir); 264 &util::cp_r ($netscapedir, $topdir) ;276 &util::cp_r ($netscapedir, $topdir) if ($use_netscape); 265 277 &util::cp_r ($win32sdir, $topdir); 266 278 &util::cp ($phindjar, $binjavadir); … … 326 338 } 327 339 328 &gsprintf($out, "{exportcol.output_dir}\n", $successcolls, $topdir); 340 my $gsdl_home = $ENV{'GSDLHOME'}; 341 my $portable_topdir = $topdir; 342 $portable_topdir =~ s/$gsdl_home/\$GSDLHOME/g; 343 344 &gsprintf($out, "{exportcol.output_dir}\n", $successcolls, $portable_topdir); 329 345 &gsprintf($out, "exportcol.pl succeeded:{exportcol.instructions}\n"); 330 346 close OUT if $close_out;
Note:
See TracChangeset
for help on using the changeset viewer.