If there is an error with submission API, don't ask to check on the intranet
This commit is contained in:
parent
3ab8661fbf
commit
751afab04f
2 changed files with 7 additions and 6 deletions
|
|
@ -114,9 +114,11 @@ if ($ref =~ m<^refs/tags/(.+)$>)
|
||||||
if ($@) {
|
if ($@) {
|
||||||
my $err = $@;
|
my $err = $@;
|
||||||
log DEBUG, "ERROR: ".$err;
|
log DEBUG, "ERROR: ".$err;
|
||||||
|
log DONE, "[ACU] Upload successful";
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
log DONE, "[ACU] Upload successful, please check this information on the intranet";
|
||||||
}
|
}
|
||||||
|
|
||||||
log DONE, "[ACU] UPLOAD successful, please check this information on the intranet";
|
|
||||||
}
|
}
|
||||||
|
|
||||||
exit 0;
|
exit 0;
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
#!/usr/bin/perl
|
#!/usr/bin/env perl
|
||||||
|
|
||||||
use v5.10.1;
|
use v5.10.1;
|
||||||
use strict;
|
use strict;
|
||||||
|
|
@ -17,9 +17,8 @@ use Term::ReadKey;
|
||||||
#use File::Basename;
|
#use File::Basename;
|
||||||
#use File::Find;
|
#use File::Find;
|
||||||
|
|
||||||
BEGIN {
|
# Avoid installation of liblerdorf on workstations
|
||||||
push @INC, "../";
|
use lib "/sgoinfre/root/new_intra/";
|
||||||
}
|
|
||||||
|
|
||||||
use ACU::LDAP;
|
use ACU::LDAP;
|
||||||
use ACU::Log;
|
use ACU::Log;
|
||||||
|
|
|
||||||
Reference in a new issue