Please enter the PR number you wish to query:
\n"; ($scriptname = $ENV{'SCRIPT_NAME'}) =~ s|^/?|/|; $scriptname =~ s|/$||; ($summary = $scriptname) =~ s/query-pr/query-pr-summary/; - print "\n"; print "See also the PR summary
\n"; print &html_footer; exit 0; } } # allow query-pr.cgi?Invalid problem report number: $pr
\n"; print &summary_link; print &html_footer; exit 0; } unless (open(Q, "$query_pr -F $pr 2>&1 |")) { print &html_header("Server error"); print "Unable to open PR database.
\n"; print &summary_link; print &html_footer; die "Unable to query PR's"; } if ($input{'f'} eq 'raw') { print "Content-Type: text/plain\r\n\r\n"; print; close(Q); exit 0; } $inhdr = 1; $multiline = 0; $from = ""; $replyto = ""; while() { chop; $html_fixup = 1; if (/^query-pr(:?\.(:?real|web))?: /) { print &html_header("FreeBSD problem report"); if ($_ !~ /^query-pr(:?\.(:?real|web))?: no PRs matched$/) { print "query-pr said:\n"; print "
$_\n"; print\n"; } else { print "; print "No PR found matching $pr
\n"; } print &summary_link; print &html_footer; exit; } elsif (/^lockf: /) { print &html_header("FreeBSD problem report"); print "The PR database is currently busy; please try ", "your query again.
"; print &summary_link; print &html_footer; exit; } # In e-mail header if ($inhdr && /^From:\s*(.*)$/i) { $from = $1; $from =~ s/.*<(.*)>.*/$1/; $from =~ s/\s*\(.*\)\s*//; } if ($inhdr && /^Reply-to:\s*(.*)$/i) { $replyto = $1; $replyto =~ s/.*<(.*)>.*/$1/; $replyto =~ s/\s*\(.*\)\s*//; } # End of e-mail header if ($inhdr && /^$/) { $from = $replyto if ($replyto); $email = $from; $email .= '@FreeBSD.org' unless ($email =~ /@/); $inhdr = 0; } if (/^>Responsible:/) { $_ = &getline($_); s/\(.*\)//; # remove personal name s/\s+//g; $_ = $_ . '@FreeBSD.org' if !/@/; $_ = ">Responsible:$_"; $html_fixup = 0; } s/^>Last-Modified:\s*$/>Last-Modified: never/; if (/^>Number:/) { $number = &getline($_); } elsif (/^>Category:/) { $cat = &getline($_); } elsif (/^>Synopsis:/) { $syn = &getline($_); $syn =~ s/[\t]+/ /g; $origsyn = $syn; $syn = &fixline($syn); print &html_header("Problem Report $cat/$number : $syn"); - if (! $codeok ) { - print "View PR with email - addresses
\n"; - } print "$syn
\n\n"; } else { next if $inhdr; if (/^>(\S+):\s*(.*)/) { print $trailer . "\n" unless ($blank); $trailer = "
"; $origsyn =~ s/[^a-zA-Z+.@-]/"%" . sprintf("%02X", unpack("C", $&))/eg; $email =~ s/[^a-zA-Z+.@-]/"%" . sprintf("%02X", unpack("C", $&))/eg; print qq`Submit Followup | Raw PR | Find Another PR\n`; -if (! $codeok ) { - print ""; - print "- $1
- \n"; if ($html_fixup) { $trailer .= &fixline($2); } else { $trailer .= $2; } - if ($1 eq "Originator" && $from ne "" && $codeok) { # add email address + if ($1 eq "Originator" && $from ne "") { # add email address $trailer .= " <" . &fixline($from) . ">"; } $trailer .= '
'; $blank = !($2); $multiline = 0; } else { unless ($multiline) { next if /^\s*$/; print $trailer . "\n- "; } } } close(Q); print "$trailer\n" unless ($blank); print "
\n"; } $multiline = 1; $blank = 0; print $html_fixup ? &fixline($_) : $_ , "\n"; $trailer = "To see this PR with email addresses "; - print " displayed, enter the code from the image and submit:
\n"; - print "\n"; -} - print &html_footer; # Sleep 0.35 seconds to avoid DoS attacks from broken robots select undef, undef, undef, 0.35; exit 0; sub getline { local($_) = @_; ($tag,$remainder) = split(/\s+/, $_, 2); return $remainder; } sub summary_link { return qq`\n`; } sub cvsweb { local($file) = shift; $file =~ s/[,.;]$//; return 'http://cvsweb.FreeBSD.org/' . $file; } sub srcref { local($_) = shift; local($rev) = '(rev\.?|revision):?\s+[0-9]\.[0-9.]+(\s+of)?'; local($src) = '((src|www|doc|ports)/[^\s]+)'; if (m%$rev\s*$src%oi || m%$src\s*$rev%) { s#$src#sprintf("%s", 34, &cvsweb($1), 34, $1)#ge; } return $_; } sub fixline { local(@splitline) = split(/((?:https?|ftp):\/\/[^\s"\(\)<>,;]+)/, shift); local($isurl) = 0; foreach (@splitline) { if ($isurl) { local($href) = local($html) = $_; $href =~ s/&/%26/g; $html =~ s/&/&/g; $_ = "$html"; } else { s/&/&/g; s//>/g; s%(\WPR[:s# \t]+)([a-z3486]+\/)?([0-9]+)%$1$2$3%ig; } $isurl = ! $isurl; } return &srcref(join('', @splitline)); } diff --git a/en/cgi/querypr-code.cgi b/en/cgi/querypr-code.cgi deleted file mode 100755 index 4e57fe28ff..0000000000 --- a/en/cgi/querypr-code.cgi +++ /dev/null @@ -1,84 +0,0 @@ -#!/usr/bin/perl -T -# -# $FreeBSD: www/en/cgi/querypr-code.cgi,v 1.1 2005/11/06 22:29:45 ceri Exp $ -# -# Cribbed from sendpr-code.cgi, which is: -# Copyright (c) 2003 Eric Anderson - -use DB_File; -use Fcntl qw(:DEFAULT :flock); -use strict; - -$ENV{"PATH"} = "/bin:/usr/bin"; -$ENV{"TMPDIR"} = "/tmp"; - -my($fd, $db_obj, %db_hash, $currenttime, $randomcode, $pngbindata, $randompick, $pnmlist, $i); -my($expiretime, $pnmcat, $pnmtopng, $pnmdatadir, $dbpath); - -############################################ -# generate 8 character code from A-Z0-9 (no I,O,0,1 for clarity) -my @availchars = qw(A B C D E F G H J K L M N P Q R S T U V W X Y Z - 2 3 4 5 6 7 8 9); - -$pnmcat = "/usr/local/bin/pnmcat"; -$pnmtopng = "/usr/local/bin/pnmtopng"; -$pnmdatadir = "../gifs/"; -$dbpath = "/tmp/querypr-code.db"; -$expiretime = 2700; # seconds until code expires -############################################ - -$currenttime = time(); - -# DB stuff here -$db_obj = tie(%db_hash, 'DB_File', $dbpath, O_CREAT|O_RDWR, 0644) - or die "dbcreate $dbpath $!"; -$fd = $db_obj->fd; -open(DB_FH, "+<&=$fd") or die "fdopen $!"; - -unless (flock (DB_FH, LOCK_EX | LOCK_NB)) { - unless (flock (DB_FH, LOCK_EX)) { die "flock: $!" } -} - -&gencode; - -while ($db_hash{$randomcode}) { - # it already exists so: - # we check age (over x seconds old?) - # if it is, override with new date - # if not, generate a new code - if ( ($currenttime - $expiretime) <= $db_hash{$randomcode}) { - &gencode; - } else { - delete $db_hash{"$randomcode"}; - } -} - -$db_hash{$randomcode} = $currenttime; - -$db_obj->sync(); # to flush -flock(DB_FH, LOCK_UN); -undef $db_obj; # removing the last reference to the DB - # closes it. Closing DB_FH is implicit. -untie %db_hash; - -$/ = ""; - -open(BUILDPNG, "$pnmcat -lr $pnmlist | $pnmtopng 2>/dev/null |"); -$pngbindata =; -print "Pragma: no-cache\n"; -print "Content-type: image/png\n\n"; -print "$pngbindata"; -close(BUILDPNG); - -############################################ -sub gencode { - srand( time() ^ ($$ + ($$ << 15)) ); - - for ($i = 0; $i < 8; $i++) { - $randompick = $availchars[int(rand(@availchars))]; - $randomcode .= "$randompick"; - $pnmlist .= "$pnmdatadir$randompick\.pnm "; - } -} - -