Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 171 lines (161 sloc) 3.656 kb
7c7b136a » Paul POULAIN
2007-08-10 dunno why a char has been added before #!/usr/bin/perl
1 #!/usr/bin/perl
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
2
49c66d7d » tipaul
2007-03-09 rel_3_0 moved to HEAD
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
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
18 use strict;
49c66d7d » tipaul
2007-03-09 rel_3_0 moved to HEAD
19
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
20 use C4::Output; # contains gettemplate
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
21 use C4::Auth;
22 use C4::Context;
23 use CGI;
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
24 use LWP::Simple;
25 use XML::Simple;
ec289b1b » Galen Charlton
2008-02-13 display path to Perl interpreter on about page
26 use Config;
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
27
28 my $query = new CGI;
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
29 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
30 {
31 template_name => "about.tmpl",
32 query => $query,
33 type => "intranet",
34 authnotrequired => 0,
a3dfecf3 » oleonard
2007-12-04 Removing parameters permission requirement on about.pl, minor markup …
35 flagsrequired => { catalogue => 1 },
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
36 debug => 1,
37 }
38 );
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
39
61c72f8f » Paul POULAIN
2007-08-16 Adding KOHAVERSION management.
40 my $kohaVersion = C4::Context::KOHAVERSION;
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
41 my $osVersion = `uname -a`;
ec289b1b » Galen Charlton
2008-02-13 display path to Perl interpreter on about page
42 my $perl_path = $^X;
43 if ($^O ne 'VMS') {
44 $perl_path .= $Config{_exe} unless $perl_path =~ m/$Config{_exe}$/i;
45 }
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
46 my $perlVersion = $];
47 my $mysqlVersion = `mysql -V`;
48 my $apacheVersion = `httpd -v`;
49 $apacheVersion = `httpd2 -v` unless $apacheVersion;
4e6e7707 » Joe Atzberger
2007-12-27 about.pl -- get apacheVersion for etch-like setups
50 $apacheVersion = (`/usr/sbin/apache2 -V`)[0] unless $apacheVersion;
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
51 my $zebraVersion = `zebraidx -V`;
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
52
201640ba » tipaul
2003-04-10 missing - and template name fixing
53 $template->param(
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
54 kohaVersion => $kohaVersion,
55 osVersion => $osVersion,
ec289b1b » Galen Charlton
2008-02-13 display path to Perl interpreter on about page
56 perlPath => $perl_path,
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
57 perlVersion => $perlVersion,
f290ee30 » Galen Charlton
2008-02-13 don't sort @INC when displaying on about page
58 perlIncPath => [ map { perlinc => $_ }, @INC ],
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
59 mysqlVersion => $mysqlVersion,
60 apacheVersion => $apacheVersion,
61 zebraVersion => $zebraVersion,
62 );
3fb80a63 » plg
2006-03-16 improvement: on the About page, a caption was added to the table of Perl
63 my @component_names =
36d4b404 » Paul POULAIN
2007-11-23 Adding Biblio::EndNote dep
64 qw/
50533a1a » Elwell
2009-02-22 Consistency check between Makefile.pl and about.pl We weren't picking…
65 Algorithm::CheckDigits
36d4b404 » Paul POULAIN
2007-11-23 Adding Biblio::EndNote dep
66 Biblio::EndnoteStyle
a438d959 » dlbptfs
2010-05-18 Allows for search by equivalent ISBN-10 and ISBN-13
67 Business::ISBN
36d4b404 » Paul POULAIN
2007-11-23 Adding Biblio::EndNote dep
68 CGI
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
69 CGI::Carp
70 CGI::Session
c76687b0 » Nahuel Angelinetti
2008-11-05 Add a dependance to CGI::Session::serialize::yaml 4.20
71 CGI::Session::Serialize::yaml
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
72 Class::Factory::Util
73 Class::Accessor
5a8f6184 » Paul POULAIN
2007-12-05 Adding Compress::Zlib dependancy
74 Compress::Zlib
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
75 DBD::mysql
6c0dbfb8 » Michael Hafen
2009-05-05 offline_circ must use SQLite v2 - because Kyles PHP does
76 DBD::SQLite2
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
77 DBI
78 Data::Dumper
8ff29dda » Galen Charlton
2008-06-25 fix Date::ICal typo
79 Data::ICal
50533a1a » Elwell
2009-02-22 Consistency check between Makefile.pl and about.pl We weren't picking…
80 Date::Calc
81 Date::ICal
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
82 Date::Manip
83 Digest::MD5
8f103c46 » gmcharlt
2009-08-13 added new module dep Digest::SHA to about.pl
84 Digest::SHA
f896384c » PaulPoulain
2008-08-05 Adding Email::Date dependancy, requested by MIME::Lite
85 Email::Date
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
86 File::Temp
1baf6348 » Chris Nighswonger
2008-07-28 kohabug 2404 This patch removes Image::Magick and adds GD
87 GD
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
88 GD::Barcode::UPCE
89 Getopt::Long
90 Getopt::Std
91 HTML::Template::Pro
92 HTTP::Cookies
9c4a717d » Galen Charlton
2009-04-01 added dependencies for new OAI-PMH server
93 HTTP::OAI
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
94 HTTP::Request::Common
c8cd3cb6 » PaulPoulain
2008-06-05 adding some missing packages to about.pl
95 HTML::Scrubber
5cd357e7 » gmcharlt
2009-08-01 bug 3465: enhance DB update reporting by web installer
96 IPC::Cmd
50533a1a » Elwell
2009-02-22 Consistency check between Makefile.pl and about.pl We weren't picking…
97 JSON
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
98 LWP::Simple
99 LWP::UserAgent
100 Lingua::Stem
101 List::Util
c8cd3cb6 » PaulPoulain
2008-06-05 adding some missing packages to about.pl
102 List::MoreUtils
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
103 Locale::Language
1bc28135 » Paul POULAIN
2007-11-19 adding 2 deps to export biblios in dc format
104 MARC::Crosswalk::DublinCore
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
105 MARC::Charset
106 MARC::File::XML
107 MARC::Record
108 MIME::Base64
6fce5692 » amoore
2008-07-09 Bug 2274 [2/5]: adding MIME::Lite to list of required modules
109 MIME::Lite
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
110 MIME::QuotedPrint
111 Mail::Sendmail
c8cd3cb6 » PaulPoulain
2008-06-05 adding some missing packages to about.pl
112 Net::LDAP
113 Net::LDAP::Filter
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
114 Net::Z3950::ZOOM
115 PDF::API2
116 PDF::API2::Page
117 PDF::API2::Util
118 PDF::Reuse
119 PDF::Reuse::Barcode
c8cd3cb6 » PaulPoulain
2008-06-05 adding some missing packages to about.pl
120 POE
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
121 POSIX
122 Schedule::At
11aed99c » amoore
2008-06-20 Bug 2176: adding SMS::Send to list of dependencies
123 SMS::Send
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
124 Term::ANSIColor
125 Test
126 Test::Harness
127 Test::More
128 Text::CSV
b6421add » Paul POULAIN
2007-12-11 Adding Text::CSV_XS dependancy
129 Text::CSV_XS
521776bd » PaulPoulain
2008-01-11 hdl has added a Text::Iconv dependancy yesterday, checking it in inst…
130 Text::Iconv
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
131 Text::Wrap
132 Time::HiRes
133 Time::localtime
134 Unicode::Normalize
135 XML::Dumper
136 XML::LibXML
1bc28135 » Paul POULAIN
2007-11-19 adding 2 deps to export biblios in dc format
137 XML::LibXSLT
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
138 XML::SAX::ParserFactory
9c4a717d » Galen Charlton
2009-04-01 added dependencies for new OAI-PMH server
139 XML::SAX::Writer
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
140 XML::Simple
141 XML::RSS
a858e8a8 » Galen Charlton
2007-12-27 session management: use YAML::Syck for serialization
142 YAML::Syck
3fb80a63 » plg
2006-03-16 improvement: on the About page, a caption was added to the table of Perl
143 /;
06b2edfa » plg
2006-04-21 bug 659 fixed: borrower category age limitations are now taken into a…
144
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
145 my @components = ();
146
a51e2c19 » Paul POULAIN
2007-11-12 updating about.pl
147 my $counter=0;
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
148 foreach my $component ( sort @component_names ) {
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
149 my $version;
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
150 if ( eval "require $component" ) {
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
151 $version = $component->VERSION;
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
152 if ( $version eq '' ) {
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
153 $version = 'unknown';
154 }
155 }
156 else {
157 $version = 'module is missing';
158 }
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
159 push(
3fb80a63 » plg
2006-03-16 improvement: on the About page, a caption was added to the table of Perl
160 @components,
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
161 {
3fb80a63 » plg
2006-03-16 improvement: on the About page, a caption was added to the table of Perl
162 name => $component,
163 version => $version,
691b400b » Joe Atzberger
2008-09-03 HTML validation adjustments to about.pl
164 newrow => (++$counter % 4) ? 0 : 1,
3fb80a63 » plg
2006-03-16 improvement: on the About page, a caption was added to the table of Perl
165 }
166 );
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
167 }
168
4ce43414 » Chris Cormack
2007-08-03 Trying to fix
169 $template->param( components => \@components );
493d07e1 » plg
2006-03-16 new: required Perl modules listed with their version in about page.
170
fa0d959c » pate
2003-04-10 first cut at perl script to create the about page.
171 output_html_with_http_headers $query, $cookie, $template->output;
Something went wrong with that request. Please try again.