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;