aboutsummaryrefslogtreecommitdiffstats
path: root/iurt2
diff options
context:
space:
mode:
authorFlorent Villard <warly@mandriva.com>2006-01-07 10:56:54 +0000
committerFlorent Villard <warly@mandriva.com>2006-01-07 10:56:54 +0000
commit60ef896e8f72211ff3d411cfc40a9834c30d42db (patch)
treec75f45a2695992242327bf2c8b198d1f2334609a /iurt2
parent24a955f9d901d670ea3fb61245d6d0a0ad5d0df6 (diff)
downloadiurt-60ef896e8f72211ff3d411cfc40a9834c30d42db.tar
iurt-60ef896e8f72211ff3d411cfc40a9834c30d42db.tar.gz
iurt-60ef896e8f72211ff3d411cfc40a9834c30d42db.tar.bz2
iurt-60ef896e8f72211ff3d411cfc40a9834c30d42db.tar.xz
iurt-60ef896e8f72211ff3d411cfc40a9834c30d42db.zip
Better urpmi killing pattern, do not match maintainer on NOT_FOUND, check invalid options
Diffstat (limited to 'iurt2')
-rwxr-xr-xiurt221
1 files changed, 13 insertions, 8 deletions
diff --git a/iurt2 b/iurt2
index 4b6a3d2..3ada7c9 100755
--- a/iurt2
+++ b/iurt2
@@ -38,6 +38,7 @@ my @argv = grep {
if (/--debug/) { $debug = 1; 0 }
elsif (/--unionfs/) { $unionfs = 1; 0 }
elsif (/--nocheckchroot/) { $nocheckchroot = 1; 0 }
+ elsif (/--./) { usage("$_ is an unknown option") }
else { 1 }
} @ARGV;
@@ -47,9 +48,9 @@ $distro_tag =~ s,/,-,g;
my $my_arch = shift @argv;
my $media = shift @argv;
my @special_srpm_dir = @argv;
-my $urpmi_options = "-v --no-verify-rpm -s --auto ";
+my $urpmi_options = "-v --no-verify-rpm -s --auto";
-$my_arch or usage();
+$my_arch or usage("no architecture given");
my $real_arch = `uname -m`;
chomp $real_arch;
my %arch_comp = (
@@ -84,6 +85,7 @@ $config->{install_chroot_binary} ||= 'install-chroot-tar.sh';
$config->{distribution} ||= 'Mandriva Linux';
$config->{vendor} ||= 'Mandriva';
$config->{basesystem_media} ||= "$config->{repository}/$distro_version/$my_arch/media/main/";
+$config->{all_media} ||= [ 'main', 'contrib' ];
$config->{upload} .= $distro_version;
$config->{upload} =~ s/community//g;
@@ -149,6 +151,8 @@ my @wrong_rpm;
# in that case, @supported_arch may be removed
#
#foreach my $arch (@{$config->{supported_arch}}) {
+#
+# We could rely on only parsing the synthesis, hoping that they are correct, however this scan is very fast, so.
my $rpms_dir = "$config->{repository}/$distro_version/$my_arch/media/$media/";
print STDERR "iurt: checking current packages in $rpms_dir\n";
opendir my $rpmdir, $rpms_dir or die "Could not open $rpms_dir: $!";
@@ -163,7 +167,7 @@ closedir $rpmdir;
my %provides;
my %pack_provide;
-foreach my $m ('main', 'contrib') {
+foreach my $m (@{$config->{all_media}}) {
my $synthesis_file = "$config->{repository}/$distro_version/$my_arch/media/$m/media_info/synthesis.hdlist.cz";
if (-f $synthesis_file) {
print STDERR "Parsing $synthesis_file\n";
@@ -326,14 +330,14 @@ foreach (my $i ; $i < @todo; $i++) {
my $maintainer = `rpmmon -s -p $srpm_name`;
my $cc = "$maint{$srpm}, maintainers\@mandriva.com";
chomp $maintainer;
- if (!$maintainer) {
+ if (!$maintainer || $maintainer eq 'NOT_FOUND') {
$maintainer = $cc;
$cc = 'maintainers@mandriva.com'
}
#($maintainer, $cc) = ($config->{admin},'');
print "Installing build dependencies of $srpm...\n";
# FIXME unfortunately urpmi stalls quite often
- if (!clean_urpmi($chroot)) {
+ if (!clean_urpmi($home)) {
dump_cache();
die "FATAL iurt: Could not have urpmi working !"
}
@@ -361,7 +365,7 @@ foreach (my $i ; $i < @todo; $i++) {
$version ||= 1;
chomp $other_maint;
print "Missing Dep: $missing_deps ($other_maint)\n";
- if ($other_maint) {
+ if ($other_maint && $other_maint ne 'NOT_FOUND') {
$opt->{mail} = $other_maint;
$opt->{error} = "[MISSING] $missing_deps, needed to build $srpm, is not available on $my_arch";
}
@@ -516,7 +520,7 @@ sub clean_unionfs {
while (check_mounted($d, $t)) {
system("sudo fuser -k $d");
print STDERR "iurt: umounting $d\n";
- if (system(qq{sudo umount $d})) {
+ if (system(qq{sudo umount $d &> /dev/null})) {
print STDERR "WARNING iurt: could not umount $d ($!)\n";
$union_id++;
return $union_id
@@ -682,6 +686,7 @@ sub perform_command {
die unless $@ eq "alarm\n"; # propagate unexpected errors
return 0
} else {
+ my $err = $?;
if ($kill) {
$output = "Command has been killed after $opt{timeout} seconds: $command\n$output"
} else {
@@ -700,7 +705,7 @@ sub perform_command {
}
return 0
}
- if ($? || $opt{error_regexp} && $output =~ /$opt{error_regexp}/) {
+ if ($err || $opt{error_regexp} && $output =~ /$opt{error_regexp}/) {
if ($opt{mail} && $config->{sendmail}) {
if (! $cache->{warning}{$opt{hash}}{$opt{mail}} % $opt{freq}) {
sendmail($opt{mail}, $opt{cc} , $opt{error} , $output, 0, 0, $opt{debug_mail});