search for: pod2usag

...gt;match_app($self->{desc}, $label, $user_arch); # Nothing to do if it's already installed diff --git a/v2v/virt-v2v.pl b/v2v/virt-v2v.pl index ea89e48..d9f6bb3 100755 --- a/v2v/virt-v2v.pl +++ b/v2v/virt-v2v.pl @@ -217,8 +217,7 @@ GetOptions ("help|?" => sub { ) or pod2usage(2); # Read the config file if one was given -my $config; -$config = Sys::VirtV2V::Config->new($config_file) if defined($config_file); +my $config = Sys::VirtV2V::Config->new($config_file); my $target; if ($output_method eq "libvirt") { @@ -302,7 +301,7 @@ my $storage = $conn...

..."debug|d" => \$debug, @@ -229,7 +229,9 @@ GetOptions ("help|?" => \$help, "merge" => \$merge, "encoding=s" => \$encoding, "unsafe-printable-strings" => \$unsafe_printable_strings, - ) or pod2usage (2); + "long-options" => \&display_long_options, + "short-options" => \&display_short_options); +GetOptions (%opts) or pod2usage (2); pod2usage (1) if $help; if ($version) { my $g = Sys::Guestfs->new (); @@ -238,6 +240,22 @@ if ($ve...

...@@ GetOptions ("help|?" => \$help, "encoding=s" => \$encoding, "unsafe-printable-strings" => \$unsafe_printable_strings, "unsafe" => \$unsafe, + "max-depth=i" => \$max_depth, ) or pod2usage (2); pod2usage (1) if $help; @@ -332,7 +347,8 @@ if ($merge) { # --merge (reg_import) reg_export ($h, $key, \*STDOUT, prefix => $prefix, unsafe_printable_strings => $unsafe_printable_strings, - unsafe => $unsafe);...

This new option allows you to only export what you care about from a registry hive by specifying a max recursion depth. Michael Meyer (1): hivexregedit: add --max-depth option for exports perl/lib/Win/Hivex/Regedit.pm | 14 ++++++++++++-- regedit/hivexregedit | 18 +++++++++++++++++- 2 files changed, 29 insertions(+), 3 deletions(-) -- 2.14.3 (Apple Git-98)

...shost=s', 'upsname=s', 'basedir=s', 'htmldir=s', 'logfile=s', 'usage|?', 'help', 'man|manual')) { if ($opts{usage}) { pod2usage(-message => $desc, -exitstatus => 0, -verbose => 0); } elsif ($opts{help}) { pod2usage(-message => $desc, -exitstatus => 0, -verbose => 1); } elsif ($opts{man}) {...

...t-rescue @@ -111,7 +111,7 @@ Open the image read-only. GetOptions ("help|?" => \$help, "version" => \$version, "connect|c=s" => \$uri, - "ro|r" => \$readonly, + "ro|r" => \$readonly, ) or pod2usage (2); pod2usage (1) if $help; if ($version) { diff --git a/src/generator.ml b/src/generator.ml index 1dd8b20..6f77e4b 100755 --- a/src/generator.ml +++ b/src/generator.ml @@ -4674,8 +4674,8 @@ check_state (guestfs_h *g, const char *caller) let needs_i = List.exists (function - |...

...5_0.2 file /usr/share/man/man1/pod2man.1.gz from install of perl-5.8.8-10.el5_2.3 conflicts with file from package perl-5.8.8-10.el5_0.2 file /usr/share/man/man1/pod2text.1.gz from install of perl-5.8.8-10.el5_2.3 conflicts with file from package perl-5.8.8-10.el5_0.2 file /usr/share/man/man1/pod2usage.1.gz from install of perl-5.8.8-10.el5_2.3 conflicts with file from package perl-5.8.8-10.el5_0.2 file /usr/share/man/man1/podchecker.1.gz from install of perl-5.8.8-10.el5_2.3 conflicts with file from package perl-5.8.8-10.el5_0.2 file /usr/share/man/man1/podselect.1.gz from install of perl-5...

...; \$input, - "outputxml|o=s" => \$outputxml, - "datadir|d=s" => \$datadir, - "force|f" => \$force, - "commit" => \$commit, - "rollback" => \$rollback - ) or pod2usage(2); -pod2usage(0) if($help); -pod2usage({ - -message => __"--commit and --rollback options are mutually exclusive", - -exitval => 1 -}) if($commit && $rollback); - -if ($version) { - print "$Sys::VirtV2V::VERSION\n"; - exit(0); -} - -pod2usage(user_mes...

...B<--ignore=--arg,--arg,...> + +Ignore the comma-separated list of arguments given. + +=cut + +# Clean up the program name. +my $progname = $0; +$progname =~ s{.*/}{}; + +# Parse options. +GetOptions ("help|?" => \$help, + "ignore=s" => \$ignore, + ) or pod2usage (2); +pod2usage (1) if $help; + +die "$progname: missing argument: pod-arg-check.pl input.pod tool\n" + unless @ARGV == 2; +my $pod = $ARGV[0]; +my $tool = $ARGV[1]; + +my %ignore = (); +$ignore{$_} = 1 foreach (split /,/, $ignore); + +# Open the man page and slurp it in. +my $pod_con...

As described here previously: https://www.redhat.com/archives/libguestfs/2010-March/msg00129.html Here is the three part patch to reimplement virt-win-reg to support exporting and merging Windows Registry entries in the 'regedit' format. Tested by me on a local Windows VM. Rich. -- Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones virt-top is 'top'

...located relative to this path. + +=back + +=cut + +# Clean up the program name. +my $progname = $0; +$progname =~ s{.*/}{}; + +# Parse options. +GetOptions ("help|?" => \$help, + "output=s" => \$output, + "srcdir=s" => \$srcdir, + ) or pod2usage (2); +pod2usage (1) if $help; + +die "$progname: missing -o/--output parameter\n" unless defined $output; + +die "$progname: missing argument: make-internal-documentation [C source files ...]\n" unless @ARGV >= 1; + +# Only consider input files which +# - are C source files...

With this patchset I have successfully[1] imported a RHEL 5 guest directly from ESX with the following command line: virt-v2v -ic 'esx://yellow.marston/?no_verify=1' -op transfer RHEL5-64 Login details are stored in ~/.netrc Note that this is the only guest I've tested against. I haven't for example, checked that I haven't broken Xen imports. Matt [1] With the exception of

...@@ else { # Get an appropriate Source my $source; +if (defined($verbose)) { + logmsg NOTICE, __x('Connecting to input '. + '({input})', input => $input_method) +} if ($input_method eq "libvirtxml") { my $path = shift(@ARGV) or pod2usage({ -message => __"You must specify a filename", @@ -574,6 +606,10 @@ else { # Decide the name of the guest target. $output_name = $source->get_name() unless defined $output_name; +if (defined($verbose)) { + logmsg NOTICE, __x('Validating guest: {output}', +...

...@ -91,6 +100,7 @@ $progname =~ s{.*/}{}; GetOptions ("help|?" => \$help, "ignore=s" => \$ignore, "insert=s" => \@inserts, + "path=s" => \@paths, "verbatim=s" => \@verbatims, ) or pod2usage (2); pod2usage (1) if $help; @@ -117,6 +127,10 @@ foreach (@inserts) { if $content eq $oldcontent; } +# Perform INCLUDE directives. +$content =~ s{__INCLUDE:([-a-z0-9_]+\.pod)__} + {read_whole_file ("$1", use_path => 1)}ge; + # Perform @verbatims. foreach (@...

The following patches address issues when dealing with hives that have corrupted data in them but are otherwise readable/writable. Those were found on some rather rare Windows installations that seem to work fine but current hivex fails to even open. Those patches change hivex to simply log and ignore such "corrupted" regions instead of aborting because the caller might be looking at

...-27,6 +27,7 @@ use Pod::Usage; use Getopt::Long; use Data::Dumper; use XML::Writer; +use Locale::TextDomain 'libguestfs'; # Optional: eval "use YAML::Any;"; @@ -201,7 +202,7 @@ if ($version) { print "$h{major}.$h{minor}.$h{release}$h{extra}\n"; exit } -pod2usage ("$0: no image or VM names given") if @ARGV == 0; +pod2usage (__"virt-inspector: no image or VM names given") if @ARGV == 0; my $rw = 0; $rw = 1 if $output eq "fish"; @@ -293,7 +294,7 @@ if ($output !~ /.*fish$/) { if ($output eq "fish" || $output eq &q...

...-exitval => 1 }) if (defined($bridge)); $bridge = $value; }, + "root=s" => \$root_choice, "p|profile=s" => \$profile, "list-profiles" => \$list_profiles ) or pod2usage(2); @@ -539,20 +579,74 @@ sub inspect_guest my $oses = inspect_operating_systems ($g, \%fses); - # Only work on single-root operating systems. + # Get list of roots, sorted. my $root_dev; - my @roots = keys %$oses; + my @roots = sort (keys %$oses); if(@roots == 0)...

...tity.file", + "p2v.auth.identity.file_needs_update", +); + +# Clean up the program name. +my $progname = $0; +$progname =~ s{.*/}{}; + +my $filename; +my $output; + +GetOptions( + 'file=s' => \$filename, + 'output=s' => \$output, + 'help' => sub { pod2usage(1); }, +) or pod2usage(2); +die "$progname: Option --file not specified.\n" unless $filename; +# die "$progname: Option --output not specified.\n" unless $output; + +sub print_generated_header { + my $fh = shift; + print $fh <<"EOF"; +/* libguestfs generated f...

The following patches are where I'm currently at with ESX support. I can now import a domain from ESX along with its storage. Note that I'm not yet doing any conversion. In fact, I've never even tested past the import stage (I just had an exit in there). The meat is really in the 4th patch. The rename of MetadataReader->Connection was because the Connection is now really providing

Fix for: https://bugzilla.redhat.com/show_bug.cgi?id=1293527 Note that patches 2/3 and 3/3 are dependent on each other, ie. applying 2/3 on its own will break the build. So I may combine these when applying the series. Rich.