===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Setup/SQLite.pm-234- print "Upgrading: $upgrade_schema\n";
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Setup/SQLite.pm:235: @cur_data = eval("&Wiki::Toolkit::Setup::Database::fetch_upgrade_".$upgrade_schema."(\$dbh)");
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Setup/SQLite.pm-236-
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Setup/MySQL.pm-267- print "Upgrading: $upgrade_schema\n";
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Setup/MySQL.pm:268: @cur_data = eval("&Wiki::Toolkit::Setup::Database::fetch_upgrade_".$upgrade_schema."(\$dbh)");
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Setup/MySQL.pm-269- if($@) { warn $@; }
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-286- . "INNER JOIN content ON (id = node_id) "
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:287: . "WHERE name=" . $dbh->quote($self->charset_encode($args{name}))
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-288- . " AND content.version=" . $version_sql_val;
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-544- # Either inserting a new page or updating an old one.
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:545: my $sql = "SELECT count(*) FROM node WHERE name=" . $dbh->quote($node);
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-546- my $exists = @{ $dbh->selectcol_arrayref($sql) }[0] || 0;
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-573- # Also get the moderation status for it
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:574: $sql = "SELECT id, moderate FROM node WHERE name=" . $dbh->quote($node);
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-575- my ($node_id,$node_requires_moderation) = $dbh->selectrow_array($sql);
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-582- INNER JOIN content ON (id = node_id)
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:583: WHERE name=" . $dbh->quote($node);
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-584- $version = @{ $dbh->selectcol_arrayref($sql) }[0] || 0;
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-592- . ", modified=" . $dbh->quote($timestamp)
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:593: . " WHERE name=" . $dbh->quote($self->charset_encode($node));
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-594- $dbh->do($sql) or croak "Error updating database: " . DBI->errstr;
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1053- # Do deletes
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:1054: $sql = "DELETE FROM content WHERE node_id = $node_id";
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1055- $dbh->do($sql) or croak "Deletion failed: " . DBI->errstr;
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:1056: $sql = "DELETE FROM internal_links WHERE link_from=".$dbh->quote($name);
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1057- $dbh->do($sql) or croak $dbh->errstr;
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:1058: $sql = "DELETE FROM metadata WHERE node_id = $node_id";
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1059- $dbh->do($sql) or croak $dbh->errstr;
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:1060: $sql = "DELETE FROM node WHERE id = $node_id";
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1061- $dbh->do($sql) or croak "Deletion failed: " . DBI->errstr;
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1076- # Reduce to trivial case if deleting the only version.
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:1077: my $sql = "SELECT COUNT(*) FROM content WHERE node_id = $node_id";
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1078- my $sth = $dbh->prepare( $sql );
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1112- $sql = "DELETE FROM content
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:1113: WHERE node_id = $node_id
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1114- AND version = $version";
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1142- $sql = "DELETE FROM metadata
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:1143: WHERE node_id = $node_id
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1144- AND version = $version";
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1156- $sql = "DELETE FROM content
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:1157: WHERE node_id = $node_id
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1158- AND version=?";
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1162- $sql = "DELETE FROM metadata
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:1163: WHERE node_id = $node_id
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1164- AND version=?";
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1589- unless ($node_id) {
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:1590: $sql = "SELECT id FROM node WHERE name=" . $dbh->quote($name);
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-1591- $node_id = $dbh->selectrow_array($sql);
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-2008- my ($node_id, $version) = @results;
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:2009: my $where = "(node_id=$node_id AND version=$version)";
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-2010- push @nv_where, $where;
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-2033- # database engines, so we cheat and do it as two
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:2034: my @nv_where = $self->_current_node_id_versions();
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-2035-
##############################################
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-2069- # database engines, so we cheat and do it as two
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm:2070: my @nv_where = $self->_current_node_id_versions();
libwiki-toolkit-perl-0.85/lib/Wiki/Toolkit/Store/Database.pm-2071-
##############################################
libwiki-toolkit-perl-0.85/t/010_metadata.t-133- my $sql = "SELECT metadata_type, metadata_value FROM metadata
libwiki-toolkit-perl-0.85/t/010_metadata.t:134: WHERE node_id = $id";
libwiki-toolkit-perl-0.85/t/010_metadata.t-135- my $sth = $dbh->prepare($sql);
##############################################
libwiki-toolkit-perl-0.85/debian/postinst-30- if [ -d $UPGRADE_DIR ]; then
libwiki-toolkit-perl-0.85/debian/postinst:31: for file in `find $UPGRADE_DIR -type f ! -name '*.*'`; do
libwiki-toolkit-perl-0.85/debian/postinst-32- if [ -x $file ]; then