/[wait]/trunk/script/index_ora
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/index_ora

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

revision 76 by laperla, Sat Apr 6 19:00:54 2002 UTC revision 77 by laperla, Mon Apr 8 21:00:08 2002 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2  #                              -*- Mode: Perl -*-  #                              -*- Mode: Perl -*-
3  # $Basename$  # $Basename$
4  # $Revision: 1.13 $  # $Revision: 1.14 $
5  # Author          : Ulrich Pfeifer  # Author          : Ulrich Pfeifer
6  # Created On      : Mon Dec 31 13:57:11 2001  # Created On      : Mon Dec 31 13:57:11 2001
7  # Last Modified By: Ulrich Pfeifer  # Last Modified By: Ulrich Pfeifer
# Line 128  my $lasttimeround = my $starttime = time Line 128  my $lasttimeround = my $starttime = time
128  DOC: while (($did, $value) = each %D) {  DOC: while (($did, $value) = each %D) {
129    my $superdebug = 0;    my $superdebug = 0;
130    if ($superdebug && $OPT{debug}) {    if ($superdebug && $OPT{debug}) {
131      # next unless $did =~ /perl/;      next unless $did =~ /perltb/;
132    }    }
133    printf "%15s...(%d)\n", $did, $done if $OPT{verbose};    printf "%15s...(%d/%d)\n", $did, $done, $todo if $OPT{verbose};
134    my $record   = $layout->split($value);    my $record   = $layout->split($value);
135    my $headline = $record->{title};    my $headline = $record->{title};
136    $headline =~ s/\s+/ /sg;    $headline =~ s/\s+/ /sg;
Legend:
Removed from v.76  
changed lines
  Added in v.77
  ViewVC Help
Powered by ViewVC 1.1.26