From c26d71326510b17b3da75c733254ec07178da884 Mon Sep 17 00:00:00 2001 From: "mkanat%bugzilla.org" <> Date: Tue, 17 Oct 2006 14:08:06 +0000 Subject: Bug 356924: Remove the old bug_email inbound email interface Patch By Max Kanat-Alexander a=justdave --- contrib/BugzillaEmail.pm | 78 ------------------------------------------------ 1 file changed, 78 deletions(-) delete mode 100644 contrib/BugzillaEmail.pm (limited to 'contrib/BugzillaEmail.pm') diff --git a/contrib/BugzillaEmail.pm b/contrib/BugzillaEmail.pm deleted file mode 100644 index c6b569c9d..000000000 --- a/contrib/BugzillaEmail.pm +++ /dev/null @@ -1,78 +0,0 @@ -# -*- 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. -# -# This code is based on code found in bug_email.pl from the bugzilla -# email tracker. Initial contributors are :: -# Terry Weissman -# Gregor Fischer -# Klaas Freitag -# Seth Landsman -# Lance Larsh - -# The purpose of this module is to abstract out a bunch of the code -# that is central to email interfaces to bugzilla and its database - -# Contributor : Seth Landsman - -# Initial checkin : 03/15/00 (SML) -# findUser() function moved from bug_email.pl to here - -push @INC, "../."; # this script now lives in contrib - -use strict; - -use Bugzilla; - -my $EMAIL_TRANSFORM_NONE = "email_transform_none"; -my $EMAIL_TRANSFORM_BASE_DOMAIN = "email_transform_base_domain"; -my $EMAIL_TRANSFORM_NAME_ONLY = "email_transform_name_only"; - -# change to do incoming email address fuzzy matching -my $email_transform = $EMAIL_TRANSFORM_NAME_ONLY; - -# This function takes an email address and returns the user email. -# matching is sloppy based on the $email_transform parameter -sub findUser($) { - my $dbh = Bugzilla->dbh; - my ($address) = @_; - # if $email_transform is $EMAIL_TRANSFORM_NONE, return the address, otherwise, return undef - if ($email_transform eq $EMAIL_TRANSFORM_NONE) { - my $stmt = q{SELECT login_name FROM profiles WHERE } . - $dbh->sql_istrcmp('login_name', '?'); - my $found_address = $dbh->selectrow_array($stmt, undef, $address); - return $found_address; - } elsif ($email_transform eq $EMAIL_TRANSFORM_BASE_DOMAIN) { - my ($username) = ($address =~ /(.+)@/); - my $stmt = q{SELECT login_name FROM profiles WHERE } . $dbh->sql_regexp( - $dbh->sql_istring('login_name'), $dbh->sql_istring('?')); - - my $found_address = $dbh->selectcol_arrayref($stmt, undef, $username); - my $domain; - my $new_address = undef; - foreach my $addr (@$found_address) { - ($domain) = ($addr =~ /.+@(.+)/); - if ($address =~ /$domain/) { - $new_address = $addr; - last; - } - } - return $new_address; - } elsif ($email_transform eq $EMAIL_TRANSFORM_NAME_ONLY) { - my ($username) = ($address =~ /(.+)@/); - my $stmt = q{SELECT login_name FROM profiles WHERE } . $dbh->sql_regexp( - $dbh->sql_istring('login_name'), $dbh->sql_istring('?')); - my $found_address = $dbh->selectrow_array($stmt, undef, $username); - return $found_address; - } -} - -1; -- cgit v1.2.3-24-g4f1b