Changeset View
Changeset View
Standalone View
Standalone View
Tools/scripts/portsearch
Show All 18 Lines | |||||
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, | # IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, | ||||
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||||
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, | # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, | ||||
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY | # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY | ||||
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT | # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT | ||||
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF | # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF | ||||
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | ||||
# | # | ||||
# $Id$ | |||||
# | |||||
# Each port record in INDEX contains 10 fields, delimited by ``|'', some | # Each port record in INDEX contains 10 fields, delimited by ``|'', some | ||||
# of which may be empty. The fields are: | # of which may be empty. The fields are: | ||||
# | # | ||||
# distribution-name|port-path|installation-prefix|comment| \ | # distribution-name|port-path|installation-prefix|comment| \ | ||||
# description-file|maintainer|categories|build deps|run deps|www site | # description-file|maintainer|categories|build deps|run deps|www site | ||||
use strict; | use strict; | ||||
use Getopt::Std; | use Getopt::Std; | ||||
use vars qw/ $key @list %fields %list %opts /; | use vars qw/ $key @list %fields %list %opts /; | ||||
# | # | ||||
# Global variables | # Global variables | ||||
# | # | ||||
my $osrel = `/usr/bin/uname -r`; | my $osrel = `/usr/bin/uname -r`; | ||||
$osrel =~ s/\..+$//s; | $osrel =~ s/\..+$//s; | ||||
my $portsdir = "/usr/ports"; | my $portsdir = "/usr/ports"; | ||||
$portsdir = $ENV{PORTSDIR} if ( defined $ENV{'PORTSDIR'} ); | $portsdir = $ENV{PORTSDIR} if ( defined $ENV{'PORTSDIR'} ); | ||||
my $VERSION = "1.0"; | my $VERSION = "1.0"; | ||||
my $file = "$portsdir/INDEX" . ($osrel <= 4 ? "" : "-$osrel"); | my $file = "$portsdir/INDEX-$osrel"; | ||||
my $match = 1; | my $match = 1; | ||||
my $count = 0; | my $count = 0; | ||||
my $fulldesc = 0; | my $fulldesc = 0; | ||||
# We only need 7 of the 10 fields in a record; define which ones in a | # We only need 7 of the 10 fields in a record; define which ones in a | ||||
# hash slice to ignore the un-needed ones. This also makes it easy to | # hash slice to ignore the un-needed ones. This also makes it easy to | ||||
# add or remove fields in the future. | # add or remove fields in the future. | ||||
▲ Show 20 Lines • Show All 154 Lines • Show Last 20 Lines |