18 |
use Fcntl qw(O_RDONLY); |
use Fcntl qw(O_RDONLY); |
19 |
use Config; |
use Config; |
20 |
|
|
21 |
|
use '/data/wait/lib'; |
22 |
|
|
23 |
require WAIT::Config; |
require WAIT::Config; |
24 |
require WAIT::Database; |
require WAIT::Database; |
25 |
require WAIT::Query::Base; |
require WAIT::Query::Base; |
235 |
# WHAT DOES HE DO HERE? ULI??? |
# WHAT DOES HE DO HERE? ULI??? |
236 |
# Re: some indexing scripts did use pathnames relative to the table directory |
# Re: some indexing scripts did use pathnames relative to the table directory |
237 |
# especially the cpanwait script does this. uli |
# especially the cpanwait script does this. uli |
238 |
# if ($tdid !~ m(^/)) { |
if ($tdid !~ m(^/)) { |
239 |
# $tdid = $tb->dir . '/' . $tdid; |
$tdid = $tb->dir . '/' . $tdid; |
240 |
# } |
} |
241 |
|
|
242 |
# The main task of all that follows from here is highlighting. WAIT |
# The main task of all that follows from here is highlighting. WAIT |
243 |
# is designed to make it possible to show the user why a certain |
# is designed to make it possible to show the user why a certain |