hi,
Earlier i posted mod_perl and multi user environment - clashes with other users's data, and got the solution for the problem. But the same is not working here.
After using "our" keyword, im still facing problem with my code. On every click to the cgi, i see that different user's info is displayed. Please check whats wrong in my code, 
#! /usr/local/bin/perl -w

#use strict;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use HTML::Template;
use Data::Dumper;

use hiGuiStatus; # my own module

# send the obligatory Content-Type
print "Content-Type: text/html\n\n";

#$q = new CGI;
#print $q->Dump();


our $status = hiGuiStatus->new();
our $userid = $status->get_ldap_user_name();

print $userid;
my $err_msg;


($err_msg, %hoh) = $status->read_file($userid);
#print Dumper \%hoh;

if(param('sort'))
{
    my $sort_sel = param('sort_option');
    ($err_msg, @sort_keys) = $status->jobs_sort($sort_sel);
    #print $err_msg;
}


if(param('terminate'))
{
    my @del_ids = param('check_del');
    
    ($err_msg) = $status->jobs_terminate(\@del_ids, $userid, \%hoh);
    ($err_msg, %hoh) = $status->read_file($userid);
}


if(param('publish'))
{
    my $ddts = param('ddts_no');
    my @del_ids = param('check_del');

    $status->jobs_publish($ddts, \@del_ids);
}


if(param('delete'))
{
    my @del_ids = param('check_del');

    ($err_msg) = $status->jobs_delete(\@del_ids, $userid, \%hoh);
    ($err_msg, %hoh) = $status->read_file($userid);
}


@loop = $status->jobs_loop();
#print Dumper \@loop;

my $template = HTML::Template->new(filename => 'hiGuiStatus.tmpl');

# call param to fill in the loop with the loop data by reference.
$template->param(err_msg => $err_msg, job_loop => \@loop);

# print the template
print $template->output;

[download]

Basically this code does retrieve data from a text file for a particular user who has logged in and display it using HTML::Template.
I used the keyword "our" and still face the problem of other user's data being displayed in my browser, ONLY IN mod_perl

thanks
rsennat

In reply to mod_perl and multiuser global variables by rsennat

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.