Lines 820-839
Gets various version info, for core Koha packages, Currently called from carp ha
Link Here
|
820 |
|
820 |
|
821 |
# A little example sub to show more debugging info for CGI::Carp |
821 |
# A little example sub to show more debugging info for CGI::Carp |
822 |
sub get_versions { |
822 |
sub get_versions { |
823 |
my %versions; |
823 |
my ( %versions, $mysqlVersion ); |
824 |
$versions{kohaVersion} = Koha::version(); |
824 |
$versions{kohaVersion} = Koha::version(); |
825 |
$versions{kohaDbVersion} = C4::Context->preference('version'); |
825 |
$versions{kohaDbVersion} = C4::Context->preference('version'); |
826 |
$versions{osVersion} = join(" ", POSIX::uname()); |
826 |
$versions{osVersion} = join(" ", POSIX::uname()); |
827 |
$versions{perlVersion} = $]; |
827 |
$versions{perlVersion} = $]; |
|
|
828 |
|
829 |
my $dbh = C4::Context->dbh; |
830 |
$mysqlVersion = $dbh->get_info(18) if $dbh; # SQL_DBMS_VER |
831 |
|
828 |
{ |
832 |
{ |
829 |
no warnings qw(exec); # suppress warnings if unable to find a program in $PATH |
833 |
no warnings qw(exec); # suppress warnings if unable to find a program in $PATH |
830 |
$versions{mysqlVersion} = `mysql -V`; |
834 |
$mysqlVersion ||= `mysql -V`; # fallback to sql client version? |
831 |
$versions{apacheVersion} = (`apache2ctl -v`)[0]; |
835 |
$versions{apacheVersion} = (`apache2ctl -v`)[0]; |
832 |
$versions{apacheVersion} = `httpd -v` unless $versions{apacheVersion} ; |
836 |
$versions{apacheVersion} = `httpd -v` unless $versions{apacheVersion} ; |
833 |
$versions{apacheVersion} = `httpd2 -v` unless $versions{apacheVersion} ; |
837 |
$versions{apacheVersion} = `httpd2 -v` unless $versions{apacheVersion} ; |
834 |
$versions{apacheVersion} = `apache2 -v` unless $versions{apacheVersion} ; |
838 |
$versions{apacheVersion} = `apache2 -v` unless $versions{apacheVersion} ; |
835 |
$versions{apacheVersion} = `/usr/sbin/apache2 -v` unless $versions{apacheVersion} ; |
839 |
$versions{apacheVersion} = `/usr/sbin/apache2 -v` unless $versions{apacheVersion} ; |
836 |
} |
840 |
} |
|
|
841 |
$versions{mysqlVersion} = $mysqlVersion; |
837 |
return %versions; |
842 |
return %versions; |
838 |
} |
843 |
} |
839 |
|
844 |
|