diff --git a/en/cgi/ports.cgi b/en/cgi/ports.cgi index d1e82b83ab..581478d597 100755 --- a/en/cgi/ports.cgi +++ b/en/cgi/ports.cgi @@ -1,640 +1,671 @@ #!/usr/bin/perl -T # # Copyright (c) 1996-2007 Wolfram Schneider # All rights reserved. # # 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. # -# $FreeBSD: www/en/cgi/ports.cgi,v 1.94 2006/08/19 21:40:25 simon Exp $ +# $FreeBSD: www/en/cgi/ports.cgi,v 1.95 2007/08/02 18:28:26 wosch Exp $ # # ports.cgi - search engine for FreeBSD ports # o search for a port by name or description use POSIX qw(strftime); use Time::Local; require "./cgi-style.pl"; $t_style = qq` `; sub init_variables { - $localPrefix = '/usr/ports'; # ports prefix + $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-6") { - $ports_database = 'INDEX-6'; - } elsif (-f "$portsDatabaseHeadDir/INDEX-5") { - $ports_database = 'INDEX-5'; - } else { - $ports_database = 'INDEX'; + if ( -f "$portsDatabaseHeadDir/INDEX-6" ) { + $ports_database = 'INDEX-6'; + } + elsif ( -f "$portsDatabaseHeadDir/INDEX-5" ) { + $ports_database = 'INDEX-5'; + } + else { + $ports_database = 'INDEX'; } # URL of ports tree for browsing $remotePrefixFtp = 'ports'; - # 'ftp://ftp.FreeBSD.org/pub/FreeBSD/branches/-current/ports'; + + # 'ftp://ftp.FreeBSD.org/pub/FreeBSD/branches/-current/ports'; # URL of ports tree for download - $remotePrefixFtpDownload = - 'http://cvsweb.FreeBSD.org/ports'; + $remotePrefixFtpDownload = 'http://cvsweb.FreeBSD.org/ports'; $remoteSuffixFtpDownload = '%s.tar.gz?tarball=1'; # where to get -current packages - local($p) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/i386'; - local($palpha) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/alpha'; - local($pamd64) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/amd64'; - local($pia64) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/ia64'; - local($psparc64) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/sparc64'; + local ($p) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/i386'; + local ($palpha) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/alpha'; + local ($pamd64) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/amd64'; + local ($pia64) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/ia64'; + local ($psparc64) = 'ftp://ftp.FreeBSD.org/pub/FreeBSD/ports/sparc64'; $remotePrefixFtpPackagesDefault = '6-STABLE/i386'; # This is currently unused - %remotePrefixFtpPackages = - ( - '7-CURRENT/i386', "$p/packages-7-current/All", - '6-STABLE/i386', " $p/packages-6-stable/All", - '5-STABLE/i386', " $p/packages-5-stable/All", - '4-STABLE/i386', " $p/packages-4-stable/All", + %remotePrefixFtpPackages = ( + '7-CURRENT/i386', "$p/packages-7-current/All", + '6-STABLE/i386', " $p/packages-6-stable/All", + '5-STABLE/i386', " $p/packages-5-stable/All", + '4-STABLE/i386', " $p/packages-4-stable/All", - '6.0-RELEASE/i386', "$p/packages-6.0-release/All", - '5.4-RELEASE/i386', "$p/packages-5.4-release/All", - '4.11-RELEASE/i386',"$p/packages-4.11-release/All", + '6.0-RELEASE/i386', "$p/packages-6.0-release/All", + '5.4-RELEASE/i386', "$p/packages-5.4-release/All", + '4.11-RELEASE/i386', "$p/packages-4.11-release/All", - '4-STABLE/alpha', "$palpha/packages-4-stable/All", + '4-STABLE/alpha', "$palpha/packages-4-stable/All", - '5.4-RELEASE/alpha', "$palpha/packages-5.4-release/All", - '4.11-RELEASE/alpha',"$palpha/packages-4.11-release/All", + '5.4-RELEASE/alpha', "$palpha/packages-5.4-release/All", + '4.11-RELEASE/alpha', "$palpha/packages-4.11-release/All", - '7-CURRENT/amd64', "$pamd64/packages-7-current/All", - '6-STABLE/amd64', "$pamd64/packages-6-stable/All", - '5-STABLE/amd64', "$pamd64/packages-5-stable/All", + '7-CURRENT/amd64', "$pamd64/packages-7-current/All", + '6-STABLE/amd64', "$pamd64/packages-6-stable/All", + '5-STABLE/amd64', "$pamd64/packages-5-stable/All", - '6.0-RELEASE/amd64', "$pamd64/packages-6.0-release/All", - '5.4-RELEASE/amd64', "$pamd64/packages-5.4-release/All", + '6.0-RELEASE/amd64', "$pamd64/packages-6.0-release/All", + '5.4-RELEASE/amd64', "$pamd64/packages-5.4-release/All", - '7-CURRENT/ia64', "$pia64/packages-7-current/All", - '6-STABLE/ia64', "$pia64/packages-6-stable/All", + '7-CURRENT/ia64', "$pia64/packages-7-current/All", + '6-STABLE/ia64', "$pia64/packages-6-stable/All", - '6.0-RELEASE/ia64', "$pia64/packages-6.0-release/All", - '5.4-RELEASE/ia64', "$pia64/packages-5.4-release/All", + '6.0-RELEASE/ia64', "$pia64/packages-6.0-release/All", + '5.4-RELEASE/ia64', "$pia64/packages-5.4-release/All", - '7-CURRENT/sparc64', "$psparc64/packages-7-current/All", - '6-STABLE/sparc64', "$psparc64/packages-6-stable/All", - '5-STABLE/sparc64', "$psparc64/packages-5-stable/All", + '7-CURRENT/sparc64', "$psparc64/packages-7-current/All", + '6-STABLE/sparc64', "$psparc64/packages-6-stable/All", + '5-STABLE/sparc64', "$psparc64/packages-5-stable/All", - '6.0-RELEASE/sparc64', "$psparc64/packages-6.0-release/All", - '5.4-RELEASE/sparc64', "$psparc64/packages-5.4-release/All", - ); + '6.0-RELEASE/sparc64', "$psparc64/packages-6.0-release/All", + '5.4-RELEASE/sparc64', "$psparc64/packages-5.4-release/All", + ); - $remotePrefixHtml = - "$hsty_base/ports"; + $remotePrefixHtml = "$hsty_base/ports"; # CVS Web interface - $remotePrefixCvs = - 'http://cvsweb.FreeBSD.org/ports'; + $remotePrefixCvs = 'http://cvsweb.FreeBSD.org/ports'; # Ports documentation $portsDesc = "$hsty_base/ports/"; # location of the tiny BSD daemon - $daemonGif = "Really small BSD Daemon"; + $daemonGif = +"Really small BSD Daemon"; # visible E-Mail address, plain text $mailto = 'www@FreeBSD.org'; # Mailinglist for FreeBSD Ports $mailtoList = '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'; # ports download sources script $pds = 'pds.cgi'; # make plain text URLs clickable cgi script $url = 'url.cgi'; # extension type for packages $packageExt = 'tbz'; - local($packageDB) = '../ports/packages.exists'; - &packages_exist($packageDB, *packages) if -f $packageDB; + local ($packageDB) = '../ports/packages.exists'; + &packages_exist( $packageDB, *packages ) if -f $packageDB; } - sub packages_exist { - local($file, *p) = @_; + local ( $file, *p ) = @_; - open(P, $file) || do { + open( P, $file ) || do { warn "open $file: $!\n"; warn "Cannot create packages links\n"; return 1; }; - while(

) { + while (

) { chop; $p{$_} = 1; } close P; return 0; } - # 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("%G-%m-%d %H:%M:%S UTC", gmtime($modtime)); - } else { - $modtimestr = "Unknown"; + local ($file) = "$portsDatabaseHeadDir/$ports_database"; + local ( $modtime, $modtimestr ); + + $modtime = ( stat($file) )[9]; + if ( defined($modtime) && $modtime > 0 ) { + $modtimestr = strftime( "%G-%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($_) = @_; + local ($_) = @_; - s/\+/ /g; # '+' -> space - s/%(..)/pack("c",hex($1))/ge; # '%ab' -> char ab + s/\+/ /g; # '+' -> space + s/%(..)/pack("c",hex($1))/ge; # '%ab' -> char ab - return($_); + return ($_); } - - # $indent is a bit of optional data processing I put in for # formatting the data nicely when you are emailing it. # This is derived from code by Denis Howe # and Thomas A Fine sub decode_form { - local($form, *data, $indent, $key, $_) = @_; - foreach $_ (split(/&/, $form)) { - ($key, $_) = split(/=/, $_, 2); - $_ =~ s/\+/ /g; # + -> space - $key =~ s/\+/ /g; # + -> space - $_ =~ 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 - $_ =~ s/[\r\n]+/\n\t/g if defined($indent); # indent data after \n - $data{$key} = $_; + local ( $form, *data, $indent, $key, $_ ) = @_; + foreach $_ ( split( /&/, $form ) ) { + ( $key, $_ ) = split( /=/, $_, 2 ); + $_ =~ s/\+/ /g; # + -> space + $key =~ s/\+/ /g; # + -> space + $_ =~ 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 + $_ =~ s/[\r\n]+/\n\t/g if defined($indent); # indent data after \n + $data{$key} = $_; } } sub escapeHTML { - my $toencode = shift; - return "" unless defined($toencode); - - $toencode =~ s{&}{&}gso; - $toencode =~ s{<}{<}gso; - $toencode =~ s{>}{>}gso; - $toencode =~ s{"}{"}gso; - return $toencode; + 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; + local ($_) = @_; +s/([\000-\032\;\/\?\:\@\&\=\%\'\"\`\<\>\177-\377 ])/sprintf('%%%02x',ord($1))/eg; + # s/%20/+/g; $_; } sub warn { print "$_[0]" } -sub env { defined($ENV{$_[0]}) ? $ENV{$_[0]} : undef; } -sub exit { exit 0 }; +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); + local ( *var, *msec ) = @_; + local ($localportsdb) = "$portsDatabaseHeadDir/$ports_database"; + local ( @tmp, @s ); - open(C, $localportsdb) || do { - warn "Cannot open ports database $localportsdb: $!\n"; &exit; + open( C, $localportsdb ) || do { + warn "Cannot open ports database $localportsdb: $!\n"; + &exit; }; - while() { - next if $query && !/$query/oi; - chop; + while () { + next if $query && !/$query/oi; + chop; - @tmp = split(/\|/); - $var{"$tmp[4]"} = $_; - @s = split(/\s+/, $tmp[6]); - foreach (@s) { - $msec{"$tmp[4],$_"} = 1; - } + @tmp = split(/\|/); + $var{"$tmp[4]"} = $_; + @s = split( /\s+/, $tmp[6] ); + foreach (@s) { + $msec{"$tmp[4],$_"} = 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; - } - } - } + 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, $_); + foreach ( sort keys %key ) { + push( @a, $_ ); } return @a; } # basic function for HTML output sub out { - local($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) { - print "\n" if $counter > 0; - print qq{\n

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

