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 'ACTZERO2:' 000580 ' MIMEタイプを判定してみよう' 000590 ' - W.F.N.'. 000600 DISPLAY ''. 000610 DISPLAY ''. 000620* 000630 DISPLAY '

ACTZERO2:' 000640 ' MIMEタイプを判定してみよう

'. 000650* 000660 DISPLAY '

ただ今のMIMEタイプ

'. 000670 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 '

Acceptフィールドの内容

'. 000760 DISPLAY '

' HTTP-ACCEPT '

'. 000770* 000780 DISPLAY '

このページについて

'. 000790 DISPLAY '

ナビゲーション: ホームページ; COBO de LCGI
公開日: 2008-01-12

'. 000890 DISPLAY ''. 000900 DISPLAY ''. 000910* 000920 STOP RUN.