[packages/rpm-build-tools.git] / pldnotify.awk

#!/bin/awk -f
# $Revision$, $Date$

function compare_ver(v1,v2) {
# compares version numbers
	while (match(v1,/[a-zA-Z][0-9]|[0-9][a-zA-Z]/))
		v1=(substr(v1,1,RSTART) "." substr(v1,RSTART+RLENGTH-1))
	while (match(v2,/[a-zA-Z][0-9]|[0-9][a-zA-Z]/))
		v2=(substr(v2,1,RSTART) "." substr(v2,RSTART+RLENGTH-1))
	sub("^0*","",v1)
	sub("^0*","",v2)
	if (DEBUG) print "v1 == " v1
	if (DEBUG) print "v2 == " v2
	count=split(v1,v1a,"\.")
	count2=split(v2,v2a,"\.")
	
	if (count<count2) mincount=count 
	else mincount=count2
	
	for (i=1; i<=mincount; i++) {
		if (v1a[i]=="") v1a[i]=0
		if (v2a[i]=="") v2a[i]=0
		if (DEBUG) print "i == " i
		if (DEBUG) print "v1[i] == " v1a[i]
		if (DEBUG) print "v2[i] == " v2a[i]
		if ((v1a[i]~/[0-9]/)&&(v2a[i]~/[0-9]/)) {
			if (length(v2a[i])>length(v1a[i]))
				return 1
			else if (v2a[i]>v1a[i])
				return 1
			else if (length(v1a[i])>length(v2a[i]))
				return 0
			else if (v1a[i]>v2a[i])
				return 0
		} else if ((v1a[i]~/[A-Za-z]/)&&(v2a[i]~/[A-Za-z]/)) {
			if (v2a[i]>v1a[i])
				return 1
			else if (v1a[i]>v2a[i])
				return 0
		} else if ((v1a[i]~"pre")||(v1a[i]~"beta")||(v1a[i]~"^b$"))
			return 1
		else
			return 0
	}
	if ((count2==mincount)&&(count!=count2)) {
		for (i=count2+1; i<=count; i++)
			if ((v1a[i]~"pre")||(v1a[i]~"beta")||(v1a[i]~"^b$")) 
				return 1
		return 0
	} else if (count!=count2) {
		for (i=count+1; i<=count2; i++)
			if ((v2a[i]~"pre")||(v2a[i]~"beta")||(v2a[i]~"^b$"))
				return 0
		return 1
	}
	return 0
}

function get_http_links(host,dir,port,	errno,link,oneline,retval,odp,tmpfile) {
# get all <A HREF=..> tags from specified URL
	"mktemp /tmp/XXXXXX" | getline tmpfile
	close("mktemp /tmp/XXXXXX")
	errno=system("echo -e \"GET " dir "\\n\" | nc " host " " port " | tr -d '\\r' > " tmpfile )
	
	if (errno==0) {
		getline oneline < tmpfile
		if ( oneline ~ "200" ) {
			while (getline oneline < tmpfile)
				odp=(odp " " oneline)
			if ( DEBUG ) print "Odpowiedz: " odp
		} else {
			match(oneline,"[0-9][0-9][0-9]")
			errno=substr(oneline,RSTART,RLENGTH)
		}
	}
		
	close(tmpfile)
		
	if ( errno==0) {
		while (tolower(odp) ~ /href=/) {
			match(tolower(odp),/href="[^"]+"/)
			link=substr(odp,RSTART,RLENGTH)
			odp=substr(odp,RSTART+RLENGTH)
			link=substr(link,7,length(link)-7)
			retval=(retval " " link)
		}
	} else {
		retval=("HTTP ERROR: " errno)
	}
	
	system("rm -f " tmpfile)
	
	if (DEBUG) print "Zwracane: " retval
	return retval
}

function get_ftp_links(host,dir,port,	tmpfile,link,retval) {
	"mktemp /tmp/XXXXXX" | getline tmpfile
	close("mktemp /tmp/XXXXXX")
	
	errno=system("export PLIKTMP=\"" tmpfile "\" FTP_DIR=\"" dir "\" FTP_PASS=\"pldnotifier@pld.org.pl\" FTP_USERNAME=\"anonymous\" FTP_HOST=\"" host "\" DEBUG=\"" DEBUG "\" ; nc -e \"./ftplinks.sh\" " host " " port)
	
	if (errno==0) {
		while (getline link < tmpfile)
			retval=(retval " " link)
		close(tmpfile)
	} else {
		retval=("FTP ERROR: " errno)
	}

	system("rm -f " tmpfile)
	
	if (DEBUG) print "Zwracane: " retval
	return retval
}

function subst_defines(var,defs) {
# substitute all possible RPM macros
	while ((var ~ /%{.*}/) || (var ~ /%[A-Za-z0-9_]+/)) {
		oldvar=var
		for (j in defs) {
			gsub("%{" j "}", defs[j], var)
			gsub("%" j , defs[j], var)
		}
		if (var==oldvar) {
			if ( DEBUG ) for (i in defs) print i " == " defs[i]
			return var
		}
	}
	return var
}

