source: sans/Dev/trunk/NCNR_User_Procedures/Common/Installer/CheckVersionFTP.ipf @ 570

Last change on this file since 570 was 570, checked in by srkline, 13 years ago

Change (1):
In preparation for release, updated pragma IgorVersion?=6.1 in all procedures

Change (2):
As a side benefit of requiring 6.1, we can use the MultiThread? keyword to thread any model function we like. The speed benefit is only noticeable on functions that require at least one integration and at least 100 points (resolution smearing is NOT threaded, too many threadSafe issues, too little benefit). I have chosen to use the MultiThread? only on the XOP assignment. In the Igor code there are too many functions that are not explicitly declared threadsafe, making for a mess.

File size: 2.4 KB
Line 
1#pragma rtGlobals=1             // Use modern global access method.
2#pragma IgorVersion=6.1
3
4// goes to our ftp site and downloads "CurrentVersion.txt"
5//
6// compares to the installed version string, which is installed in UP:NCNR_UP
7//
8//
9//
10Proc CheckForLatestVersion()
11
12        String url = "ftp://ftp.ncnr.nist.gov/pub/sans/kline/CurrentVersion.txt"
13        String currentStr,installedStr,fileNameStr="",varStr="",str
14        Variable refNum,upToDateVersion,runningVersion
15       
16        fileNameStr = SpecialDirPath("Packages", 0, 0, 0)
17        fileNameStr += "CurrentVersion.txt"
18
19        FTPDownload/O/Z url, fileNameStr
20
21        Open/R refNum as fileNameStr
22        FReadLine refNum, currentStr
23        Close refnum
24       
25        Print "Current = ",CurrentStr
26        // don't use the local strings anymore 
27//      setDataFolder root:
28//      varStr=VariableList("*VERSION",";",6)
29//      if(strlen(varStr)==0)
30//              SetDataFolder root:Packages:NIST:
31//              varStr=VariableList("*VERSION",";",6)
32//      endif
33//      if(strlen(varStr)==0)
34//              Abort "Can't find the local version number"
35//      Endif
36       
37        // find the installed version
38        PathInfo Igor
39        String IgorPathStr = S_Path
40        fileNameStr = IgorPathStr + "User Procedures:NCNR_User_Procedures:InstalledVersion.txt"
41       
42        Open/R/Z refNum as fileNameStr
43        if(V_flag != 0)
44                //couldn't find the file, send user to web site to update
45                sprintf str,"I could not determine what version of the SANS Macros you are running."
46                str += " You need to go to the NCNR website for the latest version. Do you want to go there now?"
47                DoAlert 1,str
48                if(V_flag==1)
49                        BrowseURL "http://www.ncnr.nist.gov/programs/sans/data/red_anal.html"
50                endif
51                //don't need to close if nothing was opened (/Z)
52        else
53       
54                FReadLine refNum, installedStr
55                Close refnum
56               
57                Print "Installed = ",installedStr       
58               
59                runningVersion = NumberByKey(StringFromList(0,"PACKAGE_VERSION"), installedStr,"=",";")
60                upToDateVersion = NumberByKey(StringFromList(0,"PACKAGE_VERSION"), currentStr,"=",";")
61               
62                If(runningVersion != upToDateVersion)
63                        sprintf str,"You are running version %g and the latest version is %g.",runningVersion,upToDateVersion
64                        str += " You need to go to the NCNR website for the latest version. Do you want to go there now?"
65                        DoAlert 1,str
66                        if(V_flag==1)
67                                BrowseURL "http://www.ncnr.nist.gov/programs/sans/data/red_anal.html"
68                        endif
69                else
70                        DoAlert 0,"You are running the most up-to-date version = "+StringByKey(StringFromList(0,"PACKAGE_VERSION"), currentStr,"=",";")
71                endif
72        endif
73       
74End
Note: See TracBrowser for help on using the repository browser.