diff --git a/en/cgi/ports.cgi b/en/cgi/ports.cgi index 09e0413026..0cca9109b9 100755 --- a/en/cgi/ports.cgi +++ b/en/cgi/ports.cgi @@ -24,7 +24,7 @@ # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # -# $FreeBSD: www/en/cgi/ports.cgi,v 1.72 2004/04/24 22:32:09 simon Exp $ +# $FreeBSD: www/en/cgi/ports.cgi,v 1.73 2004/05/22 15:09:12 simon Exp $ # # ports.cgi - search engine for FreeBSD ports # o search for a port by name or description @@ -47,7 +47,7 @@ sub init_variables { $remotePrefixFtp = 'ports'; # 'ftp://ftp.FreeBSD.org/pub/FreeBSD/branches/-current/ports'; - # URL of ports tree for download + # URL of ports tree for download $remotePrefixFtpDownload = 'http://cvsweb.FreeBSD.org/ports'; $remoteSuffixFtpDownload = '%s.tar.gz?tarball=1'; @@ -60,7 +60,7 @@ sub init_variables { local($psparc64) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/sparc64'; $remotePrefixFtpPackagesDefault = '4.9-STABLE/i386'; - %remotePrefixFtpPackages = + %remotePrefixFtpPackages = ( '5.2-CURRENT/i386', "$p/packages-current/All", '4.9-STABLE/i386', " $p/packages-4-stable/All", @@ -266,7 +266,7 @@ sub readindex { # diff by date push(@co, ('-D', $date)); } - + push(@co, $ports_database); @@ -335,7 +335,7 @@ sub readcoll { # basic function for HTML output sub out { local($line, $old) = @_; - local($version, $path, $local, $comment, $descfile, $email, + local($version, $path, $local, $comment, $descfile, $email, $sections, $bdepends, $rdepends, @rest) = split(/\|/, $line); if ($path =~ m%^$localPrefix/([^/]+)%o) { @@ -376,7 +376,7 @@ sub out { $l =~ s%/([^/]+)$%/Attic/$1%; print qq{Was Maintained by: $email
} . qq{Removed why}; @@ -387,7 +387,7 @@ sub out { #$l .= '/Makefile'; print qq{Maintained by: $email
}; @@ -400,9 +400,9 @@ sub out { } print "
\n"; } - + if ($bdepends || $rdepends) { - local($flag) = 0; + local($flag) = 0; local($last) = ''; print qq{Requires: }; foreach (sort split(/\s+/, "$bdepends $rdepends")) { @@ -410,7 +410,7 @@ sub out { next if $_ eq $last; $last = $_; - print ", " if $flag; + print ", " if $flag; $flag++; print qq{$_}; } @@ -491,7 +491,7 @@ sub search_ports { &out($today{$key}, 0); } elsif ($stype eq 'maintainer' && $a[5] =~ /$query/io) { &out($today{$key}, 0); - } elsif ($stype eq 'requires' && + } elsif ($stype eq 'requires' && ($a[7] =~ /$query/io || $a[8] =~ /$query/io)) { &out($today{$key}, 0); } @@ -518,7 +518,7 @@ FreeBSD Ports [short description followed ...] print qq{ "Package Name" search for the name of port or distribution. "Description" search case-insensitive in a short comment about the port. -"All" search case-insensitive for the package name and in the +"All" search case-insensitive for the package name and in the description about the port.

@@ -527,7 +527,7 @@ Search for: @@ -573,7 +573,7 @@ or moved to an other ports section. print qq{\n\n