examples/test_dsfilter.tcl

   1 #!/usr/bin/tclsh
   2
   3 set auto_path   [concat [list ..] $auto_path]
   4
   5 package require TLC 0.45
   6
   7 wm withdraw .
   8
   9 namespace eval crypto {
  10         variable devmode        1
  11 }
  12
  13 package require Authenticator
  14 authenticator::Authenticator auth -ip localhost -pbkey authenticator.pub
  15
  16 auth waitfor login_allowed
  17
  18 if {![auth login "cyan@cf" "foo"]} {
  19         if {![auth login "user@cf" "user"]} {
  20                 puts stderr "Cannot login: [auth last_login_message]"
  21                 exit -1
  22         }
  23 }
  24
  25 set conn        [auth connect_svc "test"]
  26
  27 tlc::DSchan ds -connector $conn -tag "testds"
  28 tlc::Datasource_filter dsf -ds ::ds -filter {
  29         [string range $row(Foo) 0 4] != "Only " || $row(Foo) == "Only A"
  30 }
  31
  32 tlc::Datasource_filter dsf2 -ds ::ds -filter {
  33         [string range $row(Foo) 0 4] != "Only " || $row(Foo) == "Only B"
  34 }
  35
  36 set tlc::Baselog::classmap(::tlc::DSchan)       10
  37
  38 tlc::Browse_tktreectrl .list -datasource dsf
  39 tlc::Browse_tktreectrl .list2 -datasource dsf2
  40
  41 pack .list .list2 -fill both -expand true -side left
  42
  43 wm deiconify .