package TW::Apache::Play;
use strict;
use warnings;
use Apache::Request;
use Apache::Constants qw( :common );
sub handler {
my $r = Apache::Request->new( shift );
my $username = $r->param('username') || "alester";
$r->send_http_header( "text/html" );
print "";
print "Looking up \"$username\" via PHP
";
my $sub = $r->lookup_uri( "/foo.php" );
$sub->notes->set( username => $username );
my $rc = $sub->run();
my $notes = $sub->notes;
print "custid=$notes->{custid}
";
print "contact=$notes->{contact}
";
print "All done!";
print "";
return OK;
}
1;
####
$username ) );
apache_note( "custid", $cols["CUSTID"] );
apache_note( "contact", $cols["CONTACT"] );
?>