update-index
changeset 38 d50f6874b7ab
parent 37 d3158de72598
child 39 8b46e7c48995
child 43 7e472c559b36
child 45 5dc44dc86f61
--- a/update-index	Thu Dec 02 16:46:17 2010 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,73 +0,0 @@
-#! /usr/bin/perl
-
-use strict;
-use warnings;
-use File::Basename;
-use FindBin;
-
-# liest die Konfiguration
-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 $indexzone = $config{indexzone};
-my @iz_content_old = ();
-my @iz_content_new = ();
-my $iz_line;
-my $zone;
-
-unless ( -d $master_dir and -r $master_dir ) {
-    die "$master_dir: $!\n";
-}
-
-open (INDEXZONE, "$master_dir/$indexzone/$indexzone")
-    or die "$master_dir/$indexzone/$indexzone: $!\n";
-@iz_content_old = <INDEXZONE>,
-close (INDEXZONE);
-
-for (@iz_content_old) {
-    unless (m#ZONE::#) {
-        push @iz_content_new, $_;
-    }
-}
-
-
-for my $dir ( glob "$master_dir/*" ) {
-    $zone = basename($dir);
-    my $info_end = "::sec-off";
-
-    if (-e "$dir/.keycounter") {
-        $info_end = "::sec-on";
-    }
-
-    $iz_line = "\t\tIN TXT\t\t\"ZONE::$zone$info_end\"\n";
-
-    push @iz_content_new, $iz_line;
-}
-
-
-open (INDEXZONE, ">$master_dir/$indexzone/$indexzone")
-    or die "$master_dir/$indexzone/$indexzone: $!\n";
-print INDEXZONE @iz_content_new;
-close (INDEXZONE);
-
-print "index domain $indexzone updated \n";