[Koha-cvs] CVS: koha about.pl,1.4,1.4.2.1
Ambrose C. LI
acli at users.sourceforge.net
Mon Mar 1 01:18:32 CET 2004
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31315
Modified Files:
Tag: rel_2_0
about.pl
Log Message:
This should be better if mysql is not in the path, or if we are not running
Apache.
Index: about.pl
===================================================================
RCS file: /cvsroot/koha/koha/about.pl,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -r1.4 -r1.4.2.1
*** about.pl 28 Nov 2003 13:59:30 -0000 1.4
--- about.pl 1 Mar 2004 00:18:30 -0000 1.4.2.1
***************
*** 10,13 ****
--- 10,14 ----
use CGI;
+ my $dbh = C4::Context->dbh;
my $query = new CGI;
my ($template, $loggedinuser, $cookie)
***************
*** 23,28 ****
my $osVersion = `uname -a`;
my $perlVersion = $];
! my $mysqlVersion = `mysql -V`;
! my $apacheVersion = `httpd -v`;
$template->param(
--- 24,35 ----
my $osVersion = `uname -a`;
my $perlVersion = $];
!
! # mysql(1) may not be on the PATH, so we try to do a select statement instead
! my $sti = $dbh->prepare("select version()");
! $sti->execute;
! my $mysqlVersion = ($sti->fetchrow_array)[0]; # `mysql -V`
!
! # The web server may not be httpd, and/or may not be in the PATH
! my $apacheVersion = $ENV{SERVER_SOFTWARE} || `httpd -v`;
$template->param(
More information about the Koha-cvs
mailing list