Changeset 169 for trunk/lingosource/castlib1/svn_Utilities.ls
- Timestamp:
- 04/07/08 08:27:22 (4 years ago)
- File:
-
- 1 edited
-
trunk/lingosource/castlib1/svn_Utilities.ls (modified) (12 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/lingosource/castlib1/svn_Utilities.ls
r167 r169 1976 1976 if length(ident) < 1 then ident = the moviename 1977 1977 1978 thePassword = "" 1978 1979 placeholder = "%%password:" 1979 1980 offs = offset(placeholder, VersionCheckUrl) … … 1986 1987 VersionCheckUrl = word 1 to VersionCheckUrl.word.count of VersionCheckUrl & "?movieName=" & ident 1987 1988 1988 updateurl = 0 1989 repeat with cl in castlibList 1990 versmem = member("subversion_version_field", cl) 1991 if [#field, #text].getPos(mGetMemType(me, versmem)) > 0 then 1992 if updateurl = 0 then updateurl = 1 1993 curr = versmem.text 1994 if char 1 of curr = "r" then delete char 1 of curr 1995 curr = integer(curr) 1996 if not(integerP(curr)) then curr = 0 1997 if curr < versionNumber then 1998 versmem.text = "r" & versionNumber 1989 end if 1990 1991 updateurl = 0 1992 repeat with cl in castlibList 1993 versmem = member("subversion_version_field", cl) 1994 if [#field, #text].getPos(mGetMemType(me, versmem)) > 0 then 1995 if updateurl = 0 then updateurl = 1 1996 curr = versmem.text 1997 if char 1 of curr = "r" then delete char 1 of curr 1998 curr = integer(curr) 1999 if not(integerP(curr)) then curr = 0 2000 if curr < versionNumber then 2001 versmem.text = "r" & versionNumber 2002 if length(VersionCheckUrl) > 0 then 1999 2003 versmem.comments = VersionCheckUrl 2000 else2001 updateurl = 22002 2004 end if 2005 else 2006 updateurl = 2 2003 2007 end if 2004 end repeat 2005 2008 end if 2009 end repeat 2010 2011 if length(VersionCheckUrl) > 0 then 2006 2012 if updateurl = 1 then 2007 2013 if length(thePassword) then … … 2009 2015 end if 2010 2016 end if 2011 2012 2017 end if 2018 2013 2019 end if 2014 2020 --------------------- // version number … … 2252 2258 if length(ident) < 1 then ident = the moviename 2253 2259 2260 thePassword = "" 2254 2261 placeholder = "%%password:" 2255 2262 offs = offset(placeholder, VersionCheckUrl) … … 2261 2268 2262 2269 VersionCheckUrl = word 1 to VersionCheckUrl.word.count of VersionCheckUrl & "?movieName=" & ident 2263 2264 updateurl = 0 2265 repeat with cl = the number of castlibs down to 1 2266 versmem = member("subversion_version_field", cl) 2267 if [#field, #text].getPos(mGetMemType(me, versmem)) > 0 then 2268 if updateurl = 0 then updateurl = 1 2269 curr = versmem.text 2270 if char 1 of curr = "r" then delete char 1 of curr 2271 curr = integer(curr) 2272 if not(integerP(curr)) then curr = 0 2273 if curr < versionNumber then 2274 versmem.text = "r" & versionNumber 2270 end if 2271 updateurl = 0 2272 repeat with cl = the number of castlibs down to 1 2273 versmem = member("subversion_version_field", cl) 2274 if [#field, #text].getPos(mGetMemType(me, versmem)) > 0 then 2275 if updateurl = 0 then updateurl = 1 2276 curr = versmem.text 2277 if char 1 of curr = "r" then delete char 1 of curr 2278 curr = integer(curr) 2279 if not(integerP(curr)) then curr = 0 2280 if curr < versionNumber then 2281 versmem.text = "r" & versionNumber 2282 if length(VersionCheckUrl) > 0 then 2275 2283 versmem.comments = VersionCheckUrl 2276 else2277 updateurl = 22278 2284 end if 2285 else 2286 updateurl = 2 2279 2287 end if 2280 end repeat 2281 2288 end if 2289 end repeat 2290 2291 if length(VersionCheckUrl) > 0 then 2282 2292 if updateurl = 1 then 2283 2293 if length(thePassword) then … … 2285 2295 end if 2286 2296 end if 2287 2288 2297 end if 2298 2289 2299 end if 2290 2300 --------------------- // version number … … 2801 2811 if length(ident) < 1 then ident = the moviename 2802 2812 2813 thePassword = "" 2803 2814 placeholder = "%%password:" 2804 2815 offs = offset(placeholder, VersionCheckUrl) … … 2892 2903 -------------------- get version number: 2893 2904 2894 if length(VersionCheckUrl) > 0 then 2895 versmem = member("subversion_version_field", n) 2896 if [#field, #text].getPos(mGetMemType(me, versmem)) > 0 then 2897 if updateurl = 0 then updateurl = 1 2898 curr = versmem.text 2899 if char 1 of curr = "r" then delete char 1 of curr 2900 curr = integer(curr) 2901 if not(integerP(curr)) then curr = 0 2902 if curr < versionNumber then 2903 versmem.text = "r" & versionNumber 2905 2906 versmem = member("subversion_version_field", n) 2907 if [#field, #text].getPos(mGetMemType(me, versmem)) > 0 then 2908 if updateurl = 0 then updateurl = 1 2909 curr = versmem.text 2910 if char 1 of curr = "r" then delete char 1 of curr 2911 curr = integer(curr) 2912 if not(integerP(curr)) then curr = 0 2913 if curr < versionNumber then 2914 versmem.text = "r" & versionNumber 2915 if length(VersionCheckUrl) > 0 then 2904 2916 versmem.comments = VersionCheckUrl 2905 else2906 updateurl = 22907 2917 end if 2918 else 2919 updateurl = 2 2908 2920 end if 2909 2921 end if 2922 2910 2923 --------------------- // version number 2911 2924 … … 2929 2942 2930 2943 -------------------- get version number: 2931 if updateurl = 1 then 2932 if length(thePassword) then 2933 id = getnettext(VersionCheckUrl & "&version=" & thePassword & versionNumber) 2944 if length(VersionCheckUrl) > 0 then 2945 if updateurl = 1 then 2946 if length(thePassword) then 2947 id = getnettext(VersionCheckUrl & "&version=" & thePassword & versionNumber) 2948 end if 2934 2949 end if 2935 2950 end if … … 2947 2962 -------------------- get version number: 2948 2963 updateurl = 0 2964 2965 repeat with cl = the number of castlibs down to 1 2966 versmem = member("subversion_version_field", cl) 2967 if [#field, #text].getPos(mGetMemType(me, versmem)) > 0 then 2968 if updateurl = 0 then updateurl = 1 2969 curr = versmem.text 2970 if char 1 of curr = "r" then delete char 1 of curr 2971 curr = integer(curr) 2972 if not(integerP(curr)) then curr = 0 2973 if curr < versionNumber then 2974 versmem.text = "r" & versionNumber 2975 if length(VersionCheckUrl) > 0 then 2976 versmem.comments = VersionCheckUrl 2977 end if 2978 else 2979 updateurl = 2 2980 end if 2981 end if 2982 end repeat 2983 2949 2984 if length(VersionCheckUrl) > 0 then 2950 repeat with cl = the number of castlibs down to 1 2951 versmem = member("subversion_version_field", cl) 2952 if [#field, #text].getPos(mGetMemType(me, versmem)) > 0 then 2953 if updateurl = 0 then updateurl = 1 2954 curr = versmem.text 2955 if char 1 of curr = "r" then delete char 1 of curr 2956 curr = integer(curr) 2957 if not(integerP(curr)) then curr = 0 2958 if curr < versionNumber then 2959 versmem.text = "r" & versionNumber 2960 versmem.comments = VersionCheckUrl 2961 else 2962 updateurl = 2 2963 end if 2985 if updateurl = 1 then 2986 if length(thePassword) then 2987 id = getnettext(VersionCheckUrl & "&version=" & thePassword & versionNumber) 2964 2988 end if 2965 end repeat2966 end if2967 2968 if updateurl = 1 then2969 if length(thePassword) then2970 id = getnettext(VersionCheckUrl & "&version=" & thePassword & versionNumber)2971 2989 end if 2972 2990 end if … … 3212 3230 versionCheckUrl = string(versionCheckUrlList.getaprop(movieIdentifier)) 3213 3231 3214 if versionCheckUrl = "" then 3232 if length(versionCheckUrl) > 0 then return versionCheckUrl 3233 3234 3235 repeat with n = the number of castlibs down to 1 3236 versmem = member("subversion_version_field", n) 3237 if [#field, #text].getPos(mGetMemType(me, versmem)) > 0 then 3238 versionCheckUrl = string(versmem.comments) 3239 if length(versionCheckUrl) then exit repeat 3240 end if 3241 end repeat 3242 3243 if length(versionCheckUrl) > 0 then 3244 3215 3245 selectMsg = string(selectMsg) 3216 3246 if length(selectMsg) < 1 then selectMsg = "No update check URL is specified for this movie. Please enter an URL." … … 3220 3250 -- else 3221 3251 muiobj = new(xtra "Mui") 3222 versionCheckUrl = muiobj.GetUrl("http://www.farbflash.de/cgi-bin/versionChecker.pl %%password: secretpassword", 1) 3252 -- versionCheckUrl = muiobj.GetUrl("http://www.farbflash.de/cgi-bin/versionChecker.pl %%password: secretpassword", 1) 3253 versionCheckUrl = muiobj.GetUrl(versionCheckUrl && "%%password: secretpassword", 1) 3223 3254 muiobj = 0 3224 3255 -- end if
Note: See TracChangeset
for help on using the changeset viewer.
