Last change
on this file since 416 was 416, checked in by Kris Deugau, 14 years ago |
/trunk
Update mailNotify to use new table notify to decide who to spam
with notices on various events. See #2.
- existing notification calls updated. Still need to move calls
into IPDB.pm's subs
- IPDB.pm and MyIPDB.pm updated with new semiglobal vars for org
name, SMTP host, domain. Will add others as needed so MyIPDB.pm
can be moved to /etc/ipdb/ (see #17).
Internal allocation types will need to be rearranged somewhat to
make full use of the flexibility possible. See #20.
|
-
Property svn:keywords
set to
Date Rev Author
|
File size:
776 bytes
|
Line | |
---|
1 | # ipdb/cgi-bin/MyIPDB.pm
|
---|
2 | # Contains site-specific functions for IPDB
|
---|
3 | # May override some functions from IPDB.pm, wraps others
|
---|
4 | ###
|
---|
5 | # SVN revision info
|
---|
6 | # $Date: 2010-05-18 22:08:12 +0000 (Tue, 18 May 2010) $
|
---|
7 | # SVN revision $Rev: 416 $
|
---|
8 | # Last update by $Author: kdeugau $
|
---|
9 | ###
|
---|
10 | # Copyright (C) 2004-2006 - Kris Deugau
|
---|
11 |
|
---|
12 | use IPDB 2.0 qw(:ALL);
|
---|
13 |
|
---|
14 | ## connectDB_My()
|
---|
15 | # Wrapper for IPDB::connectDB
|
---|
16 | # Takes no arguments, returns whatever IPDB::connectDB returns.
|
---|
17 | sub connectDB_My {
|
---|
18 | return connectDB("ipdb", "ipdb", "ipdbpwd");
|
---|
19 | } # end connectDB_My()
|
---|
20 |
|
---|
21 | # Set some globals declared in IPDB.pm. Most of these only affect mailNotify().
|
---|
22 | # Note that while you *can* leave these at defaults, it's probably a Really Bad Idea.
|
---|
23 | #$IPDB::orgname = "Bob's Big Bonaza";
|
---|
24 | #$IPDB::smtphost = '127.0.0.1';
|
---|
25 | #$IPDB::domain = 'bob.com';
|
---|
26 |
|
---|
27 | # Keep Perl from complaining.
|
---|
28 | 1;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.