- while (("lynx --dump " acc "://" host dir) | getline result) {
- if (result ~ "References") references=1
- if ((result ~ "[0-9]+\. (ftp|http)://")&&(references==1)) {
- split(result,links)
- addr=links[2]
- if (DEBUG) print "Znaleziony link: " addr
- if (addr ~ filenameexp) {
- match(addr,filenameexp)
- newfilename=substr(addr,RSTART,RLENGTH)
- if (DEBUG) print "Hipotetyczny nowy: " newfilename
- sub(prever,"",newfilename)
- sub(postver,"",newfilename)
- if (DEBUG) print "Wersja: " newfilename
- if ( compare_ver(version, newfilename)==1 ) {
- if (DEBUG) print "Tak, jest nowa"
- print name " : [OLD] " version " [NEW] " newfilename
- finished=1
- }
+ oldversion=version
+ if (acc=="http")
+ odp=get_http_links(host,dir,80)
+ else {
+ odp=get_ftp_links(host,dir,21)
+ }
+ c=split(odp,linki)
+ for (nr=1; nr<=c; nr++) {
+ addr=linki[nr]
+ if (DEBUG) print "Znaleziony link: " addr
+ if (addr ~ filenameexp) {
+ match(addr,filenameexp)
+ newfilename=substr(addr,RSTART,RLENGTH)
+ if (DEBUG) print "Hipotetyczny nowy: " newfilename
+ sub(prever,"",newfilename)
+ sub(postver,"",newfilename)
+ if (DEBUG) print "Wersja: " newfilename
+ if ( compare_ver(version, newfilename)==1 ) {
+ if (DEBUG) print "Tak, jest nowa"
+ version=newfilename
+ finished=1