Posted to tcl by crshults at Fri Nov 01 04:39:37 GMT 2013view raw
- package require sqlite3
- sqlite3 db configuration.sqlite
- db eval {
- CREATE TABLE IF NOT EXISTS Configuration(
- ConfigurationId INTEGER PRIMARY KEY CHECK (ConfigurationId = 1),
- EstablishmentName TEXT DEFAULT 'Establishment Name Not Set',
- StreetAddress TEXT DEFAULT 'Street Address Not Set',
- CityStateAddress TEXT DEFAULT 'City/State Address Not Set',
- Expiration TEXT DEFAULT 'Expiration Not Set',
- MachineNumber TEXT DEFAULT 'Machine Number Not Set',
- CanItDoSomethingVerySpecial TEXT DEFAULT no,
- MaxLogEntries INTEGER DEFAULT 5);
- INSERT OR IGNORE INTO Configuration DEFAULT VALUES;
- pragma table_info(Configuration);
- } {
- eval {
- proc set_$name {value} "db eval \{UPDATE Configuration SET $name = \$value;\}"
- proc get_$name {} "join \[db eval \{SELECT $name FROM Configuration;\}\]"
- }
- }