source: branches/dns/cgi-bin/MyIPDB.pm@ 848

Last change on this file since 848 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
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: 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
12use IPDB 2.0 qw(:ALL);
13
14## connectDB_My()
15# Wrapper for IPDB::connectDB
16# Takes no arguments, returns whatever IPDB::connectDB returns.
17sub connectDB_My {
18 return connectDB("ipdb", "ipdb", "ipdbpwd");
19} # end connectDB_My()
20
21# Keep Perl from complaining.
221;
Note: See TracBrowser for help on using the repository browser.