helm/cgi/use_webeqp.pl

   1 #!/usr/bin/perl
   2
   3 require CGI;
   4
   5 $q = new CGI;
   6 $uri = $q->param("uri");
   7
   8 print <<EOT;
   9 Content-type: text/html
  10 Location: $webeqp_url?mmlurl=$getheader_url?baseurl=$style_url&stylesheet1=rootcontent.xsl&stylesheet2=annotatedpres.xsl&xmluri=$uri
  11
  12 EOT