version 1.8, 2001/12/19 17:17:46
|
version 1.9, 2001/12/22 21:59:07
|
Line 29
|
Line 29
|
# |
# |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# 05/29/00,05/30,10/11 Gerd Kortemeyer) |
# |
# |
# 10/19,10/21,10/23,11/27,08/09/01 Gerd Kortemeyer |
# 10/19,10/21,10/23,11/27,08/09/01,12/22 Gerd Kortemeyer |
|
|
package Apache::lonmeta; |
package Apache::lonmeta; |
|
|
Line 37 use strict;
|
Line 37 use strict;
|
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
|
|
# ----------------------------------------- Fetch and evaluate dynamic metadata |
|
|
|
sub dynamicmeta { |
|
my $url=&Apache::lonnet::declutter(shift); |
|
$url=~s/\.meta$//; |
|
my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//); |
|
my $regexp=&Apache::lonnet::escape($url); |
|
$regexp=~s/(\W)/\\$1/g; |
|
my %evaldata=&Apache::lonnet::dump |
|
('resevaldata',$adomain,$aauthor,$regexp); |
|
my %returnhash=(); |
|
foreach (keys %evaldata) { |
|
} |
|
return %returnhash; |
|
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |
|
|
Line 122 ENDHEAD
|
Line 137 ENDHEAD
|
$r->print("<br>\n"); |
$r->print("<br>\n"); |
} sort keys %content; |
} sort keys %content; |
} |
} |
|
&dynamicmeta($uri); |
$r->print('</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |