in reply to Re^10: global var
in thread global var
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'");
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);
Tried different variations of qw(LogggedOn.. and qw($LoggedOn.. Neither worked.
$userid_1 = $LoggedOn_user_id; warn("userid : '$userid_1' ");
What I get back is
<h1>Software error:</h1> <pre>"LoggedOn_user_id" 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>
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'; }
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' ");
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^12: global var
by poj (Abbot) on Apr 08, 2017 at 11:59 UTC | |
|
Re^12: global var
by Anonymous Monk on Apr 08, 2017 at 07:50 UTC | |
by tultalk (Monk) on Apr 08, 2017 at 19:14 UTC | |
by Anonymous Monk on Apr 08, 2017 at 19:30 UTC | |
by Anonymous Monk on Apr 08, 2017 at 20:24 UTC | |
by tultalk (Monk) on Apr 11, 2017 at 14:23 UTC | |
by huck (Prior) on Apr 11, 2017 at 15:23 UTC | |
| |
by Anonymous Monk on Apr 11, 2017 at 22:07 UTC |