Adding multi-line support.

webtools/tinderbox/showbuilds.cgi

@@ -409,18 +409,15 @@ BEGIN {
 
       # Scrape data
       if (defined $td->{scrape}{$logfile}) {
-        my ($scrape_data)
+        my (@scrape_data)
             = @{ $td->{scrape}{$logfile} };
         # ex: Tp:5.45s
-        print sprintf "<br>$scrape_data";
+        my $i;
+        foreach $i (@scrape_data) {
+          print "<br>$i";
+        }
       }
 
-      # Scrape data
-      #if (defined $td->{scrape}{$logfile}) {
-      #  my @scrape_data = @{$td->{scrape}{$logfile}};
-      #  print "<br>@scrape_data[0],@scrape_data[1]";
-      #}
-
       # Warnings
       if (defined $td->{warnings}{$logfile}) {
         my ($warning_count) = $td->{warnings}{$logfile};

webtools/tinderbox/tbglobals.pl

@@ -482,9 +482,11 @@ sub load_scrape {
   open(BLOATLOG, "<$treedata->{name}/scrape.dat");
   while (<BLOATLOG>) {
     chomp;
-    my ($logfile, $scrape_data) = split /\|/;
+    my @list =  split /\|/;
+    my $logfile = @list[0];
+    shift(@list);
 
-    $scrape->{$logfile} = [ $scrape_data ];
+    $scrape->{$logfile} = [ @list ];
   }
   return $scrape;
 }