#!/usr/bin/perl -w
use strict;
use warnings;
use GPS::DATES;
use GOA::StaRcvr;
my $usage = qq{
	Usage : log2sta_rcvr site [agency]
	site   : 4 char. site name
	agency : unavco,sopac,cors,panga,igscb (default: unavco)
};

my $site = lc shift || die "$usage";

my $agency = shift || "unavco";

my $SITE = uc $site;

my ($year, $mon, $mday, %recv); 
my ($idate,$rdate,$receiver,$serial,$firmware);
my $today = get_date( 'today', 'cal');
#agency : unavco,sopac,cors,panga,igscb (default: unavco)

my @output = `parse_log -s $site -a $agency \\
                        -section receiver \\
                        -field date,serial,firmware 2> /dev/null \\
                        | sed 's/^3.//' |sort -n`;
                        
my $rcvr = GOA::StaRcvr->new( );
my %hr = ();
foreach my $c ( @output ) {
	chomp($c);
	$c =~ s/\s+/ /g;
	my ($key,$field,$value)=split(/\:/,$c);
	$field = lc(trim($field));
	$value = uc(trim($value));
	#print "$field $value |$c|\n";	
	if ( $field =~ /receiver type/ ) {
        $hr{receiver} = $value;
    }
	if ( $field =~ /date installed/ ) {
        $hr{date} = get_date($value,'cal');
        $hr{sta} = $site ;
    }
	if ( $field =~ /firmware version/ ) {
        $hr{firmware} = $value;
    }
 	if ( $field =~ /serial number/ ) {
        $hr{sn} = $value;
        $hr{comment} = "|$today | from $agency site-log|";
        $rcvr->add( %hr );
        %hr=();
    }

};

$rcvr->print( );
sub trim {
    my $str = shift;
    $str =~ s/^\s+//;
    $str=~ s/\s+$//;
    return $str
}


