Changeset 988 for trunk


Ignore:
Timestamp:
Apr 26, 2010 1:33:19 PM (11 years ago)
Author:
toby
Message:

work more on validating svn server certificate

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    r987 r988  
    33493349    }
    33503350    #set wish "[info nameofexecutable]"
     3351    # send a "p" to accept the server fingerprint in case needed on 1st access
     3352    set svninp [file normalize "~/svntmp.txt"]
     3353    set fp [open $svninp "w"]
     3354    puts $fp "p"
     3355    close $fp
    33513356    # check for updates
    3352     if [catch {set res [exec $SVN status [file normalize $::expgui(gsasdir)] -u]} err] {
     3357    if [catch {
     3358        set res [exec $SVN status [file normalize $::expgui(gsasdir)] -u < $svninp]
     3359    } err] {
    33533360        MyMessageBox -parent . -title "Error checking status" \
    33543361            -message "Error checking for updates: $err" \
    33553362            -icon error
     3363        catch {file delete $svninp}
    33563364        return
    33573365    } else {
     
    33623370            return
    33633371        }
     3372        catch {file delete $svninp}
    33643373    }
    33653374    if {[MyMessageBox -parent . -title "Ready to Update" \
Note: See TracChangeset for help on using the changeset viewer.