#!/usr/bin/perl
#
# This script must be located in the directory of /cgi-bin .
#

# Send Content-type.
print "Content-type: text/vnd.wap.wml \n\n";

# Send WML header information.
print "<?xml version=\"1.0\"?>\n";
print "<!DOCTYPE wml PUBLIC \"-//WAPFORUM//DTD WML 1.2//EN\""
  . " \"http://www.wapforum.org/DTD/wml_1.2.xml\">\n";

# Retrieve Web argument values.
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
@pairs = split( /&/, $buffer );
foreach $pair ( @pairs ) {
  ($name, $value) = split( /=/, $pair );
  $value =~ tr/+/ /;
  $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $value =~ s/~!/ ~!/g;
  $FORM{$name} = $value;
}

print <<EndofWML;
<wml>
 <card title="DB Results">
  <p><br />
EndofWML

# For security, write the argument values to files.
open    ( fh, "> p1" );
syswrite( fh, $FORM{keyword}, 32 );
close   ( fh );
system  ( "/usr/bin/java ListItems" );

print <<EndofWML;
<br /><br />
   </p>
  </card>
</wml>
EndofWML