Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Update for migration to new server |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 7348a0c4faad3ced6aae2448eeeff777fe180f0d |
| User & Date: | kevin 2018-03-18 12:04:09 |
Context
|
2018-03-19
| ||
| 00:17 | Finalize build for Mac check-in: a1f7c70549 user: kevin tags: trunk | |
|
2018-03-18
| ||
| 12:04 | Update for migration to new server check-in: 7348a0c4fa user: kevin tags: trunk | |
|
2018-03-17
| ||
| 20:40 | Revbump to 6.4, release for Mac check-in: f1e205cbfd user: kevin tags: trunk | |
Changes
Changes to buildapp.
147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 |
hdiutil create -srcfolder dist -fs HFS+ -volname QuickWho QuickWho.dmg codesign --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" --verbose=2 QuickWho.dmg echo "Uploading DMG..." upload QuickWho.dmg updates upload quickwho-changes.tcl upload quickwho-version.tcl cd ../ #create archive of entire source tree tar cvfz QuickWho-$1.tgz QuickWho echo "Done." |
| | | |
147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 |
hdiutil create -srcfolder dist -fs HFS+ -volname QuickWho QuickWho.dmg codesign --signature-size 9400 -f -s "Developer ID Application: Kevin Walzer" --verbose=2 QuickWho.dmg echo "Uploading DMG..." #upload QuickWho.dmg updates #upload quickwho-changes.tcl #upload quickwho-version.tcl cd ../ #create archive of entire source tree tar cvfz QuickWho-$1.tgz QuickWho echo "Done." |
Changes to scriptlibs/softwareupdate/softwareupdate.tcl.
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 .. 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 ... 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 |
# Copyright (C) 2014 WordTech Communications LLC #MIT license package provide softwareupdate 1.5 package require http package require tls ::http::register https 443 [list ::tls::socket -servername codebykevin.com -request 0 -require 0 -ssl2 0 -ssl3 0 -tls1 1] namespace eval softwareupdate { if {![info exists library]} { variable library [file dirname [info script]] ................................................................................ variable currentversion variable versionnumber set appname $app softwareupdate::checkingForUpdates 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 ................................................................................ catch {destroy .updateprogress} catch {destroy .update} 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 } |
| | | |
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 .. 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 ... 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 |
# Copyright (C) 2014 WordTech Communications LLC
#MIT license
package provide softwareupdate 1.5
package require http
package require tls
::http::register https 443 [list ::tls::socket -servername codebykevin.com -request 0 -require 0 -ssl2 0 -ssl3 0 -tls1 1]
namespace eval softwareupdate {
if {![info exists library]} {
variable library [file dirname [info script]]
................................................................................
variable currentversion
variable versionnumber
set appname $app
softwareupdate::checkingForUpdates
set versionurl [string tolower 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
................................................................................
catch {destroy .updateprogress}
catch {destroy .update}
variable appname
set changeurl [string tolower 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
}
|