Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Newer
Older
100755 201 lines (191 sloc) 4.56 kb
a0b06fb @ctfliblime Prepare for perlbrew usage by changing all script magic to "#!/usr/bi…
ctfliblime authored
1 #!/usr/bin/env 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;
3607caa @ctfliblime Add Koha.pm and include it universally
ctfliblime authored
22 use Koha;
fa0d959 first cut at perl script to create the about page.
pate authored
23 use C4::Context;
24 use CGI;
493d07e new: required Perl modules listed with their version in about page.
plg authored
25 use LWP::Simple;
26 use XML::Simple;
ec289b1 display path to Perl interpreter on about page
Galen Charlton authored
27 use Config;
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
28 use URI::Escape qw(uri_escape);
fa0d959 first cut at perl script to create the about page.
pate authored
29
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
30 my $query = CGI->new();
4ce4341 Trying to fix
Chris Cormack authored
31 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
32 {
33 template_name => "about.tmpl",
34 query => $query,
35 type => "intranet",
36 authnotrequired => 0,
a3dfecf @oleonard Removing parameters permission requirement on about.pl, minor markup …
oleonard authored
37 flagsrequired => { catalogue => 1 },
4ce4341 Trying to fix
Chris Cormack authored
38 debug => 1,
39 }
40 );
fa0d959 first cut at perl script to create the about page.
pate authored
41
6d6e97f @ctfliblime Show code version in about.pl
ctfliblime authored
42 my $kohaSchemaVersion = C4::Context::KOHAVERSION;
4ce4341 Trying to fix
Chris Cormack authored
43 my $osVersion = `uname -a`;
ec289b1 display path to Perl interpreter on about page
Galen Charlton authored
44 my $perl_path = $^X;
45 if ($^O ne 'VMS') {
46 $perl_path .= $Config{_exe} unless $perl_path =~ m/$Config{_exe}$/i;
47 }
4ce4341 Trying to fix
Chris Cormack authored
48 my $perlVersion = $];
49 my $mysqlVersion = `mysql -V`;
50 my $apacheVersion = `httpd -v`;
51 $apacheVersion = `httpd2 -v` unless $apacheVersion;
4e6e770 about.pl -- get apacheVersion for etch-like setups
Joe Atzberger authored
52 $apacheVersion = (`/usr/sbin/apache2 -V`)[0] unless $apacheVersion;
493d07e new: required Perl modules listed with their version in about page.
plg authored
53 my $zebraVersion = `zebraidx -V`;
4ce4341 Trying to fix
Chris Cormack authored
54
201640b missing - and template name fixing
tipaul authored
55 $template->param(
6d6e97f @ctfliblime Show code version in about.pl
ctfliblime authored
56 kohaSchemaVersion => $kohaSchemaVersion,
57 kohaCodeVersion => $Koha::VERSION,
4ce4341 Trying to fix
Chris Cormack authored
58 osVersion => $osVersion,
ec289b1 display path to Perl interpreter on about page
Galen Charlton authored
59 perlPath => $perl_path,
4ce4341 Trying to fix
Chris Cormack authored
60 perlVersion => $perlVersion,
f290ee3 don't sort @INC when displaying on about page
Galen Charlton authored
61 perlIncPath => [ map { perlinc => $_ }, @INC ],
4ce4341 Trying to fix
Chris Cormack authored
62 mysqlVersion => $mysqlVersion,
63 apacheVersion => $apacheVersion,
64 zebraVersion => $zebraVersion,
65 );
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
66 my @component_names =
36d4b40 Adding Biblio::EndNote dep
Paul POULAIN authored
67 qw/
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
68 Test::Pod
69 Test::Pod::Coverage
70 Test::Output
71 Test::LeakTrace
72 Sub::Uplevel
73 YAML
74 YAML::Syck
75 Plack
76 Plack::Middleware::Debug
77 Plack::Middleware::Debug::DBIProfile
78 Plack::Middleware::Deflater
79 Plack::Middleware::Expires
80 Plack::Middleware::Header
81 Plack::Middleware::MethodOverride
82 Plack::Middleware::ReverseProxy
83 Plack::Middleware::Rewrite
84 Plack::Middleware::Status
85 CGI::Emulate::PSGI
86 CGI::Compile
a51e2c1 updating about.pl
Paul POULAIN authored
87 CGI::Session
c76687b Add a dependance to CGI::Session::serialize::yaml 4.20
Nahuel Angelinetti authored
88 CGI::Session::Serialize::yaml
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
89 Squatting
90 Squatting::On::PSGI
91 Devel::Hide
92 B::Hooks::EndOfScope
93 namespace::clean
94 Mouse
95 MouseX::Types
96 MooseX::Types
97 Any::Moose
98 MooseX::Role::Parameterized
a51e2c1 updating about.pl
Paul POULAIN authored
99 DBI
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
100 DBD::SQLite
101 DBD::mysql
102 Rose::DB::Object
103 Class::Factory::Util
104 Data::Password::BasicCheck
105 App::Genpass
106 HTTP::Exception
107 HTTP::OAI
108 CHI
109
110 Algorithm::CheckDigits
111 Biblio::EndnoteStyle
112 Business::ISBN
113 Cache::Memcached
114 Cache::Memcached::Fast
115 Memoize::Memcached
116 Modern::Perl
8ff29dd fix Date::ICal typo
Galen Charlton authored
117 Data::ICal
50533a1 @Elwell Consistency check between Makefile.pl and about.pl We weren't picking…
Elwell authored
118 Date::Calc
119 Date::ICal
a51e2c1 updating about.pl
Paul POULAIN authored
120 Date::Manip
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
121 DateTime::Format::DateParse
f896384 @PaulPoulain Adding Email::Date dependancy, requested by MIME::Lite
PaulPoulain authored
122 Email::Date
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
123 Data::Compare
124 Number::Compare
125 File::Find::Rule
126 DBIx::Class::Schema
1baf634 kohabug 2404 This patch removes Image::Magick and adds GD
Chris Nighswonger authored
127 GD
a51e2c1 updating about.pl
Paul POULAIN authored
128 GD::Barcode::UPCE
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
129 HTML::Scrubber
a51e2c1 updating about.pl
Paul POULAIN authored
130 HTML::Template::Pro
50533a1 @Elwell Consistency check between Makefile.pl and about.pl We weren't picking…
Elwell authored
131 JSON
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
132
133 POE
134 Net::SSLeay
135 IO::Socket::SSL
136 Net::LDAP
a51e2c1 updating about.pl
Paul POULAIN authored
137 Lingua::Stem
138 MARC::Charset
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
139 MARC::Crosswalk::DublinCore
a51e2c1 updating about.pl
Paul POULAIN authored
140 MARC::File::XML
6fce569 @amoore Bug 2274 [2/5]: adding MIME::Lite to list of required modules
amoore authored
141 MIME::Lite
a51e2c1 updating about.pl
Paul POULAIN authored
142 Mail::Sendmail
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
143 Net::CIDR
144 Net::CIDR::Compare
c8cd3cb @PaulPoulain adding some missing packages to about.pl
PaulPoulain authored
145 Net::LDAP::Filter
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
146 Net::Server::PreFork
a51e2c1 updating about.pl
Paul POULAIN authored
147 Net::Z3950::ZOOM
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
148 Barcode::Code128
a51e2c1 updating about.pl
Paul POULAIN authored
149 PDF::API2
150 PDF::Reuse
151 PDF::Reuse::Barcode
152 Schedule::At
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
153 Text::Aspell
a51e2c1 updating about.pl
Paul POULAIN authored
154 Text::CSV
b6421ad Adding Text::CSV_XS dependancy
Paul POULAIN authored
155 Text::CSV_XS
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
156 Text::SuDocs
a51e2c1 updating about.pl
Paul POULAIN authored
157 XML::Dumper
1bc2813 adding 2 deps to export biblios in dc format
Paul POULAIN authored
158 XML::LibXSLT
a51e2c1 updating about.pl
Paul POULAIN authored
159 XML::RSS
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
160 XML::Simple
161 Encode::Detect::Detector
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
162 /;
06b2edf bug 659 fixed: borrower category age limitations are now taken into a…
plg authored
163
493d07e new: required Perl modules listed with their version in about page.
plg authored
164 my @components = ();
a51e2c1 updating about.pl
Paul POULAIN authored
165 my $counter=0;
4ce4341 Trying to fix
Chris Cormack authored
166 foreach my $component ( sort @component_names ) {
493d07e new: required Perl modules listed with their version in about page.
plg authored
167 my $version;
4ce4341 Trying to fix
Chris Cormack authored
168 if ( eval "require $component" ) {
493d07e new: required Perl modules listed with their version in about page.
plg authored
169 $version = $component->VERSION;
4ce4341 Trying to fix
Chris Cormack authored
170 if ( $version eq '' ) {
493d07e new: required Perl modules listed with their version in about page.
plg authored
171 $version = 'unknown';
172 }
173 }
174 else {
175 $version = 'module is missing';
176 }
4ce4341 Trying to fix
Chris Cormack authored
177 push(
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
178 @components,
493d07e new: required Perl modules listed with their version in about page.
plg authored
179 {
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
180 name => $component,
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
181 cpanref => uri_escape($component),
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
182 version => $version,
691b400 HTML validation adjustments to about.pl
Joe Atzberger authored
183 newrow => (++$counter % 4) ? 0 : 1,
3fb80a6 improvement: on the About page, a caption was added to the table of Perl
plg authored
184 }
185 );
493d07e new: required Perl modules listed with their version in about page.
plg authored
186 }
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
187 if ($counter%4) {
188 for my $i(($counter%4)..3) {
189 push @components, { blank => 1 };
190 }
191 }
192 my $open = $query->param('open') // '';
3c3d4b2 @ctfliblime Add CGI environment display to about.pl
ctfliblime authored
193 my @environment = map { {variable => $_, value => $ENV{$_}} } sort keys %ENV;
ddf23c5 @hgq GPO branding,item ownership,patron tier branches,&c.
hgq authored
194 $template->param(
195 components => \@components,
196 'localtime' => scalar localtime(),
197 'open' => $open,
198 'environment' => \@environment,
199 );
fa0d959 first cut at perl script to create the about page.
pate authored
200 output_html_with_http_headers $query, $cookie, $template->output;
Something went wrong with that request. Please try again.