Return to loncapaverifybasepackage CVS log

Up to [LON-CAPA] / loncom / build

Annotation of loncom/build/loncapaverifybasepackage, revision 1.2

1.1       harris41    1: #!/usr/bin/perl
                      2: 
                      3: # loncapaverifybasepackage
                      4: 
1.2     ! harris41    5: # This tool helps with system verification.  It looks at essential
        !             6: # files on the system.  It downloads the base
1.1       harris41    7: # RPM (LON-CAPA-base) from install.lon-capa.org (into /tmp
                      8: # directory).  It compares file differences and generates a
                      9: # pretty HTML report.
                     10: 
                     11: # This is an adapted shell script I wrote a while ago.  I need
                     12: # to perlify many of the commands.
                     13: 
                     14: # Scott Harrison, 10/25/2000
                     15: 
                     16: use strict;
                     17: 
                     18: `/bin/rm -Rf /home/httpd/html/dev`;
                     19: `/bin/mkdir -m 0755 /home/httpd/html/dev`;
                     20: `/usr/bin/lynx -source http://install.lon-capa.org/3.1/loncapafiles/LON-CAPA-base-3.1-1.i386.rpm > /tmp/LON-CAPA-base-3.1-1.i386.rpm`;
                     21: `/bin/rpm -Vp /tmp/LON-CAPA-base-3.1-1.i386.rpm > /home/httpd/html/dev/index.txt`;
                     22: `/bin/echo "<H1>File Check: " > /home/httpd/html/dev/index.html`;
                     23: `/bin/cat /etc/HOSTNAME >> /home/httpd/html/dev/index.html`;
                     24: `/bin/echo "</H1><BR>DATE OF CHECK: " >> /home/httpd/html/dev/index.html`;
                     25: `/bin/date >> /home/httpd/html/dev/index.html`;
                     26: `/bin/echo "<BR>DATE OF MOST RECENT LON-CAPA RPM: " >> /home/httpd/html/dev/index.html`;
                     27: `/bin/rpm -qp --queryformat '%{BUILDTIME}' /tmp/LON-CAPA-base-3.1-1.i386.rpm | /usr/bin/perl -e '\$t=<>; chop; print scalar localtime(\$t);' >> /home/httpd/html/dev/index.html`;
                     28: `/bin/echo "<P>Inconsistencies with most recent LON-CAPA RPM (<B>bold</B> indicates the way it should be):<BR><HR>" >> /home/httpd/html/dev/index.html`;
                     29: my @verifications=`/bin/rpm -Vp /tmp/LON-CAPA-base-3.1-1.i386.rpm | grep -v '\\.\\.\\.\\.\\.\\.\\.' | cut -b13-`;
                     30: my @reports=();
                     31: foreach (@verifications) {
                     32:     chop;
                     33:     my $a=$_;
                     34:     my $d=`cd /tmp; rm -Rf /tmp/uncpio;mkdir uncpio;cd uncpio; rpm2cpio ../LON-CAPA-base-3.1-1.i386.rpm | cpio -iumd --quiet $a;diff $a /$a 2>&1;`;
                     35:     $d=~s/\</\&lt;/g;
                     36:     $d=~s/\>/\&gt;/g;
                     37:     push @reports,(split(/\n/,"<P><B>$a</B><BR><TABLE BGCOLOR=\"#80FF80\"><TR><TD><PRE>$d</PRE></TD></TR></TABLE>")); 
                     38:     `rm -Rf /tmp/uncpio`;
                     39: } 
                     40: open (OUT,">>/home/httpd/html/dev/index.html");
                     41: foreach (@reports) {
                     42:     my $a=$_;
                     43:     $a="<B>$a</B>" if /^\&lt;/;
                     44:     print OUT "$a\n";
                     45: }
                     46: close OUT;
                     47: `/bin/rm -f /tmp/LON-CAPA-base-3.1-1.i386.rpm`;