diff options
| author | Björn Stenberg <bjorn@haxx.se> | 2006-10-29 09:28:51 +0000 |
|---|---|---|
| committer | Björn Stenberg <bjorn@haxx.se> | 2006-10-29 09:28:51 +0000 |
| commit | 21c37b912a7bce2207d047ed6938ae82f3939019 (patch) | |
| tree | 756679adea2d428054d80704303ac511a09828e6 | |
| parent | c4a0d45d36cf093425146c93c25c8f97df87a854 (diff) | |
the showlog script
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@11378 a1c6a512-1295-4272-9138-f99709370657
| -rwxr-xr-x | www/showlog.cgi | 124 |
1 files changed, 124 insertions, 0 deletions
diff --git a/www/showlog.cgi b/www/showlog.cgi new file mode 100755 index 0000000000..06ef35154d --- /dev/null +++ b/www/showlog.cgi @@ -0,0 +1,124 @@ +#!/usr/bin/perl + +require "CGI.pm"; + +$req = new CGI; + +$date = $req->param('date'); +$type = $req->param('type'); + +print "Content-Type: text/html\n\n"; + +print <<MOO +<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> + +<html> +<head> +<link rel="STYLESHEET" type="text/css" href="/style.css"> +<title>Rockbox: $type $date</title> +<meta name="author" content="Daniel Stenberg, in perl"> +</head> +<body bgcolor="#b6c6e5" text="black" link="blue" vlink="purple" alink="red" + topmargin=3 leftmargin=4 marginwidth=4 marginheight=4> +MOO + ; + + +print "<h1>$date, $type</h1>\n"; + +my @o; +my $prob; +my $lserver; +my $buildtime; + +if($date =~ /(....)-(..)-(..)/) { + my $file = "allbuilds-$1$2$3"; + + open(LOG, "</home/dast/rockbox-distbuild/output/$file"); + while(<LOG>) { + if($_ =~ /^Build Server: (.*)/) { + $lserver = $1; + } + if($_ =~ /^Build Time: (.*)/) { + $buildtime = $1; + } + if( $_ =~ /^Build Date: (.*)/) { + if($date eq $1) { + $match++; + } + else { + $match=0; + } + } + elsif( $_ =~ /^Build Type: (.*)/) { + if($type eq $1) { + $match++; + } + else { + $match=0; + } + } + elsif(($match == 2) && + ($_ =~ /^Build Log Start/)) { + $match++; + push @o, "<div class=\"gccoutput\">"; + } + elsif($match == 3) { + if($_ =~ /^Build Log End/) { + $match=0; + } + else { + my $class=""; + $_ =~ s:/home/dast/rockbox-auto/::g; + $line = $_; + chomp $line; + + if($lserver) { + push @o, "Built on <b>$lserver</b> in $buildtime seconds<br>"; + $lserver=""; + } + + if($line =~ /^([^:]*):(\d*):.*warning:/) { + $prob++; + push @o, "<a name=\"prob$prob\"></a>\n"; + push @o, "<div class=\"gccwarn\">$line</div>\n"; + } + elsif($line =~ /^([^:]*):(\d+):/) { + $prob++; + push @o, "<a name=\"prob$prob\"></a>\n"; + push @o, "<div class=\"gccerror\">$line</div>\n"; + } + elsif($line =~ /(: undefined reference to|ld returned (\d+) exit status|gcc: .*: No such file or)/) { + $prob++; + push @o, "<a name=\"prob$prob\"></a>\n"; + push @o, "<div class=\"gccerror\">$line</div>\n"; + } + else { + push @o, "$line\n<br>\n"; + } + } + } + } + close(LOG); + + if($prob) { + print "Goto problem: "; + my $p; + foreach $p (1 .. $prob) { + print "<a href=\"#prob$p\">$p</a>\n"; + if($p == 5) { + last; + } + } + if($prob > 5 ) { + print "... <a href=\"#prob$prob\">last</a>\n"; + } + + print "<p>\n"; + } + + print @o; + + print "</div></body></html>\n"; + +} |