github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-01-13 23:26:10 +00:00
Code Releases Activity

Parameter templates for fail(), logprint() and logonly()

Browse Source
This commit is contained in:
Axel Beckert 2012-11-27 23:04:45 +01:00
parent ea23c79431
commit 68d548ef60
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lib/Xen/Tools/Common.pm
View File

@ -325,10 +325,12 @@ sub setupAdminUsers ($)
=cut
sub fail
sub fail ($$)
{
logprint(@_);
$FAIL = 1;
my ($text, $CONFIG) = (@_);
logprint($text, $CONFIG);
$CONFIG->{'FAIL'} = 1;
exit 127;
}
@ -342,13 +344,13 @@ sub fail
=cut
sub logonly
sub logonly ($$)
{
my ($text) = (@_);
my ($text, $CONFIG) = (@_);
if ( $CONFIG{ 'hostname' } )
if ( $CONFIG->{ 'hostname' } )
{
open( LOGFILE, ">>", "/var/log/xen-tools/$CONFIG{'hostname'}.log" ) or
open( LOGFILE, '>>', '/var/log/xen-tools/'.$CONFIG->{'hostname'}.'.log' ) or
return;
print LOGFILE $text;
close(LOGFILE);
@ -364,12 +366,12 @@ sub logonly
=cut
sub logprint
sub logprint ($$)
{
my ($text) = (@_);
my ($text, $CONFIG) = (@_);
print $text;
logonly($text);
logonly($text, $CONFIG);
}