DSC Alarm PC5401 Serial Module
/13
}
# And so one for others Timers Expiration/Closing Lights….
} # New minutes for Timers
#---------------------------------------------------------------------------------------
} #--- If Dark
3.3.2.3
DSC Panel State Monitoring
# Category=Alarm
#@ This module take care when an alarm situation append
if ($Startup||$Reload) {
print_log "DSC Alarm Controls Statup...";
my $text = "";
my $alarm_previous_state = 0;
}
if ($alarm_previous_state == 0 && $DSC->{partition_status}{1} =~ /alarm/){
print_log "DSC WARNING: $DSC->{partition_status}{1}";
$text = "DSC ALARM, $DSC->{partition_status}{1} in Zone $DSC-
>{zone_now_alarm} $Date_Now $Time_Now";
&alarm_page("$text");
$alarm_previous_state = 1;
}
if ($alarm_previous_state && $DSC->{partition_status}{1} =~ /desarmed/){
print_log "DSC Return State: $DSC->{partition_status}{1}";
$text = "DSC Return State to $DSC->{partition_status}{1} $Date_Now
$Time_Now";
&alarm_page("$text");
$alarm_previous_state = 0;
}
if ($alarm_previous_state && $DSC->{partition_status}{1} =~ /ready/ ){
print_log "DSC Restored: $DSC->{partition_status}{1}";
print_log "---> By: $DSC->{user_name} ($DSC->{user_id})";
$text = "DSC Alarm Restored by $DSC->{user_name} ($DSC->{user_id})
$Date_Now $Time_Now";
&alarm_page("$text");
$alarm_previous_state = 0;
}
if ($DSC->{partition_cmd}{1} >= "800"){
print_log "DSC Healthy Problems....";
$text = "DSC Healty Problems, Please verify... $Date_Now $Time_Now";
Filename
: DSC_Alert_Controls.pl
This module can send e-mail to your
working e-mail or on your PCS
phone when an Alarm append or
panel fault is detected.
