mt-check.cgi.pre

Revision 2402, 18.8 kB (checked in by bchoate, 7 months ago)
Added Digest::MD5 to optional module requirements. BugId:79843
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	if ( $mt ) {
69	$LH = $mt->language_handle;
70	$mt->set_language($lang);
71	}
72	else {
73	MT::L10N->get_handle($lang);
74	}
75	};
76
77	sub trans_templ {
78	my($text) = @_;
79	return $mt->translate_templatized($text) if $mt;
80	$text =~ s!(<MT_TRANS(?:\s+((?:\w+)\s=\s(["'])(?:<[^>]+?>\|[^\3]+?)+?\3))+?\s*/?>)!
81	my($msg, %args) = ($1);
82	#print $msg;
83	while ($msg =~ /\b(\w+)\s=\s(["'])((?:<[^>]+?>\|[^\2])*?)\2/g) { #"
84	$args{$1} = $3;
85	}
86	$args{params} = '' unless defined $args{params};
87	my @p = map decode_html($_),
88	split /\s%%\s/, $args{params};
89	@p = ('') unless @p;
90	my $translation = translate($args{phrase}, @p);
91	$translation =~ s/([\\'])/\\$1/sg if $args{escape};
92	$translation;
93	!ge;
94	$text;
95	}
96
97	sub translate {
98	return (
99	$mt ? $mt->translate(@_)
100	: $LH ? $LH->maketext(@_)
101	: merge_params(@_)
102	);
103	}
104
105	sub decode_html {
106	my($html) = @_;
107	if ($cfg_exist && (eval 'use MT::Util; 1')) {
108	return MT::Util::decode_html($html);
109	} else {
110	$html =~ s#"#"#g;
111	$html =~ s#<#<#g;
112	$html =~ s#>#>#g;
113	$html =~ s#&#&#g;
114	}
115	$html;
116	}
117
118	sub merge_params {
119	my ($msg, @param) = @_;
120	my $cnt = 1;
121	foreach my $p (@param) {
122	$msg =~ s/\[_$cnt\]/$p/g;
123	$cnt++;
124	}
125	$msg;
126	}
127
128	print "Content-Type: text/html; charset=utf-8\n\n";
129	if (!$view) {
130	print trans_templ(<<HTML);
131
132	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
133	<html xmlns="http://www.w3.org/1999/xhtml">
134
135	<head>
136	<meta http-equiv="content-type" content="text/html; charset=utf-8" />
137	<meta http-equiv="content-language" content="$lang" />
138
139	<title><MT_TRANS phrase="Movable Type System Check"> [mt-check.cgi]</title>
140
141	<style type=\"text/css\">
142	<!--
143
144	body {
145	font-family: "Helvetica Neue", Helvetica, Arial, sans-serif;
146	font-size: 13px;
147	margin: 0;
148	padding: 0;
149	background-color: #fff;
150	}
151
152	body.has-static {
153	background: #fff url('$mt_static_path/images/chromeless/chromeless_top_bg.gif') repeat-x;
154	}
155
156	body.has-static #header {
157	background: url('$mt_static_path/images/chromeless/movable-type-logo.gif') no-repeat 25px 15px;
158	height: 55px;
159	}
160
161	#content {
162	margin: 20px 20px 100px;
163	}
164
165	h1 {
166	margin: 0;
167	padding: 10px;
168	text-align: center;
169	font-size: 22px;
170	color: #fff;
171	background: #000;
172	}
173	body.has-static #header h1 {
174	display: none;
175	}
176
177	h2 {
178	margin-top: 2em;
179	margin-bottom: .5em;
180	font-size: 24px;
181	font-weight: normal;
182	}
183	h2#system-info {
184	margin-top: 1em;
185	}
186
187	h3 {
188	color: #333;
189	font-size: 16px;
190	margin-bottom: 0px;
191	}
192
193	p, ul {
194	margin: 0 0 .75em 0;
195	padding: 0;
196	}
197
198	ul {
199	padding-left: 20px;
200	}
201
202	.msg {
203	margin: 0 0 10px 0;
204	padding: 16px 10px 16px 46px;
205	background-repeat: no-repeat;
206	}
207	.msg-info {
208	background-color: #eaf2ff;
209	background-image: url('$mt_static_path/images/icon_info.gif');
210	background-position: 12px center;
211	border: 1px solid #999;
212	}
213
214	.ready {
215	color: #fff;
216	background-color: #9C6;
217	border: 0;
218	padding-left: 5px;
219	}
220
221	.msg-success {
222	background-color: #CFC;
223	background-image: url('$mt_static_path/images/icon_success.png');
224	background-position: 12px .75em;
225	font-size: 24px;
226	}
227	.msg-success h2 {
228	margin-top: 0;
229	}
230	.msg-success p {
231	font-size: 13px;
232	}
233
234	.info {
235	margin-left: 60px;
236	margin-right: 60px;
237	padding: 20px;
238	border: 1px solid #eaf2ff;
239	background: #eaf2ff;
240	color: #000;
241	}
242
243	.installed {
244	color: #93b06b;
245	padding-top: 0px;
246	margin-top: 0px;
247	}
248
249	.warning {
250	padding-top: 0px;
251	margin-top: 4px;
252	border-left: 1px solid red;
253	padding-left: 10px;
254	margin-left: 20px;
255	}
256
257	ul.version {
258	margin-bottom: 0;
259	}
260
261	//-->
262	</style>
263
264	</head>
265
266	HTML
267	if ($mt_static_path) {
268	print "<body class=\"has-static\">\n";
269	} else {
270	print "<body>\n";
271	}
272	print trans_templ(<<HTML);
273	<div id="header"><h1><MT_TRANS phrase="Movable Type System Check"> [mt-check.cgi]</h1></div>
274
275	<div id="content">
276	<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>
277	HTML
278	}
279
280	my $is_good = 1;
281	my (@REQ, @DATA, @OPT);
282
283	my @CORE_REQ = (
284	[ 'CGI', 0, 1, translate('CGI is required for all Movable Type application functionality.') ],
285
286	[ 'Image::Size', 0, 1, translate('Image::Size is required for file uploads (to determine the size of uploaded images in many different formats).') ],
287
288	[ 'File::Spec', 0.8, 1, translate('File::Spec is required for path manipulation across operating systems.') ],
289
290	[ 'CGI::Cookie', 0, 1, translate('CGI::Cookie is required for cookie authentication.') ],
291	);
292
293	my @CORE_DATA = (
294	[ 'DBI', 1.21, 0, translate('DBI is required to store data in database.') ],
295
296	[ 'DBD::mysql', 0, 0, translate('DBI and DBD::mysql are required if you want to use the MySQL database backend.') ],
297
298	[ 'DBD::Pg', 1.32, 0, translate('DBI and DBD::Pg are required if you want to use the PostgreSQL database backend.') ],
299
300	[ 'DBD::SQLite', 0, 0, translate('DBI and DBD::SQLite are required if you want to use the SQLite database backend.') ],
301
302	[ 'DBD::SQLite2', 0, 0, translate('DBI and DBD::SQLite2 are required if you want to use the SQLite 2.x database backend.') ],
303
304	);
305
306	my @CORE_OPT = (
307	[ '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.') ],
308
309	[ '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.') ],
310
311	[ '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.') ],
312
313	[ 'SOAP::Lite', 0.50, 0, translate('SOAP::Lite is optional; It is needed if you wish to use the MT XML-RPC server implementation.') ],
314
315	[ '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.') ],
316
317	[ 'Scalar::Util', 0, 1, translate('Scalar::Util is optional; It is needed if you want to use the Publish Queue feature.')],
318
319	[ 'List::Util', 0, 1, translate('List::Util is optional; It is needed if you want to use the Publish Queue feature.')],
320
321	[ '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.') ],
322
323	[ 'Storable', 0, 0, translate('Storable is optional; it is required by certain MT plugins available from third parties.')],
324
325	[ 'Crypt::DSA', 0, 0, translate('Crypt::DSA is optional; if it is installed, comment registration sign-ins will be accelerated.')],
326
327	[ 'MIME::Base64', 0, 0, translate('MIME::Base64 is required in order to enable comment registration.')],
328
329	[ 'XML::Atom', 0, 0, translate('XML::Atom is required in order to use the Atom API.')],
330
331	[ '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.')],
332
333	[ 'Archive::Tar', 0, 0, translate('Archive::Tar is required in order to archive files in backup/restore operation.')],
334
335	[ 'IO::Compress::Gzip', 0, 0, translate('IO::Compress::Gzip is required in order to compress files in backup/restore operation.')],
336
337	[ 'IO::Uncompress::Gunzip', 0, 0, translate('IO::Uncompress::Gunzip is required in order to decompress files in backup/restore operation.')],
338
339	[ 'Archive::Zip', 0, 0, translate('Archive::Zip is required in order to archive files in backup/restore operation.')],
340
341	[ 'XML::SAX', 0, 0, translate('XML::SAX and/or its dependencies is required in order to restore.')],
342
343	[ '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.')],
344	[ 'Mail::Sendmail', 0, 0, translate('Mail::Sendmail is required for sending mail via SMTP Server.')],
345	[ 'Safe', 0, 0, translate('This module is used in test attribute of MTIf conditional tag.')],
346	[ 'Digest::MD5', 0, 0, translate('This module is used by the Markdown text filter.')],
347	);
348
349	use Cwd;
350	my $cwd = '';
351	{
352	my($bad);
353	local $SIG{__WARN__} = sub { $bad++ };
354	eval { $cwd = Cwd::getcwd() };
355	if ($bad \|\| $@) {
356	eval { $cwd = Cwd::cwd() };
357	if ($@ && $@ !~ /Insecure \$ENV{PATH}/) {
358	die $@;
359	}
360	}
361	}
362
363	my $ver = ref($^V) eq 'version' ? $^V->normal : ( $^V ? join('.', unpack 'C*', $^V) : $] );
364	my $perl_ver_check = '';
365	if ($] < 5.006001) { # our minimal requirement for support
366	$perl_ver_check = <<EOT;
367	<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>
368	EOT
369	}
370	my $config_check = '';
371	if (!$cfg_exist) {
372	$config_check = <<CONFIG;
373	<p class="warning"><MT_TRANS phrase="Movable Type configuration file was not found."></p>
374	CONFIG
375	}
376	my $server = $ENV{SERVER_SOFTWARE};
377	my $inc_path = join "<br />\n", @INC;
378	print trans_templ(<<INFO);
379	<h2 id="system-info"><MT_TRANS phrase="System Information"></h2>
380	$perl_ver_check
381	$config_check
382	INFO
383	if ($version) {
384	# sanitize down to letters numbers dashes and period
385	$version =~ s/[^a-zA-Z0-9\-\.]//g;
386	print trans_templ(<<INFO);
387	<ul class="version">
388	<li><strong><MT_TRANS phrase="Movable Type version:"></strong> <code>$version</code></li>
389	</ul>
390	INFO
391	}
392	print trans_templ(<<INFO);
393	<ul>
394	<li><strong><MT_TRANS phrase="Current working directory:"></strong> <code>$cwd</code></li>
395	<li><strong><MT_TRANS phrase="MT home directory:"></strong> <code>$ENV{MT_HOME}</code></li>
396	<li><strong><MT_TRANS phrase="Operating system:"></strong> $^O</li>
397	<li><strong><MT_TRANS phrase="Perl version:"></strong> <code>$ver</code></li>
398	<li><strong><MT_TRANS phrase="Perl include path:"></strong><br /> <code>$inc_path</code></li>
399	INFO
400	if ($server) {
401	print trans_templ(<<INFO);
402	<li><strong><MT_TRANS phrase="Web server:"></strong> <code>$server</code></li>
403	INFO
404	}
405
406	## Try to create a new file in the current working directory. This
407	## isn't a perfect test for running under cgiwrap/suexec, but it
408	## is a pretty good test.
409	my $TMP = "test$$.tmp";
410	local *FH;
411	if (open(FH, ">$TMP")) {
412	close FH;
413	unlink($TMP);
414	print trans_templ(' <li><MT_TRANS phrase="(Probably) Running under cgiwrap or suexec"></li>' . "\n");
415	}
416
417	print "\n\n</ul>\n";
418
419	exit if $ENV{QUERY_STRING} && $ENV{QUERY_STRING} eq 'sys-check';
420
421	if ($mt) {
422	my $req = $mt->registry("required_packages");
423	foreach my $key (keys %$req) {
424	next if $key eq 'DBI';
425	my $pkg = $req->{$key};
426	push @REQ, [ $key, $pkg->{version} \|\| 0, 1, $pkg->{label}, $key, $pkg->{link} ];
427	}
428	my $drivers = $mt->object_drivers;
429	foreach my $key (keys %$drivers) {
430	my $driver = $drivers->{$key};
431	my $label = $driver->{label};
432	my $link = 'http://search.cpan.org/dist/' . $driver->{dbd_package};
433	$link =~ s/::/-/g;
434	push @DATA, [ $driver->{dbd_package}, $driver->{dbd_version}, 0,
435	$mt->translate("The [_1] database driver is required to use [_2].", $driver->{dbd_package}, $label),
436	$label, $link ];
437	}
438	unshift @DATA, [ 'DBI', 1.21, 0, translate('DBI is required to store data in database.') ]
439	if @DATA;
440	my $opt = $mt->registry("optional_packages");
441	foreach my $key (keys %$opt) {
442	my $pkg = $opt->{$key};
443	push @OPT, [ $key, $pkg->{version} \|\| 0, 0, $pkg->{label}, $key, $pkg->{link} ];
444	}
445	}
446	@REQ = @CORE_REQ unless @REQ;
447	@DATA = @CORE_DATA unless @DATA;
448	@OPT = @CORE_OPT unless @OPT;
449
450	for my $list (\@REQ, \@DATA, \@OPT) {
451	my $data = ($list == \@DATA);
452	my $req = ($list == \@REQ);
453	my $type;
454	my $phrase;
455
456	if (!$view) {
457	$phrase = translate("Checking for");
458	} else {
459	$phrase = translate("Installed");
460	}
461
462	if ($data) {
463	$type = translate("Data Storage");
464	} elsif ($req) {
465	$type = translate("Required");
466	} else {
467	$type = translate("Optional");
468	}
469	print trans_templ(qq{<h2><MT_TRANS phrase="[_1] [_2] Modules" params="$phrase%%$type"></h2>\n\t<div>\n});
470	if (!$req && !$data) {
471	if (!$view) {
472	print trans_templ(<<MSG);
473	<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>
474
475	MSG
476	}
477	}
478	if ($data) {
479	if (!$view) {
480	print trans_templ(<<MSG);
481	<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>
482
483	MSG
484	}
485	}
486	my $got_one_data = 0;
487	my $dbi_is_okay = 0;
488	for my $ref (@$list) {
489	my($mod, $ver, $req, $desc) = @$ref;
490	if ('CODE' eq ref($desc)) {
491	$desc = $desc->();
492	}
493	print "<blockquote>\n" if $mod =~ m/^DBD::/;
494	print " <h3>$mod" .
495	($ver ? " (version >= $ver)" : "") . "</h3>";
496	eval("use $mod" . ($ver ? " $ver;" : ";"));
497	if ($@) {
498	$is_good = 0 if $req;
499	my $msg = $ver ?
500	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"> }) :
501	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"> });
502	$msg .= $desc .
503	trans_templ(qq{ <MT_TRANS phrase="Please consult the installation instructions for help in installing [_1]." params="$mod"></p>\n\n});
504	print $msg . "\n\n";
505	} else {
506	if ($data) {
507	$dbi_is_okay = 1 if $mod eq 'DBI';
508	if ($mod eq 'DBD::mysql') {
509	if ($DBD::mysql::VERSION == 3.0000) {
510	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>});
511	}
512	}
513	if (!$dbi_is_okay) {
514	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>});
515	} else {
516	$got_one_data = 1;
517	}
518	}
519	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});
520	}
521	print "</blockquote>\n" if $mod =~ m/^DBD::/;
522	}
523	$is_good &= $got_one_data if $data;
524	print "\n\t</div>\n\n";
525	}
526
527	if ($is_good && $cfg_exist) {
528	if (!$view) {
529	print trans_templ(<<HTML);
530
531	<div class="msg msg-success">
532	<h2><MT_TRANS phrase="Movable Type System Check Successful"></h2>
533	<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>
534	</div>
535
536	</div>
537
538	HTML
539	}
540	}
541
542	print "</body>\n\n</html>\n";

Note: See TracBrowser for help on using the browser.

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

Download in other formats: