tools/create-shellconf.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53

#!/usr/bin/perl -I /root/tgmanage
use strict;

BEGIN {
        require "include/config.pm";
        eval {
                require "include/config.local.pm";
        };
}

my $bind_base = "/etc/bind/";
my $dhcpd_base = "/etc/dhcp/";

my $shellconf_file = "include/tgmanage.cfg.sh";

my $tgname    = $nms::config::tgname;

my $pri_hostname     = $nms::config::pri_hostname;
my $pri_v4   = $nms::config::pri_v4;
my $pri_v6    = $nms::config::pri_v6;

my $sec_hostname     = $nms::config::sec_hostname;
my $sec_v4   = $nms::config::sec_v4;
my $sec_v6    = $nms::config::sec_v6;

my $ddns_key  = $nms::config::ddns_key;

my $base_ipv4net    = $nms::config::base_ipv4net;
my $base_ipv4prefix = $nms::config::base_ipv4prefix;

my $base_ipv6net    = $nms::config::base_ipv6net;
my $base_ipv6prefix = $nms::config::base_ipv6prefix;

open CFG, ">" . $shellconf_file or die ($! . " " . $shellconf_file );

print CFG "# This file is autogenerated by tools/create-shellconf.pl,\n";
print CFG "# using data from nms::config.\n";
print CFG "#\n";
print CFG "# Do you need new common/configuration variables?\n";
print CFG "# Add/update include/config.local.pm and tools/create-shellconf.pl\n\n";
print CFG "PRIMARY=\"$pri_hostname.$tgname.gathering.org\"\n";
print CFG "SECONDARY=\"$sec_hostname.$tgname.gathering.org\"\n";
print CFG "TGNAME=\"$tgname\"\n\n";
print CFG "PRI_V4=\"$pri_v4\"\n";
print CFG "PRI_V6=\"$pri_v6\"\n";
print CFG "SEC_V4=\"$sec_v4\"\n\n";
print CFG "SEC_V6=\"$sec_v6\"\n\n";
print CFG "DDNS_KEY=\"$ddns_key\"\n\n";
print CFG "BASEV4=\"$base_ipv4net\"\n";
print CFG "PREFIXV4=\"$base_ipv4prefix\"\n";
print CFG "BASEV6=\"$base_ipv6net\"\n";
print CFG "PREFIXV6=\"$base_ipv6prefix\"\n";
close CFG;