archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

(output): Merge consecutive lines of parenthesis.

Browse Source
This commit is contained in:
Alex Schroeder
2005-01-07 00:40:18 +00:00
parent 161ff373f2
commit 00653fc741
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
changelog-to-rss
View File

@@ -32,7 +32,7 @@ if (not $url) {
$q->start_html('ChangeLog to RSS'),
$q->h1('ChangeLog to RSS'),
$q->p('Translates ChangeLog output to RSS 2.0.'),
$q->p(q{$Id: changelog-to-rss,v 1.15 2005/01/07 00:33:22 as Exp $}),
$q->p(q{$Id: changelog-to-rss,v 1.16 2005/01/07 00:40:18 as Exp $}),
$q->start_form(-method=>'GET'),
$q->p('ChangeLog URL: ',
$q->textfield('url', '', 70)),
@@ -94,7 +94,8 @@ sub output {
$date = to_date($date);
$author = quote_html($author);
$log =~ s|^\t||mg; # strip leading tabs on every line
$log =~ s|\((.*?)\)(:|$)|<br />(<strong>$1</strong>)$2|g; # add linebreaks and highlighting for parentheses
$log =~ s|\)\n\(|, |g; # fix weird continuation groups
$log =~ s|\((.*?)\):|<br />(<strong>$1</strong>):|g; # add linebreaks and highlighting for parentheses
$log =~ s|^ *<br />||; # strip first linebreak, if there is one
$log = quote_html($log);
my $link = $pattern;