Print RUN_DEPENDS in `Requires' field too, not only BUILD_DEPENDS.

Pointed out by: Thomas Gellekum <tg@ihf.rwth-aachen.de>
This commit is contained in:
Wolfram Schneider 1997-10-06 11:38:27 +00:00
parent 64bfb3c63c
commit 75d0d78863
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=2035
2 changed files with 22 additions and 12 deletions

View file

@ -24,7 +24,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Id: ports.cgi,v 1.4 1997-10-03 16:04:25 wosch Exp $
# $Id: ports.cgi,v 1.5 1997-10-06 11:38:27 wosch Exp $
#
# ports.cgi - search engine for FreeBSD ports
# o search for a port by name or description
@ -221,8 +221,8 @@ sub readcoll {
# basic function for HTML output
sub out {
local($line, $old) = @_;
local($version, $path, $local, $comment, $descfile,
$email, $sections, $depends, @rest) = split(/\|/, $line);
local($version, $path, $local, $comment, $descfile, $email,
$sections, $bdepends, $rdepends, @rest) = split(/\|/, $line);
if ($path =~ m%^$localPrefix/([^/]+)%o) {
if (!$out_sec || $1 ne $out_sec) {
@ -277,10 +277,15 @@ sub out {
print "<BR>\n";
}
if ($depends) {
local($flag) = 0;
if ($bdepends || $rdepends) {
local($flag) = 0;
local($last) = '';
print qq{<I>Requires:</I> };
foreach (split(/\s+/, $depends)) {
foreach (sort split(/\s+/, "$bdepends $rdepends")) {
# delete double entries
next if $_ eq $last;
$last = $_;
print ", " if $flag;
$flag++;
print qq{<A HREF="$script_name?query=^$_&stype=name">$_</A>};

View file

@ -24,7 +24,7 @@
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
# $Id: ports.cgi,v 1.4 1997-10-03 16:04:25 wosch Exp $
# $Id: ports.cgi,v 1.5 1997-10-06 11:38:27 wosch Exp $
#
# ports.cgi - search engine for FreeBSD ports
# o search for a port by name or description
@ -221,8 +221,8 @@ sub readcoll {
# basic function for HTML output
sub out {
local($line, $old) = @_;
local($version, $path, $local, $comment, $descfile,
$email, $sections, $depends, @rest) = split(/\|/, $line);
local($version, $path, $local, $comment, $descfile, $email,
$sections, $bdepends, $rdepends, @rest) = split(/\|/, $line);
if ($path =~ m%^$localPrefix/([^/]+)%o) {
if (!$out_sec || $1 ne $out_sec) {
@ -277,10 +277,15 @@ sub out {
print "<BR>\n";
}
if ($depends) {
local($flag) = 0;
if ($bdepends || $rdepends) {
local($flag) = 0;
local($last) = '';
print qq{<I>Requires:</I> };
foreach (split(/\s+/, $depends)) {
foreach (sort split(/\s+/, "$bdepends $rdepends")) {
# delete double entries
next if $_ eq $last;
$last = $_;
print ", " if $flag;
$flag++;
print qq{<A HREF="$script_name?query=^$_&stype=name">$_</A>};