trunk/my2pg/insert-no_next_id.pl

#!/usr/bin/perl -w


my $php;

while(<STDIN>) {
        next if (/textInmySQL/);
        $php .= $_;
}

sub fix_php {
        my ($sql,$filler,$query) = @_;

        my @vars;
        while ($sql =~ s/'*"\s*\.\s*(\$\w+)\s*\.\s*"'*/ ? /s) {
                push @vars, $1;
        }

        return $sql . $filler . 'xx_prepare_execute($sql, '.join(", ",@vars).')';
}

my $fixed = 0;

$php =~ s/(\$sql\s*=\s*"[^;]+?;)(.+?)(xx_query\s*\(\$sql[^\)]+\))/fix_php($1,$2,$3)/seg;

print $php;
1	dpavlin	55	#!/usr/bin/perl -w
2
3
4			my $php;
5
6			while(<STDIN>) {
7			next if (/textInmySQL/);
8			$php .= $_;
9			}
10
11			sub fix_php {
12			my ($sql,$filler,$query) = @_;
13
14			my @vars;
15			while ($sql =~ s/'"\s\.\s(\$\w+)\s\.\s"'/ ? /s) {
16			push @vars, $1;
17			}
18
19			return $sql . $filler . 'xx_prepare_execute($sql, '.join(", ",@vars).')';
20			}
21
22			my $fixed = 0;
23
24			$php =~ s/(\$sql\s=\s"[^;]+?;)(.+?)(xx_query\s*\(\$sql[^\)]+\))/fix_php($1,$2,$3)/seg;
25
26			print $php;