test
This commit is contained in:
parent
66cdcd95fa
commit
d2ff6701f4
|
@ -246,10 +246,12 @@ sub zmMemInit {
|
||||||
sub zmMemVerify {
|
sub zmMemVerify {
|
||||||
my $monitor = shift;
|
my $monitor = shift;
|
||||||
if ( !zmMemAttach( $monitor, $mem_size ) ) {
|
if ( !zmMemAttach( $monitor, $mem_size ) ) {
|
||||||
|
print "no attach for $$monitor{Id} $mem_size\n";
|
||||||
return( undef );
|
return( undef );
|
||||||
}
|
}
|
||||||
|
|
||||||
my $mem_key = zmMemKey( $monitor );
|
my $mem_key = zmMemKey( $monitor );
|
||||||
|
print "mem_key for $$monitor{Id} $mem_key\n";
|
||||||
if ( !defined($mem_verified->{$mem_key}) ) {
|
if ( !defined($mem_verified->{$mem_key}) ) {
|
||||||
my $sd_size = zmMemRead( $monitor, "shared_data:size", 1 );
|
my $sd_size = zmMemRead( $monitor, "shared_data:size", 1 );
|
||||||
if ( $sd_size != $mem_data->{shared_data}->{size} ) {
|
if ( $sd_size != $mem_data->{shared_data}->{size} ) {
|
||||||
|
@ -365,6 +367,7 @@ sub zmMemRead {
|
||||||
sub zmMemInvalidate {
|
sub zmMemInvalidate {
|
||||||
my $monitor = shift;
|
my $monitor = shift;
|
||||||
my $mem_key = zmMemKey($monitor);
|
my $mem_key = zmMemKey($monitor);
|
||||||
|
print "zmMemInvalidate $$monitor{Id} $mem_key\n";
|
||||||
if ( $mem_key ) {
|
if ( $mem_key ) {
|
||||||
delete $mem_verified->{$mem_key};
|
delete $mem_verified->{$mem_key};
|
||||||
zmMemDetach( $monitor );
|
zmMemDetach( $monitor );
|
||||||
|
|
|
@ -120,6 +120,8 @@ sub zmMemAttach
|
||||||
$monitor->{MMapHandle} = \*MMAP;
|
$monitor->{MMapHandle} = \*MMAP;
|
||||||
$monitor->{MMapAddr} = $mmap_addr;
|
$monitor->{MMapAddr} = $mmap_addr;
|
||||||
$monitor->{MMap} = \$mmap;
|
$monitor->{MMap} = \$mmap;
|
||||||
|
} else {
|
||||||
|
print "$$monitor{Id} already defined at $$monitor{MMapAddr}\n";
|
||||||
}
|
}
|
||||||
return( !undef );
|
return( !undef );
|
||||||
}
|
}
|
||||||
|
|
|
@ -117,7 +117,7 @@ use bytes;
|
||||||
# ==========================================================================
|
# ==========================================================================
|
||||||
|
|
||||||
use constant MAX_CONNECT_DELAY => 10;
|
use constant MAX_CONNECT_DELAY => 10;
|
||||||
use constant MONITOR_RELOAD_INTERVAL => 300;
|
use constant MONITOR_RELOAD_INTERVAL => 30;
|
||||||
use constant SELECT_TIMEOUT => 0.25;
|
use constant SELECT_TIMEOUT => 0.25;
|
||||||
|
|
||||||
# ==========================================================================
|
# ==========================================================================
|
||||||
|
@ -320,7 +320,7 @@ while( 1 )
|
||||||
]
|
]
|
||||||
);
|
);
|
||||||
|
|
||||||
#print( "$monitor->{Id}: S:$state, LE:$last_event\n" );
|
print( "$monitor->{Id}: S:$state, LE:$last_event\n" );
|
||||||
#print( "$monitor->{Id}: mS:$monitor->{LastState}, mLE:$monitor->{LastEvent}\n" );
|
#print( "$monitor->{Id}: mS:$monitor->{LastState}, mLE:$monitor->{LastEvent}\n" );
|
||||||
if ( $state == STATE_ALARM
|
if ( $state == STATE_ALARM
|
||||||
|| $state == STATE_ALERT
|
|| $state == STATE_ALERT
|
||||||
|
@ -415,8 +415,10 @@ while( 1 )
|
||||||
# If necessary reload monitors
|
# If necessary reload monitors
|
||||||
if ( (time() - $monitor_reload_time) > MONITOR_RELOAD_INTERVAL )
|
if ( (time() - $monitor_reload_time) > MONITOR_RELOAD_INTERVAL )
|
||||||
{
|
{
|
||||||
|
print "TIme to reload Monitors " . join(',',keys %monitors ). "\n";
|
||||||
foreach my $monitor ( values(%monitors) )
|
foreach my $monitor ( values(%monitors) )
|
||||||
{
|
{
|
||||||
|
print "imvalidating $$monitor{Id}\n";
|
||||||
# Free up any used memory handle
|
# Free up any used memory handle
|
||||||
zmMemInvalidate( $monitor );
|
zmMemInvalidate( $monitor );
|
||||||
}
|
}
|
||||||
|
@ -443,7 +445,10 @@ sub loadMonitors
|
||||||
or Fatal( "Can't execute: ".$sth->errstr() );
|
or Fatal( "Can't execute: ".$sth->errstr() );
|
||||||
while( my $monitor = $sth->fetchrow_hashref() )
|
while( my $monitor = $sth->fetchrow_hashref() )
|
||||||
{
|
{
|
||||||
next if ( !zmMemVerify( $monitor ) ); # Check shared memory ok
|
next
|
||||||
|
if ( !zmMemVerify( $monitor ) ) {
|
||||||
|
; # Check shared memory ok
|
||||||
|
}
|
||||||
|
|
||||||
if ( defined($monitors{$monitor->{Id}}->{LastState}) )
|
if ( defined($monitors{$monitor->{Id}}->{LastState}) )
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue