Im trying to write some code to make setting cookies easier but it has stopped setting the cookies and I can't figure out why. Can anyone spot the problem?
Usage: Class->cookie_me( ['NAME', 'VALUE','EXPIRES','DOMAIN'] );
Code:
#----------------------------------------------------------
# cookie_me( ['name','values','expires','domain'] )
my ($class, @cookies) = @_;
my (@jar) = ();
for (@cookies) {
push @jar, $IN->cookie( -name => $_->[0], -value => $_->[1], -expires => $_->[3], -domain => $_->[4] );
}
print $IN->header( -cookie => \@jar );
return;
}
Any ideas? Thanks.
Usage: Class->cookie_me( ['NAME', 'VALUE','EXPIRES','DOMAIN'] );
Code:
Code:
sub cookie_me { #----------------------------------------------------------
# cookie_me( ['name','values','expires','domain'] )
my ($class, @cookies) = @_;
my (@jar) = ();
for (@cookies) {
push @jar, $IN->cookie( -name => $_->[0], -value => $_->[1], -expires => $_->[3], -domain => $_->[4] );
}
print $IN->header( -cookie => \@jar );
return;
}
Any ideas? Thanks.