Hello,
I use <perl> sections quite intensively to configure my apache server.
I would like to build in some user interaction during startup.
For this I added the following code to my httpd.conf:
(I omitted the non relevant parts)
<perl>
# We need a couple of modules, which we load here.
use Sys::Hostname;
use Apache2::PerlSections();
use Socket;
use Term::ReadKey;
# we need to be able to switch e between int and test
print STDOUT "To which environment should
requests be forwarded?\n";
print STDOUT "(i)nt\n";
print STDOUT "(t)est\n";
print STDOUT "You have 5 seconds to answer,
after which the default (int) will be activated\n";
ReadMode("noecho");
while (1) {
my $key;
$key = ReadKey(5,STDIN);
if ($key) {
if ( $key eq "i" ) {
$forwardTo = "intserver" ;
last;
} elsif ( $key eq "t" ) {
$forwardTo = "testserver" ;
last;
} else {
print STDOUT "please
press i or t \n";
}
} else {
print STDOUT "You didn't make
a choice, so we go with the default.\n";
$forwardTo = "intserver";
last;
}
}
ReadMode("restore");
# The variable $forwardTo is used to generate rewrite rules that
forward to the correct
# environment.I've omitted the rules here.
</perl>
The code works insofar that it waits 5 seconds and than proceeds with
the default I set, but it completely ignores any keypresses I make.
It is as if STDIN is not available at the time this code runs.
If I replace the ReadKey(5) with a ReadKey(5,STDIN) I get a syntax error.
Am I overlooking something, should I do this differently?
Is there any other possibility of interacting with the user during
apache startup, using mod_perl?
Krist
--
[EMAIL PROTECTED]
Bremgarten b. Bern, Switzerland
--
A: It reverses the normal flow of conversation.
Q: What's wrong with top-posting?
A: Top-posting.
Q: What's the biggest scourge on plain text email discussions?
