| 106 |
|
sub parse { |
| 107 |
|
my $self=shift; |
| 108 |
|
$parselabel=shift; |
| 109 |
– |
|
| 109 |
|
my $file=$self->filetoparse(); |
| 110 |
+ |
|
| 111 |
|
if ( -f $file ) { |
| 112 |
|
if ( exists $self->{parsers}{$parselabel} ) { |
| 113 |
|
$self->verbose("Parsing $parselabel in file $file"); |
| 124 |
|
} |
| 125 |
|
} |
| 126 |
|
|
| 127 |
+ |
sub parsefilelist |
| 128 |
+ |
{ |
| 129 |
+ |
my $self=shift; |
| 130 |
+ |
my $parselabel=shift; |
| 131 |
+ |
my ($filenames)=@_; |
| 132 |
+ |
|
| 133 |
+ |
if ( exists $self->{parsers}{$parselabel} ) |
| 134 |
+ |
{ |
| 135 |
+ |
$self->verbose("ParsingFileList: Label = $parselabel (files = ".join(",",@$filenames)." "); |
| 136 |
+ |
$self->{currentparsename}=$parselabel; |
| 137 |
+ |
$self->{currentparser}=$self->{parsers}{$parselabel}; |
| 138 |
+ |
$self->{parsers}{$parselabel}->parsefilelist($filenames); |
| 139 |
+ |
delete $self->{currentparser}; |
| 140 |
+ |
$self->{currentparsename}=""; |
| 141 |
+ |
$self->verbose("ParseFileList $parselabel Complete"); |
| 142 |
+ |
} |
| 143 |
+ |
else |
| 144 |
+ |
{ |
| 145 |
+ |
$self->error("Cannot parse \"$parselabel\" - Unknown parser!!"); |
| 146 |
+ |
} |
| 147 |
+ |
} |
| 148 |
+ |
|
| 149 |
|
sub currentparsename { |
| 150 |
|
my $self=shift; |
| 151 |
|
@_?$self->{currentparsename}=shift |
