/[wait]/trunk/script/sman
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/script/sman

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by dpavlin, Sun May 23 15:37:29 2004 UTC revision 8 by dpavlin, Sun May 23 21:00:21 2004 UTC
# Line 1  Line 1 
1  #!perl -w  #!/usr/bin/perl -w
2  #                              -*- Mode: Perl -*-  #                              -*- Mode: Perl -*-
3  # $Basename: sman $  # $Basename: sman $
4  # $Revision: 1.14 $  # $Revision: 1.14 $
# Line 13  Line 13 
13    
14  use strict;  use strict;
15    
16    use lib '/data/wait/lib';
17    
18  use Term::ReadLine;  use Term::ReadLine;
19  use Getopt::Long;  use Getopt::Long;
20  use Fcntl;  use Fcntl;
# Line 225  sub display { Line 227  sub display {
227  # WHAT DOES HE DO HERE? ULI???  # WHAT DOES HE DO HERE? ULI???
228  # Re: some indexing scripts did use pathnames relative to the table directory  # Re: some indexing scripts did use pathnames relative to the table directory
229  # especially the cpanwait script does this. uli  # especially the cpanwait script does this. uli
230  #  if ($tdid !~ m(^/)) {    if ($tdid !~ m(^/)) {
231  #    $tdid = $tb->dir . '/' . $tdid;      $tdid = $tb->dir . '/' . $tdid;
232  #  }    }
233    
234    # The main task of all that follows from here is highlighting. WAIT    # The main task of all that follows from here is highlighting. WAIT
235    # 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
Legend:
Removed from v.7  
changed lines
  Added in v.8
  ViewVC Help
Powered by ViewVC 1.1.26