Re^6: global var

[tultalk]

Hi again:

It is not closing off with a brace where a paren is required. The Brace is closing the Begin The paren is closing this: our @EXPORT_OK = qw(

BEGIN {
    use vars qw($VERSION @ISA @EXPORT);
    use DBI;

#    $ENV{DBI_TRACE}=1;
#    $ENV{PERL_DBI_DEBUG}=1;

    require Exporter;

    @ISA = qw(Exporter);

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

    $VERSION = '0.0.1';
}

I also changed $LoggedOn_user_id to a function call &GetLoggedOn_user_id to deliver the number to the other module and it still does not work.

And yes it compiles then and now.

Your comments and those of some others are very discouraging to one who is having fun and enjoying this resurrection. A little tolerance is in order I think.

I realize there is much stuff here that is old and discouraged but it still works.

[stevieb]

I'm one of the more tolerant folk who are around, at least I'd like to think.

If the code you post sections of can't compile in a short example, perhaps you could post all of it within <readmore></readmore> tags, so we can see all of it.

It isn't my intention to put anyone off. If I came across that way, I am truly sorry. Given portions of an application that aren't copy/pasted properly into the site here, it is impossible to see what is wrong, especially when it is copy/pasted more than once incorrectly.

Paste it in within the tags I specified above, and perhaps someone will have the time to figure it out.