http://qs321.pair.com?node_id=628780

skelooth has asked for the wisdom of the Perl Monks concerning the following question:

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.