# HG changeset patch # User Heiko Schlittermann (JUMPER) # Date 1311929885 -7200 # Node ID 82c0df89b287642767e4557fe25a53d4e103a9b2 # Parent 496ee9b0f48805547fa057146480b348576767d1 now we have the meta "imager" command diff -r 496ee9b0f488 -r 82c0df89b287 bin/imager --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/imager Fri Jul 29 10:58:05 2011 +0200 @@ -0,0 +1,71 @@ +#! /usr/bin/perl +use 5.10.0; +use strict; +use warnings; +use Getopt::Long; +use Pod::Usage; + +Getopt::Long::Configure("require_order"); +GetOptions( + "h|help" => sub { pod2usage(-verbose => 1, -exit => 0) }, + "m|man" => sub { pod2usage(-verbose => 2, -exit => 0, + -noperldoc => system("perldoc -V >/dev/null 2>&1")) }, +) and $ARGV[0] ~~ [qw(save restore fuse check)] + or pod2usage; + +exec "$0." .shift() => @ARGV; + + +__END__ + +=head1 NAME + + imager - image backups + +=head1 SYNOPSIS + + imager {command} [options] ... + imager -h|--help + imager -m|--man + +=head1 DESCRIPTION + +This tool is the general command to get the +functions of the imager tool. + +=head1 OPTIONS + +=over + +=item B<-h>|B<--help> + +=item B<-m>|B<--man> + +The standard help|manpage options. + +=back + +=head1 COMMANDS + +=over + +=item save + +Save the image. See C for more information. + +=item restore + +Restore the image. See C for more information. + +=item fuse + +Do a fuse mount. See C for more information. + +=item check + +Check the saved images. See C for more information. + +=back + + +=cut diff -r 496ee9b0f488 -r 82c0df89b287 bin/imager.check --- a/bin/imager.check Fri Jul 29 10:53:14 2011 +0200 +++ b/bin/imager.check Fri Jul 29 10:58:05 2011 +0200 @@ -30,11 +30,11 @@ "y|yes!" => \$o{yes}, "v|verbose!" => \$o{verbose}, "c|check" => \$o{check}, - "h|help" => sub { pod2usage(-verbose => 1, -exit 0) }, + "h|help" => sub { pod2usage(-verbose => 1, -exit => 0) }, "m|man" => sub { pod2usage( -verbose => 2, - -exit 0, + -exit => 0, -noperldoc => system( "perldoc -V 1>/dev/null 2>&1"