in reply to Re^7: global var
in thread global var

Answer his and one above.

Manageusers is the "main" unit in the sense that everything get funneled back to that unit for accessing database tables and all the login /logout functions. I consider it the "main" unit to which manage_users.cgi interfaces between thr web pages and the guts of the program.

The loggedonuser the ID of the user far accessing various other pieces of data such a database records "owned" by the user.

The change from LoggedOn_user_id to GetLoggedOn... and back again was a result of trying an exported function result to pass the id vs a scalar variable. Neither worked.

Other functions/.scalars are exported just fine. Not this one!!!

Replies are listed 'Best First'.
Re^9: global var
by Anonymous Monk on Apr 07, 2017 at 23:23 UTC

    ...Other functions/.scalars are exported just fine. Not this one!!!

    Then it shouldn't be too hard to duplicate that error in 20 lines, and post it here, right?

[reply]

      A previous comment posted code as you suggest. It worked fine when I tested it. I have something screwed up somehow and I can't see it.

      Posting question here was hoping for some insight as to why something like this may be occurring.

      These are two declarations (same location in manageusers just before first function definition. 

      our $adminaccess = 0;
our $LoggedOn_user_id = 0;

      [download]

      As I said in an earlier response, I can grab $adminaccess in javascript in html page. 

      <script type="text/javascript">
var adminflag = $manageusers::adminaccess;
</script>

      [download]
[reply]
[d/l]
[select]

        Declaration: our $LoggedOn_user_id = 0;

        This is line from error log (warns): 

            $LoggedOn_user_id = $username1;  
    warn("Already logged on LoggedOn_user_id : '$LoggedOn_user_id'");

        [download]

        Already logged on LoggedOn_user_id : '428' at /home/jalamior/www/httpsdocs/cgi-bin/lib/perl/manageusers.pm line 287.

        And in the other unit 

        use manageusers qw(LoggedOn_user_id);

        [download]

        Tried different variations of qw(LogggedOn.. and qw($LoggedOn.. Neither worked. 

        $userid_1 = $LoggedOn_user_id;
warn("userid : '$userid_1' ");

        [download]

        What I get back is 

        <h1>Software error:</h1>
<pre>&quot;LoggedOn_user_id&quot; is not exported by the manageusers m
+odule
Can't continue after import errors at update_tables-development.cgi li
+ne 30
BEGIN failed--compilation aborted at update_tables-development.cgi lin
+e 30.
</pre>

        [download]

        Mangeusers export 

        BEGIN {
    require Exporter;
    use vars qw($VERSION @ISA @EXPORT_OK);
    use DBI;
#    use vars qw(@ISA @EXPORT_OK);
#    $ENV{DBI_TRACE}=1;
#    $ENV{PERL_DBI_DEBUG}=1;

    @ISA = qw(Exporter);

    # exported functions
  our @EXPORT_OK = qw(
  &OpenConnection
  &OpenSession
  &ProcessLoginRequest
  &ProcessLostDataRequest
  &LoginUser
  $LoggedOn_user_id 
  &decodeEncryptedPassName
  &UpdateUserData
  &GetUserLostData
  &LogoutUser
  &GetUserSessionCookie
  &CheckForAuthorizedUser
  &Expires
  $attempts
  $adminaccess
  &Now
  &CheckValidLoginChar
  &CheckValidEmailChar
  &print_md5_javascript);

  $VERSION = '0.0.1';
}

        [download]

        Before I was led to use EXPORT_OK. I was at least getting zero in $userid_1 

        $userid_1 = $LoggedOn_user_id;
warn("userid : '$userid_1' ");

        [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom