[BACK]Return to lpml_parse.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/lpml_parse.pl between versions 1.1 and 1.2

version 1.1, 2001/05/06 22:53:30 version 1.2, 2001/06/20 12:32:54
Line 1 Line 1
 #!/usr/bin/perl  #!/usr/bin/perl
   
   # Scott Harrison
   # May 2001
   # 06/19/2001 - Scott Harrison
   
 use HTML::TokeParser;  use HTML::TokeParser;
 $p = HTML::TokeParser->new(shift||"test.lpml");  
   my $target = shift @ARGV;
   my $dist = shift @ARGV;
   
   my @parsecontents = <>;
   my $parsestring = join('',@parsecontents);
   my $outstring;
   
   $outstring = &xmlparse($parsestring,$target,$dist);
   print $outstring;
   
   # -------------------------- Parse for an input string and specific target mode
   sub xmlparse {
       my ($parsestring,$target,$dist)=@_;
       my $outtext = '';
       my $parser = HTML::TokeParser->new($parsestring);
       $parser->xml_mode('1');
       # strategy: grab first and pass well-parsed information to info-handler subroutines
       # There should be errors if bad file format.
       # Unlike other XML-handling strategies we use, this script should
       # terminate if the XML is bad.
       # grab first (and only) lpml section
       # grab target(s) root
       # grab source root
       # grab categories
          # foreach category
          # attributes: name and type
          # grab chown
          # grab chmod
            # parse user name and group name
       # grab rpm (remember to replace \n with real new lines)
          # grab rpmSummary
          # grab rpmName
          # grab rpmVersion
          # grab rpmRelease
          # grab rpmVendor
          # grab rpmBuildRoot
          # grab rpmCopyright
          # grab rpmGroup
          # grab rpmSource
          # grab rpmAutoReqProv
          # grab rpmdescription
          # grab rpmpre
       # grab directories
          # foreach directory
          # grab targetdir(s)
          # grab categoryname
          # grab (optional) description
       # grab files
          # foreach file|link|link|fileglob
          # grab source
          # grab target(s)
          # grab categoryname
          # grab description
          # grab note
   }
   
   __END__
   
 while (my $token = $p->get_tag("category")) {  while (my $token = $p->get_tag("category")) {
     my $url = $token->[1]{name} . $token->[1]{type};      my $url = $token->[1]{name} . $token->[1]{type};
Removed from v.1.1  
changed lines
  Added in v.1.2

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>