Kill status_mail

1 files changed, 0 insertions, 89 deletions

diff --git a/iurt b/iurt
index 6b077dd..664173d 100755
--- a/iurt
+++ b/iurt
@@ -277,12 +277,6 @@ $run{todo} = [];
 	($run{repository}) = @_;
 	1;
     } , "Setting the repository" ],
-    [ "", "status", 1, "<mail>", 
-    "Send a status mail to the provided mail address", 
-    sub { 
-	($run{status_mail}) = @_; 
-	1;
-    }, "Setting status mail option" ],
     [ "", "with", 1, "<flag>",
     "Use specified --with flag with rpm (can be used multiple times)",
     sub {
@@ -685,7 +679,6 @@ if ($run{chroot} || !-d "$chroot/dev") {
 
 # now exit if there is nothing to do and it was just a cleaning pass
 if ($run{no_compile} || !@{$run{todo}} && !$run{debug} && !$run{shell} && !$run{rebuild}) {
-    send_status_mail(\%run, $config, $cache) if $run{status_mail};
     plog("no package to compile :(");
     unlink "$run{pidfile_home}/$run{pidfile}" if $run{pidfile};
     exit();
@@ -1077,8 +1070,6 @@ if (@wrong_rpm && open my $file, ">$local_spool/log/wrong_srpm_names.log") {
     }
 }
 
-send_status_mail(\%run, $config, $cache) if $run{status_mail};
-
 if ($config->{rsync_to} && !$run{no_rsync}) { 
     	# remove some old and very big log files not to saturate the server
 	system(qq(find $local_spool/log/ -name "*.log" \\( -size +$config->{log_size_limit} -or -mtime +$config->{log_size_date} \\) -exec rm -f {} \\;));
@@ -1452,86 +1443,6 @@ sub write_status {
     }
 }
 
-#
-# CM: FIXME: should notify in case of recreate_srpm_failure
-#
-
-sub send_status_mail {
-    my ($run, $config, $cache) = @_;
-    my %output;
-
-    print "iurt compilation status\n";
-
-    foreach my $rpm (keys %{$run->{status}}) {
-	next if $run->{status}{$rpm} =~ /ok|not_on_this_arch/;
-
-	if ($run->{status}{$rpm} eq 'missing_buildrequires') {
-	    foreach my $missing (keys %{$cache->{needed}{$rpm}}) {
-		my $h = $cache->{needed}{$rpm}{$missing};
-		my $maint = $h->{maint} || 'Other';
-		my $package = $h->{package};
-		if ($package) {
-		    push @{$output{missing}{$maint}{$package}{$missing}{$h->{version}}}, $rpm;
-		} else {
-		    $output{missing}{$maint}{$rpm}{$missing}{$h->{version}} = 1;
-		}
-	    }
-        } elsif ($run->{status}{$rpm} eq 'build_failure') {
-	    my ($maint) = get_maint($run, $rpm);
-	    if ($cache->{buildrequires}{$rpm}) {
-		push @{$output{buildrequires}{$maint}}, $rpm;
-	    } else {
-		push @{$output{build}{$maint}}, $rpm;
-	    }
-	} elsif (!$run->{status}{$rpm}) {
-	    # need to find something more usefull to do at that point
-	    next;
-	}
-    }
-
-    my $text = "*** Missing buildrequires tag in specfile ***\n";
-    foreach my $maint (keys %{$output{buildrequires}}) {
-	$text .= "\n$maint\n";
-	foreach my $pack (keys %{$output{missing}{$maint}}) {
-	    foreach my $missing (keys %{$cache->{buildrequires}{$pack}}) {
-		my $rpms = $cache->{buildrequires}{$pack}{$missing};
-		if (@$rpms) {
-		    $text .= "  $pack should have a buildrequires on @$rpms (for $missing-devel)\n";
-		} else {
-		    $text .= "  $pack should have a buildrequires for $missing-devel\n";
-		}
-	    }
-	}
-    }
-
-    $text = "*** Missing dependencies ***\n";
-    foreach my $maint (keys %{$output{missing}}) {
-	$text .= "\n$maint\n";
-	foreach my $pack (keys %{$output{missing}{$maint}}) {
-	    foreach my $missing (%{$output{missing}{$maint}{$pack}}) {
-		my $h = $output{missing}{$maint}{$pack}{$missing};
-		foreach my $version (keys %$h) {
-		    if (ref $h->{$version}) {
-			$text .= "  $pack should be recompile because\n  $missing " . ($version ? "$version " : '') . "is not provided anymore\n";
-			$text .= "    to compile " . join("\n               ", @{$h->{$version}}) . "\n";
-		    } else {
-			$text .= "  $pack needs $missing " . ($version ? "$version " : '') . "\n";
-		    }
-		}
-	    }
-	}
-    }
-    $text .=  "\n*** Build failure ***\n";
-    foreach my $maint (keys %{$output{build}}) {
-	$text .= "\n$maint\n";
-	foreach my $rpm (@{$output{build}{$maint}}) {
-	    $text .= "  $rpm (see $config->{log_url}/$run{distro_tag}/$run{my_arch}/$run->{media}/log/$rpm/)\n";
-	}
-    }
-    print "$text\n";
-    sendmail($run->{status_mail}, '' , "Iurt report for $run->{my_arch}/$run->{media}", $text, "Iurt the rebuild bot <$config->{admin}>", 0, $config);
-}
-
 sub find_provides {
     my ($pack_provide, $p) = @_;
     my @rpm;