Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added an API call to set the sync file in nettool |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | hypnotoad |
| Files: | files | file ages | folders |
| SHA3-256: |
faca2007b6d89ca5f8b05cc72237d0b7 |
| User & Date: | hypnotoad 2020-01-28 21:15:07.973 |
Context
|
2020-01-28
| ||
| 22:25 | Added a coroutine guard for file locking in nettool check-in: 9b67fcc749 user: hypnotoad tags: hypnotoad | |
| 21:15 | Added an API call to set the sync file in nettool check-in: faca2007b6 user: hypnotoad tags: hypnotoad | |
| 20:09 | Nettool: Added an instruction for data to be ignored after a week, and provided a mechanism for a process to release all ports it claimed check-in: 441a5da4ea user: hypnotoad tags: hypnotoad | |
Changes
Changes to modules/nettool/build/locateport.tcl.
| ︙ | ︙ | |||
58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
proc ::nettool::_die {filename} {
}
proc ::nettool::_sync_db {filename} {
set mypid [pid]
if {[file exists $filename]} {
for {set x 0} {$x < 30} {incr x} {
if {![file exists $filename.lock]} break
set pid [string trim [cat $filename.lock]]
if {$pid==$mypid} break
after 250
}
set fout [open $filename.lock w]
puts $fout $mypid
close $fout
| > < | 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 |
proc ::nettool::_die {filename} {
}
proc ::nettool::_sync_db {filename} {
set mypid [pid]
set now [clock seconds]
if {[file exists $filename]} {
for {set x 0} {$x < 30} {incr x} {
if {![file exists $filename.lock]} break
set pid [string trim [cat $filename.lock]]
if {$pid==$mypid} break
after 250
}
set fout [open $filename.lock w]
puts $fout $mypid
close $fout
set fin [open $filename r]
while {[gets $fin line]>=0} {
lassign $line port info
# Ignore file entries attributed to my process id
if {[dict exists $info pid] && [dict get $info pid] == $mypid} continue
# Ignore attempts to update usage on ports I have allocated
if {[dict exists $::nettool::used_ports $port pid] && [dict get $::nettool::used_ports $port pid] == $mypid} continue
|
| ︙ | ︙ | |||
140 141 142 143 144 145 146 147 148 149 150 |
proc ::nettool::release_port {port {protocol tcp}} {
dict set ::nettool::used_ports $port mtime [clock seconds]
dict set ::nettool::used_ports $port pid 0
if {[info exists ::nettool::syncfile]} {
::nettool::_sync_db $::nettool::syncfile
}
}
if {![info exists ::nettool::used_ports]} {
set ::nettool::used_ports {}
}
| > > > > > | 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 |
proc ::nettool::release_port {port {protocol tcp}} {
dict set ::nettool::used_ports $port mtime [clock seconds]
dict set ::nettool::used_ports $port pid 0
if {[info exists ::nettool::syncfile]} {
::nettool::_sync_db $::nettool::syncfile
}
}
proc ::nettool::set_sync_file {filename} {
file mkdir [file dirname $filename]
set ::nettool::syncfile $filename
}
if {![info exists ::nettool::used_ports]} {
set ::nettool::used_ports {}
}
|
Changes to modules/nettool/nettool.tcl.
| ︙ | ︙ | |||
983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 |
proc ::nettool::_die {filename} {
}
proc ::nettool::_sync_db {filename} {
set mypid [pid]
if {[file exists $filename]} {
for {set x 0} {$x < 30} {incr x} {
if {![file exists $filename.lock]} break
set pid [string trim [cat $filename.lock]]
if {$pid==$mypid} break
after 250
}
set fout [open $filename.lock w]
puts $fout $mypid
close $fout
| > < | 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 |
proc ::nettool::_die {filename} {
}
proc ::nettool::_sync_db {filename} {
set mypid [pid]
set now [clock seconds]
if {[file exists $filename]} {
for {set x 0} {$x < 30} {incr x} {
if {![file exists $filename.lock]} break
set pid [string trim [cat $filename.lock]]
if {$pid==$mypid} break
after 250
}
set fout [open $filename.lock w]
puts $fout $mypid
close $fout
set fin [open $filename r]
while {[gets $fin line]>=0} {
lassign $line port info
# Ignore file entries attributed to my process id
if {[dict exists $info pid] && [dict get $info pid] == $mypid} continue
# Ignore attempts to update usage on ports I have allocated
if {[dict exists $::nettool::used_ports $port pid] && [dict get $::nettool::used_ports $port pid] == $mypid} continue
|
| ︙ | ︙ | |||
1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 |
proc ::nettool::release_port {port {protocol tcp}} {
dict set ::nettool::used_ports $port mtime [clock seconds]
dict set ::nettool::used_ports $port pid 0
if {[info exists ::nettool::syncfile]} {
::nettool::_sync_db $::nettool::syncfile
}
}
if {![info exists ::nettool::used_ports]} {
set ::nettool::used_ports {}
}
###
# END: locateport.tcl
| > > > > > | 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 |
proc ::nettool::release_port {port {protocol tcp}} {
dict set ::nettool::used_ports $port mtime [clock seconds]
dict set ::nettool::used_ports $port pid 0
if {[info exists ::nettool::syncfile]} {
::nettool::_sync_db $::nettool::syncfile
}
}
proc ::nettool::set_sync_file {filename} {
file mkdir [file dirname $filename]
set ::nettool::syncfile $filename
}
if {![info exists ::nettool::used_ports]} {
set ::nettool::used_ports {}
}
###
# END: locateport.tcl
|
| ︙ | ︙ |