55 lines
1.3 KiB
Perl
Executable File
55 lines
1.3 KiB
Perl
Executable File
#!/bin/perl
|
|
|
|
$First = 1;
|
|
|
|
printf("[\n");
|
|
|
|
while(<STDIN>)
|
|
{
|
|
if(/^(.*)\|(.*)\|(.*)\|(\S*)\|(\S+)\s*$/)
|
|
{
|
|
$Name = $1;
|
|
$Text1 = $2;
|
|
$Text2 = $3;
|
|
$Freq = $4;
|
|
$Mod = $5;
|
|
|
|
if(($Name ne "") && ($Freq ne "") && ($Mod ne ""))
|
|
{
|
|
if($Text1 ne "")
|
|
{
|
|
$Name = $Name . " - " . $Text1;
|
|
#if($Text2 ne "")
|
|
#{
|
|
# $Name = $Name . ", " . $Text2;
|
|
#}
|
|
}
|
|
elsif($Text2 ne "")
|
|
{
|
|
$Name = $Name . " - " . $Text2;
|
|
}
|
|
|
|
if($First) { $First=0; } else { printf(",\n"); }
|
|
|
|
# Set FAX frequencies 1.9kHz lower than the carrier
|
|
if(lc($Mod) eq "fax") { $Freq -= 1.9; }
|
|
# Set RTTY frequencies 1kHz lower than the left carrier
|
|
if(lc($Mod) eq "rtty450") { $Freq -= 1.0; }
|
|
if(lc($Mod) eq "rtty170") { $Freq -= 1.0; }
|
|
if(lc($Mod) eq "rtty85") { $Freq -= 1.0; }
|
|
# Set NAVTEX/SITOR-B frequencies 1kHz lower than the left carrier
|
|
if(lc($Mod) eq "sitorb") { $Freq -= 1.0; }
|
|
# Set CW frequencies 800Hz lower than the carrier
|
|
if(lc($Mod) eq "cw") { $Freq -= 0.8; }
|
|
|
|
printf(" {\n");
|
|
printf(" \"name\" : \"%s\",\n", $Name);
|
|
printf(" \"frequency\" : %d,\n", $Freq * 1000);
|
|
printf(" \"modulation\" : \"%s\"\n", lc($Mod));
|
|
printf(" }");
|
|
}
|
|
}
|
|
}
|
|
|
|
printf("\n]\n");
|