Code below Execute at Note 1 returns expected result set. Execute at Note 2 returns error Thu Sep 28 13:15:32 2017 manage_users.cgi: (in cleanup) Can't connect to data source '' because I can't work out what driver to use (it doesn't seem to contain a 'dbi:driver:' prefix and the DBI_DRIVER env var is not set) at /usr/local/lib/perl5/site_perl/5.8.8/CGI/Session/Driver/DBI.pm line 26 

sub UpdateUserData
{
    my $updateinfoemail = "webpass\@jala-mi.org"; 
    my ($sid, $password,$email,$secret) = @_;
    warn "'$sid'   '$password'  '$email' '$secret'";
    my $SQL = qq|SELECT id FROM $sql_session_table WHERE id = '$sid' |
+;
    my $sth = ExecuteQuery($SQL);  <=====================Note 1
    my ($tsid, $userid) = $sth->fetchrow_array();
    if (!$tsid) {
        $sth->finish;
        warn("Update user data failed: SID '$tsid'");
        return 0;
    }
    else {
        warn("Locating existing user data succeded: SID '$tsid'");
        $session = OpenSession($dbh,$tsid);
        my $userid = $session->param("user_id");
        my $username = $session->param("username");
        warn("userid: '$userid' username: '$username'");
        if (! defined $userid ){        
          $sth->finish;
          warn("Update user data failed: userid '$userid'");
          return 0;
        }
        my $passpart = "";
        my $mailpart = "";
        my $secretpart = "";
        if ($password ne "") {
          $passpart = "password = '$password'";
        }
        if (($email ne "") && ($password eq "")) {
          $mailpart = "email = '$email'";
        }
        elsif (($email ne "") && ($password ne "")) {
          $mailpart = ", email = '$email'";
        }
        if (($secret ne "") && ($password eq "") && ($email eq "")) {
          $secretpart = "secret = '$secret'";
        }
        elsif (($secret ne "") && (($password ne "") || ($email ne "")
+)) {
          $secretpart = ", secret = '$secret'";
        }
        my $wherepart = " where  id = '$userid'";
        my $statement = "update $sql_user_table set $passpart $mailpar
+t $secretpart $wherepart";
        $SQL = qq| $statement |;
        warn ("SQL Statement: '$statement'");
        $sth = ExecuteQuery($SQL); <================Note 2
        # success so disconnect and send an e-mail with the misisng in
+formation to the user.
        $sth->finish;

[download]

In reply to DBI Problem by tultalk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.