# ipdb/cgi-bin/MyIPDB.pm
# Contains site-specific functions for IPDB
# May override some functions from IPDB.pm, wraps others
###
# SVN revision info
# $Date: 2010-05-18 22:08:12 +0000 (Tue, 18 May 2010) $
# SVN revision $Rev: 416 $
# Last update by $Author: kdeugau $
###
# Copyright (C) 2004-2006 - Kris Deugau

use IPDB 2.0 qw(:ALL);

## connectDB_My()
# Wrapper for IPDB::connectDB
# Takes no arguments, returns whatever IPDB::connectDB returns.
sub connectDB_My {
  return connectDB("ipdb", "ipdb", "ipdbpwd");
} # end connectDB_My()

# Set some globals declared in IPDB.pm.  Most of these only affect mailNotify().
# Note that while you *can* leave these at defaults, it's probably a Really Bad Idea.
#$IPDB::orgname = "Bob's Big Bonaza";
#$IPDB::smtphost = '127.0.0.1';
#$IPDB::domain = 'bob.com';

# Keep Perl from complaining.
1;