diff --git a/website/content/en/cgi/ports.cgi b/website/content/en/cgi/ports.cgi index ba64f54805..b3e58bb7ed 100755 --- a/website/content/en/cgi/ports.cgi +++ b/website/content/en/cgi/ports.cgi @@ -1,965 +1,970 @@ #!/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} . "

\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[: Commit Log\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{
\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 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
Dependencies 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

+

+Each port listed in the search results includes three links to the +FreeBSD ports Git repository and package builder, described below. +

+
Description
-
A more detailed description (text) via the git repo
+
The port's full description text
Commit Log
-
Read the latest changes via the git repo
+
Read the latest Git logs
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 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 "

\n$counter_message\n

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