diff options
Diffstat (limited to 'scripts/acronyms.pl')
| -rwxr-xr-x | scripts/acronyms.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index ffc14bd..d4ba9cb 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -68,6 +68,8 @@ while ( my $line = <STDIN> ) { $station =~ s{ ^ KDFFH $ }{KDFF}x; $station =~ s{ ^ KDN \s P $ }{KDN}x; $station =~ s{ ^ KRY \s P $ }{KRY}x; + $station =~ s{ ^ TS \s\s T$ }{TST}x; + $station =~ s{ ^ TSZ \s F $ }{TSFE}x; printf( "\t['%s','%s',%s,%s,%s],\n", |