--- loncom/metadata_database/searchcat.pl 2003/08/08 12:38:00 1.37 +++ loncom/metadata_database/searchcat.pl 2003/10/08 14:15:03 1.42 @@ -2,7 +2,7 @@ # The LearningOnline Network # searchcat.pl "Search Catalog" batch script # -# $Id: searchcat.pl,v 1.37 2003/08/08 12:38:00 matthew Exp $ +# $Id: searchcat.pl,v 1.42 2003/10/08 14:15:03 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -77,6 +77,7 @@ use POSIX qw(strftime mktime); my @metalist; $simplestatus=''; +my %countext=(); sub writesimple { open(SMP,'>/home/httpd/html/lon-status/mysql.txt'); @@ -84,6 +85,25 @@ sub writesimple { close(SMP); } +sub writecount { + open(RSMP,'>/home/httpd/html/lon-status/rescount.txt'); + foreach (keys %countext) { + print RSMP $_.'='.$countext{$_}.'&'; + } + print RSMP 'time='.time."\n"; + close(RSMP); +} + +sub count { + my $file=shift; + $file=~/\.(\w+)$/; + my $ext=lc($1); + if (defined($countext{$ext})) { + $countext{$ext}++; + } else { + $countext{$ext}=1; + } +} # ----------------------------------------------------- Un-Escape Special Chars sub unescape { @@ -118,6 +138,8 @@ sub dynamicmeta { my %cnt=(); my %listitems=('count' => 'add', 'course' => 'add', + 'goto' => 'add', + 'comefrom' => 'add', 'avetries' => 'avg', 'stdno' => 'add', 'difficulty' => 'avg', @@ -132,8 +154,8 @@ sub dynamicmeta { my $regexp=$url; $regexp=~s/(\W)/\\$1/g; $regexp='___'.$regexp.'___([a-z]+)$'; - foreach (keys %evaldata) { - my $key=&unescape($_); + while (my ($key,$value)=each %evaldata) { + $key=&unescape($key); if ($key=~/$regexp/) { my $ctype=$1; if (defined($cnt{$ctype})) { @@ -143,21 +165,21 @@ sub dynamicmeta { } unless ($listitems{$ctype} eq 'app') { if (defined($sum{$ctype})) { - $sum{$ctype}+=$evaldata{$_}; + $sum{$ctype}+=$value; } else { - $sum{$ctype}=$evaldata{$_}; + $sum{$ctype}=$value; } } else { if (defined($sum{$ctype})) { - if ($evaldata{$_}) { - $sum{$ctype}.='