Eskil

    if {$src eq ""} {
        printPlugins
        return
    }
    set ch [open $src]
    set lines [split [read $ch] \n]
    foreach line $lines {
        set line [string trim $line]
        set lineT [string trim $line]
        if {$short} {
            if {![string match "#*" $line]} {
            if {![string match "#*" $lineT]} {
                break
            }
        }
        puts $line
    }
    close $ch
}