|
version 1.136, 2010/06/16 23:42:52
|
version 1.137, 2011/04/21 13:28:50
|
|
Line 906 sub build_tmp_hashes {
|
Line 906 sub build_tmp_hashes {
|
| |
|
| sub unlink_tmpfiles { |
sub unlink_tmpfiles { |
| my ($fn) = @_; |
my ($fn) = @_; |
| if ($fn =~ m{^\Q$Apache::lonnet::perlvar{'lonUsersDir'}\E/tmp/}) { |
if ($fn =~ m{^\Q$Apache::lonnet::perlvar{'lonDaemons'}\E/tmp/}) { |
| my @files = qw (.db _symb.db .state _parms.db); |
my @files = qw (.db _symb.db .state _parms.db); |
| foreach my $file (@files) { |
foreach my $file (@files) { |
| if (-e $fn.$file) { |
if (-e $fn.$file) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonuserstate.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / rat