| 259 | | |
| 260 | | |
| 261 | | print "***\n"; |
| 262 | | print "* Processing $gs_col for GLI \n"; |
| 263 | | print "***\n"; |
| 264 | | |
| 265 | | my $gs_import_opts = "-verbosity $verbosity"; |
| 266 | | |
| 267 | | $gs_import_opts .= " -gli" if ($gli); |
| 268 | | |
| 269 | | $gs_import_opts .= " -language $language" if ($language); |
| 270 | | $gs_import_opts .= " -collectdir $collectdir" if ($collectdir); |
| 271 | | $gs_import_opts .= " -removeold" if ($removeold); |
| 272 | | $gs_import_opts .= " -maxdocs $maxdocs" if ($maxdocs); |
| 273 | | |
| 274 | | ## $gs_import_opts .= " -archivedir $archive_dir"; # Not needed? |
| 275 | | |
| 276 | | my $gs_import_arguments = "$gs_import_opts $gs_col"; |
| 277 | | |
| 278 | | ### &g2futil::run_cmd("import.pl", $gs_import_arguments, $options); |
| 279 | | |
| 280 | | |
