Return to update_documentation.pl CVS log

Up to [LON-CAPA] / modules / damieng / schema_documentation

Annotation of modules/damieng/schema_documentation/update_documentation.pl, revision 1.1

1.1     ! damieng     1: #!/usr/bin/perl
        !             2: 
        !             3: # This script creates an HTML documentation for loncapa.xsd
        !             4: 
        !             5: use XML::LibXSLT;
        !             6: use XML::LibXML;
        !             7: use Cwd 'abs_path';
        !             8: 
        !             9: my $script_dir = abs_path($0);
        !            10: my ($current_dir) = $script_dir =~ /^(.*\/).*$/;
        !            11: my $xsl_path = $current_dir . 'XMLSchema.xsl';
        !            12: my $schema_path = $current_dir.'../graphical_editor/loncapa_daxe/web/config/loncapa.xsd';
        !            13: my $html_path = $current_dir.'loncapa.html';
        !            14: 
        !            15: my $parser = XML::LibXML->new();
        !            16: my $xslt = XML::LibXSLT->new();
        !            17: 
        !            18: my $source = $parser->parse_file($schema_path);
        !            19: my $style_doc = $parser->parse_file('XMLSchema.xsl');
        !            20: 
        !            21: my $stylesheet = $xslt->parse_stylesheet($style_doc);
        !            22: 
        !            23: my $result = $stylesheet->transform($source, 'jaxe-uri-xsl' => "'".$xsl_path."'");
        !            24: 
        !            25: print $stylesheet->output_file($result, $html_path);
        !            26: 
        !            27: print "loncapa.html has been updated.\n";
        !            28: