]>
Commit | Line | Data |
---|---|---|
6fb3305d | 1 | #!/bin/awk -f |
d4089f30 | 2 | # $Revision$, $Date$ |
b52a0a12 JB |
3 | # |
4 | # Copyright (C) 2000-2006 PLD-Team <feedback@pld-linux.org> | |
5 | # Authors: | |
6 | # Sebastian Zagrodzki <zagrodzki@pld-linux.org> | |
7 | # Jacek Konieczny <jajcus@pld-linux.org> | |
8 | # Andrzej Krzysztofowicz <ankry@pld-linux.org> | |
9 | # Jakub Bogusz <qboosh@pld-linux.org> | |
10 | # Elan Ruusamäe <glen@pld-linux.org> | |
11 | # | |
12 | # See cvs log pldnotify.awk for list of contributors | |
13 | # | |
14 | # TODO: | |
15 | # - "SourceXDownload" support (use given URLs if present instead of cut-down SourceX URLs) | |
16 | # - "SourceXActiveFTP" support | |
3ca67c5b | 17 | |
2aba2068 SZ |
18 | function fixedsub(s1,s2,t, ind) { |
19 | # substitutes fixed strings (not regexps) | |
20 | if (ind = index(t,s1)) { | |
21 | t = substr(t, 1, ind-1) s2 substr(t, ind+length(s1)) | |
22 | } | |
23 | return t | |
24 | } | |
6fb3305d | 25 | |
e3c5f324 JB |
26 | function ispre(s) { |
27 | if ((s~"pre")||(s~"PRE")||(s~"beta")||(s~"BETA")||(s~"alpha")||(s~"ALPHA")||(s~"rc")||(s~"RC")) { | |
28 | if (DEBUG) print "pre-version" | |
29 | return 1 | |
30 | } else { | |
31 | return 0 | |
32 | } | |
33 | } | |
f0c5c231 | 34 | |
70a5e8d4 SZ |
35 | function compare_ver(v1,v2) { |
36 | # compares version numbers | |
37 | while (match(v1,/[a-zA-Z][0-9]|[0-9][a-zA-Z]/)) | |
38 | v1=(substr(v1,1,RSTART) "." substr(v1,RSTART+RLENGTH-1)) | |
39 | while (match(v2,/[a-zA-Z][0-9]|[0-9][a-zA-Z]/)) | |
40 | v2=(substr(v2,1,RSTART) "." substr(v2,RSTART+RLENGTH-1)) | |
41 | sub("^0*","",v1) | |
42 | sub("^0*","",v2) | |
e2ebf07c JB |
43 | gsub("\.0*",".",v1) |
44 | gsub("\.0*",".",v2) | |
70a5e8d4 SZ |
45 | if (DEBUG) print "v1 == " v1 |
46 | if (DEBUG) print "v2 == " v2 | |
47 | count=split(v1,v1a,"\.") | |
48 | count2=split(v2,v2a,"\.") | |
f0c5c231 ER |
49 | |
50 | if (count<count2) mincount=count | |
70a5e8d4 | 51 | else mincount=count2 |
f0c5c231 | 52 | |
70a5e8d4 | 53 | for (i=1; i<=mincount; i++) { |
db83adc3 SZ |
54 | if (v1a[i]=="") v1a[i]=0 |
55 | if (v2a[i]=="") v2a[i]=0 | |
70a5e8d4 SZ |
56 | if (DEBUG) print "i == " i |
57 | if (DEBUG) print "v1[i] == " v1a[i] | |
58 | if (DEBUG) print "v2[i] == " v2a[i] | |
59 | if ((v1a[i]~/[0-9]/)&&(v2a[i]~/[0-9]/)) { | |
60 | if (length(v2a[i])>length(v1a[i])) | |
61 | return 1 | |
62 | else if (v2a[i]>v1a[i]) | |
63 | return 1 | |
64 | else if (length(v1a[i])>length(v2a[i])) | |
65 | return 0 | |
66 | else if (v1a[i]>v2a[i]) | |
67 | return 0 | |
68 | } else if ((v1a[i]~/[A-Za-z]/)&&(v2a[i]~/[A-Za-z]/)) { | |
69 | if (v2a[i]>v1a[i]) | |
70 | return 1 | |
71 | else if (v1a[i]>v2a[i]) | |
72 | return 0 | |
e3c5f324 | 73 | } else if (ispre(v1a[i]) == 1) |
70a5e8d4 SZ |
74 | return 1 |
75 | else | |
76 | return 0 | |
77 | } | |
78 | if ((count2==mincount)&&(count!=count2)) { | |
79 | for (i=count2+1; i<=count; i++) | |
e3c5f324 | 80 | if (ispre(v1a[i]) == 1) |
70a5e8d4 SZ |
81 | return 1 |
82 | return 0 | |
83 | } else if (count!=count2) { | |
84 | for (i=count+1; i<=count2; i++) | |
e3c5f324 | 85 | if (ispre(v2a[i]) == 1) |
70a5e8d4 SZ |
86 | return 0 |
87 | return 1 | |
88 | } | |
db4f445e | 89 | return 0 |
70a5e8d4 SZ |
90 | } |
91 | ||
f11b5a76 | 92 | function compare_ver_dec(v1,v2) { |
b8b1ac2a | 93 | # compares version numbers as decimal floats |
f11b5a76 | 94 | while (match(v1,/[0-9][a-zA-Z]/)) |
95 | v1=(substr(v1,1,RSTART) "." substr(v1,RSTART+RLENGTH-1)) | |
96 | while (match(v2,/[0-9][a-zA-Z]/)) | |
97 | v2=(substr(v2,1,RSTART) "." substr(v2,RSTART+RLENGTH-1)) | |
98 | sub("^0*","",v1) | |
99 | sub("^0*","",v2) | |
100 | if (DEBUG) print "v1 == " v1 | |
101 | if (DEBUG) print "v2 == " v2 | |
102 | count=split(v1,v1a,"\.") | |
103 | count2=split(v2,v2a,"\.") | |
f0c5c231 ER |
104 | |
105 | if (count<count2) mincount=count | |
f11b5a76 | 106 | else mincount=count2 |
f0c5c231 | 107 | |
f11b5a76 | 108 | for (i=1; i<=mincount; i++) { |
109 | if (v1a[i]=="") v1a[i]=0 | |
110 | if (v2a[i]=="") v2a[i]=0 | |
111 | if (DEBUG) print "i == " i | |
112 | if (DEBUG) print "v1[i] == " v1a[i] | |
113 | if (DEBUG) print "v2[i] == " v2a[i] | |
114 | if ((v1a[i]~/[0-9]/)&&(v2a[i]~/[0-9]/)) { | |
115 | if (i==2) { | |
116 | if (0+("." v2a[i])>0+("." v1a[i])) | |
117 | return 1 | |
118 | else if (0+("." v1a[i])>0+("." v2a[i])) | |
119 | return 0 | |
120 | } else { | |
121 | if (length(v2a[i])>length(v1a[i])) | |
122 | return 1 | |
123 | else if (v2a[i]>v1a[i]) | |
124 | return 1 | |
125 | else if (length(v1a[i])>length(v2a[i])) | |
126 | return 0 | |
127 | else if (v1a[i]>v2a[i]) | |
128 | return 0 | |
129 | } | |
130 | } else if ((v1a[i]~/[A-Za-z]/)&&(v2a[i]~/[A-Za-z]/)) { | |
131 | if (v2a[i]>v1a[i]) | |
132 | return 1 | |
133 | else if (v1a[i]>v2a[i]) | |
134 | return 0 | |
e3c5f324 | 135 | } else if (ispre(v1a[i]) == 1) |
f11b5a76 | 136 | return 1 |
137 | else | |
138 | return 0 | |
139 | } | |
140 | if ((count2==mincount)&&(count!=count2)) { | |
141 | for (i=count2+1; i<=count; i++) | |
e3c5f324 | 142 | if (ispre(v1a[i]) == 1) |
f11b5a76 | 143 | return 1 |
144 | return 0 | |
145 | } else if (count!=count2) { | |
146 | for (i=count+1; i<=count2; i++) | |
e3c5f324 | 147 | if (ispre(v2a[i]) == 1) |
f11b5a76 | 148 | return 0 |
149 | return 1 | |
150 | } | |
151 | return 0 | |
152 | } | |
153 | ||
fc589c7e | 154 | function get_links(url, errno,link,oneline,retval,odp,wholeodp,lowerodp,tmpfile) { |
70a5e8d4 | 155 | # get all <A HREF=..> tags from specified URL |
db4f445e SZ |
156 | "mktemp /tmp/XXXXXX" | getline tmpfile |
157 | close("mktemp /tmp/XXXXXX") | |
356ec898 | 158 | |
ea4c106c ER |
159 | if (url ~ /^http:\/\/(download|dl).(sf|sourceforge).net\//) { |
160 | gsub("^http://(download|dl).(sf|sourceforge).net/", "", url) | |
a9dc9975 | 161 | url = "http://prdownloads.sourceforge.net/" substr(url, 1, 1) "/" substr(url, 1, 2) "/" url |
356ec898 ER |
162 | if (DEBUG) print "sf url, mungled url to: " url |
163 | } | |
f0c5c231 | 164 | |
2e301ef5 | 165 | if (DEBUG) print "Retrieving: " url |
2d9cc4bb | 166 | errno=system("wget -O - \"" url "\" -t 3 -T 300 --passive-ftp > " tmpfile " 2>/dev/null" ) |
f0c5c231 | 167 | |
3f63995d | 168 | if (errno==0) { |
7f460828 | 169 | while (getline oneline < tmpfile) |
fc589c7e JB |
170 | wholeodp=(wholeodp " " oneline) |
171 | if ( DEBUG ) print "Response: " wholeodp | |
70a5e8d4 | 172 | } |
f0c5c231 | 173 | |
3f63995d | 174 | close(tmpfile) |
2e301ef5 | 175 | system("rm -f " tmpfile) |
55658186 JB |
176 | urldir=url; |
177 | sub(/[^\/]+$/,"",urldir) | |
fc589c7e | 178 | |
3f63995d | 179 | if ( errno==0) { |
fc589c7e JB |
180 | while (match(wholeodp, /<([aA]|[fF][rR][aA][mM][eE])[ \t][^>]*>/) > 0) { |
181 | odp=substr(wholeodp,RSTART,RLENGTH); | |
182 | wholeodp=substr(wholeodp,RSTART+RLENGTH); | |
183 | ||
184 | lowerodp=tolower(odp); | |
185 | if (lowerodp ~ /<frame[ \t]/) { | |
186 | sub(/[sS][rR][cC]=[ \t]*/,"src=",odp); | |
187 | match(odp,/src="[^"]+"/) | |
188 | newurl=substr(odp,RSTART+5,RLENGTH-6) | |
157aa7fc | 189 | if (DEBUG) print "Frame: " newurl |
55658186 JB |
190 | if (newurl !~ /\//) { |
191 | newurl=(urldir newurl) | |
157aa7fc | 192 | if (DEBUG) print "Frame->: " newurl |
55658186 | 193 | } |
2e301ef5 | 194 | retval=(retval " " get_links(newurl)) |
fc589c7e | 195 | } else if (lowerodp ~ /href=[ \t]*"[^"]*"/) { |
b5e77f8f | 196 | sub(/[hH][rR][eE][fF]=[ \t]*"/,"href=\"",odp) |
95fcfc77 | 197 | match(odp,/href="[^"]*"/) |
b5e77f8f JB |
198 | link=substr(odp,RSTART,RLENGTH) |
199 | odp=substr(odp,1,RSTART) substr(odp,RSTART+RLENGTH) | |
200 | link=substr(link,7,length(link)-7) | |
201 | retval=(retval " " link) | |
95fcfc77 | 202 | if (DEBUG) print "href(\"\"): " link |
fc589c7e | 203 | } else if (lowerodp ~ /href=[ \t]*'[^']*'/) { |
b5e77f8f | 204 | sub(/[hH][rR][eE][fF]=[ \t]*'/,"href='",odp) |
95fcfc77 | 205 | match(odp,/href='[^']*'/) |
93c3b403 | 206 | link=substr(odp,RSTART,RLENGTH) |
b5e77f8f | 207 | odp=substr(odp,1,RSTART) substr(odp,RSTART+RLENGTH) |
93c3b403 SZ |
208 | link=substr(link,7,length(link)-7) |
209 | retval=(retval " " link) | |
95fcfc77 | 210 | if (DEBUG) print "href(''): " link |
fc589c7e | 211 | } else if (lowerodp ~ /href=[ \t]*[^ \t>]*/) { |
4dde5541 | 212 | sub(/[hH][rR][eE][fF]=[ \t]*/,"href=",odp) |
95fcfc77 | 213 | match(odp,/href=[^ \t>]*/) |
8dfac79d | 214 | link=substr(odp,RSTART,RLENGTH) |
b5e77f8f | 215 | odp=substr(odp,1,RSTART) substr(odp,RSTART+RLENGTH) |
8dfac79d SZ |
216 | link=substr(link,6,length(link)-5) |
217 | retval=(retval " " link) | |
95fcfc77 | 218 | if (DEBUG) print "href(): " link |
6f57d45d | 219 | } else { |
fc589c7e JB |
220 | # <a ...> but not href - skip |
221 | if (DEBUG) print "skipping <a > without href: " odp | |
93c3b403 | 222 | } |
3f63995d SZ |
223 | } |
224 | } else { | |
2e301ef5 | 225 | retval=("WGET ERROR: " errno) |
3f63995d | 226 | } |
f0c5c231 ER |
227 | |
228 | ||
157aa7fc | 229 | if (DEBUG) print "Returning: " retval |
db4f445e | 230 | return retval |
70a5e8d4 SZ |
231 | } |
232 | ||
6fb3305d | 233 | function subst_defines(var,defs) { |
3255b4c7 | 234 | # substitute all possible RPM macros |
6fb3305d SZ |
235 | while ((var ~ /%{.*}/) || (var ~ /%[A-Za-z0-9_]+/)) { |
236 | oldvar=var | |
237 | for (j in defs) { | |
238 | gsub("%{" j "}", defs[j], var) | |
239 | gsub("%" j , defs[j], var) | |
240 | } | |
241 | if (var==oldvar) { | |
242 | if ( DEBUG ) for (i in defs) print i " == " defs[i] | |
243 | return var | |
244 | } | |
245 | } | |
246 | return var | |
247 | } | |
248 | ||
c0bee1bc JK |
249 | function find_mirror(url) { |
250 | ||
c54fbfc1 MK |
251 | while (succ = (getline line < "mirrors")) { |
252 | if (succ==-1) { return url } | |
c0bee1bc | 253 | nf=split(line,fields,"|") |
a6f2cc98 | 254 | if (nf>1){ |
c0bee1bc JK |
255 | origin=fields[1] |
256 | mirror=fields[2] | |
257 | mname=fields[3] | |
258 | prefix=substr(url,1,length(origin)) | |
259 | if (prefix==origin){ | |
157aa7fc | 260 | if ( DEBUG ) print "Mirror fount at " mname |
c0bee1bc | 261 | close("mirrors") |
21b99dbc | 262 | return mirror substr(url,length(origin)+1) |
c0bee1bc JK |
263 | } |
264 | } | |
265 | } | |
266 | ||
267 | return url | |
268 | } | |
269 | ||
32aede2f | 270 | function process_source(number,lurl,name,version) { |
3255b4c7 | 271 | # fetches file list, and compares version numbers |
157aa7fc | 272 | if ( DEBUG ) print "Processing " lurl |
3f63995d SZ |
273 | |
274 | if ( index(lurl,version)==0 ) { | |
157aa7fc | 275 | if (DEBUG) print "There is no version number." |
3f63995d SZ |
276 | return 0 |
277 | } | |
278 | ||
6fb3305d SZ |
279 | sub("://",":",lurl) |
280 | sub("/",":/",lurl) | |
281 | gsub("[^/]*$",":&",lurl) | |
282 | split(lurl,url,":") | |
283 | acc=url[1] | |
284 | host=url[2] | |
285 | dir=url[3] | |
70a5e8d4 SZ |
286 | filename=url[4] |
287 | ||
3f63995d | 288 | if (index(dir,version)) { |
70a5e8d4 SZ |
289 | dir=substr(dir,1,index(dir,version)-1) |
290 | sub("[^/]*$","",dir) | |
291 | sub("(\.tar\.(bz|bz2|gz)|zip)$","",filename) | |
157aa7fc AM |
292 | if ( DEBUG ) print "Will check a directory: " dir |
293 | if ( DEBUG ) print "and a file: " filename | |
70a5e8d4 | 294 | } |
3f63995d | 295 | |
70a5e8d4 SZ |
296 | filenameexp=filename |
297 | gsub("\+","\\+",filenameexp) | |
0269da83 | 298 | sub(version,"[A-Za-z0-9.]+",filenameexp) |
e12bdf15 | 299 | gsub("\.","\\.",filenameexp) |
157aa7fc | 300 | if ( DEBUG ) print "Expression: " filenameexp |
70a5e8d4 SZ |
301 | match(filename,version) |
302 | prever=substr(filename,1,RSTART-1) | |
303 | postver=substr(filename,RSTART+RLENGTH) | |
157aa7fc AM |
304 | if ( DEBUG ) print "Before number: " prever |
305 | if ( DEBUG ) print "and after: " postver | |
f0c5c231 | 306 | newurl=find_mirror(acc "://" host dir) |
c54fbfc1 MK |
307 | #print acc "://" host dir |
308 | #newurl=url[1]"://"url[2]url[3]url[4] | |
309 | #newurl=acc "://" host dir filename | |
f0c5c231 ER |
310 | if ( DEBUG ) print "Looking at " newurl |
311 | ||
6fb3305d | 312 | references=0 |
db83adc3 | 313 | finished=0 |
db4f445e | 314 | oldversion=version |
c0bee1bc | 315 | odp=get_links(newurl) |
3f63995d SZ |
316 | if( odp ~ "ERROR: ") { |
317 | print name "(" number ") " odp | |
188dc51f | 318 | } else { |
157aa7fc | 319 | if (DEBUG) print "WebPage downloaded" |
188dc51f SZ |
320 | c=split(odp,linki) |
321 | for (nr=1; nr<=c; nr++) { | |
322 | addr=linki[nr] | |
157aa7fc | 323 | if (DEBUG) print "Found link: " addr |
3c68e899 | 324 | if ((addr ~ filenameexp) && !(addr ~ "[-_.0-9A-Za-z~]" filenameexp)) { |
188dc51f SZ |
325 | match(addr,filenameexp) |
326 | newfilename=substr(addr,RSTART,RLENGTH) | |
eae5334c | 327 | if (DEBUG) print "Hypothetical new: " newfilename |
2aba2068 SZ |
328 | newfilename=fixedsub(prever,"",newfilename) |
329 | newfilename=fixedsub(postver,"",newfilename) | |
157aa7fc | 330 | if (DEBUG) print "Version: " newfilename |
155ac0a8 | 331 | if (newfilename ~ /\.(pkg|bin|binary|built)$/) continue |
f11b5a76 | 332 | if (NUMERIC) { |
333 | if ( compare_ver_dec(version, newfilename)==1 ) { | |
157aa7fc | 334 | if (DEBUG) print "Yes, there is new one" |
f11b5a76 | 335 | version=newfilename |
336 | finished=1 | |
337 | } | |
338 | } else if ( compare_ver(version, newfilename)==1 ) { | |
157aa7fc | 339 | if (DEBUG) print "Yes, there is new one" |
188dc51f SZ |
340 | version=newfilename |
341 | finished=1 | |
342 | } | |
70a5e8d4 | 343 | } |
6fb3305d | 344 | } |
188dc51f | 345 | if (finished==0) |
f1b8a975 | 346 | print name "(" number ") seems ok: " oldversion |
188dc51f SZ |
347 | else |
348 | print name "(" number ") [OLD] " oldversion " [NEW] " version | |
6fb3305d SZ |
349 | } |
350 | } | |
eae5334c ER |
351 | |
352 | # upgrade check for pear package using PEAR CLI | |
353 | function pear_upgrade(name, ver) { | |
354 | pname = name; | |
355 | sub(/^php-pear-/, "", pname); | |
356 | ||
357 | pearcmd = "pear remote-info " pname " | awk '/^Latest/{print $NF}'" | |
358 | if (DEBUG) { | |
359 | print "pearcmd: " pearcmd | |
360 | } | |
361 | pearcmd | getline nver | |
362 | close(pearcmd) | |
363 | ||
364 | if (compare_ver(ver, nver)) { | |
365 | print name " [OLD] " ver " [NEW] " nver | |
366 | } else { | |
367 | print name " seems ok: " ver | |
368 | } | |
369 | ||
370 | return | |
371 | } | |
f0c5c231 | 372 | |
3255b4c7 | 373 | function process_data(name,ver,rel,src) { |
eae5334c ER |
374 | if (name ~ /^php-pear-/) { |
375 | return pear_upgrade(name, ver); | |
376 | } | |
377 | ||
3255b4c7 SZ |
378 | # this function checks if substitutions were valid, and if true: |
379 | # processes each URL and tries to get current file list | |
6fb3305d SZ |
380 | for (i in src) { |
381 | if ( src[i] !~ /%{.*}/ && src[i] !~ /%[A-Za-z0-9_]/ ) { | |
157aa7fc | 382 | if ( DEBUG ) print "Source: " src[i] |
32aede2f | 383 | process_source(i,src[i],name,ver) |
6fb3305d | 384 | } else { |
c4a1f100 | 385 | print FNAME ":" i ": impossible substitution: " src[i] |
6fb3305d SZ |
386 | } |
387 | } | |
388 | } | |
389 | ||
390 | BEGIN { | |
391 | # if U want to use DEBUG, run script with "-v DEBUG=1" | |
392 | # or uncomment the line below | |
70a5e8d4 | 393 | # DEBUG = 1 |
2e301ef5 SZ |
394 | |
395 | errno=system("wget --help > /dev/null 2>&1") | |
396 | if (errno) { | |
397 | print "No wget installed!" | |
398 | exit 1 | |
399 | } | |
f11b5a76 | 400 | if (ARGC>=3 && ARGV[2]=="-n") { |
401 | NUMERIC=1 | |
f0c5c231 | 402 | for (i=3; i<ARGC; i++) ARGV[i-1]=ARGV[i] |
f11b5a76 | 403 | ARGC=ARGC-1 |
404 | } | |
6fb3305d SZ |
405 | } |
406 | ||
407 | FNR==1 { | |
408 | if ( ARGIND != 1 ) { | |
3255b4c7 | 409 | process_data(NAME,VER,REL,SRC) |
6fb3305d SZ |
410 | NAME="" ; VER="" ; REL="" |
411 | for (i in DEFS) delete DEFS[i] | |
412 | for (i in SRC) delete SRC[i] | |
413 | } | |
414 | FNAME=FILENAME | |
415 | } | |
416 | ||
3255b4c7 | 417 | /^[Uu][Rr][Ll]:/&&(URL=="") { URL=subst_defines($2,DEFS) ; DEFS["url"]=URL } |
6fb3305d SZ |
418 | /^[Nn]ame:/&&(NAME=="") { NAME=subst_defines($2,DEFS) ; DEFS["name"]=NAME } |
419 | /^[Vv]ersion:/&&(VER=="") { VER=subst_defines($2,DEFS) ; DEFS["version"]=VER } | |
420 | /^[Rr]elease:/&&(REL=="") { REL=subst_defines($2,DEFS) ; DEFS["release"]=REL } | |
421 | /^[Ss]ource[0-9]*:/ { if (/(ftp|http):\/\//) SRC[FNR]=subst_defines($2,DEFS) } | |
422 | /%define/ { DEFS[$2]=subst_defines($3,DEFS) } | |
423 | ||
424 | END { | |
3255b4c7 | 425 | process_data(NAME,VER,REL,SRC) |
6fb3305d | 426 | } |