| 54 |
|
} |
| 55 |
|
else { # must be in the include file |
| 56 |
|
@fileobs=$self->config()->find($inc->file()); |
| 57 |
– |
print $inc->file()." line = $line-$startline $fileob\n"; |
| 57 |
|
($line, $fileob)=$fileobs[0]->line($line-$startline+1); |
| 58 |
|
} |
| 59 |
|
} |
| 60 |
|
|
| 62 |
– |
print "line = $line $fileob\n"; |
| 61 |
|
return ($line, $fileob); |
| 62 |
|
} |
| 63 |
|
|
| 82 |
|
my $self=shift; |
| 83 |
|
|
| 84 |
|
my ($url, $file)=$self->{urlhandler}->get($self->url()); |
| 87 |
– |
print $file." = File\n"; |
| 85 |
|
return $file; |
| 86 |
|
} |
| 87 |
|
|
| 103 |
|
|
| 104 |
|
my $rv=0; |
| 105 |
|
|
| 109 |
– |
print "\nEntering Updating ".$self->url()."\n"; |
| 106 |
|
# check file update OK |
| 107 |
|
if ( $self->{lastsequence} != |
| 108 |
|
$self->config()->cache()->updatenumber($self->url()) ){ |
| 211 |
|
# dump out to our file in construction |
| 212 |
|
my $fh=FileHandle->new(); |
| 213 |
|
my $outfilename=$fileObj->ProcessedFile(); |
| 218 |
– |
print "Opening ".$fileObj->ProcessedFile()." for inclusion\n"; |
| 214 |
|
$fh->open("<".$outfilename) or die "Unable to open $outfilename\n"; |
| 215 |
|
print {$self->{fileout}} "\n";# always start an include on a new line |
| 216 |
|
while ( <$fh> ) { |
