Select Code to Download

Select or download this
```
Can' find the log Padre file
```

Line 30 use manageusers qw($LoggedOn_user_id);

...
  closedir $dh;
  }
}

Select or download this

        manageusers::OpenConnection();
           manageusers::OpenConnection();
...
manageusers::OpenConnection();
manageusers::OpenConnection();
  manageusers::OpenConnection();

Select or download this

#---------------------------------------------------------------------
+----------
#  Database Conection Functions
...
    warn("Open Connection-JustBefore returning database handle: '$dbh'
+ Current Time: '$localtimenow'");
   return $dbh;
}

Select or download this

New login
warn("Hash evaluation succeded - $passhash = $passhash1 : $sessiondata
+2 = $sessiondata2md5p");
...
       $session->param('isloggedin',1);
       $session->expires('+7d');
       $LoggedOn_user_id = $uid;  #$session->param("user_id");

Select or download this

Already logged on
  if ($status == 1) {
    warn("Process Login returning after confirmed already logged in: s
+tatus: '$status' sessionname:  '$sessionname' SID:  '$sid'");
...
    warn("username1 : '$username1'");
    $LoggedOn_user_id = $username1;  
    warn("Already logged on LoggedOn_user_id : '$LoggedOn_user_id'");