perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Carl Eklof <carlek...@yahoo.com>
Subject Handling conditional-gets in embperl
Date Fri, 18 Nov 2005 22:14:19 GMT
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
carl@beesw.com


---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message