=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm-362- $dbh->do("DROP TABLE IF EXISTS $table") if $erase; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm:363: my @table_exists = $dbh->selectrow_array("SELECT * FROM pg_tables WHERE tablename = '$table' AND schemaname = '$self->namespace'"); libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm-364- if (!scalar(@table_exists)) { ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm-379- my $temporary = $self->is_temp ? 'TEMPORARY' : ''; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm:380: my @table_exists = $self->dbh->selectrow_array("SELECT * FROM pg_tables WHERE tablename = 'meta' AND schemaname = '$namespace'"); libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm-381- $self->dbh->do("CREATE $temporary TABLE $table $tables->{meta}") ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm-393- my $dbh = $self->dbh; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm:394: my @schema_exists = $dbh->selectrow_array("SELECT * FROM pg_namespace WHERE nspname = '$namespace'"); libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm-395- if (!scalar(@schema_exists)) { ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm-595- libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm:596: my $where = "n.id=$join AND lower(n.name) $match"; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm:597: $where .= " AND n.display_name>0" unless $allow_aliases; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/Pg.pm-598- return ($from,$where,'',$string); ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-883- my $from = join ', ',@from; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm:884: my $where = join ' AND ',map {"($_)"} @where; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-885- my $group = join ', ',@group; ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-939- libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm:940: my $where = "n.id=$join AND n.name $match"; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm:941: $where .= " AND n.display_name>0" unless $allow_aliases; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-942- return ($from,$where,'',$string); ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-1011- my $from = "$from_table as ft"; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm:1012: my $where = "ft.id=$join"; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-1013- return ($from,$where,''); ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-1155- for my $table ($self->index_tables) { libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm:1156: my $query = $from_update_table ? "DELETE $table FROM $table,$update WHERE $table.id=$update.id" libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-1157- : "DELETE FROM $table"; ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-1264- for my $table ($self->all_tables) { libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm:1265: $success += $dbh->do("DELETE FROM $table WHERE id=$key") || 0; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-1266- } ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-1647- return if $self->{reindexing}; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm:1648: my $sth = $self->_prepare("DELETE FROM $table_name WHERE id=?") or $self->throw($self->dbh->errstr); libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/mysql.pm-1649- $sth->execute($id); ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/SQLite.pm-732- my $from = join ', ',@from; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/SQLite.pm:733: my $where = join ' AND ',map {"($_)"} @where; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/SQLite.pm-734- my $group = join ', ',@group; ############################################## libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/SQLite.pm-823- libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/SQLite.pm:824: my $where = "n.id=$join AND n.name $match COLLATE NOCASE"; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/SQLite.pm:825: $where .= " AND n.display_name>0" unless $allow_aliases; libbio-db-seqfeature-perl-1.7.4/lib/Bio/DB/SeqFeature/Store/DBI/SQLite.pm-826- return ($from,$where,'',$string);