View of /trunk/webwork2/bin/check_modules.pl

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