12 s/^1\. \@\@TITLE\@\@/ /i;
14 if (m/^(\d\.)(\d\.)(\d\.)?\s/) {
15 # Remove the first digit as it's the
16 # config file section in the User Manual.
19 # If it's a section header, uppercase it.
20 $_ = uc() if (/^\d\.\s+/);
22 # Remember to underline it.
24 $header_len = length($_);
29 # XXX: someone should figure out what this stuff
30 # is supposed to do (and if it really does that).
31 s/^# #/####/ if /^# #{12,}/;
32 s/^.*$// if $hit_option;
37 $hit_option = 1 if s/^#\s+@@//;
42 # The previous line was a section
43 # header so we better underline it.
44 die "Invalid header length" unless defined $header_len;
45 print "# " . "=" x $header_len . "\n";