Hello Monks,

I have looked at this and looked at this and can't figure out where the error below is coming from. Any help would be GREATLY appreciated.

I may be going about this wrong anyway, I have not done much directory type programming so feel free to flame me regarding my approach.

#!/usr/bin/perl -w

use strict;
use Data::Dumper;
use File::Find;

no warnings 'File::Find';

#my $find = qr/window.open(\"form\/form.php\",\"Neu\",\"scrollbars=no,
+width=550 ,height=580\");/;
#my $replace = qr/window.location=\"form\/form.php\";/;

my @files;

chomp( my @base = `locate -b public_html | grep -v 'html\.' 2>/dev/nul
+l`);

for my $base ( @base ) {
    find(\&html, $base );

    sub html {
        if ( $File::Find::name =~ /^\/.*\.html$/ ) {
            push @files, `grep -il 'window.open("form/form.php","Neu",
+"scrollbars=no,width=550 ,height=580");' '$File::Find::name' 2>/dev/n
+ull`;
        }
    }
}
[download]

# ./fix-popups
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
[download]