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: 2016-11-02 00:54:09 +0000 (Wed, 02 Nov 2016) $
|
---|
7 | # SVN revision $Rev: 893 $
|
---|
8 | # Last update by $Author: kdeugau $
|
---|
9 | ###
|
---|
10 | # Copyright (C) 2004-2016 - 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 | ##fixme: need better way to export the variables above for db-update
|
---|
25 | sub dbname { $dbname }
|
---|
26 | sub dbuser { $dbuser }
|
---|
27 | sub dbpass { $dbpass }
|
---|
28 | sub dbhost { $dbhost }
|
---|
29 |
|
---|
30 | # ACL for RPC shim. A hash of arrays; the hash keys are the remote system
|
---|
31 | # names, the array contents are the IPs allowed to claim that system name.
|
---|
32 | #%IPDB::rpcacl = (
|
---|
33 | # cli_test => ['192.168.99.115','209.91.179.62'],
|
---|
34 | # devel => ['10.0.10.5'],
|
---|
35 | # );
|
---|
36 | # Only you can prevent memory leaks!
|
---|
37 | #$IPDB::maxfcgi = 100;
|
---|
38 |
|
---|
39 | # Quick workaround for fixed web path. Set this to the absolute web path to
|
---|
40 | # your IPDB install, or leave blank for installation at the webroot.
|
---|
41 | $IPDB::webpath = '';
|
---|
42 |
|
---|
43 | # Set some globals declared in IPDB.pm. Most of these only affect mailNotify().
|
---|
44 | # Note that while you *can* leave these at defaults, it's probably a Really Bad Idea.
|
---|
45 | #$IPDB::org_name = 'Example Corp';
|
---|
46 | #$IPDB::smtphost = 'smtp.example.com';
|
---|
47 | #$IPDB::domain = 'example.com';
|
---|
48 | #$IPDB::defcustid = '5554242';
|
---|
49 | #$IPDB::smtpsender = 'ipdb@example.com';
|
---|
50 | # Globals for db2rwhois.pl
|
---|
51 | #$IPDB::rwhoisDataPath = '/usr/local/rwhoisd/etc/rwhoisd';
|
---|
52 | #$IPDB::org_street = '123 4th Street';
|
---|
53 | #$IPDB::org_city = 'Anytown';
|
---|
54 | #$IPDB::org_prov_state = 'ON';
|
---|
55 | #$IPDB::org_pocode = 'H0H 0H0';
|
---|
56 | #$IPDB::org_country = 'CA';
|
---|
57 | #$IPDB::org_phone = '000-555-1234';
|
---|
58 | # note: following may also just be a bare email address
|
---|
59 | #$IPDB::org_techhandle = 'ISP-ARIN-HANDLE';
|
---|
60 | #$IPDB::org_email = 'noc@example.com';
|
---|
61 | #$IPDB::hostmaster = 'dns@example.com';
|
---|
62 |
|
---|
63 | # Logging destination. Defaults to local2. See your local syslog docs for valid facilities.
|
---|
64 | # Note that the value here should have the LOG_ prefix removed, and convert to lower-case.
|
---|
65 | # local0 through local7 and user make the most sense.
|
---|
66 | #$IPDB::syslog_facility = 'local2';
|
---|
67 |
|
---|
68 | # RPC URL for pushing DNS changes out. Blank by default; disables RPC calls for DNS changes when blank.
|
---|
69 | #$IPDB::rpc_url = 'http://dnsadmin.example.com/dns-rpc.cgi';
|
---|
70 |
|
---|
71 | # Largest inverse CIDR mask length to show per-IP rDNS list
|
---|
72 | # (eg, NetAddr::IP->bits - NetAddr::IP->masklen)
|
---|
73 | # allowing longer than a /27 is probably going to slow things down; longer than /29 will scroll.
|
---|
74 | #$IPDB::maxrevlist = 5;
|
---|
75 |
|
---|
76 | # Show per-IP rDNS list even on pools?
|
---|
77 | #$IPDB::revlistalltypes = 0;
|
---|
78 |
|
---|
79 | ## UI layout for showing subblocks
|
---|
80 | # 1 lists all containers in a group, then all end-use allocations (including pools) in a group
|
---|
81 | # 2 lists all entries in a container in CIDR order
|
---|
82 | # Both show free blocks in a group at the bottom as previously
|
---|
83 | # $IPDB::sublistlayout = 1;
|
---|
84 |
|
---|
85 | ## UI layout for showing VRFs and master blocks
|
---|
86 | # 1 lists VRFs on the index page, and master blocks on a subpage to formally separate them
|
---|
87 | # 2 is a somehat "lazy" layout that brings sublists of master blocks in each VRF (as well
|
---|
88 | # as the "Add master" link and "Delete this VRF" button) onto the index page grouped by VRF
|
---|
89 | #$IPDB::masterswithvrfs = 2;
|
---|
90 |
|
---|
91 | ## VLAN validation mode
|
---|
92 | # Set to 0 to allow alphanumerics and _ . - (VLAN name instead of number)
|
---|
93 | #$IPDB::numeric_vlan = 1;
|
---|
94 |
|
---|
95 | ## Billing return link
|
---|
96 | # Passalong link for allocations initiated by a link in from a billing system
|
---|
97 | #$IPDB::billinglink = 'https://billing.example.com/radius.pl';
|
---|
98 |
|
---|
99 | ## connectDB_My()
|
---|
100 | # Wrapper for IPDB::connectDB
|
---|
101 | # Takes no arguments, returns whatever IPDB::connectDB returns.
|
---|
102 | sub connectDB_My {
|
---|
103 | return connectDB($dbname, $dbuser, $dbpass, $dbhost);
|
---|
104 | } # end connectDB_My()
|
---|
105 |
|
---|
106 | # Keep Perl from complaining.
|
---|
107 | 1;
|
---|