need some tcl help plz

[b34r]

Hi
well i finally made my very first tcl script
it's a swedish tv-program fetcher
The only thing i'm not able to finalize is how do i check the input, like

Code: Select all

!teve discovery

so that i wont get any errors if somebody types anything else instead of the channels or help text that is allowed.

[caesar]

use something like this:

Code: Select all

switch -- [strlwr [lindex $text 0]] {
  "discovery" {
    # something for the discovery channel
  }
  "animalplanet" {
    # somkething here for the animal planet..
  }
  # and so on.
  default {
    # insert here something for the channels you don't have
    # if the channels dosen't exist this will be called.
  }
}