[LON-CAPA-cvs] cvs: loncom /build/system_dependencies Makefile postscripttest.pl
harris41
lon-capa-cvs@mail.lon-capa.org
Thu, 15 Aug 2002 16:12:28 -0000
harris41 Thu Aug 15 12:12:28 2002 EDT
Added files:
/loncom/build/system_dependencies postscripttest.pl
Modified files:
/loncom/build/system_dependencies Makefile
Log:
BUG FIX 634; supporting testing for postscript utilities like ps2pdf.
Index: loncom/build/system_dependencies/Makefile
diff -u loncom/build/system_dependencies/Makefile:1.2 loncom/build/system_dependencies/Makefile:1.3
--- loncom/build/system_dependencies/Makefile:1.2 Wed Aug 14 13:17:10 2002
+++ loncom/build/system_dependencies/Makefile Thu Aug 15 12:12:28 2002
@@ -1,4 +1,4 @@
-test: perltest sqltest
+test: perltest sqltest postscripttest
perltest:
perl perltest.pl synopsis
@@ -7,3 +7,6 @@
sqltest:
perl sqltest.pl
+
+postscripttest:
+ perl postscripttest.pl
Index: loncom/build/system_dependencies/postscripttest.pl
+++ loncom/build/system_dependencies/postscripttest.pl
#!/usr/bin/perl
# postscripttest.pl - script to test for necessary postscript tools on system
#
# $Id: postscripttest.pl,v 1.1 2002/08/15 16:12:28 harris41 Exp $
#
###
=pod
=head1 NAME
B<postscripttest.pl> - Test for necessary postscript tools on system
=cut
# Written to help LON-CAPA (The LearningOnline Network with CAPA)
#
# YEAR=2002
# Scott Harrison
=pod
=head1 SYNOPSIS
perl postscripttest.pl
This script is ordinarily located inside the LON-CAPA source code tree.
This script is normally invoked by test-related targets inside
F<loncapa/loncom/build/Makefile>.
=head1 DESCRIPTION
This program tests the status of postscript utilities on a LON-CAPA server.
For instance, the ps2pdf utility is critically important for providing
the manual in a pdf format.
=head1 AUTHOR
Scott Harrison, sharrison@users.sourceforge.net, 2001, 2002
This software is distributed under the General Public License,
version 2, June 1991 (which is the same terms as LON-CAPA).
This is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
This software is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this software; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
=cut
# =================================== Process version information of this file.
my $VERSION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);
print('Running postscripttest.pl, version '.$VERSION.'.'."\n");
print('(Test for needed utilities like ps2pdf.)'."\n");
my $ps2pdf_flag=0;
foreach my $dir (split(/\:/,$ENV{'PATH'})) {
next if /^\/home/;
if (-x "$dir/ps2pdf") {
$ps2pdf_flag="$dir/ps2pdf";
}
}
if ($ps2pdf_flag) {
print("Checking for ps2pdf...found at ${ps2pdf_flag}.\n");
}
else {
print("**** ERROR **** Cannot find ps2pdf in the path!\n");
exit(1);
}