diff --git a/website/content/en/cgi/ports.cgi b/website/content/en/cgi/ports.cgi index 13471f1620..02b36b5229 100755 --- a/website/content/en/cgi/ports.cgi +++ b/website/content/en/cgi/ports.cgi @@ -1,961 +1,965 @@ #!/usr/local/bin/perl -T # # SPDX-License-Identifier: BSD-2-Clause # Copyright (c) 1996-2026 Wolfram Schneider # # Redistribution and use in source and binary forms, with or without # modification, are permitted provided that the following conditions # are met: # # 1. Redistributions of source code must retain the above copyright # notice, this list of conditions and the following disclaimer. # 2. Redistributions in binary form must reproduce the above copyright # notice, this list of conditions and the following disclaimer in the # documentation and/or other materials provided with the distribution. # # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE # ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF # SUCH DAMAGE. # # ports.cgi - search engine for FreeBSD ports use POSIX qw(strftime); use Time::Local; use JSON; use warnings; our $hsty_base; require "./cgi-style.pl"; our $t_style = qq` `; my $no_javascript_warning = <<'EOF'; EOF my $pkg_javascript = <<'EOF'; EOF # No unlimited result set. A HTML page with 1000 results can be 10MB big. my $max_hits = 1000; my $max_hits_default = 250; my $max_hits_pkg = 400; my $max; my $debug = 1; # feature flags my $enable_packages_link = 1; my $enable_check_freebsd_mailing_list = 1; my %lists; sub init_variables { $localPrefix = '/usr/ports'; # ports prefix # Directory of the up-to-date INDEX* $portsDatabaseHeadDir = "/usr/local/www/ports"; # Ports database file to use if ( -f "$portsDatabaseHeadDir/INDEX-15" ) { $ports_database = 'INDEX-15'; } elsif ( -f "$portsDatabaseHeadDir/INDEX-14" ) { $ports_database = 'INDEX-14'; } else { $ports_database = 'INDEX'; } # URL of ports tree for browsing $remotePrefixFtp = 'ports'; # Web interface for the Ports tree $remotePrefixRepo = 'https://cgit.FreeBSD.org/ports'; # visible E-Mail address, plain text $mailto = 'www@FreeBSD.org'; # Mailinglist for FreeBSD Ports $mailtoList = 'freebsd-ports@FreeBSD.org'; # use mailto:email?subject $mailtoAdvanced = 'yes'; # the URL if you click at the E-Mail address (see below) $mailtoURL = "mailto:$mailto" if !$mailtoURL; # security $ENV{'PATH'} = '/bin:/usr/bin'; } # return the date of the last ports database update sub last_update { local ($file) = "$portsDatabaseHeadDir/$ports_database"; local ( $modtime, $modtimestr ); $modtime = ( stat($file) )[9]; if ( defined($modtime) && $modtime > 0 ) { $modtimestr = strftime( "%Y-%m-%d %H:%M:%S UTC", gmtime($modtime) ); } else { $modtimestr = "Unknown"; } return $modtimestr; } sub last_update_message { return "Last database update: @{[ &last_update ]}\n"; } sub dec { local ($_) = @_; s/\+/ /g; # '+' -> space s/%(..)/pack("c",hex($1))/ge; # '%ab' -> char ab return ($_); } sub decode_form { local ( $form, *data ) = @_; foreach my $line ( split( /&/, $form ) ) { my ( $key, $val ) = split( /=/, $line, 2 ); $val = "" if !defined $val; $val =~ s/\+/ /g; # + -> space $key =~ s/\+/ /g; # + -> space $val =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig; # undo % escapes $key =~ s/%([\da-f]{1,2})/pack(C,hex($1))/eig; # undo % escapes $data{$key} = $val; } } sub escapeHTML { my $toencode = shift; return "" unless defined($toencode); $toencode =~ s{&}{&}gso; $toencode =~ s{<}{<}gso; $toencode =~ s{>}{>}gso; $toencode =~ s{"}{"}gso; return $toencode; } # encode unknown data for use in a URL sub encode_url { local ($_) = @_; s/([\000-\032\;\/\?\:\@\&\=\%\'\"\`\<\>\177-\377 ])/sprintf('%%%02x',ord($1))/eg; # s/%20/+/g; $_; } sub env { defined( $ENV{ $_[0] } ) ? $ENV{ $_[0] } : undef; } sub exit { exit 0 } sub readindex { local ( *var, *msec ) = @_; local ($localportsdb) = "$portsDatabaseHeadDir/$ports_database"; local ( @tmp, @s ); open( C, $localportsdb ) || do { warn "Cannot open ports database $localportsdb: $!\n"; &exit; }; while () { next if $query && !/$query/oi; chop; @tmp = split(/\|/); $var{"$tmp[0]"} = $_; @s = split( /\s+/, $tmp[6] ); foreach (@s) { $msec{"$tmp[1],$_"} = 1; } } close C; } # extract sub collections sub readcoll { local ( @a, @b, %key ); local ($file) = '../ports/categories'; local ($localportsdb) = "$portsDatabaseHeadDir/$ports_database"; if ( -r $file && open( C, $file ) ) { while () { chop; if (/^\s*([^,]+),\s*"([^"]+)",\s*([A-Z]+)/) { @b = split( /\s+/, $1 ); foreach (@b) { if ( !defined( $key{$_} ) ) { $key{$_} = 1; } } } } } else { if ( -r $localportsdb ) { open( C, $localportsdb ) || do { warn "Cannot open ports database $localportsdb: $!\n"; &exit; } } while () { chop; @a = split('\|'); @b = split( /\s+/, $a[6] ); foreach (@b) { if ( !defined( $key{$_} ) ) { $key{$_} = 1; } } } } close C; @a = (); foreach ( sort keys %key ) { push( @a, $_ ); } return @a; } # basic function for HTML output sub out { local ($line) = @_; my ( $version, $path, $local, $comment, $descfile, $email, $sections, $bdepends, $rdepends, @rest ) = split( /\|/, $line ); if ( $path =~ m%^$localPrefix/([^/]+)%o ) { if ( !$out_sec || $1 ne $out_sec ) { print "\n" if $counter > 0; print qq{\n

} - . qq{Category $1} + . qq{Category: $1} . "

