|
a/samples/origins.tcl |
|
b/samples/origins.tcl |
| 1 |
#!/bin/sh
|
1 |
#!/usr/bin/env wish
|
| 2 |
# Access the "origins" table in the wines database. Not much more than
|
2 |
# Access the "origins" table in the wines database. Not much more than
|
| 3 |
# tablescreen, just add a list window
|
3 |
# tablescreen, just add a list window
|
| 4 |
|
|
|
| 5 |
# The following nonsense is required because mysqlwish dumps core when
|
|
|
| 6 |
# SQLDBTYPE is ODBC, reason unknown.
|
|
|
| 7 |
# The following lines are executed by sh, not by wish because of the
|
|
|
| 8 |
# backslashes... Puke loudly
|
|
|
| 9 |
#\
|
|
|
| 10 |
case "A$SQLDBTYPE" in
|
|
|
| 11 |
#\
|
|
|
| 12 |
A|AMYSQL) exec mysqlwish "$0" "$@";;
|
|
|
| 13 |
#\
|
|
|
| 14 |
*) exec wish "$0" "$@";;
|
|
|
| 15 |
#\
|
|
|
| 16 |
esac
|
|
|
| 17 |
|
4 |
|
| 18 |
package require sqlsc
|
5 |
package require sqlsc
|
| 19 |
|
6 |
|
| 20 |
set username ""
|
7 |
set username ""
|
| 21 |
set hostname ""
|
8 |
set hostname ""
|