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 |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | hypnotoad |
| Files: | files | file ages | folders |
| SHA3-256: |
08ccfd657e447675e280d81b0a48411e |
| User & Date: | hypnotoad 2020-01-28 15:58:03.265 |
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 |
if {![package vsatisfies [package provide Tcl] 8.5]} {return}
| | | 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 |
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]
| | | 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 |
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"]} {
|
| ︙ | ︙ | |||
232 233 234 235 236 237 238 |
variable e {}
foreach e {critcl} {
if {[LoadAccelerator $e]} break
}
unset e
}
| | | 232 233 234 235 236 237 238 239 240 241 242 243 244 245 |
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:
|