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

Some small fixes that I overlooked.

Browse source
This commit is contained in:
Shaun Amott 2011-07-21 02:09:02 +00:00
parent d10065df76
commit e906e0ff03
Notes: svn2git 2020-12-08 03:00:23 +00:00 
svn path=/www/; revision=37451
2 changed files with 7 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

11
en/cgi/GnatsPR.pm
View file

@ -24,7 +24,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $FreeBSD$
# $FreeBSD: www/en/cgi/GnatsPR.pm,v 1.1 2011/07/20 22:23:23 shaun Exp $
#------------------------------------------------------------------------------
package GnatsPR;
@ -87,13 +87,9 @@ sub new
bless $self, $class;
if (defined $data) {
my $dataref;
ref $data
? $dataref = $data
: $dataref = \$data;
$self->Parse($dataref);
? $self->Parse($data)
: $self->Parse(\$data);
}
return $self;
@ -165,6 +161,7 @@ sub Parse
# into a complete section.
while ($fieldblobs[$#fieldblobs] !~ /^Unformatted:/) {
my $last = pop @fieldblobs;
exists $fieldblobs[$#fieldblobs] or last;
$fieldblobs[$#fieldblobs] .= $last;
}

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

@ -26,7 +26,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.71 2011/07/21 01:07:13 shaun Exp $
# $FreeBSD: www/en/cgi/query-pr.cgi,v 1.72 2011/07/21 01:25:28 shaun Exp $
#
# Useful PRs for testing:
#
@ -53,7 +53,7 @@ use GnatsPR::SectionIterator;
use GnatsPR::MIMEIterator;
#use MIME::EncWords (decode_mimewords); # mail/p5-MIME-EncWords
sub decode_mimewords { wantarray ? @_ : join ' ', @_; } # Temp. subsitute for the above
sub decode_mimewords { wantarray ? @_ : join ' ', @_; } # Temp. substitute for the above
require './cgi-style.pl';
require './query-pr-lib.pl';
@ -167,7 +167,7 @@ sub main
# Dump the raw PR data if requested
if ($q->param('f') && $q->param('f') eq 'raw') {
print "Content-type: text/plain; charset=UTF-8\r\n\r\n";
print $rawdata;
print $$rawdata;
Exit();
}
@ -233,7 +233,6 @@ sub DoQueryPR
$cat = quotemeta $cat;
$data = qx(query-pr.web --full --category=${cat} ${PR} 2>&1);
} else {
$PR = quotemeta $PR;
$data = qx(query-pr.web --full ${PR} 2>&1);
}