#!/usr/bin/perl

use strict;
use warnings;

use RPM::Source::Editor;

my $specfile=$ARGV[0];
die "first arg is not a file" unless defined $specfile;
die "$ARGV[0]: not a file" unless -f $specfile;

my $spec=RPM::Source::Editor->new(SPECFILE=>$specfile);
my $exit_code=3;
foreach my $secname (qw/prep build install check/) {
    last unless $exit_code;
    my $sec=$spec->get_section($secname);
    next unless $sec;
    $sec->visit_body(
	sub{
	    return if /^\s*(?:[#%]|cp|make|grep|sed|install|CFLAGS|pushd)/;
	    return if /^\s*using\s*python\b/;
	    return if /^\s*python3/;
	    return if /^\s*python\s*=/;
	    #(?<!\%)
	    $exit_code=0 if m!(?:^|\s|/usr/bin/)python\s!;
	});
}

exit $exit_code;
