RSS

(root)/bugzilla/trunk : 6949 : extensions/example/code/flag-end_of_update.pl

To get this branch, use:
bzr branch /bugzilla/trunk

« back to all changes in this revision

Viewing changes to extensions/example/code/flag-end_of_update.pl

Max Kanat-Alexander
2010-02-01 13:39:54
Revision ID: mkanat@bugzilla.org-20100201213954-6owd0g6vhlna09jw
Fix the data in the bzr repo to match the data in the CVS repo.
During the CVS imports into Bzr, there were some inconsistencies introduced
(mostly that files that were deleted in CVS weren't being deleted in Bzr).
So this checkin makes the bzr repo actually consistent with the CVS repo,
including fixing permissions of files.

Show diffs side-by-side

added added

removed removed

extensions/example/code/flag-end_of_update.pl
1
 
# -*- Mode: perl; indent-tabs-mode: nil -*-
2
 
#
3
 
# The contents of this file are subject to the Mozilla Public
4
 
# License Version 1.1 (the "License"); you may not use this file
5
 
# except in compliance with the License. You may obtain a copy of
6
 
# the License at http://www.mozilla.org/MPL/
7
 
#
8
 
# Software distributed under the License is distributed on an "AS
9
 
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
10
 
# implied. See the License for the specific language governing
11
 
# rights and limitations under the License.
12
 
#
13
 
# The Original Code is the Bugzilla Example Plugin.
14
 
#
15
 
# The Initial Developer of the Original Code is Everything Solved, Inc.
16
 
# Portions created by Everything Solved are Copyright (C) 2008 
17
 
# Everything Solved, Inc. All Rights Reserved.
18
 
#
19
 
# Contributor(s): Max Kanat-Alexander <mkanat@bugzilla.org>
20
 
 
21
 
use strict;
22
 
use warnings;
23
 
use Bugzilla;
24
 
use Bugzilla::Util qw(diff_arrays);
25
 
 
26
 
# This code doesn't actually *do* anything, it's just here to show you
27
 
# how to use this hook.
28
 
my $args = Bugzilla->hook_args;
29
 
my ($object, $timestamp, $old_flags, $new_flags) =
30
 
    @$args{qw(object timestamp old_flags new_flags)};
31
 
my ($removed, $added) = diff_arrays($old_flags, $new_flags);
32
 
my ($granted, $denied) = (0, 0);
33
 
foreach my $new_flag (@$added) {
34
 
    $granted++ if $new_flag =~ /\+$/;
35
 
    $denied++ if $new_flag =~ /-$/;
36
 
}
37
 
my $bug_id = (ref $object eq 'Bugzilla::Bug') ? $object->id : $object->bug_id;
38
 
my $result = "$granted flags were granted and $denied flags were denied"
39
 
             . " on bug $bug_id at $timestamp.";
40
 
# Uncomment this line to see $result in your webserver's error log whenever
41
 
# you update flags.
42
 
# warn $result;

Loggerhead 1.18.1 is a web-based interface for Bazaar branches