\n
\n"; $out_sec = $1; } } $rdepends //= ""; $counter++; $pathB = $path; my $port_path = $path; $port_path =~ s,/usr/ports/,,; $pathB =~ s/^$localPrefix/ports/o; $path =~ s/^$localPrefix/$remotePrefixFtp/o; $descfile =~ s/^$localPrefix/$remotePrefixFtp/o; $version = &encode_url($version); $email = &check_freebsd_mailing_list($email) if $enable_check_freebsd_mailing_list; #$version =~ s/[\+,]/X/g; local ($l) = $path; $l =~ s%^$remotePrefixFtp%$remotePrefixRepo/log%o; local ($t) = $path; $t =~ s%^$remotePrefixFtp%$remotePrefixRepo/tree%o; $descfile =~ s%^$remotePrefixFtp%$remotePrefixRepo/plain%o; print qq{
$version
\n}; print qq{
}, &escapeHTML($comment), qq{
\n}; print qq[Description\n]; print qq[: Changes\n]; print qq[: Packages\n] if $enable_packages_link; print qq[
\n]; print qq{Maintained by: $email
\n}; local (@s) = split( /\s+/, $sections ); if ( $#s > 0 ) { print qq{Also listed in: }; foreach (@s) { print qq{$_ } if $_ ne $out_sec; } print "
\n"; } if ( $bdepends || $rdepends ) { local ($flag) = 0; local ($last) = ''; - print qq{Requires: }; + print qq{
\n}; + print qq{Dependencies: }; foreach ( sort split( /\s+/, "$bdepends $rdepends" ) ) { # delete double entries next if $_ eq $last; $last = $_; print ", " if $flag; $flag++; print qq{$_}; } - print "
\n"; + print "
\n"; } print qq[
]; # XXX: should be done in a CSS print qq[
 
]; print qq[\n\n]; } # search and output sub package_links { my $q = shift; my $filter = shift; my @system = ( qw[env packagesize_dir=/usr/local/www/ports/packages /usr/local/www/bin/pkg-search.sh], ); push @system, $q; if ( !open( PKG_IN, '-|' ) ) { if ( !exec(@system) ) { die join( " ", @system ) . " $!\n"; } } binmode( PKG_IN, ":bytes" ); my $hash; my $counter = 0; while () { chomp; next if !(m,^(.*?)-(.*?)\.yaml:(.*),); my $arch = $1; my $rel_major = $1; my $rel_minor = "$1/$2"; my $snapshot = $2; my $path = "$1/$2"; my $perl = decode_json($3); $arch =~ s,.*%3A,,; if ( $rel_major =~ /^FreeBSD%3A(\d+)%3A/ ) { $rel_major = ":$1:"; } if ( $rel_minor =~ /^FreeBSD%3A(\d+)%3A.*release_(\d+)$/ ) { $rel_minor = ":$1:$2"; } else { $rel_minor = ""; } if ( $. == 1 ) { print qq[

