[Gforge-commits] gforge/deb-specific dns_conf.pl,NONE,1.1

[cbayle]

Update of /cvsroot/gforge/gforge/deb-specific
In directory db.perdue.net:/tmp/cvs-serv8006/deb-specific

Added Files:
        dns_conf.pl 
Log Message:
Moved dns_conf.pl from utils/underworld_dummy to deb-specific


--- NEW FILE: dns_conf.pl ---
#!/usr/bin/perl
#
# $Id: dns_conf.pl,v 1.1 2004/03/28 01:50:08 cbayle Exp $
#
use DBI;
use POSIX qw(strftime);

require("/usr/lib/gforge/lib/include.pl");  # Include all the predefined 
functions

&db_connect;

@dns_zone = open_array_file($file_dir."bind/dns.head");

#
# Update the Serial Number
#
$date_line = $dns_zone[5];

$date_line =~ s/\t\t\t/\t/;
        
($blah,$date_str,$comments) = split("   ", $date_line);

$date = $date_str;

$serial = substr($date, 8, 2);
$old_day = substr($date, 6, 2);

$serial++;

$now_string = strftime "%Y%m%d", localtime;
$new_day = substr($now_string, 6, 2);

if ($old_day != $new_day) { $serial = "01"; }

$new_serial = $now_string.$serial;

$dns_zone[5] = "                $blah   $new_serial     $comments";

write_array_file($file_dir."/bind/dns.head", @dns_zone);

#
# grab Table information
#
my $query = "SELECT http_domain,unix_group_name,group_name,unix_box FROM groups 
WHERE http_domain LIKE '%.%' AND status = 'A'";
my $c = $dbh->prepare($query);
$c->execute();

while(my ($http_domain,$unix_group_name,$group_name,$unix_box) = 
$c->fetchrow()) {

        ($name, $aliases, $addrtype, $length, @addrs) = 
gethostbyname("$unix_box".".".$sys_default_domain );
        @blah = unpack('C4', $addrs[0]);
        $ip = join(".", @blah);
        if ($ip){

                push @dns_zone, sprintf("%-24s%-16s",$unix_group_name,"IN\tA\t" 
. "$ip\n");
                # Does not work with bind9  or bad syntax ???
                #push @dns_zone, sprintf("%-24s%-28s","", "IN\tMX\t" . "mail." 
. $sys_default_domain . ".\n");
                push @dns_zone, 
sprintf("%-24s%-20s","cvs.".$unix_group_name,"IN\tCNAME\t".$sys_cvs_host.".\n\n");
        } else {
                push @dns_zone, sprintf("; Could not get ip for 
%s","$unix_box".".".$sys_default_domain."\n");
        }
}

write_array_file($file_dir."bind/dns.zone", @dns_zone);