Changeset 987

Timestamp:

Apr 26, 2010 1:06:36 PM (11 years ago)

Author:

toby

Message:

work on fix for problem validating svn server

Location:

trunk

Files:

• expgui (modified) (1 diff)
• gsascmds.tcl (modified) (1 diff)

trunk/expgui

@@ -4193 +4193 @@
     # get info about the current version on the server. Someday we might want to compare this
     # say every month and notify when there is a new version to update
-    set repos [GetSVNrepository $expgui(gsasdir)]
+    set repos [GetSVNrepository [file normalize $expgui(gsasdir)]]
     # send a "p" to accept the server fingerprint in case needed on 1st access
-    catch {set out [exec echo "p" | svn info $repos]} err
+    set svninp [file normalize "~/svntmp.txt"]
+    set fp [open $svninp "w"]
+    puts $fp "p"
+    close $fp
+    if [catch {set out [exec svn info $repos < $svninp]} err] {
+        puts "svn info error = $err"
+    }
+    catch {file delete $svninp}
     set expgui(SVNversion) [lindex [split $repos '/'] end]
     # cleanup batch file from a previous update

trunk/gsascmds.tcl

@@ -3350 +3350 @@
     #set wish "[info nameofexecutable]"
     # check for updates
-    if [catch {set res [exec $SVN status $::expgui(gsasdir) -u]} err] {
+    if [catch {set res [exec $SVN status [file normalize $::expgui(gsasdir)] -u]} err] {
         MyMessageBox -parent . -title "Error checking status" \
             -message "Error checking for updates: $err" \