1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
#***
# [manpage_begin db_thread tclircc 0.0.1]
# [titledesc {Thread tclircc::db}]
# [description]
package require sqlite3
package require logger
set log [logger::init tclircc::db]
switch -- [set tcl_platform(platform)] {
"windows" {
set data_dir [file join [set env(APPDATA)] tclircc]
}
"unix" {
if [info exists env(XDG_CONFIG_HOME)] {
set data_dir [file join [set env(XDG_CONFIG_HOME)] tclircc]
} elseif [info exists env(HOME)] {
set data_dir [file join [set env(HOME)] .config tclircc]
} else {
return -code error {Missing $HOME or $XDG_CONFIG_HOME, can't store config!}
}
}
default {
return -code error {Unknown platform, can't store config.}
}
}
file mkdir $data_dir
proc path_to_core {} {
global data_dir
return [file join $data_dir core.db]
}
proc backup {} {
global log data_dir
set backup_dir [string cat $data_dir _backup_ [clock microseconds]]
${log}::info "backing up data directory to $backup_dir..."
file copy $data_dir $backup_dir
${log}::info "backup to $backup_dir complete!"
return $backup_dir
}
#***
# [manpage_end]