- # is this a template call?
- if (/parse_html_template\s*\(\s*["']([\w\/]+)/) {
- my $newfile = "$basedir/templates/webpages/$1_master.html";
- if (-f $newfile) {
- &scanhtmlfile($newfile);
- &converthtmlfile($newfile);
+ while (<$fh>) {
+ $line_no++;
+
+ # is this another file
+ if (/require\s+\W.*\.pl/) {
+ my $newfile = $&;
+ $newfile =~ s/require\s+\W//;
+ $newfile =~ s/\$form->{path}\///;
+ $newfile =~ s|bin/mozilla||;
+# &scanfile("$bindir/$newfile", 0, $scanned_files);
+ $cached{$file}{scan}{"$bindir/$newfile"} = 1;
+ } elsif (/use\s+SL::(.*?);/) {
+# &scanfile("../../SL/${1}.pm", 1, $scanned_files);
+ $cached{$file}{scannosubs}{"../../SL/${1}.pm"} = 1;