[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);
}