Changeset 19046 for trunk/base


Ignore:
Timestamp:
Aug 8, 2006, 6:27:17 AM (14 years ago)
Author:
pguyot (Paul Guyot)
Message:

Show what the regex matched (with -d)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portlivecheck.tcl

    r18760 r19046  
    22# portlivecheck.tcl
    33#
    4 # $Id: portlivecheck.tcl,v 1.10 2006/07/27 07:32:57 pguyot Exp $
     4# $Id: portlivecheck.tcl,v 1.11 2006/08/08 06:27:17 pguyot Exp $
    55#
    66# Copyright (c) 2005-2006 Paul Guyot <pguyot@kallisys.net>,
     
    117117                                if {${livecheck.check} == "regexm"} {
    118118                                        set data [read $chan]
    119                                         if {[regexp $the_re $data data updated_version]} {
     119                                        if {[regexp $the_re $data matched updated_version]} {
    120120                                                if {$updated_version != ${livecheck.version}} {
    121121                                                        set updated 1
     
    123123                                                        set updated 0
    124124                                                }
     125                                                ui_debug "The regex matched >$matched<"
    125126                                        }
    126127                                } else {
     
    129130                                                        break
    130131                                                }
    131                                                 if {[regexp $the_re $line line updated_version]} {
     132                                                if {[regexp $the_re $line matched updated_version]} {
    132133                                                        if {$updated_version != ${livecheck.version}} {
    133134                                                                set updated 1
     
    135136                                                                set updated 0
    136137                                                        }
     138                                                        ui_debug "The regex matched >$matched<"
    137139                                                        break
    138140                                                }
Note: See TracChangeset for help on using the changeset viewer.