Can give defense file without .xml
This commit is contained in:
parent
feb887d105
commit
e60879ca6e
@ -5,6 +5,7 @@ use warnings;
|
|||||||
use v5.10;
|
use v5.10;
|
||||||
use Digest::SHA qw(sha1_base64);
|
use Digest::SHA qw(sha1_base64);
|
||||||
use File::Basename;
|
use File::Basename;
|
||||||
|
use utf8;
|
||||||
|
|
||||||
use ACU::API::Projects;
|
use ACU::API::Projects;
|
||||||
use ACU::Defense;
|
use ACU::Defense;
|
||||||
@ -102,7 +103,8 @@ sub tag_defense
|
|||||||
$path = $_[3];
|
$path = $_[3];
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
else {
|
else
|
||||||
|
{
|
||||||
# Looking for an uniq defense file in defenses/
|
# Looking for an uniq defense file in defenses/
|
||||||
$path = qx(git ls-tree -r --name-only $ARGV[2] defenses/ | egrep '\.xml\$');
|
$path = qx(git ls-tree -r --name-only $ARGV[2] defenses/ | egrep '\.xml\$');
|
||||||
my $nb_defenses = $path =~ tr/\n//;
|
my $nb_defenses = $path =~ tr/\n//;
|
||||||
@ -118,7 +120,7 @@ sub tag_defense
|
|||||||
}
|
}
|
||||||
|
|
||||||
my $defense_id;
|
my $defense_id;
|
||||||
if ($path =~ /(?:defenses\/)?([a-zA-Z0-9\/]+)(?:.xml)?/) {
|
if ($path =~ /^(?:defenses\/)?([a-zA-Z0-9\/]+)(?:.xml)?$/) {
|
||||||
$defense_id = $1;
|
$defense_id = $1;
|
||||||
} else {
|
} else {
|
||||||
log ERROR, "Déplacez votre soutenance dans le dossier defenses ou simplifiez le nom du fichier.";
|
log ERROR, "Déplacez votre soutenance dans le dossier defenses ou simplifiez le nom du fichier.";
|
||||||
|
Reference in New Issue
Block a user