pld-ftp-admin: wwwbin/qa.php - colorize and link to gitweb

[glen]

Author: glen                         Date: Fri Apr  5 14:09:21 2013 GMT
Module: pld-ftp-admin                 Tag: HEAD
---- Log message:
- colorize and link to gitweb

---- Files affected:
pld-ftp-admin/wwwbin:
   qa.php (1.1 -> 1.2) 

---- Diffs:

================================================================
Index: pld-ftp-admin/wwwbin/qa.php
diff -u pld-ftp-admin/wwwbin/qa.php:1.1 pld-ftp-admin/wwwbin/qa.php:1.2
--- pld-ftp-admin/wwwbin/qa.php:1.1	Fri Apr  5 16:08:46 2013
+++ pld-ftp-admin/wwwbin/qa.php	Fri Apr  5 16:09:16 2013
@@ -38,11 +38,19 @@
 foreach ($reports as $q => $title) {
 	printf("<option value=%s %s>%s</option>\n", $q, $q == $report ? 'selected' :'',  $title);
 }
-echo "</select>\n";
+echo "</select><br/>\n";
 
 if (isset($reports[$report])) {
 	$file = "$report.txt";
-	echo "<pre>", file_get_contents($file), "</pre>";
+	$giturl = 'http://git.pld-linux.org/gitweb.cgi?p=packages/%1$s.git;f=%1$s.spec;h=HEAD;a=shortlog';
+	foreach (file($file) as $line) {
+		$line = preg_replace_callback('/^(?P<prefix>error:)\s*\[(?P<spec>[^]]+)\]\s*(?P<msg>.+)$/', function($m) use ($giturl) {
+			$package = basename($m['spec'], '.spec');
+			$url = sprintf($giturl, $package);
+			return sprintf('<font color=red>%s</font> [<a href="%s">%s</a>] %s', $m['prefix'], $url, $m['spec'], $m['msg']);
+		}, $line);
+		echo $line, "<br/>\n";
+	}
 }
 
 ?>
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/pld-ftp-admin/wwwbin/qa.php?r1=1.1&r2=1.2