File:
[LON-CAPA] /
loncom /
debugging_tools /
find_bad_problem_metadata.pl
Revision
1.1:
download - view:
text,
annotated -
select for diffs
Wed Sep 27 19:36:26 2006 UTC (18 years ago) by
albertel
Branches:
MAIN
CVS tags:
version_2_9_X,
version_2_9_99_0,
version_2_9_1,
version_2_9_0,
version_2_8_X,
version_2_8_99_1,
version_2_8_99_0,
version_2_8_2,
version_2_8_1,
version_2_8_0,
version_2_7_X,
version_2_7_99_1,
version_2_7_99_0,
version_2_7_1,
version_2_7_0,
version_2_6_X,
version_2_6_99_1,
version_2_6_99_0,
version_2_6_3,
version_2_6_2,
version_2_6_1,
version_2_6_0,
version_2_5_X,
version_2_5_99_1,
version_2_5_99_0,
version_2_5_2,
version_2_5_1,
version_2_5_0,
version_2_4_X,
version_2_4_99_0,
version_2_4_2,
version_2_4_1,
version_2_4_0,
version_2_3_X,
version_2_3_99_0,
version_2_3_2,
version_2_3_1,
version_2_3_0,
version_2_2_99_1,
version_2_2_99_0,
version_2_12_X,
version_2_11_X,
version_2_11_5_msu,
version_2_11_5,
version_2_11_4_uiuc,
version_2_11_4_msu,
version_2_11_4,
version_2_11_3_uiuc,
version_2_11_3_msu,
version_2_11_3,
version_2_11_2_uiuc,
version_2_11_2_msu,
version_2_11_2_educog,
version_2_11_2,
version_2_11_1,
version_2_11_0_RC3,
version_2_11_0_RC2,
version_2_11_0_RC1,
version_2_11_0,
version_2_10_X,
version_2_10_1,
version_2_10_0_RC2,
version_2_10_0_RC1,
version_2_10_0,
loncapaMITrelate_1,
language_hyphenation_merge,
language_hyphenation,
bz6209-base,
bz6209,
bz5969,
bz2851,
PRINT_INCOMPLETE_base,
PRINT_INCOMPLETE,
HEAD,
GCI_3,
GCI_2,
GCI_1,
BZ5971-printing-apage,
BZ5434-fox,
BZ4492-merge,
BZ4492-feature_horizontal_radioresponse,
BZ4492-feature_Support_horizontal_radioresponse,
BZ4492-Support_horizontal_radioresponse
- helper that attempts to quickly validtae metadata
1: use strict;
2: use warnings;
3: use lib '/home/httpd/lib/perl';
4: use File::Find;
5: use LONCAPA::Configuration;
6:
7: my $perlvar= &LONCAPA::Configuration::read_conf('loncapa.conf');
8:
9: sub validate_parameter {
10: my ($contents) = @_;
11: foreach my $line (@{ $contents }) {
12: return 1 if ($line =~ m/<parameter /);
13: }
14: return 0;
15: }
16:
17:
18: sub validate_meta {
19: # only want to check problem metadata
20: return if ($_!~m/\.problem\.meta$/);
21: # can't do anything about old ones
22: return if ($_=~m/\.\d+\.problem\.meta$/);
23: # don't worry about the templates
24: return if ($_=~m{/templates/});
25: open(FILE,$_);
26: my @contents = <FILE>;
27: if (!&validate_parameter(\@contents)) {
28: print("$_ parameters missing\n");
29: }
30: }
31:
32: sub main {
33: find(
34: {
35: no_chdir => 1,
36: wanted => \&validate_meta,
37: },
38: $perlvar->{'lonDocRoot'}
39: );
40: }
41:
42: &main();
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>