\n
\n"; - $out_sec = $1; - } + local ($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 ) { + print "
\n" if $counter > 0; + print qq{\n

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

\n
\n"; + $out_sec = $1; + } } $counter++; $pathDownload = $path; - $pathB= $path; + $pathB = $path; $pathB =~ s/^$localPrefix/ports/o; - $path =~ s/^$localPrefix/$remotePrefixFtp/o; + $path =~ s/^$localPrefix/$remotePrefixFtp/o; $pathDownload =~ s/^$localPrefix/$remotePrefixFtpDownload/o; if ($remoteSuffixFtpDownload) { - if (substr($remoteSuffixFtpDownload, 0, 2) eq '%s') { - $pathDownload =~ m,([^/]+)$,; - $pathDownload .= "/$1" . substr($remoteSuffixFtpDownload, 2); - } else { - $pathDownload .= $remoteSuffixFtpDownload; - } + if ( substr( $remoteSuffixFtpDownload, 0, 2 ) eq '%s' ) { + $pathDownload =~ m,([^/]+)$,; + $pathDownload .= "/$1" . substr( $remoteSuffixFtpDownload, 2 ); + } + else { + $pathDownload .= $remoteSuffixFtpDownload; + } } $descfile =~ s/^$localPrefix/$remotePrefixFtp/o; $version = &encode_url($version); + #$version =~ s/[\+,]/X/g; - local($l) = $path; + local ($l) = $path; $l =~ s%^$remotePrefixFtp%$remotePrefixCvs%o; - print qq{
$version
\n}; + print + qq{
$version
\n}; print qq{
}, &escapeHTML($comment), qq{
\n}; print qq[Long description :\n]; print qq[Sources :\n]; - # Link package in "default" arch/release. Verify it's existence on ftp-master. - if ($packages{"$version.$packageExt"}) { - print qq[Package :\n]; + # Link package in "default" arch/release. Verify it's existence on ftp-master. + if ( $packages{"$version.$packageExt"} ) { + print +qq[Package :\n]; } print qq[Changes :\n]; print qq[Download
\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: }; - foreach (sort split(/\s+/, "$bdepends $rdepends")) { - # delete double entries - next if $_ eq $last; - $last = $_; - - print ", " if $flag; - $flag++; - print qq{$_}; - } - print "
\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: }; + 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 search_ports { - local(@a) = (); - local($key, $name, $text); - - foreach $key (sort keys %today) { - next if $today{$key} !~ /$query/oi; - - @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] !~ /^$section(\s|$)/; - } - - #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' && - ($a[7] =~ /$query/io || $a[8] =~ /$query/io)) { - &out($today{$key}); - } + local (@a) = (); + local ( $key, $name, $text ); + + foreach $key ( sort keys %today ) { + next if $today{$key} !~ /$query/oi; + + @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] !~ /^$section(\s|$)/; + } + + #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' + && ( $a[7] =~ /$query/io || $a[8] =~ /$query/io ) ) + { + &out( $today{$key} ); + } } } - sub forms { print qq{

