diff options
author | mkanat%bugzilla.org <> | 2006-10-17 16:08:06 +0200 |
---|---|---|
committer | mkanat%bugzilla.org <> | 2006-10-17 16:08:06 +0200 |
commit | c26d71326510b17b3da75c733254ec07178da884 (patch) | |
tree | b35b3c4da1f86af73c6987619811d7ec06eb228f /contrib/BugzillaEmail.pm | |
parent | 41e90677df45dc12590343ea88be4d8f6cb5eb87 (diff) | |
download | bugzilla-c26d71326510b17b3da75c733254ec07178da884.tar.gz bugzilla-c26d71326510b17b3da75c733254ec07178da884.tar.xz |
Bug 356924: Remove the old bug_email inbound email interface
Patch By Max Kanat-Alexander <mkanat@bugzilla.org> a=justdave
Diffstat (limited to 'contrib/BugzillaEmail.pm')
-rw-r--r-- | contrib/BugzillaEmail.pm | 78 |
1 files changed, 0 insertions, 78 deletions
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 <terry@mozilla.org> -# Gregor Fischer <fischer@suse.de> -# Klaas Freitag <freitag@suse.de> -# Seth Landsman <seth@dworkin.net> -# Lance Larsh <lance.larsh@oracle.com> - -# 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 <seth@dworkin.net> - -# 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; |