Fifth International World Wide Web Conference

Step 4: Program the CGI Script with CorbaScript

#! /usr1/bin/cwsh

echo "Content-Type: text/html\n\n<HTML>\n"

$computer := computer(my_computer:computerSvr:blanche)

if $QUERY_STRING = "is_prime" then ... invokes computer and displays result ... end

if $QUERY_STRING = "prime_numbers" then
  $result := $computer.prime_numbers($number)
  echo "The prime numbers less than the number " , $number , " are\n<P>\n"
  echo $result
end

if $QUERY_STRING = "decompose" then ... invokes computer and displays result ... end

echo "</HTML>\n"

CorbaWeb: A Generic Object Navigator (P.Merle,C.Gransart,JM.Geib)