summaryrefslogtreecommitdiffhomepage
path: root/fixupind.pl
blob: 543ae967d8791782680fe218c9472451da2405d0 (plain)
1
2
3
4
5
6
7
8
9
10
11
open(IN,"<crypt.ind");
open(OUT,">crypt.ind.tmp");
$a = <IN>;
print OUT  "$a\n\\addcontentsline{toc}{chapter}{Index}\n";
while (<IN>) {
   print OUT $_;
}
close OUT;
close IN;
system("mv -f crypt.ind.tmp crypt.ind");