Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re^5: global var

by Marshall (Canon)
on Apr 08, 2017 at 03:14 UTC ( [id://1187454]=note: print w/replies, xml ) Need Help??

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

I am glad that you ran my code and you see that it works.

The file should have the "our" declaration of $LoggedON_user_id and this "our" declaration should not appear anywhere else.

I am not sure what your remaining problem is, but I suspect that the solution will be simple once the problem is fully understood.

Again, try to make a very, very simple example of the problem. Forget the web server for the moment. Get your script to work from the command line.

Your "cgi" script doesn't even need to import $LoggedON_user_id as long as it does "use manageusers ();", (which imports nothing), you can still access $manageusers::LoggedON_user_id as long as has something like our $LoggedON_user_id = "default";

Replies are listed 'Best First'.
Re^6: global var
by tultalk (Monk) on Apr 08, 2017 at 12:21 UTC

    I had tried that first but will try gain.

    In manageuser Removed EXPORT of LoggedON_user_id

    my $username1 = $session->param("user_id"); warn("username1 : '$username1'");

    Error Log manageusers

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


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

    And the error log

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

    So the desired value is present in the variable in manageusers

    In calling unit, changed import use manageusers; Commented out qw(LoggedOn_user_id);

    Line 66 in calling unit.

    $userid_1 = $manageusers::LoggedON_user_id;

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

    Error Log line 66

    Sat Apr 8 06:54:25 2017 update_tables-development.cgi: Use of uninitialized value in concatenation (.) or string at update_tables-development.cgi line 66. userid : '' at update_tables-development.cgi line 66.

    Don't know where else to look

      $userid_1 = $manageusers::LoggedON_user_id;

      Is that really line 66 of the cgi ? to work it needs to be

      $userid_1 = $manageusers::LoggedOn_user_id;
      to match the name in

      Update : Try this simplest of test script alongside update_tables-development.cgi with your existing manageuser module.

      1) Change the #!/usr/bin/perl line to whatever you use for your other cgi scripts. 2) Make sure the permissions are executable by the webserver. 3) Check the line endings are UNIX format (if that's what they need to be)

      #!/usr/bin/perl # moduletest.cgi use strict; use CGI ':standard'; use CGI::Carp 'fatalsToBrowser'; use manageusers qw($LoggedOn_user_id); my $now = scalar localtime; print header,start_html; print qq(<b>$now</b><pre> \$manageusers::LoggedOn_user_id = $manageusers::LoggedOn_user_id \$LoggedOn_user_id = $LoggedOn_user_id </pre>); print end_html;

        No, Typ when I wrote it on comment. Did no "paste"

        Change the #!/usr/bin/perlline to whatever you use for your other cgi scripts.

        Also incuded already use lib qw(/home/jalamior/www/httpsdocs/cgi-bin/lib/perl);

        2) Make sure the permissions are executable: They are

        Check the line endings are UNIX format (if that's what they need to be) How to check globally??

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1187454]
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2024-07-12 16:40 GMT
Find Nodes?
    Voting Booth?

    No recent polls found

    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.