Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
emulab-devel
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
143
Issues
143
List
Boards
Labels
Service Desk
Milestones
Merge Requests
6
Merge Requests
6
Operations
Operations
Incidents
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
emulab
emulab-devel
Commits
7a4d372b
Commit
7a4d372b
authored
Sep 09, 2013
by
Leigh B Stoller
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Completely silence a few things. Too much email.
parent
30892a11
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
2 deletions
+9
-2
protogeni/xmlrpc/protogeni-wrapper.pl.in
protogeni/xmlrpc/protogeni-wrapper.pl.in
+9
-2
No files found.
protogeni/xmlrpc/protogeni-wrapper.pl.in
View file @
7a4d372b
...
...
@@ -103,6 +103,7 @@ my $debug = 0;
my
$mailerrors
=
1
;
my
$mailsendlog
=
0
;
my
$nostorelogs
=
0
;
my
$noanything
=
0
;
# Flag for XMLERROR.
my
$logging
=
0
;
my
$logforked
=
0
;
...
...
@@ -533,6 +534,12 @@ if ($method eq "CreateSliver" ||
$debug
=
2
;
$nostorelogs
=
0
;
}
if
(
$method
eq
"
PostHistoryRecord
"
||
$method
eq
"
Register
")
{
$debug
=
0
;
$nostorelogs
=
1
;
$noanything
=
1
;
}
#
# Look for a cert chain and verify the URN namespace along the chain.
...
...
@@ -735,7 +742,7 @@ LogAbort();
# If nothing in the log and no error, then we just store the metadata
# and skip the message.
#
if
(
-
s $logfile->filename() || $iserror
) {
if
(
(
-
s $logfile->filename() || $iserror) && !$noan
ything
)
{
my
$to
=
(
$rpcerror
?
$TBOPS
:
(
$MAINSITE
?
$PGERRORS
:
$TBLOGS
));
my
$cc
=
(
$MAINSITE
?
undef
:
"
CC:
$PGERRORS
");
SENDMAIL
(
$to
,
"
protogeni-wrapper.pl
",
$message
,
...
...
@@ -751,7 +758,7 @@ if (-s $logfile->filename() || $iserror) {
if
(
!
$logforked
)
{
# Use eval to avoid messing up the output stream if any errors.
# If nostorelogs is set, we do not bother to store, just delete.
eval
{
(
$nostorelogs
&&
!
$iserror
?
eval
{
(
$nostorelogs
&&
(
!
$iserror
||
$noanything
)
?
$logfile
->
Delete
(
1
)
:
$logfile
->
Store
());
};
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment