Hey Guys, I can see from google searches, that I'm re-hashing an issue, but it wasn't solved in any of the posts and/or doesn't work in the 2.0.0 embperl that I'm using.
I started out with the a frequently-referenced posting from December 2000, by Gerald: http://www2.ecos.de/~mailarc/embperl/2000-12/msg00001.html I modified it to statically declare that everything changes once a day (for testing) I was doing ok setting the %http_headers_out, but once I started trying to use the apache calls, nothing seemed to work. The method calls don't actually set the headers, and setting the status-code didn't set the status-code. Handling conditional-get is a very small piece of code. Has anybody gotten this to work with 2.x? Much appreciated, -Carl [! use POSIX qw(strftime); use Apache2::Response (); use Apache2::RequestRec; use Time::HiRes qw(gettimeofday tv_interval ); !] [- ########################################################################## # Check, set expr date ########################################################################## my $do = GOB::DateRanges->new(); # Always indicate that the page has changed every day at 5am my $mod_time = $do->get_cday_begin(); $mod_time += (3600 * 5); # add 5 hours my $expr_time = $mod_time + (3600 * 24); # expires tomorrow morning my @etps = gmtime($expr_time); my $edate_str = strftime "%a, %d %b %Y %I:%M:00 GMT", @etps; $http_headers_out{Expires} = $edate_str; print STDERR "got here a\n"; $req_rec->update_mtime($mod_time); $req_rec->set_last_modified($mod_time); if ((my $rc = $req_rec->meets_conditions) != 200) { # we can give up $req_rec->status($rc); print STDERR "got here b\n"; #exit; } -] Carl Eklof President Bee Software LLC See us in action at:http://beethere.net/ p: 917.464.3529 f: 801.439.4213 [EMAIL PROTECTED] --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
