Attachment 315833 Details for Bug 446593 – The sanitycheck_hts_version.pl

[patch] The sanitycheck_hts_version.pl

sanitycheck_hts_version.pl (text/plain), 2.73 KB, created by XINSUN on 2008-09-05 06:01:00 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: XINSUN

Created: 2008-09-05 06:01:00 UTC

Size: 2.73 KB

patch

obsolete

>#!/usr/bin/perl -w
># -*- Mode: perl; indent-tabs-mode: nil -*-
>#
># The contents of this file are subject to the Mozilla Public
># License Version 1.1 (the "License"); you may not use this file
># except in compliance with the License. You may obtain a copy of
># the License at http://www.mozilla.org/MPL/
>#
># Software distributed under the License is distributed on an "AS
># IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
># implied. See the License for the specific language governing
># rights and limitations under the License.
>#
># The Original Code is the Bugzilla Bug Tracking System.
>#
># The Initial Developer of the Original Code is Netscape Communications
># Corporation. Portions created by Netscape are
># Copyright (C) 1998 Netscape Communications Corporation. All
># Rights Reserved.
>#
># Contributor(s): Terry Weissman <terry@mozilla.org>
>#                 Joseph Heenan <joseph@heenan.me.uk>
>
>
># This is a script suitable for running once a day from a cron job.  It 
># does a sanitycheck for hts version to ensure the old version expired 
># after the next new version was public over 3 month (92 days).
># When this script set a hts version expired, it will sent a notification mail.
>
># Modified from whineatnews.pl by Sun Xin <xisun@redhat.com> 
>
>use strict;
>
>use lib ".";
>require "globals.pl";
>
>use Bugzilla;
>use Bugzilla::Config qw(:DEFAULT $datadir);
>
>my $transition_period = 92;
>my $next_release_date = 0;
>
>my $query = "SELECT NVR, release_date 
>             FROM hts_version 
>             WHERE supported = 1 
>             ORDER BY release_date DESC";
>SendSQL2($query);
> 
>while (MoreSQLData2()) {
>    my ($nvr,$release_date) = FetchSQLData2();
>    if ($next_release_date) {
>        my $dbh = Bugzilla->dbh2;
>        $query = "SELECT (TO_DAYS(NOW()) - TO_DAYS(" . SqlQuote($next_release_date) . ")) > $transition_period";
>        my $sth = $dbh->prepare($query);
>        $sth->execute();
>        my ($exceeded) = $sth->fetchrow_array();
>        if ($exceeded) {
>            $query = "UPDATE hts_version SET supported = 0 WHERE NVR = " . SqlQuote($nvr) . " AND supported = 1";
>            $dbh->do($query);
>            #Send Remind Mail 
>            my $enablemail = Param('enablemail');
>            if ($enablemail) {
>                my $template = Param('htsversionexpiredmail');
>                my %substs;
>                $substs{'expiredhtsnvr'} = $nvr;
>                my $msg = PerformSubsts($template, \%substs);
>                my $sendmailparam = Param('sendmailnow') ? '' : "-ODeliveryMode=deferred";
>                open SENDMAIL, "|/usr/lib/sendmail $sendmailparam -t -i"
>                or die "Can't open sendmail";
>                print SENDMAIL $msg;
>                close SENDMAIL;
>            }
>        }
>    }
>    $next_release_date = $release_date;
>}
>

Actions: View | Diff

Attachments on bug 446593: 315671 | 315672 | 315825 | 315833 | 315834 | 316167 | 316168