filemorph

Check-in [08da26dfc2]
Login

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

Overview
Comment:Better error handling in software update
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:08da26dfc2da670f5c1956be3cb0acb38185fdc8
User & Date: kevin 2017-01-18 02:44:36
Context
2017-04-03
02:45
Upgrade tls for macOS check-in: 40831fc0c1 user: kevin tags: trunk
2017-01-18
02:44
Better error handling in software update check-in: 08da26dfc2 user: kevin tags: trunk
2017-01-16
19:18
Tweak dialog check-in: 9e4adcf94d user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to scriptlibs/softwareupdate/softwareupdate.tcl.

67
68
69
70
71
72
73

74
75
76
77
78
79
80
...
134
135
136
137
138
139
140

141
142
143
144
145
146
147
...
339
340
341
342
343
344
345
346
347
348
349
350
351
352

	set versionurl https://www.codebykevin.com/$appname-version.tcl
	http::config -useragent "$appname Update Check"

	if [catch {http::geturl $versionurl} msg] {
	    puts "error: $msg"
	    tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent .

	    return
	} 

	set versionnumber [string trim [http::data [http::geturl $versionurl]]]
	if [expr $currentversion < $versionnumber] {
	    softwareupdate::updatePitch
	} else {
................................................................................
	variable appname

	set changeurl https://www.codebykevin.com/$appname-changes.tcl

        if [catch {http::geturl $changeurl} msg] {
	    puts "error: $msg"
	    tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent .

	    return
	} 


	set changelist [http::data [http::geturl $changeurl]]

	set updateanswer [tk_messageBox -title "Update" -icon info -message "Update Available" -detail "A new version ($softwareupdate::versionnumber) of $appname is available.\n\nThis new version features the following updates and changes:\n\n$changelist\n\nWould you like to install it? " -type yesno -parent .]
................................................................................
		return
	    }
	}

	catch {destroy .downloadprogress}

    }




    namespace export *

}







>







 







>







 







<
<
<




67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
...
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
...
341
342
343
344
345
346
347



348
349
350
351

	set versionurl https://www.codebykevin.com/$appname-version.tcl
	http::config -useragent "$appname Update Check"

	if [catch {http::geturl $versionurl} msg] {
	    puts "error: $msg"
	    tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent .
	catch {destroy .updateprogress}
	    return
	} 

	set versionnumber [string trim [http::data [http::geturl $versionurl]]]
	if [expr $currentversion < $versionnumber] {
	    softwareupdate::updatePitch
	} else {
................................................................................
	variable appname

	set changeurl https://www.codebykevin.com/$appname-changes.tcl

        if [catch {http::geturl $changeurl} msg] {
	    puts "error: $msg"
	    tk_messageBox -icon warning -title "Unable to Connect to Server" -message "Unable to Connect to Server" -detail "Unable to connect to www.codebykevin.com to check for updates. Please make sure you are connected to the Internet." -parent .
	    catch {destroy .updateprogress}
	    return
	} 


	set changelist [http::data [http::geturl $changeurl]]

	set updateanswer [tk_messageBox -title "Update" -icon info -message "Update Available" -detail "A new version ($softwareupdate::versionnumber) of $appname is available.\n\nThis new version features the following updates and changes:\n\n$changelist\n\nWould you like to install it? " -type yesno -parent .]
................................................................................
		return
	    }
	}

	catch {destroy .downloadprogress}

    }




    namespace export *

}