=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libdbix-dbstag-perl-0.12/cgi-bin/ubiq.cgi-464- 1); libdbix-dbstag-perl-0.12/cgi-bin/ubiq.cgi:465: system("chmod 777 $cachef"); libdbix-dbstag-perl-0.12/cgi-bin/ubiq.cgi-466- $template_name = $n; ############################################## libdbix-dbstag-perl-0.12/cgi-bin/ubiq.cgi-701- print STDERR "Launched killer $tagf at $t\n"; libdbix-dbstag-perl-0.12/cgi-bin/ubiq.cgi:702: system("touch $tagf && chmod 777 $tagf && sleep 15 && test -f $tagf && kill -9 $$ && rm $tagf &"); libdbix-dbstag-perl-0.12/cgi-bin/ubiq.cgi-703- if (is_format_flat) { ############################################## libdbix-dbstag-perl-0.12/cgi-bin/ubiq.cgi-719- print STDERR "Inactivated killer $tagf at $t\n"; libdbix-dbstag-perl-0.12/cgi-bin/ubiq.cgi:720: system("rm $tagf &"); libdbix-dbstag-perl-0.12/cgi-bin/ubiq.cgi-721- } ############################################## libdbix-dbstag-perl-0.12/DBIx/DBStag/SQLTemplate.pm-376- foreach my $wb (@$where_blocks) { libdbix-dbstag-perl-0.12/DBIx/DBStag/SQLTemplate.pm:377: my $where = $wb->{text}; libdbix-dbstag-perl-0.12/DBIx/DBStag/SQLTemplate.pm-378- my $varnames = $wb->{varnames}; ############################################## libdbix-dbstag-perl-0.12/DBIx/DBStag/SQLTemplate.pm-458- my ($clause) = grep {lc($_->{name}) eq 'where'} (@$sql_clauses); libdbix-dbstag-perl-0.12/DBIx/DBStag/SQLTemplate.pm:459: my $where = $clause->{value} || ''; libdbix-dbstag-perl-0.12/DBIx/DBStag/SQLTemplate.pm-460- ############################################## libdbix-dbstag-perl-0.12/DBIx/DBStag/SQLTemplate.pm-509- } libdbix-dbstag-perl-0.12/DBIx/DBStag/SQLTemplate.pm:510: $where = $remainder; libdbix-dbstag-perl-0.12/DBIx/DBStag/SQLTemplate.pm-511- } ############################################## libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-2131- my $delete_sql = libdbix-dbstag-perl-0.12/DBIx/DBStag.pm:2132: "DELETE FROM $table WHERE $pkey=$id"; libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-2133- trace(0,"SQL: $delete_sql"); ############################################## libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-3217- libdbix-dbstag-perl-0.12/DBIx/DBStag.pm:3218: $where = [] unless $where; libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-3219- # array of ANDed where clauses ############################################## libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-3230- else { libdbix-dbstag-perl-0.12/DBIx/DBStag.pm:3231: $where = [$where]; libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-3232- } ############################################## libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-3389- else { libdbix-dbstag-perl-0.12/DBIx/DBStag.pm:3390: $where = [$where]; libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-3391- } ############################################## libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-3443- else { libdbix-dbstag-perl-0.12/DBIx/DBStag.pm:3444: $where = [$where]; libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-3445- } ############################################## libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-3484- [from => $item[5]], libdbix-dbstag-perl-0.12/DBIx/DBStag.pm:3485:# [where => $item[6]], libdbix-dbstag-perl-0.12/DBIx/DBStag.pm-3486-# [group => $item{'group'}[0]], ############################################## libdbix-dbstag-perl-0.12/scripts/stag-bulkload.pl-24-if ($help) { libdbix-dbstag-perl-0.12/scripts/stag-bulkload.pl:25: system("perldoc $0"); libdbix-dbstag-perl-0.12/scripts/stag-bulkload.pl-26- exit 0; ############################################## libdbix-dbstag-perl-0.12/scripts/stag-ir.pl-50-if ($help) { libdbix-dbstag-perl-0.12/scripts/stag-ir.pl:51: system("perldoc $0"); libdbix-dbstag-perl-0.12/scripts/stag-ir.pl-52- exit 0; ############################################## libdbix-dbstag-perl-0.12/scripts/stag-qsh-179- # interpolate libdbix-dbstag-perl-0.12/scripts/stag-qsh:180: $line = eval("\"$line\""); libdbix-dbstag-perl-0.12/scripts/stag-qsh-181- } ############################################## libdbix-dbstag-perl-0.12/scripts/stag-qsh-388-sub showresourcesfile { libdbix-dbstag-perl-0.12/scripts/stag-qsh:389: `xterm -e less $ENV{DBSTAG_DBIMAP_FILE}`; libdbix-dbstag-perl-0.12/scripts/stag-qsh-390-} ############################################## libdbix-dbstag-perl-0.12/scripts/stag-qsh-430-# print $pfh "more $fn && sleep 3600"; libdbix-dbstag-perl-0.12/scripts/stag-qsh:431:# system("xterm -e sh $pfn"); libdbix-dbstag-perl-0.12/scripts/stag-qsh-432-# $pfh->close; ############################################## libdbix-dbstag-perl-0.12/scripts/stag-qsh-434-# else { libdbix-dbstag-perl-0.12/scripts/stag-qsh:435:# system("more $fn"); libdbix-dbstag-perl-0.12/scripts/stag-qsh-436-# } ############################################## libdbix-dbstag-perl-0.12/scripts/stag-qsh-453- $pfh->close; libdbix-dbstag-perl-0.12/scripts/stag-qsh:454: system("xterm -e sh $pfn &"); libdbix-dbstag-perl-0.12/scripts/stag-qsh-455- sleep(1); ############################################## libdbix-dbstag-perl-0.12/scripts/stag-qsh-458- else { libdbix-dbstag-perl-0.12/scripts/stag-qsh:459: system("$PAGER $fn"); libdbix-dbstag-perl-0.12/scripts/stag-qsh-460- } ############################################## libdbix-dbstag-perl-0.12/scripts/stag-qsh-464- my $p = shift; libdbix-dbstag-perl-0.12/scripts/stag-qsh:465: $p =~ s/(\$\w+)/eval($1)/eg; libdbix-dbstag-perl-0.12/scripts/stag-qsh-466- $p; ############################################## libdbix-dbstag-perl-0.12/scripts/stag-qsh-664- ' $x="foo"', libdbix-dbstag-perl-0.12/scripts/stag-qsh:665: ' select * from bar where name=\'$x\'!', libdbix-dbstag-perl-0.12/scripts/stag-qsh-666- '', ############################################## libdbix-dbstag-perl-0.12/scripts/stag-template2bin.pl-41- close(F); libdbix-dbstag-perl-0.12/scripts/stag-template2bin.pl:42: system("chmod $chmod $bin"); libdbix-dbstag-perl-0.12/scripts/stag-template2bin.pl-43- print "$bin\n" unless $quiet; ############################################## libdbix-dbstag-perl-0.12/scripts/ubiq-53-if ($help) { libdbix-dbstag-perl-0.12/scripts/ubiq:54: system("perldoc $0"); libdbix-dbstag-perl-0.12/scripts/ubiq-55- exit 0; ############################################## libdbix-dbstag-perl-0.12/scripts/stag-autoddl.pl-84-if ($help) { libdbix-dbstag-perl-0.12/scripts/stag-autoddl.pl:85: system("perldoc $0"); libdbix-dbstag-perl-0.12/scripts/stag-autoddl.pl-86- exit 0; ############################################## libdbix-dbstag-perl-0.12/scripts/stag-autotemplate.pl-77-if ($help) { libdbix-dbstag-perl-0.12/scripts/stag-autotemplate.pl:78: system("perldoc $0"); libdbix-dbstag-perl-0.12/scripts/stag-autotemplate.pl-79- exit 0; ############################################## libdbix-dbstag-perl-0.12/scripts/selectall_html.pl-42-if ($help) { libdbix-dbstag-perl-0.12/scripts/selectall_html.pl:43: system("perldoc $0"); libdbix-dbstag-perl-0.12/scripts/selectall_html.pl-44- exit 0; ############################################## libdbix-dbstag-perl-0.12/scripts/selectall_xml.pl-74-if ($help && !$template_name && !$db) { libdbix-dbstag-perl-0.12/scripts/selectall_xml.pl:75: system("perldoc $0"); libdbix-dbstag-perl-0.12/scripts/selectall_xml.pl-76- exit 0; ############################################## libdbix-dbstag-perl-0.12/scripts/selectall_xml.pl-196- if ($where) { libdbix-dbstag-perl-0.12/scripts/selectall_xml.pl:197: $template->set_clause(where => $where); libdbix-dbstag-perl-0.12/scripts/selectall_xml.pl-198- } ############################################## libdbix-dbstag-perl-0.12/scripts/stag-storenode.pl-47-if ($help) { libdbix-dbstag-perl-0.12/scripts/stag-storenode.pl:48: system("perldoc $0"); libdbix-dbstag-perl-0.12/scripts/stag-storenode.pl-49- exit 0; ############################################## libdbix-dbstag-perl-0.12/scripts/stag-pgslurp.pl-136-if ($help) { libdbix-dbstag-perl-0.12/scripts/stag-pgslurp.pl:137: system("perldoc $0"); libdbix-dbstag-perl-0.12/scripts/stag-pgslurp.pl-138- exit 0; ############################################## libdbix-dbstag-perl-0.12/t/data/sofa.chado-xml-8076- </cv_id> libdbix-dbstag-perl-0.12/t/data/sofa.chado-xml:8077: <definition>Any one of several small cytoplasmic RNA moleculespresent in the cytoplasm and sometimes nucleus of a eukaryote. </definition> libdbix-dbstag-perl-0.12/t/data/sofa.chado-xml-8078- <cvterm_dbxref> ############################################## libdbix-dbstag-perl-0.12/t/data/sofa.chado-xml-8121- </cv_id> libdbix-dbstag-perl-0.12/t/data/sofa.chado-xml:8122: <definition>The primary transcript of any one of several small cytoplasmic RNA moleculespresent in the cytoplasm and sometimes nucleus of a eukaryote. </definition> libdbix-dbstag-perl-0.12/t/data/sofa.chado-xml-8123- <cvterm_dbxref> ############################################## libdbix-dbstag-perl-0.12/t/DBStagTest.pm-77- $cmd =~ s/\;/\;sleep 2\;/g; libdbix-dbstag-perl-0.12/t/DBStagTest.pm:78:# if (system($cmd)) { libdbix-dbstag-perl-0.12/t/DBStagTest.pm-79-# # allowed to fail first time... ############################################## libdbix-dbstag-perl-0.12/t/DBStagTest.pm-82-# } libdbix-dbstag-perl-0.12/t/DBStagTest.pm:83: if (system($cmd)) { libdbix-dbstag-perl-0.12/t/DBStagTest.pm-84- # must pass 2nd time ############################################## libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/stag-autoddl.pl-84-if ($help) { libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/stag-autoddl.pl:85: system("perldoc $0"); libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/stag-autoddl.pl-86- exit 0; ############################################## libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/stag-autotemplate.pl-77-if ($help) { libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/stag-autotemplate.pl:78: system("perldoc $0"); libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/stag-autotemplate.pl-79- exit 0; ############################################## libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/stag-storenode.pl-47-if ($help) { libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/stag-storenode.pl:48: system("perldoc $0"); libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/stag-storenode.pl-49- exit 0; ############################################## libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/selectall_html.pl-42-if ($help) { libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/selectall_html.pl:43: system("perldoc $0"); libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/selectall_html.pl-44- exit 0; ############################################## libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/selectall_xml.pl-74-if ($help && !$template_name && !$db) { libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/selectall_xml.pl:75: system("perldoc $0"); libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/selectall_xml.pl-76- exit 0; ############################################## libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/selectall_xml.pl-196- if ($where) { libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/selectall_xml.pl:197: $template->set_clause(where => $where); libdbix-dbstag-perl-0.12/.pc/fix-man-whatis/scripts/selectall_xml.pl-198- } ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-2131- my $delete_sql = libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm:2132: "DELETE FROM $table WHERE $pkey=$id"; libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-2133- trace(0,"SQL: $delete_sql"); ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-3217- libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm:3218: $where = [] unless $where; libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-3219- # array of ANDed where clauses ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-3230- else { libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm:3231: $where = [$where]; libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-3232- } ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-3389- else { libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm:3390: $where = [$where]; libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-3391- } ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-3443- else { libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm:3444: $where = [$where]; libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-3445- } ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-3484- [from => $item[5]], libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm:3485:# [where => $item[6]], libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag.pm-3486-# [group => $item{'group'}[0]], ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag/SQLTemplate.pm-376- foreach my $wb (@$where_blocks) { libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag/SQLTemplate.pm:377: my $where = $wb->{text}; libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag/SQLTemplate.pm-378- my $varnames = $wb->{varnames}; ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag/SQLTemplate.pm-458- my ($clause) = grep {lc($_->{name}) eq 'where'} (@$sql_clauses); libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag/SQLTemplate.pm:459: my $where = $clause->{value} || ''; libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag/SQLTemplate.pm-460- ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag/SQLTemplate.pm-509- } libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag/SQLTemplate.pm:510: $where = $remainder; libdbix-dbstag-perl-0.12/.pc/fix_spelling/DBIx/DBStag/SQLTemplate.pm-511- } ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/selectall_xml.pl-74-if ($help && !$template_name && !$db) { libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/selectall_xml.pl:75: system("perldoc $0"); libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/selectall_xml.pl-76- exit 0; ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/selectall_xml.pl-196- if ($where) { libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/selectall_xml.pl:197: $template->set_clause(where => $where); libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/selectall_xml.pl-198- } ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/stag-storenode.pl-47-if ($help) { libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/stag-storenode.pl:48: system("perldoc $0"); libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/stag-storenode.pl-49- exit 0; ############################################## libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/stag-pgslurp.pl-136-if ($help) { libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/stag-pgslurp.pl:137: system("perldoc $0"); libdbix-dbstag-perl-0.12/.pc/fix_spelling/scripts/stag-pgslurp.pl-138- exit 0;