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