Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Updated the "notify-server" to run in the foreground if Tclx is not available. |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5a2587b0a6c62b26177f132afcba32f4 |
| User & Date: | rkeene 2006-03-12 09:21:37 |
Context
|
2006-03-13
| ||
| 10:19 | BackupPCd 0.1.3 Added "--with-notifyserv" and "--with-updateurl" configuration options to hard-code their respective parameters as defaults into the resulting executable. check-in: 9164d12258 user: rkeene tags: trunk | |
|
2006-03-12
| ||
| 09:21 | Updated the "notify-server" to run in the foreground if Tclx is not available. check-in: 5a2587b0a6 user: rkeene tags: trunk | |
| 02:10 | Added a "gethostname()" replacement Added "backuppcd_notify()" and related code. No authentication is currently present. Created a small example "notify-server" in Tcl. This server just manipulates the "/etc/hosts" file. check-in: 0d7a0b3376 user: rkeene tags: trunk | |
Changes
Changes to tools/notify-server.
1 2 | #! /usr/bin/tclsh | < < | | 1 2 3 4 5 6 7 8 9 10 |
#! /usr/bin/tclsh
set BackupPCdNotifyServerPort 899
set Hostfile "/etc/hosts"
proc handle_connection {sock addr port} {
fileevent $sock readable [list handle_data $sock $addr $port]
return
}
|
| ︙ | ︙ | |||
168 169 170 171 172 173 174 |
}
if {![info exists servfd]} {
puts $err
exit 1
}
| > > > > > > > > > | | | | | | | > | 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 |
}
if {![info exists servfd]} {
puts $err
exit 1
}
if {[catch {
package require Tclx
}]} {
puts stderr "Error loading the \"Tclx\" package, we cannot become a daemon."
puts stderr "Running in the foreground."
puts stderr "$errorInfo"
vwait forever
} else {
# Become a daemon
if {[fork] == 0} {
if {[fork] == 0} {
cd /
vwait forever
}
}
}
|