diff options
| -rwxr-xr-x | df/virt-df.pl | 15 | ||||
| -rwxr-xr-x | inspector/virt-inspector.pl | 15 | ||||
| -rwxr-xr-x | v2v/virt-v2v.pl | 15 |
3 files changed, 45 insertions, 0 deletions
diff --git a/df/virt-df.pl b/df/virt-df.pl index 2d666a03..0ccc7a8a 100755 --- a/df/virt-df.pl +++ b/df/virt-df.pl @@ -82,6 +82,14 @@ Display brief help. =cut +my $version; + +=item B<--version> + +Display version number and exit. + +=cut + my $uri; =item B<--connect URI> | B<-c URI> @@ -122,12 +130,19 @@ Print inodes instead of blocks. =cut GetOptions ("help|?" => \$help, + "version" => \$version, "connect|c=s" => \$uri, "csv" => \$csv, "human-readable|human|h" => \$human, "inodes|i" => \$inodes, ) or pod2usage (2); pod2usage (1) if $help; +if ($version) { + my $g = Sys::Guestfs->new (); + my %h = $g->version (); + print "$h{major}.$h{minor}.$h{release}$h{extra}\n"; + exit +} # Open the guest handle. diff --git a/inspector/virt-inspector.pl b/inspector/virt-inspector.pl index 5f8c8928..3665d377 100755 --- a/inspector/virt-inspector.pl +++ b/inspector/virt-inspector.pl @@ -88,6 +88,14 @@ Display brief help. =cut +my $version; + +=item B<--version> + +Display version number and exit. + +=cut + my $uri; =item B<--connect URI> | B<-c URI> @@ -172,6 +180,7 @@ default. =cut GetOptions ("help|?" => \$help, + "version" => \$version, "connect|c=s" => \$uri, "text" => sub { $output = "text" }, "none" => sub { $output = "none" }, @@ -186,6 +195,12 @@ GetOptions ("help|?" => \$help, "windows-registry" => \$windows_registry, ) or pod2usage (2); pod2usage (1) if $help; +if ($version) { + my $g = Sys::Guestfs->new (); + my %h = $g->version (); + print "$h{major}.$h{minor}.$h{release}$h{extra}\n"; + exit +} pod2usage ("$0: no image or VM names given") if @ARGV == 0; my $rw = 0; diff --git a/v2v/virt-v2v.pl b/v2v/virt-v2v.pl index b7d96865..5895eaa7 100755 --- a/v2v/virt-v2v.pl +++ b/v2v/virt-v2v.pl @@ -62,6 +62,14 @@ Display brief help. =cut +my $version; + +=item B<--version> + +Display version number and exit. + +=cut + my $uri; =item B<--connect URI> | B<-c URI> @@ -76,9 +84,16 @@ then libvirt is not used at all. =cut GetOptions ("help|?" => \$help, + "version" => \$version, "connect|c=s" => \$uri, ) or pod2usage (2); pod2usage (1) if $help; +if ($version) { + my $g = Sys::Guestfs->new (); + my %h = $g->version (); + print "$h{major}.$h{minor}.$h{release}$h{extra}\n"; + exit +} pod2usage ("$0: no image or VM names given") if @ARGV == 0; # my $g; |