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"] ); ?>