diff --git a/harvestCorpus.pl b/harvestCorpus.pl index 5432a5b..325b2f0 100755 --- a/harvestCorpus.pl +++ b/harvestCorpus.pl @@ -25,8 +25,8 @@ " " x (5 + length($programme)) . "[ -s fichier_corpus ] [ -iv ]\n" . " $programme -h\n\n"; -my $version = "3.0.5"; -my $dateModif = "17 Janvier 2018"; +my $version = "3.0.7"; +my $dateModif = "25 Janvier 2018"; # Variables my $aide = 0; @@ -115,7 +115,7 @@ @enrichissements = map {lc($_)} split(/,/, join(",", @enrichissements)); usage(4) if grep(!/^(all|abesAuthors|abesSubjects|multicat|nb|refBibs|teeft|unitex)\z/i, @enrichissements); @metadonnees = map {lc($_)} split(/,/, join(",", @metadonnees)); - usage(4) if grep(!/^(all|mods|xml)\z/i, @metadonnees); + usage(4) if grep(!/^(all|json|mods|xml)\z/i, @metadonnees); @types = map {lc($_)} split(/,/, join(",", @types)); usage(4) if grep(!/^(all|ocr|pdf|tei|txt|zip)\z/i, @types); } @@ -201,6 +201,8 @@ if ( $jeton ) { $agent->default_header("Authorization" => "Bearer $jeton"); } +# Allongement du temps d'attente +$agent->timeout(300); $agent->env_proxy; # Est-ce utile ? my $referer = undef;