equal
deleted
inserted
replaced
181 } |
181 } |
182 |
182 |
183 print OUTPUT "</body>\n</html>"; |
183 print OUTPUT "</body>\n</html>"; |
184 |
184 |
185 } elsif ( $opt_f eq 'mdwn' ) { |
185 } elsif ( $opt_f eq 'mdwn' ) { |
|
186 |
|
187 print OUTPUT <<HEADER |
|
188 |
|
189 [[!meta title="$opt_t"]] |
|
190 |
|
191 [[!toc]] |
|
192 HEADER |
|
193 ; |
186 |
194 |
187 foreach my $file ( sort keys %docs ) { |
195 foreach my $file ( sort keys %docs ) { |
188 print OUTPUT "\n\n- - -"; |
196 print OUTPUT "\n\n- - -"; |
189 foreach my $chunk ( @{$docs{$file}} ) { |
197 foreach my $chunk ( @{$docs{$file}} ) { |
190 my $head = shift @$chunk; |
198 my $head = shift @$chunk; |