Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 95 lines (82 sloc) 2.724 kb
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
1 #!/usr/bin/perl
49c66d7d » tipaul
2007-03-09 rel_3_0 moved to HEAD
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
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
19 use strict;
20 require Exporter;
49c66d7d » tipaul
2007-03-09 rel_3_0 moved to HEAD
21
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
22 use C4::Output; # contains gettemplate
23 use C4::Interface::CGI::Output;
24 use C4::Auth;
25 use C4::Context;
26 use CGI;
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
27 use LWP::Simple;
28 use XML::Simple;
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
29
30 my $query = new CGI;
31 my ($template, $loggedinuser, $cookie)
201640ba » tipaul
2003-04-10 missing - and template name fixing
32 = get_template_and_user({template_name => "about.tmpl",
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
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");
d40bdb94 » tipaul
2003-04-10 fixes + improvment. shows now apache and mysql versions
41 my $osVersion = `uname -a`;
173e385e » tipaul
2003-11-28 adding credits & using $] instead of perl -v to get perl version
42 my $perlVersion = $];
d40bdb94 » tipaul
2003-04-10 fixes + improvment. shows now apache and mysql versions
43 my $mysqlVersion = `mysql -V`;
173e385e » tipaul
2003-11-28 adding credits & using $] instead of perl -v to get perl version
44 my $apacheVersion = `httpd -v`;
93ff09d0 » tipaul
2005-03-01 merging 2.2 branch with head. Sorry for not making it before, many ma…
45 $apacheVersion = `httpd2 -v` unless $apacheVersion;
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
46 my $zebraVersion = `zebraidx -V`;
06b2edfa » plg
2006-04-21 bug 659 fixed: borrower category age limitations are now taken into a…
47 # $apacheVersion = (`/usr/sbin/apache2 -V`)[0];
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
48
201640ba » tipaul
2003-04-10 missing - and template name fixing
49 $template->param(
d40bdb94 » tipaul
2003-04-10 fixes + improvment. shows now apache and mysql versions
50 kohaVersion => $kohaVersion,
51 osVersion => $osVersion,
52 perlVersion => $perlVersion,
53 mysqlVersion => $mysqlVersion,
54 apacheVersion => $apacheVersion,
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
55 zebraVersion => $zebraVersion,
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
56 );
57
3fb80a63 » plg
2006-03-16 improvement: on the About page, a caption was added to the table of Perl
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
06b2edfa » plg
2006-04-21 bug 659 fixed: borrower category age limitations are now taken into a…
64 DBI Smart::Comments Net::Z3950::ZOOM
65 Date::Calc
3fb80a63 » plg
2006-03-16 improvement: on the About page, a caption was added to the table of Perl
66 /;
06b2edfa » plg
2006-04-21 bug 659 fixed: borrower category age limitations are now taken into a…
67
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
68 my @components = ();
69
3fb80a63 » plg
2006-03-16 improvement: on the About page, a caption was added to the table of Perl
70 foreach my $component (sort @component_names) {
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
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
3fb80a63 » plg
2006-03-16 improvement: on the About page, a caption was added to the table of Perl
82 push (
83 @components,
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
84 {
3fb80a63 » plg
2006-03-16 improvement: on the About page, a caption was added to the table of Perl
85 name => $component,
86 version => $version,
87 }
88 );
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
89 }
90
91 $template->param(
92 components => \@components
93 );
94
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
95 output_html_with_http_headers $query, $cookie, $template->output;
Something went wrong with that request. Please try again.