Hi, I am new to this website. I am working on a fairly large data warehouse and I'm using CGI::Session for session management. What I have works great. It works on every single browser and operating system I've tried it on (Firefox,konquerer,IE 6/7,win,*nix). The problem is that there is one computer on the local network that absolutely refuses to maintain a session. The problem is as follows:
Upon successful login the session is created. I know the login is successful because I log all login information.
The user sees the homepage as they should.
The user tries to visit any other webpage and -blink- session is gone and they are taken directly back to my login page.
I installed firefox on the computer and it works fine, I also tried using an identical computer in the same office and their IE worked fine.
I've set all IE security settings to low, I added the site to the trusted sites list, and I tried adding an entry in the hosts file so that it'd have a qualified domain extension. None of these attempts have been successful.
I have seen similiar problems across google searches but they all got resolved using the hosts file. This did not work for me, nor have I needed to do this on any other computer. It is only this ONE specific computer. ~50 users have been able to login and use the program without hitch using the same browser and OS.
I am curious if anyone has seen anything similiar or knows why this may be happening. Unfortunately the project manager insists that all of the employees use IE, so I need to make this work. I've had coworkers look at the problem and we can't figure this out.
I can post code snippets if you like, but it's very simplistic. If the name and password match dispatch a session. When you visit a page if there is no session go to the login screen.
on login:
$s= CGI::Session->new();
$s->expire("+30m");
$s->param('permissions', $res{'permissions'});
$s->param('name', $res{'fname'});
$s->param('email', $res{'email'});
$s->param('id', $res{'id'});
$s->flush();
on page visit:
sub check_session {
my ($obj,$s,$q)= @_;
if ( !defined $s || $s->is_empty() || $s->is_expired() || defined
+$s->param("nogood") || !defined $s->param('id')) {
return 0;
}
$s->expire("+30m");
return 1; # it's active
return 0; # it's dead
}
Any insight would be greatly appreciated and much thanks in advance.
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: |
| & | | & |
| < | | < |
| > | | > |
| [ | | [ |
| ] | | ] |
Link using PerlMonks shortcuts! What shortcuts can I use for linking?
See Writeup Formatting Tips and other pages linked from there for more info.