patch aa141d8d814fb6fda062d68c9250359ca41438ec
Author: Enrique D. Bosch <presidev@AT@gmail.com>
Date: Wed Jun 8 15:35:03 CEST 2016
* Fix style and operators of some expressions
diff -rN -u old-idlebiff/idlebiff new-idlebiff/idlebiff
--- old-idlebiff/idlebiff 2024-11-22 16:07:23.986144273 +0100
+++ new-idlebiff/idlebiff 2024-11-22 16:07:23.986144273 +0100
@@ -157,7 +157,7 @@
upvar #0 argv arg argc argn
variable ::shared::conf
- if { $argn==1 } { set config $arg } else { set config "$::env(HOME)/.idlebiffrc" }
+ if { $argn == 1 } { set config $arg } else { set config "$::env(HOME)/.idlebiffrc" }
set cf [ open $config ]
while { [ gets $cf lin ] >= 0 } \
{
@@ -410,7 +410,7 @@
set linea [ read_line $con ]
set prim [ string range $linea 0 0 ]
if { $prim eq "+" } { set idle 1 } \
- elseif { $idle==1 } { idle_cycle $con 1 } \
+ elseif { $idle == 1 } { idle_cycle $con 1 } \
else { parse_unseen $linea }
}
@@ -448,7 +448,7 @@
recon $con
return
}
- if { $r<1 && [ eof $con ] } \
+ if { $r < 1 && [ eof $con ] } \
{
recon $con
} \
@@ -469,7 +469,7 @@
variable ::static::ccsp
array set ca $cert
- if { $conf(tls_ca_subject)!="" && $type=="verify" && $ca(subject)==$ca(issuer) } \
+ if { $conf(tls_ca_subject) ne "" && $type eq "verify" && $ca(subject) eq $ca(issuer) } \
{
array set csu [ parse_cert_subject $ca(subject) ]
if !$ccsp \
@@ -490,7 +490,7 @@
if $conf(tls) \
{
set tlsv [ package require tls ]
- if {"$tlsv">="1.6.4"} { set tls1x {-tls1.1 1 -tls1.2 1} } \
+ if { "$tlsv" >= "1.6.4" } { set tls1x {-tls1.1 1 -tls1.2 1} } \
else { set tls1x {} }
set sock "::tls::socket -ssl2 0 -ssl3 0 -tls1 1 $tls1x \
-cafile \"$conf(tls_ca_file)\" \