On Tue, Jan 08, 2002 at 01:13:47PM +0100, Bart Schuller wrote:
> Attached you'll find my script
Not. second try:
--
Bart.
#!/usr/bin/perl
use warnings;
use strict;
open(HTDIG, "/usr/lib/cgi-bin/htsearch -c /path/to/htdig/htdig.conf |") || die "Could
not run htdig: $!";
while (<HTDIG>) {
last if ($_ eq "\r\n");
}
while (<HTDIG>) {
# We need XML syntax here, not HTML
s/(<option.*) selected>/$1 selected="selected">/;
s/(<option.*>[^<]*?)$/$1<\/option>/;
print;
}
close(HTDIG);
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
