return 0
}
-function get_links(url, errno,link,oneline,retval,odp,wholeodp,lowerodp,tmpfile) {
+function get_links(url,filename,errno,link,oneline,retval,odp,wholeodp,lowerodp,tmpfile) {
# get all <A HREF=..> tags from specified URL
"mktemp /tmp/XXXXXX" | getline tmpfile
close("mktemp /tmp/XXXXXX")
if (DEBUG) print "googlecode url, mungled url to: " url
}
+ if (url ~ /^http:\/\/pecl.php.net\/get\//) {
+ gsub("-.*", "", filename)
+ url = "http://pecl.php.net/package/" filename
+ if (DEBUG) print "pecl.php.net url, mungled url to: " url
+ }
+
if (DEBUG) print "Retrieving: " url
errno=system("wget -O - \"" url "\" -t 3 -T 300 --passive-ftp > " tmpfile " 2>/dev/null" )
references=0
finished=0
oldversion=version
- odp=get_links(newurl)
+ odp=get_links(newurl,filename)
if( odp ~ "ERROR: ") {
print name "(" number ") " odp
} else {