$perl->{"name"}: ], escapeHTML( $perl->{"comment"} ), qq[

\n]; my $maintainer = $perl->{"maintainer"}; $maintainer = &check_freebsd_mailing_list($maintainer) if $enable_check_freebsd_mailing_list; print qq[Maintainer: $maintainer
\n]; print qq[Homepage ] . $perl->{"www"} . "
\n"; print qq[Git: ] . $perl->{"origin"} . qq[
\n]; print "
", escapeHTML( $perl->{"desc"} ), "
\n"; print qq[

Download packages in *.pkg format

\n]; print $no_javascript_warning, $pkg_javascript; print qq{\n}; print qq{\n}; print qq{\n}; print qq{ \n}; print qq{ \n}; print qq{ \n}; print qq{\n}; print qq{\n}; print qq{\n}; } my $release = $perl->{"abi"} . " " . $snapshot; my $time = $perl->{"annotations"}->{"build_timestamp"} // ""; my $version = $perl->{"version"}; my $repopath = $perl->{"repopath"}; my $flavor = $perl->{"annotations"}->{"flavor"} // ""; # show flavor if ($flavor) { $release = $release . " (" . $flavor . ")"; } $time =~ s/\+\d{4}$//; $time =~ s/T(\d\d):(\d\d):(\d\d)$/ $1:$2/; my $pkg_opt = $repopath; $pkg_opt =~ s,.*/,,; $pkg_opt =~ s,\~.*,,; if ($filter) { next if index( $release, $filter ) < 0 && index( $pkg_opt, $filter ) < 0 && index( $rel_minor, $filter ) < 0 && index( $version, $filter ) < 0 && index( $time, $filter ) < 0 && index( $flavor, $filter ) < 0; } next if $counter >= $max; $counter++; my $info = $time ? qq[pkg: $pkg_opt\n size: $perl->{"pkgsize"} bytes\n git_hash: $perl->{"annotations"}->{"port_git_hash"}\n ] . qq[ports_top_git_hash: $perl->{"annotations"}->{"ports_top_git_hash"}\nchecksum: $perl->{"sum"}\n] : ""; print "\n"; print "\n]; print "\n"; print qq[\n"; print "\n"; $hash->{'version'}->{$version}++; $hash->{'arch'}->{$arch}++; $hash->{'release_major'}->{$rel_major}++; $hash->{'release_minor'}->{$rel_minor}++; $hash->{'flavor'}->{$flavor}++ if $flavor ne ""; $hash->{'snapshot'}->{$snapshot}++ if $snapshot eq 'latest' || $snapshot eq 'quarterly'; } if ( $counter || $. >= 1 ) { print <
Release <>Version <>Build Time <>
", qq[$release", $version, "], $time, "

