loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.43, 2003/09/11 19:49:59	version 1.45, 2004/01/09 17:43:40
Line 51 ENDERROUT	Line 51 ENDERROUT

sub start_daemon {	sub start_daemon {
my ($fh,$daemon,$pidfile) = @_;	my ($fh,$daemon,$pidfile) = @_;
system("$perlvar{'lonDaemons'}/$daemon 2>>$perlvar{'lonDaemons'}/logs/${daemon}_errors");	my $progname=$daemon;
	if ($daemon eq 'lonc' && $ARGV[0] eq 'new') {
	$progname='loncnew';
	print "new ";
	}
	system("$perlvar{'lonDaemons'}/$progname 2>>$perlvar{'lonDaemons'}/logs/${daemon}_errors");
sleep 2;	sleep 2;
if (-e $pidfile) {	if (-e $pidfile) {
print $fh "Seems like it started ...<p>";	print $fh "Seems like it started ...<p>";
Line 349 ENDHEADERS	Line 354 ENDHEADERS
print $fh "<pre>";	print $fh "<pre>";
$psproc=0;	$psproc=0;

open (PSH,"ps -aux\|");	open (PSH,"ps -aux --cols 140 \|");
while ($line=<PSH>) {	while ($line=<PSH>) {
print $fh "$line";	print $fh "$line";
$psproc++;	$psproc++;