=========================================================== .___ __ __ _________________ __ __ __| _/|__|/ |_ / ___\_` __ \__ \ | | \/ __ | | \\_ __\ / /_/ > | \// __ \| | / /_/ | | || | \___ /|__| (____ /____/\____ | |__||__| /_____/ \/ \/ grep rough audit - static analysis tool v2.8 written by @Wireghoul =================================[justanotherhacker.com]=== libuser-simple-perl-1.45/lib/User/Simple/Admin.pm-604- unless ($sth = $self->{db}->prepare("UPDATE $self->{tbl} SET $field = ? libuser-simple-perl-1.45/lib/User/Simple/Admin.pm:605: WHERE id = ?") and $sth->execute($val, $id)) { libuser-simple-perl-1.45/lib/User/Simple/Admin.pm-606- carp "Could not set $field to $val for user $id"; ############################################## libuser-simple-perl-1.45/lib/User/Simple.pm-255- unless ($sth = $self->{db}->prepare("SELECT id, session_exp libuser-simple-perl-1.45/lib/User/Simple.pm:256: FROM $self->{tbl} WHERE session = ?") and $sth->execute($sess) libuser-simple-perl-1.45/lib/User/Simple.pm-257- and ($id, $exp) = $sth->fetchrow_array) { ############################################## libuser-simple-perl-1.45/lib/User/Simple.pm-289- unless ($sth = $self->{db}->prepare("SELECT id, passwd FROM $self->{tbl} libuser-simple-perl-1.45/lib/User/Simple.pm:290: WHERE login = ?") and $sth->execute($login) and libuser-simple-perl-1.45/lib/User/Simple.pm-291- ($id, $db_pass) = $sth->fetchrow_array) { ############################################## libuser-simple-perl-1.45/.pc/UNIVERSAL-import-deprecated.patch/lib/User/Simple.pm-256- unless ($sth = $self->{db}->prepare("SELECT id, session_exp libuser-simple-perl-1.45/.pc/UNIVERSAL-import-deprecated.patch/lib/User/Simple.pm:257: FROM $self->{tbl} WHERE session = ?") and $sth->execute($sess) libuser-simple-perl-1.45/.pc/UNIVERSAL-import-deprecated.patch/lib/User/Simple.pm-258- and ($id, $exp) = $sth->fetchrow_array) { ############################################## libuser-simple-perl-1.45/.pc/UNIVERSAL-import-deprecated.patch/lib/User/Simple.pm-290- unless ($sth = $self->{db}->prepare("SELECT id, passwd FROM $self->{tbl} libuser-simple-perl-1.45/.pc/UNIVERSAL-import-deprecated.patch/lib/User/Simple.pm:291: WHERE login = ?") and $sth->execute($login) and libuser-simple-perl-1.45/.pc/UNIVERSAL-import-deprecated.patch/lib/User/Simple.pm-292- ($id, $db_pass) = $sth->fetchrow_array) { ############################################## libuser-simple-perl-1.45/.pc/UNIVERSAL-import-deprecated.patch/lib/User/Simple/Admin.pm-605- unless ($sth = $self->{db}->prepare("UPDATE $self->{tbl} SET $field = ? libuser-simple-perl-1.45/.pc/UNIVERSAL-import-deprecated.patch/lib/User/Simple/Admin.pm:606: WHERE id = ?") and $sth->execute($val, $id)) { libuser-simple-perl-1.45/.pc/UNIVERSAL-import-deprecated.patch/lib/User/Simple/Admin.pm-607- carp "Could not set $field to $val for user $id";