# Sample calendar program for CSA tutoring.
#
# Author: Carlo Strozzi
# Copying: GPL

#csaExit.pcdata $CSA_RPC_CMD
#csaExit.pcdata $CSA_RPC_AWK

# This one is very istructive to look at.
#csaExit.pcdata $CSA_RPC_WWW

# Set defaults.
cgi.year = $CSA_TIME_LOCAL(1)
cgi.month = $CSA_TIME_LOCAL(2)

# Load pre-processed call arguments, if any.

csaGetArgs GET

#csaExit.env

# Run cal(1), with arguments
csaSystem --return cal $'cgi.month' $'cgi.year' || csaExit.pcdata $CSA_SYSERR

if (~ $CSA_PGM(1) CSA2) {
   csaMkTemp tpl.include.rpc CSA_RDF_ORB
   cat <<'EOF' > $CSA_RDF_ORB
<methodResponse>
 <params>
  <param>
   <value><string>$[tpl.include.rpc:p]</string></value>
  </param>
 </params>
</methodResponse>
EOF

   cp $CSA_SYSOUT $'tpl.include.rpc'

   csaExit.ok --eval tpl.include.rpc

}  else csaExit.pcdata $CSA_SYSOUT

# End of program.
