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: 2014-12-30 23:06:09 +0000 (Tue, 30 Dec 2014) $
|
---|
7 | # SVN revision $Rev: 667 $
|
---|
8 | # Last update by $Author: kdeugau $
|
---|
9 | ###
|
---|
10 | # Copyright (C) 2004-2010 - Kris Deugau
|
---|
11 |
|
---|
12 | # don't remove! required for GNU/FHS-ish install from tarball
|
---|
13 | ##uselib##
|
---|
14 |
|
---|
15 | use IPDB 2.0 qw(:ALL);
|
---|
16 |
|
---|
17 |
|
---|
18 | # DSN, user, and password for database. These **MUST** be set.
|
---|
19 | my $dbname = 'ipdb';
|
---|
20 | my $dbuser = 'ipdb';
|
---|
21 | my $dbpass = 'ipdbpwd';
|
---|
22 | # DB host is optional.
|
---|
23 | my $dbhost = 'localhost';
|
---|
24 |
|
---|
25 | # ACL for RPC shim. A hash of arrays; the hash keys are the remote system
|
---|
26 | # names, the array contents are the IPs allowed to claim that system name.
|
---|
27 | #%IPDB::rpcacl = (
|
---|
28 | # cli_test => ['192.168.99.115','209.91.179.62'],
|
---|
29 | # devel => ['10.0.10.5'],
|
---|
30 | # );
|
---|
31 | # Only you can prevent memory leaks!
|
---|
32 | #$IPDB::maxfcgi = 100;
|
---|
33 |
|
---|
34 | # ACL for RPC shim. A hash of arrays; the hash keys are the remote system
|
---|
35 | # names, the array contents are the IPs allowed to claim that system name.
|
---|
36 | #%IPDB::rpcacl = (
|
---|
37 | # cli_test => ['192.168.99.115','209.91.179.62'],
|
---|
38 | # devel => ['10.0.10.5'],
|
---|
39 | # );
|
---|
40 | # Only you can prevent memory leaks!
|
---|
41 | #$IPDB::maxfcgi = 100;
|
---|
42 |
|
---|
43 | # Quick workaround for fixed web path. Set this to the absolute web path to
|
---|
44 | # your IPDB install, or leave blank for installation at the webroot.
|
---|
45 | $IPDB::webpath = '';
|
---|
46 |
|
---|
47 | # Set some globals declared in IPDB.pm. Most of these only affect mailNotify().
|
---|
48 | # Note that while you *can* leave these at defaults, it's probably a Really Bad Idea.
|
---|
49 | #$IPDB::org_name = "Bob's Big Bonaza";
|
---|
50 | #$IPDB::smtphost = '127.0.0.1';
|
---|
51 | #$IPDB::domain = 'bob.com';
|
---|
52 | #$IPDB::defcustid = '5554242';
|
---|
53 | # Globals for db2rwhois.pl
|
---|
54 | #$IPDB::rwhoisDataPath = '/usr/local/rwhoisd/etc/rwhoisd';
|
---|
55 | #$IPDB::org_street = '123 4th Street';
|
---|
56 | #$IPDB::org_city = 'Anytown';
|
---|
57 | #$IPDB::org_prov_state = 'ON';
|
---|
58 | #$IPDB::org_pocode = 'H0H 0H0';
|
---|
59 | #$IPDB::org_country = 'CA';
|
---|
60 | #$IPDB::org_phone = '000-555-1234';
|
---|
61 | # note: following may also just be a bare email address
|
---|
62 | #$IPDB::org_techhandle = 'ISP-ARIN-HANDLE';
|
---|
63 | #$IPDB::org_email = 'noc@example.com';
|
---|
64 | #$IPDB::hostmaster = 'dns@example.com';
|
---|
65 |
|
---|
66 | # Logging destination. Defaults to local2. See your local syslog docs for valid facilities.
|
---|
67 | # Note that the value here should have the LOG_ prefix removed, and convert to lower-case.
|
---|
68 | # local0 through local7 and user make the most sense.
|
---|
69 | #$IPDB::syslog_facility = 'daemon';
|
---|
70 |
|
---|
71 | # RPC URL for pushing DNS changes out. Blank by default; disables RPC calls for DNS changes when blank.
|
---|
72 | #$IPDB::rpc_url = 'http://dnsadmin.example.com/dns-rpc.cgi';
|
---|
73 |
|
---|
74 | ## connectDB_My()
|
---|
75 | # Wrapper for IPDB::connectDB
|
---|
76 | # Takes no arguments, returns whatever IPDB::connectDB returns.
|
---|
77 | sub connectDB_My {
|
---|
78 | return connectDB($dbname, $dbuser, $dbpass, $dbhost);
|
---|
79 | } # end connectDB_My()
|
---|
80 |
|
---|
81 | # Keep Perl from complaining.
|
---|
82 | 1;
|
---|