From 6d4c19707ef95942e323cbdc89fbbfdbe45e7cc5 Mon Sep 17 00:00:00 2001 From: Björn Stenberg Date: Mon, 8 Jan 2007 23:52:01 +0000 Subject: Splitting out www git-svn-id: svn://svn.rockbox.org/rockbox/trunk@11952 a1c6a512-1295-4272-9138-f99709370657 --- www/showlog.cgi | 124 -------------------------------------------------------- 1 file changed, 124 deletions(-) delete mode 100755 www/showlog.cgi (limited to 'www/showlog.cgi') diff --git a/www/showlog.cgi b/www/showlog.cgi deleted file mode 100755 index 06ef35154d..0000000000 --- a/www/showlog.cgi +++ /dev/null @@ -1,124 +0,0 @@ -#!/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 < - - - - -Rockbox: $type $date - - - -MOO - ; - - -print "

$date, $type

\n"; - -my @o; -my $prob; -my $lserver; -my $buildtime; - -if($date =~ /(....)-(..)-(..)/) { - my $file = "allbuilds-$1$2$3"; - - open(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, "

"; - } - 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 $lserver in $buildtime seconds
"; - $lserver=""; - } - - if($line =~ /^([^:]*):(\d*):.*warning:/) { - $prob++; - push @o, "\n"; - push @o, "

$line

\n"; - } - elsif($line =~ /^([^:]*):(\d+):/) { - $prob++; - push @o, "\n"; - push @o, "

$line

\n"; - } - elsif($line =~ /(: undefined reference to|ld returned (\d+) exit status|gcc: .*: No such file or)/) { - $prob++; - push @o, "\n"; - push @o, "

$line

\n"; - } - else { - push @o, "$line\n
\n"; - } - } - } - } - close(LOG); - - if($prob) { - print "Goto problem: "; - my $p; - foreach $p (1 .. $prob) { - print "$p\n"; - if($p == 5) { - last; - } - } - if($prob > 5 ) { - print "... last\n"; - } - - print "

\n"; - } - - print @o; - - print "

\n"; - -} -- cgit v1.2.3