os/doc
3
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix a problem spotted by pav. The Originator field got split into two lines

Browse source 
making it hard to copy/paste the originator field for PR issues.
Also make query-pr.cgi xhtml compliant.

Submitted by:		Daniel Gerzo <danger at rulez dot sk>
This commit is contained in:
Remko Lodder 2005-09-18 19:32:24 +00:00
parent ea0acb63fe
commit 1c40c291d1
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=25699
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
en/cgi/query-pr.cgi
View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -T #!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.43 2005/08/11 11:47:01 ceri Exp $ # $FreeBSD: www/en/cgi/query-pr.cgi,v 1.44 2005/09/17 15:48:23 remko Exp $
$ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin"; $ENV{'PATH'} = "/bin:/usr/bin:/usr/sbin:/sbin:/usr/local/bin";
@ -151,24 +151,25 @@ while(<Q>) {
print $trailer . "\n" unless ($blank); print $trailer . "\n" unless ($blank);
$trailer = "<dt><strong>$1</strong></dt><dd>\n"; $trailer = "<dt><strong>$1</strong></dt><dd>\n";
if ($html_fixup) { if ($html_fixup) {
$trailer .= &fixline($2) . "</dd>"; $trailer .= &fixline($2);
} else { } else {
$trailer .= $2 . "</dd>"; $trailer .= $2;
} }
if ($1 eq "Originator" && $from ne "") { # add email address if ($1 eq "Originator" && $from ne "") { # add email address
$trailer .= " &lt;<a href='mailto:$email'>" . &fixline($from) . "</a>&gt;"; $trailer .= " &lt;<a href='mailto:$email'>" . &fixline($from) . "</a>&gt;";
} }
$trailer .= '</dd>';
$blank = !($2); $blank = !($2);
$multiline = 0; $multiline = 0;
} else { } else {
unless ($multiline) { unless ($multiline) {
next if /^\s*$/; next if /^\s*$/;
print $trailer . "\n<pre>\n"; print $trailer . "\n<dd><pre>\n";
} }
$multiline = 1; $multiline = 1;
$blank = 0; $blank = 0;
print $html_fixup ? &fixline($_) : $_ , "\n"; print $html_fixup ? &fixline($_) : $_ , "\n";
$trailer = "</pre>"; $trailer = "</pre></dd>";
} }
} }
} }
@ -192,7 +193,7 @@ exit 0;
sub getline sub getline
{ {
local($_) = @_; local($_) = @_;
($tag,$remainder) = split(/[ \t]+/, $_, 2); ($tag,$remainder) = split(/\s+/, $_, 2);
return $remainder; return $remainder;
} }