From 874ac9ff6e98fc86ae3a620f717e1209da51c754 Mon Sep 17 00:00:00 2001 From: "mkanat%bugzilla.org" <> Date: Thu, 6 Nov 2008 01:15:07 +0000 Subject: Bug 451269: Add example code for bug-end_of_update and flag-end_of_update hooks. Patch by Max Kanat-Alexander r=LpSolit, a=mkanat --- extensions/example/code/bug-end_of_update.pl | 56 +++++++++++++++++++++++++++ extensions/example/code/flag-end_of_update.pl | 42 ++++++++++++++++++++ 2 files changed, 98 insertions(+) create mode 100644 extensions/example/code/bug-end_of_update.pl create mode 100644 extensions/example/code/flag-end_of_update.pl (limited to 'extensions/example') diff --git a/extensions/example/code/bug-end_of_update.pl b/extensions/example/code/bug-end_of_update.pl new file mode 100644 index 000000000..036563517 --- /dev/null +++ b/extensions/example/code/bug-end_of_update.pl @@ -0,0 +1,56 @@ +# -*- 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 Example Plugin. +# +# The Initial Developer of the Original Code is Everything Solved, Inc. +# Portions created by Everything Solved are Copyright (C) 2008 +# Everything Solved, Inc. All Rights Reserved. +# +# Contributor(s): Max Kanat-Alexander + +use strict; +use warnings; +use Bugzilla; +use Bugzilla::Status; + +# This code doesn't actually *do* anything, it's just here to show you +# how to use this hook. +my $args = Bugzilla->hook_args; +my $bug = $args->{'bug'}; +my $timestamp = $args->{'timestamp'}; +my $changes = $args->{'changes'}; + +foreach my $field (keys %$changes) { + my $used_to_be = $changes->{$field}->[0]; + my $now_it_is = $changes->{$field}->[1]; +} + +my $status_message; +if (my $status_change = $changes->{'bug_status'}) { + my $old_status = new Bugzilla::Status({ name => $status_change->[0] }); + my $new_status = new Bugzilla::Status({ name => $status_change->[1] }); + if ($new_status->is_open && !$old_status->is_open) { + $status_message = "Bug re-opened!"; + } + if (!$new_status->is_open && $old_status->is_open) { + $status_message = "Bug closed!"; + } +} + +my $bug_id = $bug->id; +my $num_changes = scalar keys %$changes; +my $result = "There were $num_changes changes to fields on bug $bug_id" + . " at $timestamp."; +# Uncomment this line to see $result in your webserver's error log whenever +# you update a bug. +# warn $result; diff --git a/extensions/example/code/flag-end_of_update.pl b/extensions/example/code/flag-end_of_update.pl new file mode 100644 index 000000000..6371bd154 --- /dev/null +++ b/extensions/example/code/flag-end_of_update.pl @@ -0,0 +1,42 @@ +# -*- 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 Example Plugin. +# +# The Initial Developer of the Original Code is Everything Solved, Inc. +# Portions created by Everything Solved are Copyright (C) 2008 +# Everything Solved, Inc. All Rights Reserved. +# +# Contributor(s): Max Kanat-Alexander + +use strict; +use warnings; +use Bugzilla; +use Bugzilla::Util qw(diff_arrays); + +# This code doesn't actually *do* anything, it's just here to show you +# how to use this hook. +my $args = Bugzilla->hook_args; +my ($bug, $timestamp, $old_flags, $new_flags) = + @$args{qw(bug timestamp old_flags new_flags)}; +my ($removed, $added) = diff_arrays($old_flags, $new_flags); +my ($granted, $denied) = (0, 0); +foreach my $new_flag (@$added) { + $granted++ if $new_flag =~ /\+$/; + $denied++ if $new_flag =~ /-$/; +} +my $bug_id = $bug->id; +my $result = "$granted flags were granted and $denied flags were denied" + . " on bug $bug_id at $timestamp."; +# Uncomment this line to see $result in your webserver's error log whenever +# you update flags. +# warn $result; -- cgit v1.2.3-24-g4f1b