===========================================================
.___ __ __
_________________ __ __ __| _/|__|/ |_
/ ___\_` __ \__ \ | | \/ __ | | \\_ __\
/ /_/ > | \// __ \| | / /_/ | | || |
\___ /|__| (____ /____/\____ | |__||__|
/_____/ \/ \/
grep rough audit - static analysis tool
v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
haci-0.98c/bin/cleanupDatabase.pl-134-
haci-0.98c/bin/cleanupDatabase.pl:135: if ($dumpBin && system("which $dumpBin >/dev/null") == 0) {
haci-0.98c/bin/cleanupDatabase.pl-136- my $md = qx/which $dumpBin/;
##############################################
haci-0.98c/bin/checkPerlDependencies.bash-22- if echo $mod | grep -q '%'; then
haci-0.98c/bin/checkPerlDependencies.bash:23: package=`echo $mod|cut -d '%' -f 2`;
haci-0.98c/bin/checkPerlDependencies.bash:24: mod=`echo $mod|cut -d '%' -f 1`;
haci-0.98c/bin/checkPerlDependencies.bash-25- fi
##############################################
haci-0.98c/bin/checkPerlDependencies.bash-27- if echo $mod | grep -q '#'; then
haci-0.98c/bin/checkPerlDependencies.bash:28: ver=`echo $mod|cut -d '#' -f 2`;
haci-0.98c/bin/checkPerlDependencies.bash:29: mod=`echo $mod|cut -d '#' -f 1`;
haci-0.98c/bin/checkPerlDependencies.bash-30- fi
##############################################
haci-0.98c/bin/checkPerlDependencies.bash-61- if echo $mod | grep -q '%'; then
haci-0.98c/bin/checkPerlDependencies.bash:62: mod=`echo $mod|cut -d '%' -f 1`;
haci-0.98c/bin/checkPerlDependencies.bash-63- fi
##############################################
haci-0.98c/bin/checkPerlDependencies.bash-102- if echo "$mod" | grep -q '%'; then
haci-0.98c/bin/checkPerlDependencies.bash:103: mod=`echo "$mod" | cut -d '%' -f 1`;
haci-0.98c/bin/checkPerlDependencies.bash-104- fi
##############################################
haci-0.98c/bin/checkPerlOptionals.bash-22- if echo $mod | grep -q '%'; then
haci-0.98c/bin/checkPerlOptionals.bash:23: package=`echo $mod|cut -d '%' -f 2`;
haci-0.98c/bin/checkPerlOptionals.bash:24: mod=`echo $mod|cut -d '%' -f 1`;
haci-0.98c/bin/checkPerlOptionals.bash-25- fi
##############################################
haci-0.98c/bin/checkPerlOptionals.bash-27- if echo $mod | grep -q '#'; then
haci-0.98c/bin/checkPerlOptionals.bash:28: ver=`echo $mod|cut -d '#' -f 2`;
haci-0.98c/bin/checkPerlOptionals.bash:29: mod=`echo $mod|cut -d '#' -f 1`;
haci-0.98c/bin/checkPerlOptionals.bash-30- fi
##############################################
haci-0.98c/bin/checkPerlOptionals.bash-61- if echo $mod | grep -q '%'; then
haci-0.98c/bin/checkPerlOptionals.bash:62: mod=`echo $mod|cut -d '%' -f 1`;
haci-0.98c/bin/checkPerlOptionals.bash-63- fi
##############################################
haci-0.98c/bin/checkPerlOptionals.bash-102- if echo $mod | grep -q '%'; then
haci-0.98c/bin/checkPerlOptionals.bash:103: mod=`echo $mod|cut -d '%' -f 1`;
haci-0.98c/bin/checkPerlOptionals.bash-104- fi
##############################################
haci-0.98c/bin/checkPerlOptionals.bash-106- if echo $mod | grep -q '#'; then
haci-0.98c/bin/checkPerlOptionals.bash:107: mod=`echo $mod|cut -d '#' -f 1`;
haci-0.98c/bin/checkPerlOptionals.bash-108- fi
##############################################
haci-0.98c/modules/DBIEasy/mysql.pm-26- my @tables = $dbh->tables(undef, undef, $table);
haci-0.98c/modules/DBIEasy/mysql.pm:27: unless (grep {/^(`?$self->{dbname}`?.)?`?$table`?$/} @tables) {
haci-0.98c/modules/DBIEasy/mysql.pm-28- if ($self->SETUPTABLE) {
haci-0.98c/modules/DBIEasy/mysql.pm-29- $self->_carp("Table '$table' doesn't exist, try to create it...\n");
haci-0.98c/modules/DBIEasy/mysql.pm:30: my $createStmt = "CREATE TABLE `$table` (" . $self->CREATETABLE . ') ENGINE=InnoDB DEFAULT CHARSET=utf8';
haci-0.98c/modules/DBIEasy/mysql.pm-31- $dbh->do($createStmt) or $self->_croak($dbh->errstr);
##############################################
haci-0.98c/modules/DBIEasy/mysql.pm-33- my @tables = $dbh->tables(undef, undef, $table);
haci-0.98c/modules/DBIEasy/mysql.pm:34: unless (grep {/^(`?$self->{dbname}`?.)?`?$table`?$/} @tables) {
haci-0.98c/modules/DBIEasy/mysql.pm-35- $self->_croak("Sorry, after creating the Table '$table', it isn't there?");
##############################################
haci-0.98c/modules/DBIEasy/mysql.pm-77-
haci-0.98c/modules/DBIEasy/mysql.pm:78: my $sth = $dbh->prepare("SHOW CREATE TABLE `$table`");
haci-0.98c/modules/DBIEasy/mysql.pm-79- $sth->execute;
##############################################
haci-0.98c/modules/DBIEasy/mysql.pm-99-
haci-0.98c/modules/DBIEasy/mysql.pm:100: my $sth = $dbh->prepare("DESCRIBE `$table`");
haci-0.98c/modules/DBIEasy/mysql.pm-101- $sth->execute;
##############################################
haci-0.98c/modules/DBIEasy/postgresql.pm-30- $self->_carp("Table '$table' doesn't exist, try to create it...\n");
haci-0.98c/modules/DBIEasy/postgresql.pm:31: my $createStmt = "CREATE TABLE `$table` (" . $self->CREATETABLE . ') ENGINE=InnoDB DEFAULT CHARSET=utf8';
haci-0.98c/modules/DBIEasy/postgresql.pm-32- $dbh->do($createStmt) or $self->_croak($dbh->errstr);
##############################################
haci-0.98c/modules/DBIEasy/postgresql.pm-34- my @tables = $dbh->tables(undef, undef, $table);
haci-0.98c/modules/DBIEasy/postgresql.pm:35: unless (grep {/^(`?$self->{dbname}`?.)?`?$table`?$/} @tables) {
haci-0.98c/modules/DBIEasy/postgresql.pm-36- $self->_croak("Sorry, after creating the Table '$table', it isn't there?");
##############################################
haci-0.98c/modules/HaCi/Utils.pm-5465- my $dbh = $table->getDBConn();
haci-0.98c/modules/HaCi/Utils.pm:5466: my $orig = ${${$dbh->selectall_arrayref("SHOW CREATE TABLE `$tableName`")}[0]}[1] . ";\n";
haci-0.98c/modules/HaCi/Utils.pm:5467: my $newTable = "CREATE TABLE `$tableName` (" . $table->CREATETABLE() . ");\n";
haci-0.98c/modules/HaCi/Utils.pm-5468- $newTable =~ s/\t/ /g;
##############################################
haci-0.98c/modules/HaCi/Utils.pm-6581- if ($errors) {
haci-0.98c/modules/HaCi/Utils.pm:6582: &warnl(sprintf(_gettext("Errors while updating Setting for '%s': %s"), $s->param('username'), $errors));
haci-0.98c/modules/HaCi/Utils.pm-6583- }
##############################################
haci-0.98c/modules/HaCi/GUI/main.pm-3524-
haci-0.98c/modules/HaCi/GUI/main.pm:3525: $t->{V}->{templateHeader} = ((defined &getParam(1, undef, 'newTmpl')) ? (_gettext("New")) : '') . sprintf(_gettext("Template '<b>%s</b>' for '<b>%s</b>'"), "eHTML($tmplName), _gettext(&getParam(1, '', 'tmplType') || ''));
haci-0.98c/modules/HaCi/GUI/main.pm-3526- $t->{V}->{templateMenu} = [
##############################################
haci-0.98c/modules/MySQL/Table.pm-46- my $primary = $1;
haci-0.98c/modules/MySQL/Table.pm:47: croak "two primary keys in table `$name': `$primary', `",
haci-0.98c/modules/MySQL/Table.pm-48- $self->primary_key, "'\n"
##############################################
haci-0.98c/modules/MySQL/Table.pm-56- my ($type, $key, $val) = ($1, $2, $3);
haci-0.98c/modules/MySQL/Table.pm:57: croak "index `$key' duplicated in table `$name'\n"
haci-0.98c/modules/MySQL/Table.pm-58- if $self->indices($key);
##############################################
haci-0.98c/modules/MySQL/Table.pm-69- my ($type, $key, $val) = ($1, $2, $3);
haci-0.98c/modules/MySQL/Table.pm:70: croak "FULLTEXT index `$key' duplicated in table `$name'\n"
haci-0.98c/modules/MySQL/Table.pm-71- if $self->fulltext($key);
##############################################
haci-0.98c/modules/MySQL/Table.pm-84- my ($field, $def) = ($1, $2);
haci-0.98c/modules/MySQL/Table.pm:85: croak "definition for field `$field' duplicated in table `$name'\n"
haci-0.98c/modules/MySQL/Table.pm-86- if $self->fields($field);
##############################################
haci-0.98c/modules/Net/Nslookup.pm-230-line tool nslookup(1). Net::DNS is a wonderful and full featured module,
haci-0.98c/modules/Net/Nslookup.pm:231:but quite often, all you need is `nslookup $host`. This module
haci-0.98c/modules/Net/Nslookup.pm-232-provides that functionality.