File:
[LON-CAPA] /
doc /
help /
course_manual /
buildTexxml.pl
Revision
1.2:
download - view:
text,
annotated -
select for diffs
Mon Dec 4 18:12:22 2006 UTC (17 years, 9 months 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,
HEAD,
GCI_3,
GCI_2,
GCI_1,
BZ4492-merge,
BZ4492-feature_horizontal_radioresponse,
BZ4492-feature_Support_horizontal_radioresponse,
BZ4492-Support_horizontal_radioresponse
- style
- check that selection is valid
1: #!/usr/bin/perl
2: use strict;
3:
4: if ($#ARGV != 0) {
5: print("Correct command usage: \n");
6: print(" perl buildTexxml.pl all\n");
7: print("Or \n");
8: print(" perl buildTexxml.pl section\n");
9: }
10:
11: my $option = $ARGV[0];
12:
13: my @section = `cat section_order.txt`;
14: chomp(@section);
15:
16: if ($option eq 'all') {
17: my $section_list;
18: foreach my $section (@section) {
19: $section_list .= 'sections/'.$section.' ';
20: }
21: system("cat sections/start.texxml $section_list sections/end.texxml > course.manual.texxml");
22: }
23:
24: if ($option eq 'section') {
25: print("Choose from the following manual sections:\n");
26: my $num=0;
27: foreach my $section (@section) {
28: print("$num - $section\n");
29: $num++;
30: }
31: $num--;
32:
33: print("Enter a number 0 - $num for the section you want to print: ");
34: my $selection=<STDIN>;
35: chomp($selection);
36:
37: if ($selection < 0 || $selection > $#section) {
38: print("Invalid selection ($selection)\n");
39: exit(1);
40: }
41: print("builing section $section[$selection]\n");
42: system("cat sections/start.texxml sections/$section[$selection] sections/end.texxml > section.manual.texxml");
43: }
44:
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>