YaBB 2.5.4 Module Checker

############################################################################### # ModuleChecker.pm # # $Date: 12/4/2012 $ # ############################################################################### # YaBB: Yet another Bulletin Board # # Open-Source Community Software for Webmasters # # Version: YaBB 2.5.4 # # Packaged: January 1, 2013 # # Distributed by: http://www.yabbforum.com # # =========================================================================== # # Copyright (c) 2000-2012 YaBB (www.yabbforum.com) - All Rights Reserved. # # Software by: The YaBB Development Team # # with assistance from the YaBB community. # ############################################################################### use strict; use CGI::Carp qw(fatalsToBrowser); our $VERSION = '2.5.4'; our $modulecheckerpmver = 'YaBB 2.5.4 $Revision$'; my ( $dont_continue_setup ); our ( $action, $yymain, %modulecheck ); if ( $action eq 'detailedversion' ) { return 1; } my $script_root = $ENV{'SCRIPT_FILENAME'}; if( ! $script_root ) { $script_root = $ENV{'PATH_TRANSLATED'}; } my ( $checker_output, $i ); foreach my $module ( qw(Digest::MD5 Time::HiRes Time::Local File::Find CGI Net::SMTP Net::SMTP::TLS Compress::Zlib Compress::Bzip2 Archive::Tar Archive::Zip MIME::Lite LWP::UserAgent HTTP::Request::Common Crypt::SSLeay IO::Socket::INET Digest::HMAC_MD5 Carp bytes integer English) ) { eval "require $module"; if ($@) { if ( $module eq 'Digest::MD5' ) { $dont_continue_setup = 1; } $i = $modulecheck{'8'}; my $e = $@; # IE does display the @INC path it in one line :-( # If you use IE and don't like what you see, remove the # comment (#) in next line. # $e =~ s/\//\\/g; $checker_output .= qq~ $module $modulecheck{'5'}

$e $modulecheck{"$module"} ~; } else { $checker_output .= qq~ $module $modulecheck{'6'} ~; } } if ( $script_root !~ /ModuleChecker\.\w+$/xsm ) { $yymain .= qq~

~ . ( $i ? qq~~ : q{} ) . qq~ $checker_output

$modulecheck{'1'}
$modulecheck{'2'}
$modulecheck{'7'}	$i
$modulecheck{'3'}	$modulecheck{'4'}

~; } else { my (%params); print qq~Content-Type: text/html$params{'-charset'}\r\n YaBB 2.5.4 Module Checker ~ . ( $i ? qq~~ : q{} ) . qq~ $checker_output

$modulecheck{'1'} $modulecheck{'2'}
$modulecheck{'7'}	$i
$modulecheck{'3'}	$modulecheck{'4'}

~ or croak 'cannot print ModuleChecker'; } 1;