#!/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/null`);

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/null`;
        }
    }
}
##</code><code>##

# ./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