rat/lonuserstate.pm - diff

Return to lonuserstate.pm CVS log

Up to [LON-CAPA] / rat

version 1.136, 2010/06/16 23:42:52	version 1.137.2.1, 2011/10/06 23:30:06
Line 437 sub simplify {	Line 437 sub simplify {
# 8&8=8	# 8&8=8
$expression=~s/([^_\.\d])([_\.\d]+)\&\2([^_\.\d])/$1$2$3/g;	$expression=~s/([^_\.\d])([_\.\d]+)\&\2([^_\.\d])/$1$2$3/g;
# 8\|8=8	# 8\|8=8
$expression=~s/([^_\.\d])([_\.\d]+)\\|\2([^_\.\d])/$1$2$3/g;	$expression=~s/([^_\.\d])([_\.\d]+)(?:\\|\2)+([^_\.\d])/$1$2$3/g;
# (5&3)&4=5&3&4	# (5&3)&4=5&3&4
$expression=~s/$([_\.\d]+)((?:\&[_\.\d]+)+)$\&([_\.\d]+[^_\.\d])/$1$2\&$3/g;	$expression=~s/$([_\.\d]+)((?:\&[_\.\d]+)+)$\&([_\.\d]+[^_\.\d])/$1$2\&$3/g;
# (((5&3)\|(4&6)))=((5&3)\|(4&6))	# (((5&3)\|(4&6)))=((5&3)\|(4&6))
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) {