Return to lpml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

Annotation of loncom/build/lpml_parse.pl, revision 1.1

1.1     ! harris41    1: #!/usr/bin/perl
        !             2: use HTML::TokeParser;
        !             3: $p = HTML::TokeParser->new(shift||"test.lpml");
        !             4: 
        !             5: while (my $token = $p->get_tag("category")) {
        !             6:     my $url = $token->[1]{name} . $token->[1]{type};
        !             7:     my $chmodtoken=$p->get_tag("chmod");
        !             8:     my $text = $p->get_trimmed_text("/chmod");
        !             9:     print "CHMOD: $text\n";
        !            10:     my $text = $p->get_trimmed_text("/category");
        !            11:     print "$url\t$text\t".join(" ",@{$token->[2]})."\n";
        !            12: }