13 Version number of the Hive code.
17 Copyright [1999-2015] Wellcome Trust Sanger Institute and the EMBL-European Bioinformatics Institute
18 Copyright [2016-2024] EMBL-European Bioinformatics Institute
20 Licensed under the Apache License,
Version 2.0 (the
"License"); you may not use
this file except in compliance with the License.
21 You may obtain a copy of the License at
25 Unless required by applicable law or agreed to in writing, software distributed under the License
26 is distributed on an
"AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
27 See the License
for the specific language governing permissions and limitations under the License.
31 Please subscribe to the
Hive mailing list: http:
36 package Bio::EnsEMBL::Hive::Version;
46 use Exporter
'import';
47 our @EXPORT_OK = qw(get_code_version report_versions);
52 sub get_code_version {
59 print
"CodeVersion\t".get_code_version().
"\n";
60 print
"CompatibleHiveDatabaseSchemaVersion\t".Bio::EnsEMBL::Hive::DBSQL::SqlSchemaAdaptor->get_code_sql_schema_version().
"\n";
62 print
"MeadowInterfaceVersion\t".Bio::EnsEMBL::Hive::Meadow->get_meadow_major_version().
"\n";
65 $meadow_class=~/^${meadow_class_path}::(.+)$/;
66 my $meadow_driver = $1;
67 my $meadow_version = $meadow_class->get_meadow_version;
68 my $compatible = $meadow_class->check_version_compatibility;
69 my $status = $compatible
70 ? ( $meadow_class->name
75 print
'',join(
"\t",
'Meadow::'.$meadow_driver, $meadow_version, $status).
"\n";
78 print
"GuestLanguageInterfaceVersion\t".Bio::EnsEMBL::Hive::GuestProcess->get_protocol_version().
"\n";
80 foreach my $language (sort keys %$registered_wrappers) {
81 my $status =
'unavailable';
91 print join(
"\t",
"GuestLanguage[$language]", $language_version ||
'N/A', $status).
"\n";