patch c673de820d8f38ff45a5ee81cdd1a48c1ae5a229
Author: Enrique D. Bosch <presidev@AT@gmail.com>
Date: Wed Jun 1 01:36:58 CEST 2016
* Fix regular expressions for capabilities
diff -rN -u old-idlebiff/idlebiff new-idlebiff/idlebiff
--- old-idlebiff/idlebiff 2024-05-06 12:13:12.451036471 +0200
+++ new-idlebiff/idlebiff 2024-05-06 12:13:12.451036471 +0200
@@ -311,21 +311,21 @@
{
variable ::shared::logindiscap
- if !$logindiscap { set logindiscap [ regexp -nocase {.*capability .* logindisabled .*} $linea ] }
+ if !$logindiscap { set logindiscap [ regexp -nocase -lineanchor {.*capability .*logindisabled(?: .*|].*|$)} $linea ] }
}
proc check_cap_idle { linea } \
{
variable ::shared::idlecap
- if !$idlecap { set idlecap [ regexp -nocase {.*capability .* idle .*} $linea ] }
+ if !$idlecap { set idlecap [ regexp -nocase -lineanchor {.*capability .*idle(?: .*|].*|$)} $linea ] }
}
proc check_cap_esearch { linea } \
{
variable ::shared::esearchcap
- if !$esearchcap { set esearchcap [ regexp -nocase {.*capability .* esearch .*} $linea ] }
+ if !$esearchcap { set esearchcap [ regexp -nocase -lineanchor {.*capability .*esearch(?: .*|].*|$)} $linea ] }
}
proc idle_cycle { con check } \