examples: Handle newlines in README.txt better.

This commit is contained in:
Ryan C. Gordon 2024-12-06 13:25:06 -05:00
parent 0f228de48a
commit 47429227ab
No known key found for this signature in database
GPG key ID: FA148B892AB48044

View file

@ -167,18 +167,24 @@ sub handle_example_dir {
my $onmouseoverdst = "$dst/$onmouseoverfname"; my $onmouseoverdst = "$dst/$onmouseoverfname";
my $description = ''; my $description = '';
my $has_paragraph = 0;
if (open(my $readmetxth, '<', "$examples_dir/$category/$example/README.txt")) { if (open(my $readmetxth, '<', "$examples_dir/$category/$example/README.txt")) {
while (<$readmetxth>) { while (<$readmetxth>) {
chomp; chomp;
s/\A\s+//; s/\A\s+//;
s/\s+\Z//; s/\s+\Z//;
if ($_ eq '') { if (($_ eq '') && ($description ne '')) {
$description .= "\n<br/>\n<br/>\n"; $has_paragraph = 1;
} else { } else {
if ($has_paragraph) {
$description .= "\n<br/>\n<br/>\n";
$has_paragraph = 0;
}
$description .= "$_ "; $description .= "$_ ";
} }
} }
close($readmetxth); close($readmetxth);
$description =~ s/\s+\Z//;
} }
do_mkdir($dst); do_mkdir($dst);