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: |