#!/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;