QuickWho

Check-in [e6aab21213]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Tweak registration code for Windows GUI
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e6aab2121372e0ec7887fb7d67799970c52b725d
User & Date: kevin 2018-06-05 03:15:29
Context
2019-11-20
03:17
Update check-in: 4fac9f3de3 user: kevin tags: trunk
2018-06-05
03:15
Tweak registration code for Windows GUI check-in: e6aab21213 user: kevin tags: trunk
2018-04-27
12:17
Change build parameters on macOS check-in: 162b239e51 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to scriptlibs/regproc/regproc.tcl.

36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

    #set the 30-day clock for application/version
    proc setClock {} {
	variable datadir 
	variable appname
	variable appversion
	variable appstore
	puts "datadir is $datadir"

	set launchTime [clock seconds]
	set saveTime [open $datadir/$appname$appversion.dat w]
	puts $saveTime $launchTime
	close $saveTime
    }








<







36
37
38
39
40
41
42

43
44
45
46
47
48
49

    #set the 30-day clock for application/version
    proc setClock {} {
	variable datadir 
	variable appname
	variable appversion
	variable appstore


	set launchTime [clock seconds]
	set saveTime [open $datadir/$appname$appversion.dat w]
	puts $saveTime $launchTime
	close $saveTime
    }

250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
	for {set i 1} {$i < $count} {incr i 1} {

	    lappend serialbase [string toupper $appname]-[expr $i * 5]-[expr $i/11]-[expr $i - 1]-[string toupper [string trim [string range $appname 0 1]]]
	}
	

	set output [lsearch  -inline $serialbase $serial]
	puts $serial
	puts $output
	
	if {$output >= 0} {
	    cd $datadir
	    set lic [open $datadir/lic.dat w]
	    puts $lic "$serial"
	    close $lic
		grab release .number







<
<







249
250
251
252
253
254
255


256
257
258
259
260
261
262
	for {set i 1} {$i < $count} {incr i 1} {

	    lappend serialbase [string toupper $appname]-[expr $i * 5]-[expr $i/11]-[expr $i - 1]-[string toupper [string trim [string range $appname 0 1]]]
	}
	

	set output [lsearch  -inline $serialbase $serial]


	
	if {$output >= 0} {
	    cd $datadir
	    set lic [open $datadir/lic.dat w]
	    puts $lic "$serial"
	    close $lic
		grab release .number