#!/usr/local/bin/perl -w

package speak_db_names;

use Net::Server::PreForkSimple;
@ISA    = qw{Net::Server::PreForkSimple};

use strict;
use Time::Format qw{%time};
use Data::Dumper;
use File::Basename;

my $basedir = dirname($0);

my $refresh_time    = 10;

my $last_server_update;
my $servers = [ ];
$servers    = load_data($servers, undef);

speak_db_names->run(conf_file => 'speak_db_names.conf');

##  sub process_request {{{
sub process_request {
    my $self    = shift;

    $servers = load_data($servers, $self);

    eval {
        local $SIG{ALRM}    = sub { die "Timed Out" };

        my $timeout         = 2;
        my $previous_alarm  = alarm($timeout);

        print join( ',', @$servers);
        alarm($timeout);
    }

}
##  }}}

##  sub load_data {{{
sub load_data {
    my $servers             = shift;
    my $self                = shift;

    unless ($last_server_update) { $last_server_update = 0 }

    if ( (time - $last_server_update) > $refresh_time ) {
        Net::Server::write_to_log_hook($self, 3, 'DB Cache expired: '
                                               . (time - $last_server_update)
                                               . ' Seconds Old... Reloading');
        Net::Server::write_to_log_hook($self, 3, 'Now:  '
                                               . time
                                               . " Last Upd: $last_server_update");
        my $ret = `$basedir/check_database_health.pl .1 2>>/var/log/check_db_names.log`;
        $last_server_update = time;

        @$servers = split(/\t/, $ret);

        return $servers;
    }
    else {
        Net::Server::write_to_log_hook($self, 3, 'Reusing DB Cache '
                                               . (time - $last_server_update)
                                               . ' Seconds old');
        return $servers;
    }
}
##  }}}
1;

##</code><code>##

min_spare_servers 1
min_servers     2
max_spare_servers 2
max_servers     3

max_requests    1000

check_for_dead      120

log_file        /var/log/speak_db_names.log
log_level       3
pid_file        /tmp/speak_db_names.pid
background      1
port            3307

child_communication 1

##</code><code>##

Starting "1" children
Starting "1" children
2005/11/28-19:43:35 CONNECT TCP Peer: "172.17.10.57:36685" Local: "172.17.10.75:3307"
DB Cache expired: 474444 Seconds Old... Reloading
Now:  1133225015 Last Upd: 1132750571
2005/11/28-19:43:36 CONNECT TCP Peer: "172.17.10.57:36688" Local: "172.17.10.75:3307"
DB Cache expired: 474445 Seconds Old... Reloading
Now:  1133225016 Last Upd: 1132750571 
2005/11/28-19:43:36 CONNECT TCP Peer: "172.17.10.57:36689" Local: "172.17.10.75:3307"
DB Cache expired: 474445 Seconds Old... Reloading
Now:  1133225016 Last Upd: 1132750571 
2005/11/28-19:43:36 CONNECT TCP Peer: "172.17.10.57:36690" Local: "172.17.10.75:3307"
Reusing DB Cache 1 Seconds old
2005/11/28-19:43:36 CONNECT TCP Peer: "172.17.10.57:36691" Local: "172.17.10.75:3307"
Reusing DB Cache 0 Seconds old
2005/11/28-19:43:37 CONNECT TCP Peer: "172.17.10.57:36692" Local: "172.17.10.75:3307"
Reusing DB Cache 1 Seconds old
2005/11/28-19:43:37 CONNECT TCP Peer: "172.17.10.57:36693" Local: "172.17.10.75:3307"
Reusing DB Cache 1 Seconds old
2005/11/28-19:43:38 CONNECT TCP Peer: "172.17.10.57:36694" Local: "172.17.10.75:3307"
Reusing DB Cache 2 Seconds old
Starting "1" children
Starting "1" children 
2005/11/28-19:43:38 CONNECT TCP Peer: "172.17.10.57:36695" Local: "172.17.10.75:3307"
Reusing DB Cache 2 Seconds old
2005/11/28-19:43:39 CONNECT TCP Peer: "172.17.10.57:36696" Local: "172.17.10.75:3307"
Reusing DB Cache 3 Seconds old
2005/11/28-19:43:39 CONNECT TCP Peer: "172.17.10.57:36697" Local: "172.17.10.75:3307"
Reusing DB Cache 3 Seconds old
2005/11/28-19:43:40 CONNECT TCP Peer: "172.17.10.57:36698" Local: "172.17.10.75:3307"
Reusing DB Cache 4 Seconds old
2005/11/28-19:43:40 CONNECT TCP Peer: "172.17.10.57:36699" Local: "172.17.10.75:3307"
Reusing DB Cache 4 Seconds old
2005/11/28-19:43:40 CONNECT TCP Peer: "172.17.10.57:36700" Local: "172.17.10.75:3307"
DB Cache expired: 474449 Seconds Old... Reloading
Now:  1133225020 Last Upd: 1132750571 
2005/11/28-19:43:41 CONNECT TCP Peer: "172.17.10.57:36701" Local: "172.17.10.75:3307"
DB Cache expired: 474450 Seconds Old... Reloading
Now:  1133225021 Last Upd: 1132750571