]> git.pond.sub.org Git - empserver/blobdiff - info/mksubj.pl
info/toc: New; generated machine-readable table of contents
[empserver] / info / mksubj.pl
index 614b035b9a958b06ddfbb5e4524aebba764e9d8e..2681463db3d8d1ea89d492c051ed586df3e0b996 100644 (file)
@@ -77,6 +77,8 @@ for (keys %Subjects) {
     update_subj($_);
 }
 
+write_toc();
+
 sub fn2topic {
     my ($fn) = @_;
     $fn =~ s,.*/([^/]*)\.t$,$1,;
@@ -249,6 +251,17 @@ sub same_contents {
     return $contents eq $old;
 }
 
+sub write_toc {
+    my @toc;
+    for (keys %chapter) {
+       push @toc, "$chapter{$_} $_";
+    }
+    open(TOC, ">info/toc")
+       or die "Can't open info/toc for writing: $!";
+    print TOC join("\n", sort @toc);
+    close TOC;
+}
+
 # Print an integrity error message and exit with code 1
 sub error {
     my ($error) = @_;