bufr.pm:bufrresolve_source

LDAP: couldn't connect to LDAP server

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
Next revision
Previous revision
bufr.pm:bufrresolve_source [2023-02-05 10:15:44]
pals
bufr.pm:bufrresolve_source [2025-11-05 09:24:36] (current)
pals
Line 2: Line 2:
 #!/usr/bin/perl #!/usr/bin/perl
  
-# (C) Copyright 2010-2023 MET Norway+# (C) Copyright 2010-2025 MET Norway
 # #
 # This program is free software; you can redistribute it and/or modify # This program is free software; you can redistribute it and/or modify
Line 34: Line 34:
 use constant DEFAULT_TABLE_PATH_BUFRDC => '/usr/local/lib/bufrtables'; use constant DEFAULT_TABLE_PATH_BUFRDC => '/usr/local/lib/bufrtables';
 use constant DEFAULT_TABLE_PATH_ECCODES => '/usr/local/share/eccodes/definitions/bufr/tables'; use constant DEFAULT_TABLE_PATH_ECCODES => '/usr/local/share/eccodes/definitions/bufr/tables';
-# Ought to be your most up-to-date B table 
-use constant DEFAULT_TABLE_BUFRDC => 'B0000000000000037000'; 
-use constant DEFAULT_TABLE_ECCODES => '0/wmo/37'; 
  
 # Parse command line options # Parse command line options
Line 113: Line 110:
  
 # BUFR table file to use # BUFR table file to use
-my $table = $option{bufrtable} || +my $table = $option{bufrtable} || Geo::BUFR->get_max_table_version();
-    ($tableformat eq 'BUFRDC' ? DEFAULT_TABLE_BUFRDC DEFAULT_TABLE_ECCODES);+
  
 my $bufr = Geo::BUFR->new(); my $bufr = Geo::BUFR->new();
Line 251: Line 247:
 =head1 COPYRIGHT =head1 COPYRIGHT
  
-Copyright (C) 2010-2023 MET Norway+Copyright (C) 2010-2025 MET Norway
  
 =cut =cut
 </code> </code>
  • bufr.pm/bufrresolve_source.1675592144.txt.gz
  • Last modified: 2023-02-05 10:15:44
  • by pals