loncom/debugging_tools/seed_accesscount.pl - diff

Return to seed_accesscount.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.1, 2003/11/14 19:52:10	version 1.2, 2003/11/14 20:41:48
Line 78 while (my $resDBname = shift()) {	Line 78 while (my $resDBname = shift()) {
my $src;	my $src;
next if (! ((undef,$src) = ($key =~ /^(.)___(.)___count/)));	next if (! ((undef,$src) = ($key =~ /^(.)___(.)___count/)));
my $value = &unescape($value);	my $value = &unescape($value);
	$src = &escape($src);
if (exists($accessDB{$src})) {	if (exists($accessDB{$src})) {
$accessDB{$src}+=$value;	$accessDB{$src}+=$value;
} else {	} else {
Line 101 while (my $resDBname = shift()) {	Line 102 while (my $resDBname = shift()) {
exit;	exit;

######################################	######################################
	sub escape {
	my $str=shift;
	$str =~ s/(\W)/"%".unpack('H2',$1)/eg;
	return $str;
	}

sub unescape {	sub unescape {
my $str=shift;	my $str=shift;
$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$str =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;