79 lines
2.2 KiB
Text
79 lines
2.2 KiB
Text
--- pib.tcl Sat Oct 28 13:01:12 2000
|
|
+++ pib.tcl Sun Nov 21 03:28:43 2010
|
|
@@ -1,6 +1,6 @@
|
|
#!/bin/sh
|
|
# Tcl magic \
|
|
-exec wish8.2 -f $0 $*
|
|
+exec wish8.4 -f $0 $*
|
|
################################################################################
|
|
#
|
|
# Copyright (C) 1996, 1997
|
|
@@ -309,22 +309,11 @@ proc init_browser {} {
|
|
#
|
|
proc init_options {} {
|
|
|
|
- # listboxes
|
|
- option add *Listbox.background white;
|
|
- option add *Listbox.selectForeground white;
|
|
- option add *Listbox.selectBackground darkblue;
|
|
-
|
|
# scrollbars
|
|
option add *Scrollbar.width 11;
|
|
|
|
# textboxes
|
|
- option add *Text.background white;
|
|
- option add *Text.selectForeground white;
|
|
- option add *Text.selectBackground darkblue;
|
|
option add *Text.font fixed;
|
|
-
|
|
- # entries
|
|
- option add *Entry.background white;
|
|
|
|
}
|
|
|
|
@@ -1931,36 +1920,19 @@ proc df_gather {} {
|
|
update_pwin df_getdinfo [format "%d/%d ports, %dK/sec" $pports $Status(nports) $rate];
|
|
|
|
# Find the md5 file.
|
|
- if {[catch {set fh [open "$path/files/md5" "r"]}]} {
|
|
+ if {[catch {set fh [open "$path/distinfo" "r"]}]} {
|
|
|
|
- # Nope. Perhaps we're dealing with US ITAR braindamage
|
|
- if {[op_elookup USA_RESIDENT]} {
|
|
- set aname "$path/files.usa/md5";
|
|
+ # Can't find an distinfo file; give up
|
|
+ if {[file isdirectory "$path"]} {
|
|
+ if {$Options(warn_no_md5)} {
|
|
+ lappend errs "$pname: '$path/distinfo' not found";
|
|
+ }
|
|
} else {
|
|
- set aname "$path/files.non_usa/md5";
|
|
- }
|
|
-
|
|
- # try again with a new name
|
|
- if {[catch {set fh [open $aname "r"]}]} {
|
|
-
|
|
- # Can't find an md5 file; give up
|
|
- if {[file isdirectory "$path/files"]} {
|
|
- if {$Options(warn_no_md5)} {
|
|
- lappend errs "$pname: '$path/files/md5' not found";
|
|
- }
|
|
- } else {
|
|
- if {[file isdirectory $path]} {
|
|
- if {$Options(warn_no_fdir)} {
|
|
- lappend errs "$pname: '$path/files' not found";
|
|
- }
|
|
- } else {
|
|
- if {$Options(warn_no_port)} {
|
|
- lappend errs "$pname: directory missing.";
|
|
- }
|
|
- }
|
|
+ if {$Options(warn_no_port)} {
|
|
+ lappend errs "$pname: directory missing.";
|
|
}
|
|
- continue ; # if no port info, assume it's not wanted
|
|
}
|
|
+ continue ; # if no port info, assume it's not wanted
|
|
}
|
|
|
|
# initialise state for this port
|