FreeBSD Ports [short description followed ...] FAQ

}; print qq{

"Package Name" searches for the name of a port or distribution. "Description" searches case-insensitive in a short comment about the port. "All" searches case-insensitive for the package name and in the description about the port.

Search for:
}; } sub footer { print qq{ Powered by FreeBSD © 1996-2007 by Wolfram Schneider. All rights reserved.
}; - #print q{$FreeBSD: www/en/cgi/ports.cgi,v 1.94 2006/08/19 21:40:25 simon Exp $} . "
\n"; + +#print q{$FreeBSD: www/en/cgi/ports.cgi,v 1.95 2007/08/02 18:28:26 wosch Exp $} . "
\n"; print qq{Please direct questions about this service to $mailto
\n}; - print qq{General questions about FreeBSD ports should be sent to } . - qq{} . - qq{$mailtoList
\n}; + print qq{General questions about FreeBSD ports should be sent to } + . qq{} + . qq{$mailtoList
\n}; print &last_update_message; print qq{
\n

\n}; } - 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")) { - &warn("unknown search type ``$type'', use `all', `text', `name', 'requires', or `maintainer'\n"); - &exit(0); - } else { - return; - } + $stype = "all" if !$stype; + if ( + !( + $stype eq "name" + || $stype eq "text" + || $stype eq "maintainer" + || $stype eq "requires" + || $stype eq "all" + ) + ) + { + &warn( +"unknown search type ``$type'', use `all', `text', `name', 'requires', or `maintainer'\n" + ); + &exit(0); + } + else { + return; + } } } sub faq { print qq{

