diff options
| author | Richard Jones <rjones@trick.home.annexia.org> | 2009-07-10 17:57:41 +0100 |
|---|---|---|
| committer | Richard Jones <rjones@trick.home.annexia.org> | 2009-07-10 17:57:41 +0100 |
| commit | 995715ebf9935a64f0321c09a527538706aa3cb7 (patch) | |
| tree | 020ea7902071bc5c0b485e48ad660c55deee6121 /df | |
| parent | 745f1d9ee8480b3a38f778fcc4506ce86da473a6 (diff) | |
| download | libguestfs-995715ebf9935a64f0321c09a527538706aa3cb7.tar.gz libguestfs-995715ebf9935a64f0321c09a527538706aa3cb7.tar.xz libguestfs-995715ebf9935a64f0321c09a527538706aa3cb7.zip | |
Add --version options to virt-df, virt-inspector and virt-v2v.
Diffstat (limited to 'df')
| -rwxr-xr-x | df/virt-df.pl | 15 |
1 files changed, 15 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. |