View of /branches/rel-2-4-dev/webwork-modperl/bin/check_modules.pl

    1 #!/usr/bin/perl -w
    2 
    3 my @modulesList = qw(
    4   Apache::Constants
    5   Apache::Cookie
    6   Apache::Request
    7   Carp
    8   CGI
    9   CGI::Pretty
   10   Data::Dumper
   11   Data::UUID
   12   Date::Format
   13   Date::Parse
   14   DateTime
   15   DBI
   16   Digest::MD5
   17   Errno
   18   File::Copy
   19   File::Path
   20   File::Temp
   21   HTML::Entities
   22   Mail::Sender
   23   Net::SMTP
   24   Opcode
   25   Safe
   26   SOAP::Lite
   27   Text::Wrap
   28   Time::HiRes
   29   URI::Escape
   30   XML::Parser
   31   XML::Parser::EasyTree
   32   XML::Writer
   33 );
   34 
   35 my @applicationsList = qw(
   36   dvipng
   37   giftopnm
   38   latex
   39   pdflatex
   40   pngtopnm
   41   pnmtopng
   42   pnmtops
   43   ppmtopgm
   44   tth
   45 );
   46 
   47 print "\nSearching for executables\n\n";
   48 
   49 foreach my $app (@applicationsList)  {
   50   my $result = `which $app`;
   51   chomp($result);
   52   if ($result)  {
   53     print "$app found at $result\n";
   54   } else {
   55     print "***** Can't find $app\n";
   56   }
   57 }
   58 
   59 print "\nSearching for modules needed for WeBWorK\n\n";
   60 
   61 foreach my $module (@modulesList)  {
   62   eval "use $module";
   63   if ($@) {
   64     print "***** Can't find $module\n";
   65   } else {
   66     print "$module found. \n";
   67   }
   68 }