loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/loncron between versions 1.101 and 1.102

version 1.101, 2014/12/16 18:18:44	version 1.102, 2015/05/28 23:50:15
Line 300 sub start_logging {	Line 300 sub start_logging {
<li><a href="#machine">Machine Information</a></li>	<li><a href="#machine">Machine Information</a></li>
<li><a href="#tmp">Temporary Files</a></li>	<li><a href="#tmp">Temporary Files</a></li>
<li><a href="#tokens">Session Tokens</a></li>	<li><a href="#tokens">Session Tokens</a></li>
	<li><a href="#webdav">WebDAV Session Tokens</a></li>
<li><a href="#httpd">httpd</a></li>	<li><a href="#httpd">httpd</a></li>
<li><a href="#lonsql">lonsql</a></li>	<li><a href="#lonsql">lonsql</a></li>
<li><a href="#lond">lond</a></li>	<li><a href="#lond">lond</a></li>
Line 499 sub clean_lonIDs {	Line 500 sub clean_lonIDs {
&log($fh,"<h3>$active open session(s)</h3>");	&log($fh,"<h3>$active open session(s)</h3>");
}	}

	# ------------------------------------------------ clean out webDAV Session IDs
	sub clean_webDAV_sessionIDs {
	my ($fh)=@_;
	if ($perlvar{'lonRole'} eq 'library') {
	&log($fh,'<hr /><a name="webdav" /><h2>WebDAV Session Tokens</h2>');
	my $cleaned=0;
	my $active=0;
	my $now = time;
	if (-d $perlvar{'lonDAVsessDir'}) {
	while (my $fname=<$perlvar{'lonDAVsessDir'}/*>) {
	my @stats = stat($fname);
	my $since=$now-$stats[9];
	if ($since>$perlvar{'lonExpire'}) {
	$cleaned++;
	&log($fh,"Unlinking $fname<br />");
	unlink("$fname");
	} else {
	$active++;
	}
	}
	&log($fh,"<p>Cleaned up ".$cleaned." stale webDAV session token(s).</p>");
	&log($fh,"<h3>$active open webDAV session(s)</h3>");
	}
	}
	}

# ----------------------------------------------------------- clean out sockets	# ----------------------------------------------------------- clean out sockets
sub clean_sockets {	sub clean_sockets {
my ($fh)=@_;	my ($fh)=@_;
Line 933 sub main () {	Line 960 sub main () {
&log_machine_info($fh);	&log_machine_info($fh);
&clean_tmp($fh);	&clean_tmp($fh);
&clean_lonIDs($fh);	&clean_lonIDs($fh);
	&clean_webDAV_sessionIDs($fh);
&check_httpd_logs($fh);	&check_httpd_logs($fh);
&rotate_lonnet_logs($fh);	&rotate_lonnet_logs($fh);
&rotate_other_logs($fh);	&rotate_other_logs($fh);

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

Removed from v.1.101
changed lines
	Added in v.1.102