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 |
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; |