loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.43, 2003/09/11 19:49:59	version 1.44, 2003/10/14 15:36:21
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>";