File:  [LON-CAPA] / doc / loncapafiles / rpmcheck.piml
Revision 1.8: download - view: text, annotated - select for diffs
Mon Aug 23 19:07:26 2004 UTC (19 years, 7 months ago) by matthew
Branches: MAIN
CVS tags: version_1_2_X, version_1_2_99_0, version_1_2_1, version_1_2_0, HEAD
Put "**** " in front of WARNINGs and ERRORs so they will be picked up
in the summary.

<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" 
	"http://lpml.sourceforge.net/DTD/piml.dtd">
<!-- phpcheck.piml -->
<!-- Matthew Hall -->

<!-- $Id: rpmcheck.piml,v 1.8 2004/08/23 19:07:26 matthew Exp $ -->

<!--

This file is part of the LearningOnline Network with CAPA (LON-CAPA).

LON-CAPA 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.

LON-CAPA 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 LON-CAPA; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

/home/httpd/html/adm/gpl.txt

http://www.lon-capa.org/

-->

<piml>
<targetroot>/</targetroot>
<files>
<file>
<target dist="default">/home/httpd/lonUsers</target>
<perlscript mode="fg">
my $rhversion = "7.3";
if (-e '/etc/redhat-release') {
    my $tmp = `cat /etc/redhat-release`;
    if ($tmp =~ /fedora/i) {
        $rhversion = 'fedora';
    }
}
#
# Look for php packages that should not be installed
my @phprpms = `rpm -q -a|grep php`;
if (@phprpms) {
    print "**** WARNING: PHP packages are present on this system.\n".
        "There are known conflicts between PHP libraries and LON-CAPA.\n".
        "Use the following command to remove ".
        "the php packages from your system:\nrpm -e ";
    foreach (@phprpms) {
        chomp;
        print $_.' ';
    }
    print "\n";
}
#
# Look for mod_* that are thought to conflict with LON-CAPA
my @mod_rpms = `rpm -q -a | grep mod`;
foreach my $rpm (@mod_rpms) {
    if ($rpm =~ /mod_bandwidth/) {
        print "**** WARNING: it appears you have the mod_bandwidth ".
        "package installed.\n".
        "mod_bandwidth appears to conflict with LON-CAPA.\n".
        "Use the following command to remove it:\n".
        "rpm -e $rpm\n";
    }
    if ($rpm =~ /mod_throttle/) {
        print "**** WARNING: it appears you have the mod_throttle ".
        "package installed.\n".
        "mod_throttle appears to conflict with LON-CAPA.\n".
        "Use the following command to remove it:\n".
        "rpm -e $rpm\n";
    }
        
}
#
# Look for packages which we need to be present
my @RPMS = `rpm -q -a`;
if ($rhversion eq "7.3") {
    foreach my $rpm ('gnuplot-3.7.1-5','LON-CAPA-systemperl') {
        my @matching_rpms = grep(/$rpm/,@RPMS);
        if (! @matching_rpms) {
            print "**** WARNING: ".$rpm." does not appear to be installed.\n";
        }
    }
} else {
    foreach my $rpm ('LONCAPA-prerequisites',
                     'gnuplot-',
                     'perl-IO-Socket-SSL',
                     'perl-Net-SSLeay',
                     'perl-Time-HiRes-1.59',
                     'perl-GDGraph',
                     'perl-GD',
                     'perl-GD-Graph3d',
                     'perl-GD-Barcode',
                     'perl-GDTextUtil',
                     'ImageMagick-5',
                     'ImageMagick-perl',
                     'perl-Algorithm-Diff',
                     'perl-Authen-Krb4',
                     'perl-Authen-Krb5',
                     'perl-Authen-PAM',
                     'perl-Crypt-DES',
                     'perl-Crypt-IDEA',
                     'perl-Crypt-SSLeay',
                     'perl-Event',
                     'perl-HTML-Tree',
                     'perl-IO-stringy',
                     'perl-MailTools',
                     'perl-Math-Cephes',
                     'perl-Math-FFT',
                     'perl-Math-Random',
                     'perl-Net-PH',
                     'perl-Net-SNPP',
                     'perl-Net-SSLeay',
                     'perl-OLE-Storage_Lite',
                     'perl-Parse-RecDescent',
                     'perl-Pod-POM',
                     'perl-PostScript-Simple',
                     'perl-Safe-Hole',
                     'perl-Spreadsheet-WriteExcel',
                     'perl-String-Similarity',
                     'perl-Text-Query',
                     'perl-TimeDate',) {
        my @matching_rpms = grep(/$rpm/,@RPMS);
        if (! @matching_rpms) {
            print "**** WARNING: ".$rpm." does not appear to be installed.\n";
        }
    }
}

foreach my $rpm ('psutils','openssl-devel','perl-suidperl',
                 'apache-1.3','mod_perl.1','^gzip','^zip-',
                 '^bzip2-libs','^unzip','^bzip2','^tar-') {
    my @matching_rpms = grep(/$rpm/,@RPMS);
    if (! @matching_rpms) {
        print "**** WARNING: ".$rpm." does not appear to be installed.\n";
    }
}

#
# Look for files which we need to be present
foreach my $file ('/usr/bin/pstops') {
    if (! -e $file) {
        print "**** WARNING: ".$file." does not appear to be installed.\n";
    }
}
</perlscript>
</file>
</files>
</piml>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>