do refresh on list and recheck
This commit is contained in:
parent
cd2fc5b6b6
commit
6de25174c8
@ -251,6 +251,8 @@ sub on_public {
|
|||||||
&adjust_nick ( $conn );
|
&adjust_nick ( $conn );
|
||||||
}
|
}
|
||||||
} elsif ($arg =~ /^(?:$mynick[,: ]|!)\s*list\s*$/) {
|
} elsif ($arg =~ /^(?:$mynick[,: ]|!)\s*list\s*$/) {
|
||||||
|
&refresh ();
|
||||||
|
$conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
|
||||||
my $id = 0;
|
my $id = 0;
|
||||||
foreach ( @ACKS )
|
foreach ( @ACKS )
|
||||||
{
|
{
|
||||||
@ -271,6 +273,8 @@ sub on_public {
|
|||||||
printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
|
printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
|
||||||
close CMDPIPE;
|
close CMDPIPE;
|
||||||
$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour %s: %s", $host, $svc ) );
|
$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour %s: %s", $host, $svc ) );
|
||||||
|
&refresh ();
|
||||||
|
$conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
@ -287,6 +291,8 @@ sub on_public {
|
|||||||
printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
|
printf "[%lu] SCHEDULE_FORCED_SVC_CHECK;%s;%s;%lu\n",time(),$host,$svc,time();
|
||||||
close CMDPIPE;
|
close CMDPIPE;
|
||||||
$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour ack : %s du host %s: %s", $i, $host, $svc ) );
|
$conn->privmsg([ @to ], sprintf ( "Recheck forcé pour ack : %s du host %s: %s", $i, $host, $svc ) );
|
||||||
|
&refresh ();
|
||||||
|
$conn->privmsg([ @to ], sprintf ( "%d problemes enregistres", ( scalar @ACKS )) );
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
$self->privmsg([ @to ], "Yo!");
|
$self->privmsg([ @to ], "Yo!");
|
||||||
|
Loading…
Reference in New Issue
Block a user