From 967d3f6601d528cb2499f88d12acba0ce61ecfa2 Mon Sep 17 00:00:00 2001 From: "lpsolit%gmail.com" <> Date: Tue, 1 Nov 2005 07:09:28 +0000 Subject: Bug 314269: Add email pref to not send mail about dependency changes - Patch by Todd Stansell r=joel a=justdave --- checksetup.pl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'checksetup.pl') diff --git a/checksetup.pl b/checksetup.pl index c728c4636..84c94f108 100755 --- a/checksetup.pl +++ b/checksetup.pl @@ -3890,6 +3890,26 @@ if ($dbh->bz_column_info("profiles", "emailflags")) { $dbh->bz_drop_column("profiles", "emailflags"); } +# Check for any "new" email settings that wouldn't have been ported over +# during the block above. Since these settings would have otherwise +# fallen under EVT_OTHER, we'll just clone those settings. That way if +# folks have already disabled all of that mail, there won't be any change. +{ + my %events = ("Dependency Tree Changes" => EVT_DEPEND_BLOCK); + + foreach my $desc (keys %events) { + my $event = $events{$desc}; + $sth = $dbh->prepare("SELECT count(*) FROM email_setting WHERE event = $event"); + $sth->execute(); + if (!($sth->fetchrow_arrayref()->[0])) { + # No settings in the table yet, so we assume that this is the + # first time it's being set. + print "Initializing \"$desc\" email_setting ...\n" unless $silent; + CloneEmailEvent(EVT_OTHER, $event); + } + } +} + sub CloneEmailEvent { my ($source, $target) = @_; -- cgit v1.2.3-24-g4f1b