Archived
1
0

If there is an error with submission API, don't ask to check on the intranet

This commit is contained in:
Mercier Pierre-Olivier 2013-09-19 21:56:57 +02:00
parent 3ab8661fbf
commit 751afab04f
2 changed files with 7 additions and 6 deletions

View File

@ -114,9 +114,11 @@ if ($ref =~ m<^refs/tags/(.+)$>)
if ($@) {
my $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;

View File

@ -1,4 +1,4 @@
#!/usr/bin/perl
#!/usr/bin/env perl
use v5.10.1;
use strict;
@ -17,9 +17,8 @@ use Term::ReadKey;
#use File::Basename;
#use File::Find;
BEGIN {
push @INC, "../";
}
# Avoid installation of liblerdorf on workstations
use lib "/sgoinfre/root/new_intra/";
use ACU::LDAP;
use ACU::Log;