SPECS: pldnotify.awk - PEAR package version checks

glen glen at pld-linux.org
Sat Oct 15 14:50:34 CEST 2005


Author: glen                         Date: Sat Oct 15 12:50:34 2005 GMT
Module: SPECS                         Tag: HEAD
---- Log message:
- PEAR package version checks

---- Files affected:
SPECS:
   pldnotify.awk (1.51 -> 1.52) 

---- Diffs:

================================================================
Index: SPECS/pldnotify.awk
diff -u SPECS/pldnotify.awk:1.51 SPECS/pldnotify.awk:1.52
--- SPECS/pldnotify.awk:1.51	Wed May  4 23:11:05 2005
+++ SPECS/pldnotify.awk	Sat Oct 15 14:50:29 2005
@@ -309,7 +309,7 @@
 			if ((addr ~ filenameexp) && !(addr ~ "[-_.0-9A-Za-z~]" filenameexp)) {
 				match(addr,filenameexp)
 				newfilename=substr(addr,RSTART,RLENGTH)
-				if (DEBUG) print "Hipotetical new: " newfilename
+				if (DEBUG) print "Hypothetical new: " newfilename
 				newfilename=fixedsub(prever,"",newfilename)
 				newfilename=fixedsub(postver,"",newfilename)
 				if (DEBUG) print "Version: " newfilename
@@ -333,8 +333,33 @@
 			print name "(" number ") [OLD] " oldversion " [NEW] " version
 	}
 }
+
+# upgrade check for pear package using PEAR CLI
+function pear_upgrade(name, ver) {
+	pname = name;
+	sub(/^php-pear-/, "", pname);
+
+	pearcmd = "pear remote-info " pname " | awk '/^Latest/{print $NF}'"
+	if (DEBUG) {
+		print "pearcmd: " pearcmd
+	}
+	pearcmd | getline nver
+	close(pearcmd)
+
+	if (compare_ver(ver, nver)) {
+		print name " [OLD] " ver " [NEW] " nver
+	} else {
+		print name " seems ok: " ver
+	}
+
+	return
+}
 	
 function process_data(name,ver,rel,src) {
+	if (name ~ /^php-pear-/) {
+		return pear_upgrade(name, ver);
+	}
+
 # this function checks if substitutions were valid, and if true:
 # processes each URL and tries to get current file list
 	for (i in src) {
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/SPECS/pldnotify.awk?r1=1.51&r2=1.52&f=u




More information about the pld-cvs-commit mailing list