EOF foreach my $key ( sort keys %$hash ) { print "", escapeHTML($key), ": \n"; my $flag = 0; foreach my $k ( sort keys %{ $hash->{$key} } ) { print " - " if $flag++; print qq[], escapeHTML($k), "\n"; } print "
\n"; } if ( $filter ne "" ) { print escapeHTML(">>>"), qq[ reset filter ], escapeHTML("<<<"), "\n"; } } return $counter; } # search and output sub search_ports { local (@a) = (); local ( $key, $name, $text ); foreach $key ( sort keys %today ) { next if $today{$key} !~ /$query/oi; next if $counter >= $max; @a = split( /\|/, $today{$key} ); $name = $a[0]; #$name =~ s/(\W)/\\$1/g; $text = $a[3]; #$text =~ s/(\W)/\\$1/g; if ( $section ne "all" ) { next if $a[6] !~ /\b$section\b/; } #warn "$stype:$query: $name $text\n"; if ( $stype eq "name" && $name =~ /$query/o ) { &out( $today{$key} ); } elsif ( $stype eq "text" && $text =~ /$query/oi ) { &out( $today{$key} ); } elsif ( $stype eq "all" && ( $text =~ /$query/oi || $name =~ /$query/io ) ) { &out( $today{$key} ); } elsif ( $stype eq 'maintainer' && $a[5] =~ /$query/io ) { &out( $today{$key} ); } elsif ( $stype eq 'requires' && ( defined $a[7] && $a[7] =~ /$query/io || ( defined $a[8] && $a[8] =~ /$query/io ) ) ) { &out( $today{$key} ); } } } sub input_autofocus_at_end { return < const input = document.querySelector('#query'); input.focus(); input.setSelectionRange(input.value.length, input.value.length); EOF } sub forms { print qq{
- +

@{[ &footer_links ]}
}; } sub check_query { my ( $query, $sourceid ) = @_; $query =~ s/"/ /g; $query =~ s/^\s+//; $query =~ s/\s+$//; # XXX: Firefox opensearch autocomplete workarounds if ( $sourceid eq 'opensearch' ) { # remove space before a dot $query =~ s/ \././g; # remove space between double colon $query =~ s/: :/::/g; } return $query; } sub check_input { if ($query) { $stype = "all" if !$stype; if ( !( $stype eq "name" || $stype eq "text" || $stype eq "maintainer" || $stype eq "requires" || $stype eq "all" || $stype eq "pkg" ) ) { print "unknown search type, use `all', `text', `name', 'requires', or `maintainer'\n"; warn "unknown search type ``", escapeHTML($stype), "'', use `all', `text', `name', 'requires', or `maintainer'\n" if $debug >= 1; &exit(0); } } $max = int($max); if ( $max <= 0 || $max > $max_hits ) { my $old_max = $max; $max = $enable_packages_link && $stype eq 'pkg' ? $max_hits_pkg : $max_hits_default; warn "reset max=$old_max to $max\n"; } } sub help { print <

FreeBSD Ports Search Help

The FreeBSD Ports and Packages Collection offers a simple way for users and administrators to install applications. Use the search types below to find a port.

@{[ &last_update_message ]} - refreshed automatically every two hours from $ports_database. For other FreeBSD release indexes, see the full index listing.

Search Types

- +
Type What it searches Example
All Package name and description (case-insensitive) netcat
Package Name The name of a port or distribution neovim
Description The short one-line comment about a port (case-insensitive) vim
Maintainer The maintainer's email address emacs\@FreeBSD.org
RequiresDependencies Ports that depend on the given port (not the other way around) vim-tiny

Note: search is substring-based; wildcards and regular expressions are not supported.

External Links

Description
A more detailed description (text) via the git repo
Changes
Read the latest changes via the git repo
Packages
List of packages available for all releases, branches and architectures

Further Reading

Questions

General questions about FreeBSD ports should be sent to the $mailtoList mailing list.

Copyright

 Copyright (c) 1996-2026 Wolfram Schneider <wosch\@FreeBSD.org>
 

@{[ &footer_links ]}


EOF } sub footer_links { return < home @{[ $stype eq "help" ? "" : qq, | help, ]} | git | ftp EOF } # expand FreeBSD mailing list aliases to full name, # e.g 'office' => 'freebsd-office' sub check_freebsd_mailing_list { my $email = shift; my ( $user, $hostname ) = split( '@', $email ); # email is a ports section, not a real user if ( $lists{$user} ) { $user = 'freebsd-' . $user; } return $user . '@' . $hostname; } # # Main # &init_variables; $query_string = &env('QUERY_STRING'); $path_info = &env('PATH_INFO') // ""; &decode_form( $query_string, *form ); $section = $form{'sektion'}; $section = 'all' if ( !$section ); $query = $form{'query'} // ""; $stype = $form{'stype'} // ""; $sourceid = $form{'sourceid'} // ""; $pkg_filter = $form{'pkg_filter'} // ""; $script_name = &env('SCRIPT_NAME'); $max = $form{'max'} // ( $enable_packages_link && $stype eq 'pkg' ? $max_hits_pkg : $max_hits_default ); if ( $path_info eq "/source" ) { print "Content-type: text/plain\n\n"; open( R, $0 ) || do { warn "open $0: $!!\n"; &exit; }; while () { print } close R; &exit; } if ( $stype eq "help" ) { print &short_html_header( "FreeBSD Ports Search Help", 1 ); &help; print &html_footer; &exit(0); } # allow `/ports.cgi?netscape' where 'netscape' is the query port to search # this make links to this script shorter if ( !$query && $query_string =~ /^([^=&]+)$/ ) { $query = $1; } if ($query) { print &short_html_header( "FreeBSD Ports Search", 1 ); print "
\n"; } else { print &html_header( "FreeBSD Ports Search", 1 ); } # get all categories @sec = &readcoll; # mailing list aliases %lists = map { $_ => 1 } qw/apache chromium desktop elastic emulation enlightenment erlang fortran gecko gnome go haskell java multimedia office perl pkg ports python ruby tcltk tex uboot x11 xfce zope/; $query = &check_query( $query, $sourceid ); # no search menu for packages links if ( $enable_packages_link && $stype eq 'pkg' ) { } else { &forms; } if ( $query_string eq "" || !$query ) { print &html_footer; &exit(0); } &check_input; $counter = 0; # no prefix search for requires supported yet $query =~ s/^\^// if $stype eq 'requires'; # quote non characters my $query2 = $query; $query =~ s/([^\w\^])/\\$1/g; # search if ($query) { my $q = ""; if ( $query2 =~ m,^([A-Za-z0-9\-]+)/([A-Za-z0-9\-_\+\.\\]+)$, ) { $q = "$1/$2"; } if ( $q ne "" && $enable_packages_link && $stype eq 'pkg' ) { $counter = &package_links( $q, $pkg_filter ); } else { &readindex( *today, *msec ); &search_ports; } } if ( !$counter ) { print < Sorry, nothing found.

You can start a new search or look for other FreeBSD Search Services.


@{[ &footer_links ]} EOF } if ($counter) { print "
\n" if $stype ne 'pkg'; - my $counter_message = $counter; + my $counter_message = "$counter result"; + $counter_message .= "s" if $counter > 1; if ( $counter >= $max ) { $counter_message .= " (max hit limit reached)"; warn "$counter_message: query=$query stype=$stype section=$section\n" if $debug >= 1; } - print "

Number of results: $counter_message\n

\n"; + print "

\n$counter_message\n

\n"; print &footer_links; } print &input_autofocus_at_end; print qq{
\n}; print &html_footer;