17 |
getopts( 'osqtr:', \%opts ); |
getopts( 'osqtr:', \%opts ); |
18 |
$opts{r} ||= ''; |
$opts{r} ||= ''; |
19 |
|
|
20 |
my $rpm_flags = RPM2->vsf_nosha1header | RPM2->vsf_nomd5header | RPM2->vsf_nodsaheader | RPM2->vsf_norsaheader; |
my $rpm_flags = RPM2->vsf_nodsaheader | RPM2->vsf_norsaheader | RPM2->vsf_nodsa | RPM2->vsf_norsa; |
|
$rpm_flags |= RPM2->vsf_nosha1 | RPM2->vsf_nomd5 | RPM2->vsf_nodsa | RPM2->vsf_norsa; |
|
21 |
|
|
22 |
my $osdir = 'SME'; |
my $osdir = 'SME'; |
23 |
my $disttag = 'sme'; |
my $disttag = 'sme'; |
49 |
builds => ['/build/builds/smeserver-9-core/'], |
builds => ['/build/builds/smeserver-9-core/'], |
50 |
community => '/build/builds/smeserver-9-contribs/', |
community => '/build/builds/smeserver-9-contribs/', |
51 |
stage => '/build/smeserver/stage/9/', |
stage => '/build/smeserver/stage/9/', |
52 |
sign => 0, |
sign => 1, |
53 |
checksum => 'sha256', |
checksum => 'sha256', |
54 |
}, |
}, |
55 |
}; |
}; |
514 |
|
|
515 |
my $exclude = ""; |
my $exclude = ""; |
516 |
$exclude .= " --exclude ${osdir}/*" if -d "$dir/Packages"; |
$exclude .= " --exclude ${osdir}/*" if -d "$dir/Packages"; |
517 |
$exclude = "--exclude *smeserver-release*.rpm" if $dir =~ m{test/|-testing/}; |
$exclude .= " --exclude *smeserver-release*.rpm" if $dir =~ m{test/|-testing/}; |
518 |
|
|
519 |
my $groupfile = ""; |
my $groupfile = ""; |
520 |
$groupfile = "--groupfile repodata/comps.xml" if -f "$dir/repodata/comps.xml"; |
$groupfile = "--simple-md-filenames --groupfile repodata/comps.xml" if -f "$dir/repodata/comps.xml"; |
521 |
|
|
522 |
qx(createrepo --update --database --exclude *.src.rpm --exclude *-debuginfo-*.rpm $checksum $exclude $groupfile $dir); |
qx(createrepo --update --database --exclude *.src.rpm --exclude *-debuginfo-*.rpm $checksum $exclude $groupfile $dir); |
523 |
qx(repoview $dir); |
qx(repoview $dir); |
583 |
eval { $pkg = RPM2->open_package($rpm, $rpm_flags); }; |
eval { $pkg = RPM2->open_package($rpm, $rpm_flags); }; |
584 |
if ($@) { print " * corrupt package ($rpm)\n"; return; } |
if ($@) { print " * corrupt package ($rpm)\n"; return; } |
585 |
eval { my $sig = $pkg->siggpg }; |
eval { my $sig = $pkg->siggpg }; |
586 |
my $nosig = ! $@; |
|
587 |
|
my $nosig = 1; |
588 |
|
eval { my $sig = $pkg->dsaheader }; $nosig &= ! $@; |
589 |
|
eval { my $sig = $pkg->rsaheader }; $nosig &= ! $@; |
590 |
|
eval { my $sig = $pkg->siggpg }; $nosig &= ! $@; |
591 |
|
eval { my $sig = $pkg->sigpgp }; $nosig &= ! $@; |
592 |
|
|
593 |
my $cmp = $latest{$pkg->name}; |
my $cmp = $latest{$pkg->name}; |
594 |
if ( $repos->{$repo}->{base} && ! $pkg->is_source_package ) { |
if ( $repos->{$repo}->{base} && ! $pkg->is_source_package ) { |
595 |
return unless $cmp; |
return unless $cmp; |