Return to buildTexxml.pl CVS log

Up to [LON-CAPA] / doc / help / course_manual

Annotation of doc/help/course_manual/buildTexxml.pl, revision 1.1

1.1     ! felicia     1: #!/usr/bin/perl
        !             2: 
        !             3: if ($#ARGV != 0) {
        !             4:   print "Correct command usage: \n";
        !             5:   print "   perl buildTexxml.pl all\n";
        !             6:   print "Or \n";
        !             7:   print "   perl buildTexxml.pl section\n";
        !             8: }
        !             9: 
        !            10: $option = $ARGV[0]; 
        !            11: 
        !            12: @section = `cat section_order.txt`;
        !            13: chomp @section;
        !            14: 
        !            15: if($option eq 'all') {
        !            16:   foreach $section (@section) {
        !            17:     $section='sections/'.$section;
        !            18:     $section_list=$section_list.$section.' ';
        !            19:   }
        !            20:   `cat sections/start.texxml $section_list sections/end.texxml > course.manual.texxml`;
        !            21: }
        !            22: 
        !            23: if($option eq 'section') {
        !            24:   print "Choose from the following manual sections:\n";
        !            25:   $num=0;
        !            26:   foreach $section (@section) {
        !            27:     print "$num - $section\n";
        !            28:     $num++;
        !            29:   }
        !            30:   print "Enter a number 0 - $num for the section you want to print: ";
        !            31:   $selection=<STDIN>;
        !            32:   print "builing section...\n";
        !            33:   `cat sections/start.texxml sections/$section[$selection] sections/end.texxml > section.manual.texxml`; 
        !            34: }
        !            35: