[pacman-dev] [PATCH] makepkg-template: add --version and some license info

[Andrew Gregory]

On 05/29/13 at 09:49am, Florian Pritz wrote:
> Signed-off-by: Florian Pritz <bluewind at xinu.at>
> ---
>  scripts/makepkg-template.pl.in | 31 +++++++++++++++++++++++++++++++
>  1 file changed, 31 insertions(+)
> 
> diff --git a/scripts/makepkg-template.pl.in b/scripts/makepkg-template.pl.in
> index 7e37799..f3eda05 100755
> --- a/scripts/makepkg-template.pl.in
> +++ b/scripts/makepkg-template.pl.in
> @@ -1,4 +1,22 @@
>  #!/usr/bin/perl
> +#   makepkg-template - template system for makepkg
> +#   @configure_input@
> +#
> +#   Copyright (c) 2013 Pacman Development Team <pacman-dev at archlinux.org>
> +#
> +#   This program is free software; you can redistribute it and/or modify
> +#   it under the terms of the GNU General Public License as published by
> +#   the Free Software Foundation; either version 2 of the License, or
> +#   (at your option) any later version.
> +#
> +#   This program is distributed in the hope that it will be useful,
> +#   but WITHOUT ANY WARRANTY; without even the implied warranty of
> +#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
> +#   GNU General Public License for more details.
> +#
> +#   You should have received a copy of the GNU General Public License
> +#   along with this program.  If not, see <http://www.gnu.org/licenses/>.
> +#
>  use warnings;
>  use strict;
>  use v5.10.1;
> @@ -158,14 +176,27 @@ sub usage {
>  	print  gettext("                        (default: use version specified in the template markers)\n");
>  	print  gettext("  --template-dir <dir>  directory to search for templates\n");
>  	printf(gettext("                        (default: %s)\n"), '@TEMPLATE_DIR@');
> +	print  gettext("  --help, -h            This help message\n");
> +	print  gettext("  --version             Version information\n");
>  	print "\n";
>  	exit($exitstatus);
>  }
>  
> +sub version {
> +	my ($exitstatus) = @_;
> +	printf(gettext("makepkg-template (pacman) %s\n"), '@PACKAGE_VERSION@');

That line doesn't need to be translated.

> +	print  gettext(
> +		'Copyright (c) 2013 Pacman Development Team <pacman-dev at archlinux.org>.'."\n".
> +		'This is free software; see the source for copying conditions.'."\n".
> +		'There is NO WARRANTY, to the extent permitted by law.'."\n");
> +	exit($exitstatus);
> +}
> +
>  Getopt::Long::Configure ("bundling");
>  GetOptions(
>  	"help" => sub {usage(0); },
>  	"h" => sub {usage(0); },

Since we now treat --help and -h the same, we could go ahead and collapse
those two while we're fiddling with this section:

     "help|h" => sub {usage(0); },

> +	"version" => sub {version(0); },
>  	"input|p=s" => \$opts{input},
>  	"output|o=s" => \$opts{output},
>  	"newest|n" => \$opts{newest},
> -- 
> 1.8.2.3
>