31 lines
782 B
Perl
31 lines
782 B
Perl
|
#! /usr/bin/perl
|
||
|
|
|
||
|
|
use File::Basename;
|
||
|
|
|
||
|
|
my $dir = $ARGV[0];
|
||
|
|
my $bname = basename($dir);
|
||
|
|
|
||
|
|
if (! -f "$dir/$bname.changes") {
|
||
|
|
print "A $bname.changes is missing. Packages submitted as FooBar, need to have a FooBar.changes file with a format created by osc vc\n";
|
||
|
|
exit(1);
|
||
|
|
}
|
||
|
|
|
||
|
|
if (! -f "$dir/$bname.spec") {
|
||
|
|
print "A $bname.spec is missing. Packages submitted as FooBar, need to have a FooBar.spec file\n";
|
||
|
|
exit(1);
|
||
|
|
}
|
||
|
|
|
||
|
|
open(SPEC, "grep ^Name: $dir/$bname.spec| head -n 1");
|
||
|
|
my $line = <SPEC>;
|
||
|
|
close(SPEC);
|
||
|
|
chomp $line;
|
||
|
|
$line =~ s,Name:\s*,,;
|
||
|
|
if ($bname ne $line) {
|
||
|
|
print "$bname.spec needs to contain Name: $bname\n";
|
||
|
|
exit(1);
|
||
|
|
}
|
||
|
|
close(SPEC);
|
||
|
|
|
||
|
|
exit(1) if system("/work/src/bin/check_if_valid_source_dir --batchmode --dest _old $dir < /dev/null 2>&1 | grep -v '##ASK'") != 0;
|
||
|
|
|