diff options
| author | Joachim Tingvold <joachim@tingvold.com> | 2015-03-21 18:21:18 +0100 |
|---|---|---|
| committer | Joachim Tingvold <joachim@tingvold.com> | 2015-03-21 18:21:18 +0100 |
| commit | 6bf0be13c4ac46f612251eb13cf2b23f94441cc5 (patch) | |
| tree | 5e19ce59095e3a9def48822f888da8a739486130 /tools/make-missing-conf.pl | |
| parent | 4184848fa3e4f776da1b959c9ba48f4282e82108 (diff) | |
TG15 Spring cleanup.
Diffstat (limited to 'tools/make-missing-conf.pl')
| -rwxr-xr-x | tools/make-missing-conf.pl | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/tools/make-missing-conf.pl b/tools/make-missing-conf.pl index 345f29a..598964f 100755 --- a/tools/make-missing-conf.pl +++ b/tools/make-missing-conf.pl @@ -12,10 +12,7 @@ BEGIN { use Net::IP; use Net::IP qw(:PROC); -# FIXME: THIS IS NOT APPRORPIATE! -my $serial = `date +%Y%m%d01`; -chomp $serial; -# FIXME +my $serial = strftime("%Y%m%d", localtime(time())) . "01"; unless ( (($#ARGV == 0 ) || ( $#ARGV == 1)) && (( $ARGV[0] eq "master" ) || ( $ARGV[0] eq "slave" )) ) @@ -51,20 +48,12 @@ my $sec_hostname = $nms::config::sec_hostname; my $sec_v4 = $nms::config::sec_v4; my $sec_v6 = $nms::config::sec_v6; -my $ext_xfer = $nms::config::ext_xfer; -my $ext_ns = $nms::config::ext_ns; - my $ddns_key = $nms::config::ddns_key; -my $base_ipv4net = $nms::config::base_ipv4net; -my $base_ipv4prefix = $nms::config::base_ipv4prefix; - my $ddns_to = $nms::config::ddns_to; -my $base_ipv4 = new Net::IP( $base_ipv4net . "/" . $base_ipv4prefix ); - -$base_ipv4net =~ m/^(\d+)\.(\d+)\.(\d+)\..*/; -my ( $cp_oct, $cs_oct, $ct_oct ) = ( $1, $2, $3 ); +my $base_ipv4 = new Net::IP( $nms::config::base_ipv4net ); +my ($cp_oct, $cs_oct, $ct_oct) = ($nms::config::base_ipv4net =~ m/^(\d+)\.(\d+)\.(\d+)\..*/); while ( <STDIN> ) { |