Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Added a binary encode to the uuid's random string generator to avoid embedded nulls terminating strings prematurely |
|---|---|
| Timelines: | family | ancestors | descendants | both | hypnotoad |
| Files: | files | file ages | folders |
| SHA3-256: |
08ccfd657e447675e280d81b0a48411e |
| User & Date: | hypnotoad 2020-01-28 15:58:03 |
Context
|
2020-01-28
| ||
| 19:48 | New version of nettool which allows for a central text-based pool of tcp ports check-in: ed69e9893c user: hypnotoad tags: hypnotoad | |
| 15:58 | Added a binary encode to the uuid's random string generator to avoid embedded nulls terminating strings prematurely check-in: 08ccfd657e user: hypnotoad tags: hypnotoad | |
|
2019-12-06
| ||
| 15:03 | Updated registered service ports database. Added a manual entry for slingboxes (which IRM tends to trip over) check-in: 89224bbaf7 user: hypnotoad tags: hypnotoad | |
Changes
Changes to modules/uuid/pkgIndex.tcl.
1 2 |
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
package ifneeded uuid 1.0.7 [list source [file join $dir uuid.tcl]]
|
| |
1 2 |
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
package ifneeded uuid 1.0.6 [list source [file join $dir uuid.tcl]]
|
Changes to modules/uuid/uuid.tcl.
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
...
232
233
234
235
236
237
238
239
240
241
242
243
244
245
|
lappend machinfo [array get ::tcl_platform]
###
# If we have /dev/urandom just stream 128 bits from that
###
if {[file exists /dev/urandom]} {
set fin [open /dev/urandom r]
binary scan [read $fin 128] H* machinfo
close $fin
} elseif {[catch {package require nettool}]} {
# More spatial information -- better than hostname.
# bug 1150714: opening a server socket may raise a warning messagebox
# with WinXP firewall, using ipconfig will return all IP addresses
# including ipv6 ones if available. ipconfig is OK on win98+
if {[string equal $::tcl_platform(platform) "windows"]} {
................................................................................
variable e {}
foreach e {critcl} {
if {[LoadAccelerator $e]} break
}
unset e
}
package provide uuid 1.0.7
# -------------------------------------------------------------------------
# Local variables:
# mode: tcl
# indent-tabs-mode: nil
# End:
|
|
|
|
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
...
232
233
234
235
236
237
238
239
240
241
242
243
244
245
|
lappend machinfo [array get ::tcl_platform]
###
# If we have /dev/urandom just stream 128 bits from that
###
if {[file exists /dev/urandom]} {
set fin [open /dev/urandom r]
set machinfo [binary encode base64 [read $fin 128]]
close $fin
} elseif {[catch {package require nettool}]} {
# More spatial information -- better than hostname.
# bug 1150714: opening a server socket may raise a warning messagebox
# with WinXP firewall, using ipconfig will return all IP addresses
# including ipv6 ones if available. ipconfig is OK on win98+
if {[string equal $::tcl_platform(platform) "windows"]} {
................................................................................
variable e {}
foreach e {critcl} {
if {[LoadAccelerator $e]} break
}
unset e
}
package provide uuid 1.0.6
# -------------------------------------------------------------------------
# Local variables:
# mode: tcl
# indent-tabs-mode: nil
# End:
|