--- loncom/build/Attic/CHECKRPMS.fedora 2004/07/12 19:24:49 1.1 +++ loncom/build/Attic/CHECKRPMS.fedora 2004/07/19 21:01:51 1.2 @@ -2,7 +2,7 @@ # # The LearningOnline Network with CAPA # -# $Id: CHECKRPMS.fedora,v 1.1 2004/07/12 19:24:49 matthew Exp $ +# $Id: CHECKRPMS.fedora,v 1.2 2004/07/19 21:01:51 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -50,7 +50,6 @@ use LONCAPA::Configuration; my $yum = '/usr/bin/yum'; my $tmpfile = '/tmp/CHECKRPMS.'.$$; -my $command = 'date>'.$tmpfile.';'.$yum.' check-update '.'>>'.$tmpfile; # # Determine who we email @@ -60,7 +59,28 @@ my $subj=$perlvar{'lonHostID'}; undef(%perlvar); # +# Put some nice text in $tmpfile +my $hostname = `hostname`; +chomp($hostname); +open(TMPFILE,">$tmpfile"); +print TMPFILE localtime(time).' '.$hostname."\n"; +print TMPFILE <>'.$tmpfile; system($command); my $returnvalue = $?>>8;