=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-453- $sqlstr .= libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm:454:qq{create trigger $temp before insert on $table_name for each row begin select raise(abort, 'insert on table $table_name violates foreign key constraint $constraint_name') where new.$key_column is not null and (select $ref_column from $ref_table where $ref_column=new.$key_column) is null;end} libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-455- . $self->{end_of_statement} ############################################## libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-459- $sqlstr .= libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm:460:qq{create trigger $temp before update on $table_name for each row begin select raise(abort, 'update on table $table_name violates foreign key constraint $constraint_name') where new.$key_column is not null and (select $ref_column from $ref_table where $ref_column=new.$key_column) is null;end} libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-461- . $self->{end_of_statement} ############################################## libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-467- $sqlstr .= libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm:468:qq{create trigger $temp before delete on $ref_table for each row begin delete from $table_name where $table_name.$key_column=old.$ref_column;end} libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-469- . $self->{end_of_statement} ############################################## libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-472- $sqlstr .= libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm:473:qq{create trigger $temp before delete on $ref_table for each row begin update $table_name set $key_column=null where $table_name.$key_column=old.$ref_column;end} libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-474- . $self->{end_of_statement} ############################################## libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-478- $sqlstr .= libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm:479:qq{create trigger $temp before delete on $ref_table for each row begin select raise(abort, 'delete on table $ref_table violates foreign key constraint $constraint_name on $table_name') where (select $key_column from $table_name where $key_column=old.$ref_column) is not null;end} libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-480- . $self->{end_of_statement} ############################################## libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-486- $sqlstr .= libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm:487:qq{create trigger $temp before update on $ref_table for each row when new.$ref_column <> old.$ref_column begin select raise(abort, 'update on table $ref_table violates foreign key constraint $constraint_name on $table_name') where (select $key_column from $table_name where $key_column=old.$ref_column) is not null;end} libparse-dia-sql-perl-0.31/lib/Parse/Dia/SQL/Output/SQLite3.pm-488- . $self->{end_of_statement}