From 523817239799733c15b900506ad57c5fc87c29de Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 19 Nov 2011 19:55:37 +0100
Subject: sanitize platform number, add platform_db accessor

---
 bin/efa-m | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'bin/efa-m')

diff --git a/bin/efa-m b/bin/efa-m
index a6b8bec..66694c6 100755
--- a/bin/efa-m
+++ b/bin/efa-m
@@ -105,17 +105,23 @@ if ( my $err = $status->errstr ) {
 
 for my $d ( $status->results ) {
 
+	my $platform = $d->platform;
+
+	if ( $d->platform_db ) {
+		$platform .= ' (DB)';
+	}
+
 	if (
 		( @grep_lines and not( $d->line ~~ \@grep_lines ) )
 		or ( @grep_platforms
-			and not( substr( $d->platform, 6 ) ~~ \@grep_platforms ) )
+			and not( $platform ~~ \@grep_platforms ) )
 	  )
 	{
 		next;
 	}
 
 	push( @output,
-		[ $d->time, $d->platform, $d->line, $d->destination, $d->info ] );
+		[ $d->time, $platform, $d->line, $d->destination, $d->info ] );
 }
 
 display_result(@output);
-- 
cgit v1.2.3