File _define_version.pl of Package authentik

#!/usr/bin/perl
use v5.26;
use warnings;

my $spec = 'authentik.spec';
if ( ! -f $spec ) {
	exit 1;
}

my ( $upstream_version, $suse_version ) = `git -C authentik describe` =~ /^version\/(\d{4}\.\d+\.\d+)\+suse(\d+\.\d+)$/;
if ( !$upstream_version || !$suse_version ) {
	exit 1;
}

print "upstream_version: $upstream_version\nsuse_version: $suse_version\n";

$^I = '.bak';
@ARGV = ($spec);

while (<>) {
	s/^(%define upstream_version\s).*$/$1$upstream_version/;
	s/^(%define suse_version\s).*$/$1$suse_version/;
	print;
}