#!/usr/pkg/bin/perl
print <<EOH;
ADIF Export from N1MM Logger V8.0.0
  C:\\Program Files\\N1MM logger\\N1MM Logger.exe 
2008/05/23 21:37:40
JA1XMS logs generated @ 2008-11-28 00:00:00Z
Contest Name: CQWWCW - 2008-11-28
<EOH>
EOH

while(<DATA>) {
    chomp();
($call,$freq,$gmt,$zone) = split ',', $_;
if    ( $freq <  350000 ) { $band = '160M';}
elsif ( $freq <  700000 ) { $band =  '80M';}
elsif ( $freq < 1400000 ) { $band =  '40M';}
elsif ( $freq < 2100000 ) { $band =  '20M';}
elsif ( $freq < 2800000 ) { $band =  '15M';}
elsif ( $freq < 3000000 ) { $band =  '10M';}

$freq = sprintf("%8.5f", $freq/100000);
$mult = '';
if ( $MULT{"$band $zone"} == 0) {
    $mult = $zone;
    $MULT{"$band $zone"}++;
}
$call =~ s/ //g;
$len  =length($call);
## print $call, ' ', $band, ' ', $freq, ' ', $zone, ' ', $mult,"\n";
if ($gmt < 300 ) {$date = 1129;}
else             {$date = 1128;}

print 
'<CALL:',$len,'>',$call,
'<QSO_DATE:8>2008',$date,
'<TIME_ON:6>',$gmt,'00',
'<BAND:4>',$band,
'<FREQ_RX:8>',$freq,
'<CONTEST_ID:6>CQWWCW',
'<FREQ:8>',$freq,
'<MODE:2>CW' ,
'<RST_RCVD:3>599' ,
'<RST_SENT:3>599' ,
'<OPERATOR:6>JA1XMS',
'<CQZ:2>',$zone,
'<STX:0>',
'<APP_N1MM_POINTS:0>',
'<APP_N1MM_RADIO_NR:0>',
'<APP_N1MM_CONTACTTYPE:0>',
'<APP_N1MM_RUN1RUN2:0>',
'<EOR>',
"\n";
    ;

}
__END__
 YB4MM,  2106600,0540,28
 BU2AC,  2102300,0542,24
 H44MY,  2104860,0546,28
 KG6DX,  2100598,0548,27