#!/usr/bin/perl -w
# Filename : client.pl

use strict;
use IO::Socket;

my $recv_data;
my $line2;
my $datestring;
my $ICAO;
my $filename = '/home/fred/report.txt';
my $dbfile = '/home/fred/perladsb/adsb.db';
my $find;


my $socket = new IO::Socket::INET (
    PeerAddr  => '127.0.0.1',
    PeerPort  =>  30002,
    Proto => 'tcp',
)
or die "Couldn't connect to Server\n";

while (1) {
        $socket->recv($recv_data,17);
        #print $recv_data."\n";
	if ($recv_data =~ /^\*..AE/ or $recv_data =~ /^\*..016/ or $recv_data =~ /^\*..777/ or $recv_data =~ /^\*..B/ or $recv_data =~ /^\*..ADFC/ or $recv_data =~ /^\*..ADFD/ or $recv_data =~ /^\*..ADFE/ or $recv_data =~ /^\*..ADFF/) {
	# print "Data ->$recv_data \n";
	$line2 = substr($recv_data, 0, -8);
	$datestring = localtime();
        $ICAO = substr($line2, 3);
# Do Database Lookup Here
$find = "";
open(FILE, $dbfile) or die "Can't read file 1\n";
my @lines = <FILE>;
for (@lines) {
    if ($_ =~ /$ICAO/) {
        $find = $_;
    }
}
close FILE;
if ($find eq "") {
        $find = "$ICAO\n";
}	
open(my $fh, '>>', $filename) or die "Could not open file '$filename' $!";
print $fh "$datestring $find";
close $fh;	
 sleep 10;	
}       
}