<MT_TRANS phrase="Movable Type System Check"> [mt-check.cgi]

HTML } my $is_good = 1; my (@REQ, @DATA, @OPT); my @CORE_REQ = ( [ 'CGI', 0, 1, translate('CGI is required for all Movable Type application functionality.') ], [ 'Image::Size', 0, 1, translate('Image::Size is required for file uploads (to determine the size of uploaded images in many different formats).') ], [ 'File::Spec', 0.8, 1, translate('File::Spec is required for path manipulation across operating systems.') ], [ 'CGI::Cookie', 0, 1, translate('CGI::Cookie is required for cookie authentication.') ], ); my @CORE_DATA = ( [ 'DBI', 1.21, 0, translate('DBI is required to store data in database.') ], [ 'DBD::mysql', 0, 0, translate('DBI and DBD::mysql are required if you want to use the MySQL database backend.') ], [ 'DBD::Pg', 1.32, 0, translate('DBI and DBD::Pg are required if you want to use the PostgreSQL database backend.') ], [ 'DBD::SQLite', 0, 0, translate('DBI and DBD::SQLite are required if you want to use the SQLite database backend.') ], [ 'DBD::SQLite2', 0, 0, translate('DBI and DBD::SQLite2 are required if you want to use the SQLite 2.x database backend.') ], ); my @CORE_OPT = ( [ '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.') ], [ '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.') ], [ '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.') ], [ 'SOAP::Lite', 0.50, 0, translate('SOAP::Lite is optional; It is needed if you wish to use the MT XML-RPC server implementation.') ], [ '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.') ], [ 'List::Util', 0, 1, translate('List::Util is optional; It is needed if you want to use the Publish Queue feature.')], [ '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.') ], [ 'Storable', 0, 0, translate('Storable is optional; it is required by certain MT plugins available from third parties.')], [ 'Crypt::DSA', 0, 0, translate('Crypt::DSA is optional; if it is installed, comment registration sign-ins will be accelerated.')], [ 'MIME::Base64', 0, 0, translate('MIME::Base64 is required in order to enable comment registration.')], [ 'XML::Atom', 0, 0, translate('XML::Atom is required in order to use the Atom API.')], [ '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.')], [ 'Archive::Tar', 0, 0, translate('Archive::Tar is required in order to archive files in backup/restore operation.')], [ 'IO::Compress::Gzip', 0, 0, translate('IO::Compress::Gzip is required in order to compress files in backup/restore operation.')], [ 'IO::Uncompress::Gunzip', 0, 0, translate('IO::Uncompress::Gunzip is required in order to decompress files in backup/restore operation.')], [ 'Archive::Zip', 0, 0, translate('Archive::Zip is required in order to archive files in backup/restore operation.')], [ 'XML::SAX', 0, 0, translate('XML::SAX and/or its dependencies is required in order to restore.')], [ '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.')], [ 'Mail::Sendmail', 0, 0, translate('Mail::Sendmail is required for sending mail via SMTP Server.')], ); use Cwd; my $cwd = ''; { my($bad); local $SIG{__WARN__} = sub { $bad++ }; eval { $cwd = Cwd::getcwd() }; if ($bad || $@) { eval { $cwd = Cwd::cwd() }; if ($@ && $@ !~ /Insecure \$ENV{PATH}/) { die $@; } } } my $ver = $^V ? join('.', unpack 'C*', $^V) : $]; my $perl_ver_check = ''; if ($] < 5.006001) { # our minimal requirement for support $perl_ver_check = <

EOT } my $config_check = ''; if (!$cfg_exist) { $config_check = <

CONFIG } my $server = $ENV{SERVER_SOFTWARE}; my $inc_path = join "
\n", @INC; print trans_templ(< $perl_ver_check $config_check INFO if ($version) { # sanitize down to letters numbers dashes and period $version =~ s/[^a-zA-Z0-9\-\.]//g; print trans_templ(<

$version

INFO } print trans_templ(<

$cwd

$ENV{MT_HOME}

$^O

$ver

$inc_path

INFO if ($server) { print trans_templ(< $server INFO } ## Try to create a new file in the current working directory. This ## isn't a perfect test for running under cgiwrap/suexec, but it ## is a pretty good test. my $TMP = "test$$.tmp"; local *FH; if (open(FH, ">$TMP")) { close FH; unlink($TMP); print trans_templ('

' . "\n"); } print "\n\n\n"; exit if $ENV{QUERY_STRING} && $ENV{QUERY_STRING} eq 'sys-check'; if ($mt) { my $req = $mt->registry("required_packages"); foreach my $key (keys %$req) { next if $key eq 'DBI'; my $pkg = $req->{$key}; push @REQ, [ $key, $pkg->{version} || 0, 1, $pkg->{label}, $key, $pkg->{link} ]; } my $drivers = $mt->object_drivers; foreach my $key (keys %$drivers) { my $driver = $drivers->{$key}; my $label = $driver->{label}; my $link = 'http://search.cpan.org/dist/' . $driver->{dbd_package}; $link =~ s/::/-/g; push @DATA, [ $driver->{dbd_package}, $driver->{dbd_version}, 0, $mt->translate("The [_1] database driver is required to use [_2].", $driver->{dbd_package}, $label), $label, $link ]; } unshift @DATA, [ 'DBI', 1.21, 0, translate('DBI is required to store data in database.') ] if @DATA; my $opt = $mt->registry("optional_packages"); foreach my $key (keys %$opt) { my $pkg = $opt->{$key}; push @OPT, [ $key, $pkg->{version} || 0, 0, $pkg->{label}, $key, $pkg->{link} ]; } } @REQ = @CORE_REQ unless @REQ; @DATA = @CORE_DATA unless @DATA; @OPT = @CORE_OPT unless @OPT; for my $list (\@REQ, \@DATA, \@OPT) { my $data = ($list == \@DATA); my $req = ($list == \@REQ); my $type; my $phrase; if (!$view) { $phrase = translate("Checking for"); } else { $phrase = translate("Installed"); } if ($data) { $type = translate("Data Storage"); } elsif ($req) { $type = translate("Required"); } else { $type = translate("Optional"); } print trans_templ(qq{

\n\t

\n}); if (!$req && !$data) { if (!$view) { print trans_templ(<

MSG } } if ($data) { if (!$view) { print trans_templ(<

MSG } } my $got_one_data = 0; my $dbi_is_okay = 0; for my $ref (@$list) { my($mod, $ver, $req, $desc) = @$ref; if ('CODE' eq ref($desc)) { $desc = $desc->(); } print "

\n" if $mod =~ m/^DBD::/; print "
$mod" . ($ver ? " (version >= $ver)" : "") . "
"; eval("use $mod" . ($ver ? " $ver;" : ";")); if ($@) { $is_good = 0 if $req; my $msg = $ver ? trans_templ(qq{
}) : trans_templ(qq{
}); $msg .= $desc . trans_templ(qq{
\n\n}); print $msg . "\n\n"; } else { if ($data) { $dbi_is_okay = 1 if $mod eq 'DBI'; if ($mod eq 'DB_File') { $got_one_data = 1; } elsif ($mod ne 'DBI') { if ($mod eq 'DBD::mysql') { if ($DBD::mysql::VERSION == 3.0000) { print trans_templ(qq{
}); } } if (!$dbi_is_okay) { print trans_templ(qq{
}); } else { $got_one_data = 1; } } } print trans_templ(qq{
\n\n}); } print "

\n" if $mod =~ m/^DBD::/; } $is_good &= $got_one_data if $data; print "\n\t

\n\n"; } if ($is_good && $cfg_exist) { if (!$view) { print trans_templ(<