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
|
Rev | Line | |
---|
[142] | 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 | ###
|
---|
[320] | 10 | # Copyright (C) 2004-2006 - Kris Deugau
|
---|
[142] | 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 |
|
---|
[416] | 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 |
|
---|
[142] | 27 | # Keep Perl from complaining.
|
---|
| 28 | 1;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.