function process_source(number,lurl,name,version) {
# fetches file list, and compares version numbers
	if ( DEBUG ) print "Przetwarzam " lurl

	if ( index(lurl,version)==0 ) {
		if (DEBUG) print "Nie ma numeru wersji."
		return 0
	}

	sub("://",":",lurl)
	sub("/",":/",lurl)
	gsub("[^/]*$",":&",lurl)
	split(lurl,url,":")
	acc=url[1]
	host=url[2]
	dir=url[3]
	filename=url[4]

	if (index(dir,version)) {
		dir=substr(dir,1,index(dir,version)-1)
		sub("[^/]*$","",dir)
		sub("(\.tar\.(bz|bz2|gz)|zip)$","",filename)
		if ( DEBUG ) print "Sprawdze katalog: " dir
		if ( DEBUG ) print "i plik: " filename
	}

	filenameexp=filename
	gsub("\+","\\+",filenameexp)
	sub(version,"[A-Za-z0-9\\.]+",filenameexp)
	if ( DEBUG ) print "Wzorzec: " filenameexp
	match(filename,version)
	prever=substr(filename,1,RSTART-1)
	postver=substr(filename,RSTART+RLENGTH)
	if ( DEBUG ) print "Przed numerkiem: " prever
	if ( DEBUG ) print "i po: " postver
Commit	Line	Data
6fb3305d	1	#!/bin/awk -f
d4089f30	2	# $Revision$, $Date$
6fb3305d	3
70a5e8d4 SZ	4	function compare_ver(v1,v2) {
	5	# compares version numbers
	6	while (match(v1,/[a-zA-Z][0-9]\|[0-9][a-zA-Z]/))
	7	v1=(substr(v1,1,RSTART) "." substr(v1,RSTART+RLENGTH-1))
	8	while (match(v2,/[a-zA-Z][0-9]\|[0-9][a-zA-Z]/))
	9	v2=(substr(v2,1,RSTART) "." substr(v2,RSTART+RLENGTH-1))
	10	sub("^0*","",v1)
	11	sub("^0*","",v2)
	12	if (DEBUG) print "v1 == " v1
	13	if (DEBUG) print "v2 == " v2
	14	count=split(v1,v1a,"\.")
	15	count2=split(v2,v2a,"\.")
	16
	17	if (count<count2) mincount=count
	18	else mincount=count2
	19
	20	for (i=1; i<=mincount; i++) {
db83adc3 SZ	21	if (v1a[i]=="") v1a[i]=0
db83adc3 SZ	22	if (v2a[i]=="") v2a[i]=0
70a5e8d4 SZ	23	if (DEBUG) print "i == " i
	24	if (DEBUG) print "v1[i] == " v1a[i]
	25	if (DEBUG) print "v2[i] == " v2a[i]
	26	if ((v1a[i]~/[0-9]/)&&(v2a[i]~/[0-9]/)) {
	27	if (length(v2a[i])>length(v1a[i]))
	28	return 1
	29	else if (v2a[i]>v1a[i])
	30	return 1
	31	else if (length(v1a[i])>length(v2a[i]))
	32	return 0
	33	else if (v1a[i]>v2a[i])
	34	return 0
	35	} else if ((v1a[i]~/[A-Za-z]/)&&(v2a[i]~/[A-Za-z]/)) {
	36	if (v2a[i]>v1a[i])
	37	return 1
	38	else if (v1a[i]>v2a[i])
	39	return 0
	40	} else if ((v1a[i]~"pre")\|\|(v1a[i]~"beta")\|\|(v1a[i]~"^b$"))
	41	return 1
	42	else
	43	return 0
	44	}
	45	if ((count2==mincount)&&(count!=count2)) {
	46	for (i=count2+1; i<=count; i++)
	47	if ((v1a[i]~"pre")\|\|(v1a[i]~"beta")\|\|(v1a[i]~"^b$"))
	48	return 1
	49	return 0
	50	} else if (count!=count2) {
	51	for (i=count+1; i<=count2; i++)
	52	if ((v2a[i]~"pre")\|\|(v2a[i]~"beta")\|\|(v2a[i]~"^b$"))
	53	return 0
	54	return 1
	55	}
db4f445e	56	return 0
70a5e8d4 SZ	57	}
70a5e8d4 SZ	58
3f63995d	59	function get_http_links(host,dir,port, errno,link,oneline,retval,odp,tmpfile) {
70a5e8d4	60	# get all <A HREF=..> tags from specified URL
db4f445e SZ	61	"mktemp /tmp/XXXXXX" \| getline tmpfile
db4f445e SZ	62	close("mktemp /tmp/XXXXXX")
acaf36f8	63	errno=system("echo -e \"GET " dir "\\n\" \| nc " host " " port " \| tr -d '\\r' > " tmpfile )
70a5e8d4	64
3f63995d SZ	65	if (errno==0) {
	66	getline oneline < tmpfile
	67	if ( oneline ~ "200" ) {
	68	while (getline oneline < tmpfile)
	69	odp=(odp " " oneline)
	70	if ( DEBUG ) print "Odpowiedz: " odp
	71	} else {
	72	match(oneline,"[0-9][0-9][0-9]")
	73	errno=substr(oneline,RSTART,RLENGTH)
	74	}
70a5e8d4	75	}
3f63995d SZ	76
	77	close(tmpfile)
	78
	79	if ( errno==0) {
	80	while (tolower(odp) ~ /href=/) {
	81	match(tolower(odp),/href="[^"]+"/)
	82	link=substr(odp,RSTART,RLENGTH)
	83	odp=substr(odp,RSTART+RLENGTH)
	84	link=substr(link,7,length(link)-7)
	85	retval=(retval " " link)
	86	}
	87	} else {
	88	retval=("HTTP ERROR: " errno)
	89	}
	90
db4f445e	91	system("rm -f " tmpfile)
70a5e8d4	92
3f63995d	93	if (DEBUG) print "Zwracane: " retval
db4f445e SZ	94	return retval
	95	}
	96
3f63995d	97	function get_ftp_links(host,dir,port, tmpfile,link,retval) {
db4f445e SZ	98	"mktemp /tmp/XXXXXX" \| getline tmpfile
	99	close("mktemp /tmp/XXXXXX")
	100
12a4ed2f	101	errno=system("export PLIKTMP=\"" tmpfile "\" FTP_DIR=\"" dir "\" FTP_PASS=\"pldnotifier@pld.org.pl\" FTP_USERNAME=\"anonymous\" FTP_HOST=\"" host "\" DEBUG=\"" DEBUG "\" ; nc -e \"./ftplinks.sh\" " host " " port)
db4f445e	102
188dc51f SZ	103	if (errno==0) {
	104	while (getline link < tmpfile)
	105	retval=(retval " " link)
3f63995d SZ	106	close(tmpfile)
	107	} else {
	108	retval=("FTP ERROR: " errno)
	109	}
188dc51f	110
db4f445e SZ	111	system("rm -f " tmpfile)
db4f445e SZ	112
3f63995d	113	if (DEBUG) print "Zwracane: " retval
db4f445e	114	return retval
70a5e8d4 SZ	115	}
70a5e8d4 SZ	116
6fb3305d	117	function subst_defines(var,defs) {
3255b4c7	118	# substitute all possible RPM macros
6fb3305d SZ	119	while ((var ~ /%{.*}/) \|\| (var ~ /%[A-Za-z0-9_]+/)) {
	120	oldvar=var
	121	for (j in defs) {
	122	gsub("%{" j "}", defs[j], var)
	123	gsub("%" j , defs[j], var)
	124	}
	125	if (var==oldvar) {
	126	if ( DEBUG ) for (i in defs) print i " == " defs[i]
	127	return var
	128	}
	129	}
	130	return var
	131	}
	132
32aede2f	133	function process_source(number,lurl,name,version) {
3255b4c7 SZ	134	# fetches file list, and compares version numbers
3255b4c7 SZ	135	if ( DEBUG ) print "Przetwarzam " lurl
3f63995d SZ	136
	137	if ( index(lurl,version)==0 ) {
	138	if (DEBUG) print "Nie ma numeru wersji."
	139	return 0
	140	}
	141
6fb3305d SZ	142	sub("://",":",lurl)
	143	sub("/",":/",lurl)
	144	gsub("[^/]*$",":&",lurl)
	145	split(lurl,url,":")
	146	acc=url[1]
	147	host=url[2]
	148	dir=url[3]
70a5e8d4 SZ	149	filename=url[4]
70a5e8d4 SZ	150
3f63995d	151	if (index(dir,version)) {
70a5e8d4 SZ	152	dir=substr(dir,1,index(dir,version)-1)
	153	sub("[^/]*$","",dir)
	154	sub("(\.tar\.(bz\|bz2\|gz)\|zip)$","",filename)
	155	if ( DEBUG ) print "Sprawdze katalog: " dir
	156	if ( DEBUG ) print "i plik: " filename
	157	}
3f63995d	158
70a5e8d4 SZ	159	filenameexp=filename
	160	gsub("\+","\\+",filenameexp)
	161	sub(version,"[A-Za-z0-9\\.]+",filenameexp)
	162	if ( DEBUG ) print "Wzorzec: " filenameexp
	163	match(filename,version)
	164	prever=substr(filename,1,RSTART-1)
	165	postver=substr(filename,RSTART+RLENGTH)
	166	if ( DEBUG ) print "Przed numerkiem: " prever
	167	if ( DEBUG ) print "i po: " postver
	168
3f63995d	169