FreeBSD Ports Search FAQ

Keywords

Description
A more detailed description.
Download
Download the ports directory.
Package
Download the pre-compiled software package.
Changes
Read the latest changes.
Sources
Links to all source files.

Misc

Package download links point to the FreeBSD 6-STABLE version and not to the latest releases.

The script ports.cgi use the file $ports_database as database for it's operations. $ports_database is updated automatically every two hours.

You may also search the ports manual pages.

Back to the search engine

}; } # # Main # &init_variables; $query_string = &env('QUERY_STRING'); -$path_info = &env('PATH_INFO'); -&decode_form($query_string, *form); +$path_info = &env('PATH_INFO'); +&decode_form( $query_string, *form ); -$section = $form{'sektion'}; -$section = 'all' if (!$section); -$query = $form{'query'}; -$stype = $form{'stype'}; +$section = $form{'sektion'}; +$section = 'all' if ( !$section ); +$query = $form{'query'}; +$stype = $form{'stype'}; $script_name = &env('SCRIPT_NAME'); -if ($path_info eq "/source") { +if ( $path_info eq "/source" ) { + # XXX print "Content-type: text/plain\n\n"; - open(R, $0) || do { print "ick!\n"; &exit; }; - while() { print } + open( R, $0 ) || do { print "ick!\n"; &exit; }; + while () { print } close R; &exit; } # Full text search in ports//port>/pkg-descr -if ($stype eq 'pkgdescr') { - local($url) = +if ( $stype eq 'pkgdescr' ) { + local ($url) = 'http://www.FreeBSD.org/cgi/search.cgi?source=pkgdescr&max=25'; $query =~ s/\s+/+/g; print "Location: $url&words=$query\n\n"; &exit; } -if ($stype eq "faq") { - print &short_html_header("FreeBSD Ports Search FAQ", 1); +if ( $stype eq "faq" ) { + print &short_html_header( "FreeBSD Ports Search FAQ", 1 ); &faq; - &footer; print &html_footer; &exit(0); + &footer; + print &html_footer; + &exit(0); } -print &html_header("FreeBSD Ports Search", 1); +print &html_header( "FreeBSD Ports Search", 1 ); # allow `/ports.cgi?netscape' where 'netscape' is the query port to search # this make links to this script shorter -if (!$query && $query_string =~ /^([^=&]+)$/) { +if ( !$query && $query_string =~ /^([^=&]+)$/ ) { $query = $1; } # automatically read collections, need only 0.2 sec on a pentium @sec = &readcoll; &forms; $query =~ s/^\s+//; $query =~ s/\s+$//; -if ($query_string eq "" || !$query) { - &footer; print &html_footer; &exit(0); +if ( $query_string eq "" || !$query ) { + &footer; + print &html_footer; + &exit(0); } &check_input; $counter = 0; # search if ($query) { - &readindex(*today, *msec); + &readindex( *today, *msec ); $query =~ s/([^\w\^])/\\$1/g; &search_ports; } -if (!$counter) { +if ( !$counter ) { print "Sorry, nothing found.\n"; - print qq{You may look for other } . - qq{FreeBSD Search Services.\n}; -} else { + print qq{You may look for other } + . qq{FreeBSD Search Services.\n}; +} +else { print "
\n"; } print qq{
\n}; &footer; print &html_footer;