mt-check.cgi.pre

Revision 1251, 18.5 kB (checked in by jramsey, 11 months ago)
bugzid:55548 No background colour set on configuration screens.
Property svn:keywords set to `Author Date Id Revision`

Line
1	#!/usr/bin/perl -w
2
3	# Movable Type (r) Open Source (C) 2001-2008 Six Apart, Ltd.
4	# This program is distributed under the terms of the
5	# GNU General Public License, version 2.
6	#
7	# $Id$
8
9	use strict;
10	sub BEGIN {
11	my $dir;
12	if (eval { require File::Spec; 1; }) {
13	if (!($dir = $ENV{MT_HOME})) {
14	if ($0 =~ m!(.*[/\\])!) {
15	$dir = $1;
16	} else {
17	$dir = './';
18	}
19	$ENV{MT_HOME} = $dir;
20	}
21	unshift @INC, File::Spec->catdir($dir, 'lib');
22	unshift @INC, File::Spec->catdir($dir, 'extlib');
23	}
24	}
25
26	my $cfg_exist;
27	my $mt_static_path = q();
28	my $mt_cgi_path;
29	if ((-f File::Spec->catfile($ENV{MT_HOME}, 'mt-config.cgi')) \|\|
30	(-f File::Spec->catfile($ENV{MT_HOME}, 'mt.cfg'))) {
31	$cfg_exist = 1;
32	my $file_handle = open(CFG, $ENV{MT_HOME}.'/mt.cfg') \|\| open(CFG, $ENV{MT_HOME}.'/mt-config.cgi');
33	my $line;
34	while ($line = <CFG>) {
35	next if $line !~ /\S/ \|\| $line =~ /^#/;
36	if ($line =~ s/StaticWebPath[\s]([^\n])/$1/) {
37	$mt_static_path = $line;
38	chomp($mt_static_path);
39	}
40	elsif ($line =~ s/CGIPath[\s]([^\n])/$1/) {
41	$mt_cgi_path = $line;
42	chomp($mt_cgi_path);
43	}
44	}
45	if ( !$mt_static_path && $mt_cgi_path ) {
46	$mt_cgi_path .= '/' if $mt_cgi_path !~ m\|/$\|;
47	$mt_static_path = $mt_cgi_path . 'mt-static/';
48	}
49	}
50
51	local $\| = 1;
52
53	use CGI;
54	my $cgi = new CGI;
55	my $view = $cgi->param("view");
56	my $version = $cgi->param("version");
57	$version \|\|= '__PRODUCT_VERSION_ID__';
58
59	my ($mt, $LH);
60	my $lang = '__BUILD_LANGUAGE__';
61	eval {
62	require MT::App::Wizard;
63	$mt = MT::App::Wizard->new();
64	my $cfg = $mt->config;
65	$cfg->PublishCharset('utf-8');
66	$cfg->DefaultLanguage($lang);
67	require MT::L10N;
68	$LH = $mt ? $mt->language_handle : MT::L10N->get_handle($lang);
69	};
70
71	sub trans_templ {
72	my($text) = @_;
73	return $mt->translate_templatized($text) if $mt;
74	$text =~ s!(<MT_TRANS(?:\s+((?:\w+)\s=\s(["'])(?:<[^>]+?>\|[^\3]+?)+?\3))+?\s*/?>)!
75	my($msg, %args) = ($1);
76	#print $msg;
77	while ($msg =~ /\b(\w+)\s=\s(["'])((?:<[^>]+?>\|[^\2])*?)\2/g) { #"
78	$args{$1} = $3;
79	}
80	$args{params} = '' unless defined $args{params};
81	my @p = map decode_html($_),
82	split /\s%%\s/, $args{params};
83	@p = ('') unless @p;
84	my $translation = translate($args{phrase}, @p);
85	$translation =~ s/([\\'])/\\$1/sg if $args{escape};
86	$translation;
87	!ge;
88	$text;
89	}
90
91	sub translate {
92	return (
93	$mt ? $mt->translate(@_)
94	: $LH ? $LH->maketext(@_)
95	: merge_params(@_)
96	);
97	}
98
99	sub decode_html {
100	my($html) = @_;
101	if ($cfg_exist && (eval 'use MT::Util; 1')) {
102	return MT::Util::decode_html($html);
103	} else {
104	$html =~ s#"#"#g;
105	$html =~ s#<#<#g;
106	$html =~ s#>#>#g;
107	$html =~ s#&#&#g;
108	}
109	$html;
110	}
111
112	sub merge_params {
113	my ($msg, @param) = @_;
114	my $cnt = 1;
115	foreach my $p (@param) {
116	$msg =~ s/\[_$cnt\]/$p/g;
117	$cnt++;
118	}
119	$msg;
120	}
121
122	print "Content-Type: text/html; charset=utf-8\n\n";
123	if (!$view) {
124	print trans_templ(<<HTML);
125
126	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
127	<html xmlns="http://www.w3.org/1999/xhtml">
128
129	<head>
130	<meta http-equiv="content-type" content="text/html; charset=utf-8" />
131	<meta http-equiv="content-language" content="$lang" />
132
133	<title><MT_TRANS phrase="Movable Type System Check"> [mt-check.cgi]</title>
134
135	<style type=\"text/css\">
136	<!--
137
138	body {
139	font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;
140	font-size: 13px;
141	margin: 0;
142	padding: 0;
143	background-color: #fff;
144	}
145
146	body.has-static {
147	background: #fff url('$mt_static_path/images/chromeless/chromeless_top_bg.gif') repeat-x;
148	}
149
150	body.has-static #header {
151	background: url('$mt_static_path/images/chromeless/movable-type-logo.gif') no-repeat 25px 15px;
152	height: 55px;
153	}
154
155	#content {
156	margin: 20px 20px 100px;
157	}
158
159	h1 {
160	margin: 0;
161	padding: 10px;
162	text-align: center;
163	font-size: 22px;
164	color: #fff;
165	background: #000;
166	}
167	body.has-static #header h1 {
168	display: none;
169	}
170
171	h2 {
172	margin-top: 2em;
173	margin-bottom: .5em;
174	font-size: 24px;
175	font-weight: normal;
176	}
177	h2#system-info {
178	margin-top: 1em;
179	}
180
181	h3 {
182	color: #333;
183	font-size: 16px;
184	margin-bottom: 0px;
185	}
186
187	p, ul {
188	margin: 0 0 .75em 0;
189	padding: 0;
190	}
191
192	ul {
193	padding-left: 20px;
194	}
195
196	.msg {
197	margin: 0 0 10px 0;
198	padding: 16px 10px 16px 46px;
199	background-repeat: no-repeat;
200	}
201	.msg-info {
202	background-color: #eaf2ff;
203	background-image: url('$mt_static_path/images/icon_info.gif');
204	background-position: 12px center;
205	border: 1px solid #999;
206	}
207
208	.ready {
209	color: #fff;
210	background-color: #9C6;
211	border: 0;
212	padding-left: 5px;
213	}
214
215	.msg-success {
216	background-color: #CFC;
217	background-image: url('$mt_static_path/images/icon_success.png');
218	background-position: 12px .75em;
219	font-size: 24px;
220	}
221	.msg-success h2 {
222	margin-top: 0;
223	}
224	.msg-success p {
225	font-size: 13px;
226	}
227
228	.info {
229	margin-left: 60px;
230	margin-right: 60px;
231	padding: 20px;
232	border: 1px solid #eaf2ff;
233	background: #eaf2ff;
234	color: #000;
235	}
236
237	.installed {
238	color: #93b06b;
239	padding-top: 0px;
240	margin-top: 0px;
241	}
242
243	.warning {
244	padding-top: 0px;
245	margin-top: 4px;
246	border-left: 1px solid red;
247	padding-left: 10px;
248	margin-left: 20px;
249	}
250
251	ul.version {
252	margin-bottom: 0;
253	}
254
255	//-->
256	</style>
257
258	</head>
259
260	HTML
261	if ($mt_static_path) {
262	print "<body class=\"has-static\">\n";
263	} else {
264	print "<body>\n";
265	}
266	print trans_templ(<<HTML);
267	<div id="header"><h1><MT_TRANS phrase="Movable Type System Check"> [mt-check.cgi]</h1></div>
268
269	<div id="content">
270	<p class="msg msg-info"><MT_TRANS phrase="The mt-check.cgi script provides you with information on your system's configuration and determines whether you have all of the components you need to run Movable Type."></p>
271	HTML
272	}
273
274	my $is_good = 1;
275	my (@REQ, @DATA, @OPT);
276
277	my @CORE_REQ = (
278	[ 'CGI', 0, 1, translate('CGI is required for all Movable Type application functionality.') ],
279
280	[ 'Image::Size', 0, 1, translate('Image::Size is required for file uploads (to determine the size of uploaded images in many different formats).') ],
281
282	[ 'File::Spec', 0.8, 1, translate('File::Spec is required for path manipulation across operating systems.') ],
283
284	[ 'CGI::Cookie', 0, 1, translate('CGI::Cookie is required for cookie authentication.') ],
285	);
286
287	my @CORE_DATA = (
288	[ 'DBI', 1.21, 0, translate('DBI is required to store data in database.') ],
289
290	[ 'DBD::mysql', 0, 0, translate('DBI and DBD::mysql are required if you want to use the MySQL database backend.') ],
291
292	[ 'DBD::Pg', 1.32, 0, translate('DBI and DBD::Pg are required if you want to use the PostgreSQL database backend.') ],
293
294	[ 'DBD::SQLite', 0, 0, translate('DBI and DBD::SQLite are required if you want to use the SQLite database backend.') ],
295
296	[ 'DBD::SQLite2', 0, 0, translate('DBI and DBD::SQLite2 are required if you want to use the SQLite 2.x database backend.') ],
297
298	);
299
300	my @CORE_OPT = (
301	[ 'HTML::Entities', 0, 0, translate('HTML::Entities is needed to encode some characters, but this feature can be turned off using the NoHTMLEntities option in the configuration file.') ],
302
303	[ 'LWP::UserAgent', 0, 0, translate('LWP::UserAgent is optional; It is needed if you wish to use the TrackBack system, the weblogs.com ping, or the MT Recently Updated ping.') ],
304
305	[ 'HTML::Parser', 0, 0, translate('HTML::Parser is optional; It is needed if you wish to use the TrackBack system, the weblogs.com ping, or the MT Recently Updated ping.') ],
306
307	[ 'SOAP::Lite', 0.50, 0, translate('SOAP::Lite is optional; It is needed if you wish to use the MT XML-RPC server implementation.') ],
308
309	[ 'File::Temp', 0, 0, translate('File::Temp is optional; It is needed if you would like to be able to overwrite existing files when you upload.') ],
310
311	[ 'List::Util', 0, 1, translate('List::Util is optional; It is needed if you want to use the Publish Queue feature.')],
312
313	[ 'Image::Magick', 0, 0, translate('Image::Magick is optional; It is needed if you would like to be able to create thumbnails of uploaded images.') ],
314
315	[ 'Storable', 0, 0, translate('Storable is optional; it is required by certain MT plugins available from third parties.')],
316
317	[ 'Crypt::DSA', 0, 0, translate('Crypt::DSA is optional; if it is installed, comment registration sign-ins will be accelerated.')],
318
319	[ 'MIME::Base64', 0, 0, translate('MIME::Base64 is required in order to enable comment registration.')],
320
321	[ 'XML::Atom', 0, 0, translate('XML::Atom is required in order to use the Atom API.')],
322
323	[ 'Cache::Memcached', 0, 0, translate('Cache::Memcached and memcached server/daemon is required in order to use memcached as caching mechanism used by Movable Type.')],
324
325	[ 'Archive::Tar', 0, 0, translate('Archive::Tar is required in order to archive files in backup/restore operation.')],
326
327	[ 'IO::Compress::Gzip', 0, 0, translate('IO::Compress::Gzip is required in order to compress files in backup/restore operation.')],
328
329	[ 'IO::Uncompress::Gunzip', 0, 0, translate('IO::Uncompress::Gunzip is required in order to decompress files in backup/restore operation.')],
330
331	[ 'Archive::Zip', 0, 0, translate('Archive::Zip is required in order to archive files in backup/restore operation.')],
332
333	[ 'XML::SAX', 0, 0, translate('XML::SAX and/or its dependencies is required in order to restore.')],
334
335	[ 'Digest::SHA1', 0, 0, translate('Digest::SHA1 and its dependencies are required in order to allow commenters to be authenticated by OpenID providers including Vox and LiveJournal.')],
336	[ 'Mail::Sendmail', 0, 0, translate('Mail::Sendmail is required for sending mail via SMTP Server.')],
337	);
338
339	use Cwd;
340	my $cwd = '';
341	{
342	my($bad);
343	local $SIG{__WARN__} = sub { $bad++ };
344	eval { $cwd = Cwd::getcwd() };
345	if ($bad \|\| $@) {
346	eval { $cwd = Cwd::cwd() };
347	if ($@ && $@ !~ /Insecure \$ENV{PATH}/) {
348	die $@;
349	}
350	}
351	}
352
353	my $ver = ref($^V) eq 'version' ? $^V->normal : ( $^V ? join('.', unpack 'C*', $^V) : $] );
354	my $perl_ver_check = '';
355	if ($] < 5.006001) { # our minimal requirement for support
356	$perl_ver_check = <<EOT;
357	<p class="warning"><MT_TRANS phrase="The version of Perl installed on your server ([_1]) is lower than the minimum supported version ([_2]). Please upgrade to at least Perl [_2]." params="$ver%%5.6.1"></p>
358	EOT
359	}
360	my $config_check = '';
361	if (!$cfg_exist) {
362	$config_check = <<CONFIG;
363	<p class="warning"><MT_TRANS phrase="Movable Type configuration file was not found."></p>
364	CONFIG
365	}
366	my $server = $ENV{SERVER_SOFTWARE};
367	my $inc_path = join "<br />\n", @INC;
368	print trans_templ(<<INFO);
369	<h2 id="system-info"><MT_TRANS phrase="System Information"></h2>
370	$perl_ver_check
371	$config_check
372	INFO
373	if ($version) {
374	# sanitize down to letters numbers dashes and period
375	$version =~ s/[^a-zA-Z0-9\-\.]//g;
376	print trans_templ(<<INFO);
377	<ul class="version">
378	<li><strong><MT_TRANS phrase="Movable Type version:"></strong> <code>$version</code></li>
379	</ul>
380	INFO
381	}
382	print trans_templ(<<INFO);
383	<ul>
384	<li><strong><MT_TRANS phrase="Current working directory:"></strong> <code>$cwd</code></li>
385	<li><strong><MT_TRANS phrase="MT home directory:"></strong> <code>$ENV{MT_HOME}</code></li>
386	<li><strong><MT_TRANS phrase="Operating system:"></strong> $^O</li>
387	<li><strong><MT_TRANS phrase="Perl version:"></strong> <code>$ver</code></li>
388	<li><strong><MT_TRANS phrase="Perl include path:"></strong><br /> <code>$inc_path</code></li>
389	INFO
390	if ($server) {
391	print trans_templ(<<INFO);
392	<li><strong><MT_TRANS phrase="Web server:"></strong> <code>$server</code></li>
393	INFO
394	}
395
396	## Try to create a new file in the current working directory. This
397	## isn't a perfect test for running under cgiwrap/suexec, but it
398	## is a pretty good test.
399	my $TMP = "test$$.tmp";
400	local *FH;
401	if (open(FH, ">$TMP")) {
402	close FH;
403	unlink($TMP);
404	print trans_templ(' <li><MT_TRANS phrase="(Probably) Running under cgiwrap or suexec"></li>' . "\n");
405	}
406
407	print "\n\n</ul>\n";
408
409	exit if $ENV{QUERY_STRING} && $ENV{QUERY_STRING} eq 'sys-check';
410
411	if ($mt) {
412	my $req = $mt->registry("required_packages");
413	foreach my $key (keys %$req) {
414	next if $key eq 'DBI';
415	my $pkg = $req->{$key};
416	push @REQ, [ $key, $pkg->{version} \|\| 0, 1, $pkg->{label}, $key, $pkg->{link} ];
417	}
418	my $drivers = $mt->object_drivers;
419	foreach my $key (keys %$drivers) {
420	my $driver = $drivers->{$key};
421	my $label = $driver->{label};
422	my $link = 'http://search.cpan.org/dist/' . $driver->{dbd_package};
423	$link =~ s/::/-/g;
424	push @DATA, [ $driver->{dbd_package}, $driver->{dbd_version}, 0,
425	$mt->translate("The [_1] database driver is required to use [_2].", $driver->{dbd_package}, $label),
426	$label, $link ];
427	}
428	unshift @DATA, [ 'DBI', 1.21, 0, translate('DBI is required to store data in database.') ]
429	if @DATA;
430	my $opt = $mt->registry("optional_packages");
431	foreach my $key (keys %$opt) {
432	my $pkg = $opt->{$key};
433	push @OPT, [ $key, $pkg->{version} \|\| 0, 0, $pkg->{label}, $key, $pkg->{link} ];
434	}
435	}
436	@REQ = @CORE_REQ unless @REQ;
437	@DATA = @CORE_DATA unless @DATA;
438	@OPT = @CORE_OPT unless @OPT;
439
440	for my $list (\@REQ, \@DATA, \@OPT) {
441	my $data = ($list == \@DATA);
442	my $req = ($list == \@REQ);
443	my $type;
444	my $phrase;
445
446	if (!$view) {
447	$phrase = translate("Checking for");
448	} else {
449	$phrase = translate("Installed");
450	}
451
452	if ($data) {
453	$type = translate("Data Storage");
454	} elsif ($req) {
455	$type = translate("Required");
456	} else {
457	$type = translate("Optional");
458	}
459	print trans_templ(qq{<h2><MT_TRANS phrase="[_1] [_2] Modules" params="$phrase%%$type"></h2>\n\t<div>\n});
460	if (!$req && !$data) {
461	if (!$view) {
462	print trans_templ(<<MSG);
463	<p class="msg msg-info"><MT_TRANS phrase="The following modules are <strong>optional</strong>. If your server does not have these modules installed, you only need to install them if you require the functionality that the module provides."></p>
464
465	MSG
466	}
467	}
468	if ($data) {
469	if (!$view) {
470	print trans_templ(<<MSG);
471	<p class="msg msg-info"><MT_TRANS phrase="Some of the following modules are required by the various data storage options in Movable Type. In order run the system, your server needs to have DBI and at least one of the other modules installed."></p>
472
473	MSG
474	}
475	}
476	my $got_one_data = 0;
477	my $dbi_is_okay = 0;
478	for my $ref (@$list) {
479	my($mod, $ver, $req, $desc) = @$ref;
480	if ('CODE' eq ref($desc)) {
481	$desc = $desc->();
482	}
483	print "<blockquote>\n" if $mod =~ m/^DBD::/;
484	print " <h3>$mod" .
485	($ver ? " (version >= $ver)" : "") . "</h3>";
486	eval("use $mod" . ($ver ? " $ver;" : ";"));
487	if ($@) {
488	$is_good = 0 if $req;
489	my $msg = $ver ?
490	trans_templ(qq{<p class="warning"><MT_TRANS phrase="Either your server does not have [_1] installed, the version that is installed is too old, or [_1] requires another module that is not installed." params="$mod"> }) :
491	trans_templ(qq{<p class="warning"><MT_TRANS phrase="Your server does not have [_1] installed, or [_1] requires another module that is not installed." params="$mod"> });
492	$msg .= $desc .
493	trans_templ(qq{ <MT_TRANS phrase="Please consult the installation instructions for help in installing [_1]." params="$mod"></p>\n\n});
494	print $msg . "\n\n";
495	} else {
496	if ($data) {
497	$dbi_is_okay = 1 if $mod eq 'DBI';
498	if ($mod eq 'DBD::mysql') {
499	if ($DBD::mysql::VERSION == 3.0000) {
500	print trans_templ(qq{<p class="warning"><MT_TRANS phrase="The DBD::mysql version you have installed is known to be incompatible with Movable Type. Please install the current release available from CPAN."></p>});
501	}
502	}
503	if (!$dbi_is_okay) {
504	print trans_templ(qq{<p class="warning"><MT_TRANS phrase="The $mod is installed properly, but requires an updated DBI module. Please see note above regarding the DBI module requirements."></p>});
505	} else {
506	$got_one_data = 1;
507	}
508	}
509	print trans_templ(qq{<p class="installed"><MT_TRANS phrase="Your server has [_1] installed (version [_2])." params="$mod%%} . $mod->VERSION . qq{"></p>\n\n});
510	}
511	print "</blockquote>\n" if $mod =~ m/^DBD::/;
512	}
513	$is_good &= $got_one_data if $data;
514	print "\n\t</div>\n\n";
515	}
516
517	if ($is_good && $cfg_exist) {
518	if (!$view) {
519	print trans_templ(<<HTML);
520
521	<div class="msg msg-success">
522	<h2><MT_TRANS phrase="Movable Type System Check Successful"></h2>
523	<p><strong><MT_TRANS phrase="You're ready to go!"></strong> <MT_TRANS phrase="Your server has all of the required modules installed; you do not need to perform any additional module installations. Continue with the installation instructions."></p>
524	</div>
525
526	</div>
527
528	HTML
529	}
530	}
531
532	print "</body>\n\n</html>\n";

Note: See TracBrowser for help on using the browser.

root/branches/release-29/mt-check.cgi.pre

Download in other formats: