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