github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-02-21 22:27:34 +00:00
Code Releases Activity

deduplicate xenRunning()

Browse Source
This commit is contained in:
Axel Beckert
2011-11-16 01:10:51 +01:00
parent 1d45cd33ab
commit 2de01d8cbc
4 changed files with 29 additions and 84 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
bin/xen-delete-image
View File

@@ -350,33 +350,6 @@ sub checkArguments
=begin doc
Test to see if the given instance is running.
=end doc
=cut
sub xenRunning
{
my ($hostname) = (@_);
my $running = 0;
open( CMD, "xm list $hostname 2>/dev/null |" ) or
die "Failed to run 'xm list $hostname'";
while (<CMD>)
{
my $line = $_;
$running = 1 if ( $line =~ /\Q$hostname\E/ );
}
close(CMD);
return ($running);
}
=begin doc
Delete the named image, and the corresponding configuration file

28
bin/xen-resize-guest
View File

@@ -446,31 +446,3 @@ EOF
$CONFIG{ 'add' } = $1;
}
}
=begin doc
Test to see if the given instance is running.
=end doc
=cut
sub xenRunning
{
my ($hostname) = (@_);
my $running = 0;
open( CMD, "xm list $hostname 2>/dev/null |" ) or
die "Failed to run 'xm list $hostname'";
while (<CMD>)
{
my $line = $_;
$running = 1 if ( $line =~ /\Q$hostname\E/ );
}
close(CMD);
return ($running);
}

28
bin/xen-update-image
View File

@@ -332,34 +332,6 @@ sub updateXenImage
=begin doc
Test to see if the given instance is running.
=end doc
=cut
sub xenRunning
{
my ($hostname) = (@_);
my $running = 0;
open( CMD, "xm list 2>/dev/null |" ) or
die "Failed to run 'xm list $hostname'";
while (<CMD>)
{
my $line = $_;
$running = 1 if ( $line =~ /\Q$hostname\E/ );
}
close(CMD);
return ($running);
}
=begin doc
Parse the arguments specified upon the command line.