Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 96 lines (82 sloc) 2.724 kb
fa0d959 first cut at perl script to create the about page.
pate authored
1 #!/usr/bin/perl
49c66d7 rel_3_0 moved to HEAD
tipaul authored
2
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 2 of the License, or (at your option) any later
8 # version.
9 #
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along with
15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
16 # Suite 330, Boston, MA 02111-1307 USA
17
18
fa0d959 first cut at perl script to create the about page.
pate authored
19 use strict;
20 require Exporter;
49c66d7 rel_3_0 moved to HEAD
tipaul authored
21
fa0d959 first cut at perl script to create the about page.
pate authored
22 use C4::Output; # contains gettemplate
23 use C4::Interface::CGI::Output;
24 use C4::Auth;
25 use C4::Context;
26 use CGI;
493d07e new: required Perl modules listed with their version in about page.
plg authored
27 use LWP::Simple;
28 use XML::Simple;
fa0d959 first cut at perl script to create the about page.
pate authored
29
30 my $query = new CGI;
31 my ($template, $loggedinuser, $cookie)
201640b missing - and template name fixing
tipaul authored
32 = get_template_and_user({template_name => "about.tmpl",
fa0d959 first cut at perl script to create the about page.
pate authored
33 query => $query,
34 type => "intranet",
35 authnotrequired => 0,
36 flagsrequired => {parameters => 1},
37 debug => 1,
38 });
39
40 my $kohaVersion = C4::Context->config("kohaversion");
d40bdb9 fixes + improvment. shows now apache and mysql versions
tipaul authored
41 my $osVersion = `uname -a`;
173e385 adding credits & using $] instead of perl -v to get perl version
tipaul authored
42 my $perlVersion = $];
d40bdb9 fixes + improvment. shows now apache and mysql versions
tipaul authored
43 my $mysqlVersion = `mysql -V`;
173e385 adding credits & using $] instead of perl -v to get perl version
tipaul authored
44 my $apacheVersion = `httpd -v`;
93ff09d merging 2.2 branch with head. Sorry for not making it before, many many ...
tipaul authored
45 $apacheVersion = `httpd2 -v` unless $apacheVersion;
493d07e new: required Perl modules listed with their version in about page.
plg authored
46 my $zebraVersion = `zebraidx -V`;
06b2edf bug 659 fixed: borrower category age limitations are now taken into acco...
plg authored
47 # $apacheVersion = (`/usr/sbin/apache2 -V`)[0];
fa0d959 first cut at perl script to create the about page.
pate authored
48
201640b missing - and template name fixing
tipaul authored
49 $template->param(
d40bdb9 fixes + improvment. shows now apache and mysql versions
tipaul authored
50 kohaVersion => $kohaVersion,
51 osVersion => $osVersion,
52 perlVersion => $perlVersion,
53 mysqlVersion => $mysqlVersion,
54 apacheVersion => $apacheVersion,
493d07e new: required Perl modules listed with their version in about page.
plg authored
55 zebraVersion => $zebraVersion,
fa0d959 first cut at perl script to create the about page.
pate authored
56 );
57
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
58 my @component_names =
59 qw/MARC::File::XML MARC::Charset Class::Accessor
60 LWP::Simple XML::Simple Net::Z3950
61 Event Net::LDAP PDF::API2
62 Mail::Sendmail MARC::Record Digest::MD5
63 HTML::Template DBD::mysql Date::Manip
06b2edf bug 659 fixed: borrower category age limitations are now taken into acco...
plg authored
64 DBI Smart::Comments Net::Z3950::ZOOM
65 Date::Calc
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
66 /;
06b2edf bug 659 fixed: borrower category age limitations are now taken into acco...
plg authored
67
493d07e new: required Perl modules listed with their version in about page.
plg authored
68 my @components = ();
69
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
70 foreach my $component (sort @component_names) {
493d07e new: required Perl modules listed with their version in about page.
plg authored
71 my $version;
72 if (eval "require $component") {
73 $version = $component->VERSION;
74 if ($version eq '' ) {
75 $version = 'unknown';
76 }
77 }
78 else {
79 $version = 'module is missing';
80 }
81
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
82 push (
83 @components,
493d07e new: required Perl modules listed with their version in about page.
plg authored
84 {
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
85 name => $component,
86 version => $version,
87 }
88 );
493d07e new: required Perl modules listed with their version in about page.
plg authored
89 }
90
91 $template->param(
92 components => \@components
93 );
94
fa0d959 first cut at perl script to create the about page.
pate authored
95 output_html_with_http_headers $query, $cookie, $template->output;
Something went wrong with that request. Please try again.