#!/usr/bin/perl

use strict;
use warnings;
use Pod::Usage;
use Gear::Rules;
use Getopt::Long;

my $help;
my $verbose_default=1;
my $verbose=$verbose_default;
my $opt_check_nvr;

my $options_result = 
    GetOptions (
	"h|help"   => \$help,
	"check-nvr"  => \$opt_check_nvr,
	"verbose+"  => \$verbose,
	"quiet"  => sub {$verbose=0},
    );

sub exit_usage {
    #exec "pod2usage --exit=0 $0";
    pod2usage({ #-message => "the options below are package-specific:" ,
	-exitval => 0  ,
	-verbose => $verbose ? $verbose - $verbose_default : 0,
	#-output  => $filehandle
	      } );
}

if ($help) {
    &exit_usage();
}



my $rules=Gear::Rules->new();

my $specfile=$rules->get_spec;
if ($opt_check_nvr and $rules->get_specsubst) {
    my @nvr=$rules->get_nvr;
    die 'Gear::Rules: name-version-release '.join('-',@nvr)." depend on specsubst: command\n" if grep {/\@\w+\@/} @nvr;
}

print "$specfile\n";


=head1	NAME

gear-rules-print-specfile - helper utility to print current gear spec file.

=head1	SYNOPSIS

B<gear-rules-print-specfile>
[B<-h>] 
[B<-f, --force>] 
[B<-v>] 
[B<-q>] 

=head1	DESCRIPTION

gear-rules-restore-branches - ALTLinux Gear

=head1	OPTIONS

=over

=item	B<-h, --help>

Display this help and exit.

=item	B<-f, --force>

Modify existing branches.

=item	B<-v, --verbose>

Increase verbosity level.

=item	B<-q, --quiet>

Quiet mode.

=back

=head1	AUTHOR

Written by Igor Vlasenko <viy@altlinux.org>.

=head1	COPYING

Copyright (c) 2010 Igor Vlasenko, ALT Linux Team.

This 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.

=cut

