I got it, there must have been a problem with the package so I
changed a few items in the acsvars.pm and it works now.
Thanks and sorry to bother all of you.
Douglas
Douglas Brantz wrote:
> I know this isn't the list to post this type of question, but thought
> someone here would know the answer.
>
> I'm working in Perl and with CGI::Cookie; and would like to know why
> this code won't work?
>
> #use strict;
> use diagnostics;
> use CGI;
> use DBI;
> use CGI::Cookie;
> use acsvars qw(%config);
>
> print $query->header("text/html");
> if ($ENV{'HTTP_COOKIE'}) {
> #
> #---------------- Cookie Check ----------------
> %cookies = fetch CGI::Cookie;
> $USERID = $cookies{$config{'cname'}}->value;
> if ($USERID ne "$config{'cvalue'}"){
> #print "Content-Type: text/html\n\n";
> print $query->start_html (-title=>'Cookie
> Check',-link=>'blue',-alink=>'blue',-vlink=>'blue');
> print "<html>";
> print "<head>";
> print "sorry you need to login first.";
>
> If the cookie has expired or if there is no cookie it should go to the
> what if statement and it works on another script but not this one? I
> just get a document contains no data error message? It actually works
> if you login as admin and the cookie is checked and everything is ok,
> but after it expires it complains with the document contains no data?
> It seems that the cookie value is not returned almost like the name and
> value of the cookie are gone and $USERID = nothing? but I would think
> that the code would work?
>
> Thanks,
>
> Douglas
>
> --
> ---------------------------------------------------------------------
> Please check "http://www.mysql.com/documentation/manual.php" before
> posting. To request this thread, e-mail mysql-thread50823@stripped
>
> To unsubscribe, send a message to:
> <mysql-unsubscribe-brantzdr=appstate.edu@stripped>
>
> If you have a broken mail client that cannot send a message to
> the above address (Microsoft Outlook), you can use:
> http://lists.mysql.com/php/unsubscribe.php