| if { [var exists customerid] } { | |
| array set customer [get_customer_info $customerid] | |
| puts "Welcome, Mr. $customer(Surname)" | |
| } else { | |
| puts "Hi, would you like to register a new account?" | |
| } | |
| proc greeting {} { | |
| switch $HTTP_ACCEPT_LANGUAGE { | |
| en { | |
| return "Hello, how is it going?" | |
| } | |
| it { | |
| return "Buon giorno, come va?" | |
| } | |
| fr { | |
| return "Bonjour, .......?" | |
| } | |
| de { | |
| return "Guten Tag, wie gehts?" | |
| } | |
| de { | |
| return "Guten Tag, wie gehts?" | |
| } | |
| } | |
| } | |
| puts [greeting] |