Last change
on this file since 244 was 142, checked in by Kris Deugau, 20 years ago |
/trunk
Wrap connectDB() function in a "module" so we don't get headaches
tracking password changes (if and when). This change *may* get
merged back to IPDB.pm, but it may not so as to allow the HTTP
username to be the user authenticated at the database level.
|
-
Property svn:keywords
set to
Date Rev Author
|
File size:
510 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: 2005-01-28 19:04:55 +0000 (Fri, 28 Jan 2005) $
|
---|
| 7 | # SVN revision $Rev: 142 $
|
---|
| 8 | # Last update by $Author: kdeugau $
|
---|
| 9 | ###
|
---|
| 10 | # Copyright (C) 2004,2005 - 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 | # Keep Perl from complaining.
|
---|
| 22 | 1;
|
---|
Note:
See
TracBrowser
for help on using the repository browser.