000010************************************************************************ 000020** ACTZERO2 000030** $Id: actzero2.cbl,v 1.4 2008/01/27 15:44:59 nzawa Exp nzawa $ 000040************************************************************************ 000050* 000060 IDENTIFICATION DIVISION. 000070 PROGRAM-ID. ACTZERO2. 000080* 000090 DATA DIVISION. 000100 WORKING-STORAGE SECTION. 000110 01 HTTP-ACCEPT PIC X(300) VALUE SPACE. 000120 01 ACCEPT-XHTML PIC 9(002) VALUE ZERO. 000130* 000140 PROCEDURE DIVISION. 000150 MAIN SECTION. 000160* 000170**** 環境変数取得 000180 DISPLAY "HTTP_ACCEPT" UPON ENVIRONMENT-NAME. 000190 ACCEPT HTTP-ACCEPT FROM ENVIRONMENT-VALUE. 000200* 000210**** MIMEタイプ検査(厳密ではない) 000220 INSPECT HTTP-ACCEPT 000230 TALLYING ACCEPT-XHTML 000240 FOR ALL 'application/xhtml+xml'. 000250* 000260**** 表示用にサニタイズ 000270 INSPECT HTTP-ACCEPT REPLACING ALL '<' BY '!'. 000280 INSPECT HTTP-ACCEPT REPLACING ALL '&' BY '!'. 000290* 000300**** HTTPヘッダ送出 000310 IF ( ACCEPT-XHTML = 0 ) THEN 000320 DISPLAY 000330 'Content-Type: text/html; charset=UTF-8' 000340 ELSE 000350 DISPLAY 000360 'Content-Type: application/xhtml+xml; charset=UTF-8' 000370 END-IF. 000380 DISPLAY ''. 000390* 000400 DISPLAY ''. 000410 DISPLAY ''. 000430 DISPLAY ''. 000450 DISPLAY '
'. 000460 DISPLAY ''. 000480 DISPLAY ''. 000510 DISPLAY ''. 000540 DISPLAY ''. 000570 DISPLAY 'このページは ' 000680 IF ( ACCEPT-XHTML = 0 ) THEN 000690 DISPLAY 'text/html' 000700 ELSE 000710 DISPLAY 'application/xhtml+xml' 000720 END-IF. 000730 DISPLAY ' として送出されてゐます。
'. 000740* 000750 DISPLAY '' HTTP-ACCEPT '
'. 000770* 000780 DISPLAY '