--- a/dnssec-sign Thu Dec 02 16:46:17 2010 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,131 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use FindBin;
-
-sub del_double {
- my %all;
- grep { $all{$_} = 0 } @_;
- return ( keys %all );
-}
-
-# liest die Konfiguration ein
-my @configs = ( "$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf" );
-my %config;
-
-for ( grep {-f} @configs ) {
- open( CONFIG, $_ ) or die "Can't open $_: $!\n";
-}
-
-unless ( seek( CONFIG, 0, 0 ) ) {
- die "Can't open config (searched: @configs)\n";
-}
-
-while (<CONFIG>) {
- chomp;
- s/#.*//;
- s/\t//g;
- s/\s//g;
-
- next unless length;
- my ( $cname, $ccont ) = split( /\s*=\s*/, $_, 2 );
- $config{$cname} = $ccont;
-}
-close(CONFIG);
-
-my $master_dir = $config{master_dir};
-my $sign_alert_time = $config{sign_alert_time};
-my $zone;
-my ( @manu, @auto );
-my @zone_sig_content;
-my $sig_date;
-my $kc;
-my $serial_up = 0;
-
-for (@ARGV) {
- if ( $_ eq "-s" ) {
- $serial_up = 1;
- shift @ARGV;
- }
-}
-
-# prueft zonen aus ARGV und fuegt sie in die liste @manu ein
-for (@ARGV) {
- chomp( my $zone = `idn --quiet "$_"` );
-
- if ( -e "$master_dir/$zone/.keycounter" ) {
- push @manu, $zone;
- }
-}
-
-chomp( my $unixtime = `date +%s` );
-$unixtime = $unixtime + ( 3600 * $sign_alert_time );
-my $time = `date -d \@$unixtime +%Y%m%d%H`;
-
-# vergleicht fuer alle zonen im ordner $master_dir mit einer
-# <zone>.signed-datei den zeitpunkt in $time mit dem ablaufdatum der
-# signatur, welcher aus der datei <zone>.signed ausgelesen wird.
-for (<$master_dir/*>) {
- s#($master_dir/)(.*)#$2#;
- $zone = $_;
-
- if ( -e "$master_dir/$zone/$zone.signed" ) {
-
- open( ZONE, "$master_dir/$zone/$zone.signed" );
- @zone_sig_content = <ZONE>;
- close(ZONE);
-
- for (@zone_sig_content) {
- if (m#SOA.*[0-9]{14}#) {
- s#.*([0-9]{10})([0-9]{4}).*#$1#;
- if ( $_ < $time ) {
- push @auto, $zone;
- `touch $master_dir/$zone/$zone`
- }
- }
- }
- }
-}
-
-#gibt zonen mit schluessel aber ohne signatur in die liste @auto
-#for (<$master_dir/*>) {
-# s#($master_dir/)(.*)#$2#;
-# $zone = $_;
-#
-# if ( -e "$master_dir/$zone/.keycounter" ) {
-#
-# open( KC, "$master_dir/$zone/.keycounter" );
-# $kc = <KC>;
-# close(KC);
-#
-# if ( $kc < 1 ) {
-# push @auto, $zone;
-# }
-# }
-#}
-
-# signiert alle zonen in @auto und @manu und erhoeht den wert in
-# der keycounter-datei
-for ( &del_double( @auto, @manu ) ) {
- $zone = $_;
-
- chdir "$master_dir/$zone";
-
- if (`dnssec-signzone $zone 2>/dev/null`) {
- print "$zone neu signiert \n";
-
- open( KC, "$master_dir/$zone/.keycounter" );
- $kc = <KC>;
- close(KC);
- $kc += 1;
- open( KC, ">$master_dir/$zone/.keycounter" );
- print KC $kc;
- close(KC);
-
- }
- else {
- print "$zone konnte nicht signiert werden \n";
- }
-}
-