#!/usr/local/bin/prologcgi

:-s_charset(_,utf8).
top_call:-
   get_param(ver,Ver),s_version(_,Ver,_,_),!,
   get_param(url,URL),write_listnl(['Location:',URL]),nl.

top_call:-
   get_param(url32,URL),!,write_listnl(['Location:',URL]),nl.

top_call:-
  get_param(ver,Ver),
  write('Content-Type: text/html; charset=utf-8'),nl,nl,
  write_listnl([ '<html lang="ja"><body>',
                 '<INPUT TYPE="button" VALUE="RETURN" onClick="history.back()"><br><br>',
                 'この機能は２０１０年３月現在、',Ver,'版でのみサポートしています<br></body></html>']).
