Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

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