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: |
7348a0c4faad3ced6aae2448eeeff777 |
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 | 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..." | | | | | 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.
1 2 3 4 5 6 7 8 | #softwareupdate.tcl routines to manage spoftware updates # Copyright (C) 2014 WordTech Communications LLC #MIT license package provide softwareupdate 1.5 package require http | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | #softwareupdate.tcl routines to manage spoftware updates # 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]] |
︙ | ︙ | |||
61 62 63 64 65 66 67 | variable currentversion variable versionnumber set appname $app softwareupdate::checkingForUpdates | | | 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 | 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 |
︙ | ︙ | |||
130 131 132 133 134 135 136 | catch {destroy .updateprogress} catch {destroy .update} variable appname | | | 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 | 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 } |
︙ | ︙ |