Changeset 987
- Timestamp:
- Apr 26, 2010 1:06:36 PM (11 years ago)
- Location:
- trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/expgui
r986 r987 4193 4193 # get info about the current version on the server. Someday we might want to compare this 4194 4194 # say every month and notify when there is a new version to update 4195 set repos [GetSVNrepository $expgui(gsasdir)]4195 set repos [GetSVNrepository [file normalize $expgui(gsasdir)]] 4196 4196 # send a "p" to accept the server fingerprint in case needed on 1st access 4197 catch {set out [exec echo "p" | svn info $repos]} err 4197 set svninp [file normalize "~/svntmp.txt"] 4198 set fp [open $svninp "w"] 4199 puts $fp "p" 4200 close $fp 4201 if [catch {set out [exec svn info $repos < $svninp]} err] { 4202 puts "svn info error = $err" 4203 } 4204 catch {file delete $svninp} 4198 4205 set expgui(SVNversion) [lindex [split $repos '/'] end] 4199 4206 # cleanup batch file from a previous update -
trunk/gsascmds.tcl
r986 r987 3350 3350 #set wish "[info nameofexecutable]" 3351 3351 # check for updates 3352 if [catch {set res [exec $SVN status $::expgui(gsasdir)-u]} err] {3352 if [catch {set res [exec $SVN status [file normalize $::expgui(gsasdir)] -u]} err] { 3353 3353 MyMessageBox -parent . -title "Error checking status" \ 3354 3354 -message "Error checking for updates: $err" \
Note: See TracChangeset
for help on using the changeset viewer.