Date: Thu, 19 Oct 2000 10:39:01 -0700 (PDT) From: martin@freebsd.cz To: freebsd-gnats-submit@FreeBSD.org Subject: ports/22130: Update to the pib (Port INDEX Browser) utility to use the new port structure Message-ID: <20001019173901.8D49037B479@hub.freebsd.org>
next in thread | raw e-mail | index | archive | help
>Number: 22130
>Category: ports
>Synopsis: Update to the pib (Port INDEX Browser) utility to use the new port structure
>Confidential: no
>Severity: non-critical
>Priority: low
>Responsible: freebsd-ports
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: change-request
>Submitter-Id: current-users
>Arrival-Date: Thu Oct 19 10:40:00 PDT 2000
>Closed-Date:
>Last-Modified:
>Originator: Martin Machacek
>Release: 4.1.1
>Organization:
>Environment:
FreeBSD mm0.i.cz 4.1.1-RELEASE FreeBSD 4.1.1-RELEASE #0: Tue Sep 26 00:46:59 GMT 2000 jkh@narf.osd.bsdi.com:/usr/src/sys/compile/GENERIC i386
>Description:
The pib utility version 1.1 (/usr/ports/sysutils/pib) was not updated
to the new structure of port directories especially to the new location of
description file (there is <portname>/pkg/DESCR hardcoded). The
correct path to the description files is being read from the INDEX file
at startup but so far it was never used in the code.
>How-To-Repeat:
Select some port (not category) and click the '?' button. Message box
pops up that actually shows the whole problem.
>Fix:
Apply following (super simple) patch (hpefully it will make it through
the web form despite the warning :-)):
*** pib.tcl.orig Thu Oct 19 19:01:17 2000
--- pib.tcl Thu Oct 19 19:04:28 2000
***************
*** 1214,1219 ****
--- 1214,1220 ----
if {[array names Ports $name:\*] != ""} { # port matching name?
set Browser(pname) "$Ports($name:cat) : $name";
+ set Browser(dpath) "$Ports($name:dpath)";
$Browser(pcomment) insert end $Ports($name:comment);
set Browser(maint) $Ports($name:maint);
foreach bd $Ports($name:bdep) {
***************
*** 1253,1260 ****
}
set w ".descreader";
!
! set fname "$Browser(cpath)/pkg/DESCR";
if {![file readable $fname]} {
if {$mode == "new"} {
tk_dialog .message "" "Can't open the file :\n$fname\nto read port description." \
--- 1254,1260 ----
}
set w ".descreader";
! set fname "$Browser(dpath)";
if {![file readable $fname]} {
if {$mode == "new"} {
tk_dialog .message "" "Can't open the file :\n$fname\nto read port description." \
>Release-Note:
>Audit-Trail:
>Unformatted:
To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-ports" in the body of the message
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?20001019173901.8D49037B479>