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

$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 manageusers.pm

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;

[download]
poj

Replies are listed 'Best First'.
Re^8: global var
by tultalk (Monk) on Apr 09, 2017 at 02:52 UTC

    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??

[reply]

      What are you using to edit the scripts, Padre ? Which OS ?. Are scripts on lowesthosting server or your own localhost ?.

      If Padre, use View->Show Newlines. If they show CRLF then use Edit->Covert Line Endings-> EOL To Unix. They should now show LF.

[reply]
[d/l]
[select]

        What are you using to edit the scripts, Padre ? Which OS ?. Are scripts on lowesthosting server or your own localhost ?.

        Vista,Padre and Notepad ++. Edit Notepad ++ check in Padre.

        Both lowesthosting and localhost. I gave up trying to test on local host Back and forth with the config to prevent links etc. going on line

        If Padre, use View->Show Newlines. If they show CRLF then use Edit->Covert Line Endings-> EOL To Unix. They should now show LF.

        Ugh. Every one is CRLF.

        Changed them all. No difference.

        Are the crlf from word wrap i Notepad ++? I had WR on for some specific text file I was printing.Did not thin the WR would apply to all files.

        <p? Thanks for input

[reply]

In Section Seekers of Perl Wisdom