- Timestamp:
- 2005-07-07T09:30:18+12:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/exportcol.pl
r9432 r10225 57 57 'type' => "string", 58 58 'deft' => "Greenstone Collections", 59 'reqd' => "no" }, ]; 59 'reqd' => "no" }, 60 { 'name' => "cddir", 61 'desc' => "{exportcol.cddir}", 62 'type' => "string", 63 'deft' => "exported_collections", 64 'reqd' => "no" } ]; 60 65 61 66 my $options = { 'name' => "exportcol.pl", … … 80 85 'language/.*/', \$language, 81 86 'out/.*/STDERR', \$out, 82 'cdname/.*/', \$cdname, 87 'cdname/.*/Greenstone Collections', \$cdname, 88 'cddir/.*/exported_collections', \$cddir, 83 89 'gli', \$gli, 84 90 'nonetscape', \$no_netscape, … … 105 111 &gsprintf::output_strings_in_UTF8; 106 112 } 107 108 my $dirname=""; 109 if ($cdname eq "") { 110 $cdname = "Greenstone Collections"; 111 $dirname = "exported_collections"; 112 } else { 113 $dirname = $cdname; 114 $dirname =~ s/\s//g; 115 $dirname = "exported_".$dirname; 116 } 113 114 # No longer needed now -cddir flag also included (with default) 115 # my $dirname=""; 116 # if ($cdname eq "") { 117 # $cdname = "Greenstone Collections"; 118 # $dirname = "exported_collections"; 119 # } else { 120 # $dirname = $cdname; 121 # $dirname =~ s/\s//g; 122 # $dirname = "exported_".$dirname; 123 # } 117 124 118 125 my @coll_list = @ARGV; … … 166 173 167 174 # create exported directory 168 my $topdir = &util::filename_cat ($ENV{'GSDLHOME'}, "tmp", $ dirname);175 my $topdir = &util::filename_cat ($ENV{'GSDLHOME'}, "tmp", $cddir); 169 176 &util::mk_all_dir ($topdir); 170 177 if (!-d $topdir) {
Note:
See TracChangeset
for help on using the changeset viewer.