Perl cgi sample for dynamic generate of Java Jnlp.

hello_jws_arg_jnlp.cgi

一番最初に、
print "Content-type: application/x-java-jnlp-file;charset=shift-jis\n\n";
を吐き出せばOKです。
注) charset=utf-8 or shift-jis
encoding="utf-8" or "shift-jis"

#!/perl/bin/perl #--------- # JavaWebStart_study # hello_jws_arg_jnlp.cgi # hello_jws_arg.jnlp をダイナミックにジェネレートします。 #--------- use Jcode; print "Content-type: application/x-java-jnlp-file;charset=shift-jis\n\n"; $s=<<"EOM"; <?xml version="1.0" encoding="shift-jis"?> <jnlp spec="6.0+" codebase="http://localhost/netosa/netosa_jws/"> <!-- <information> <title>Java Web Start Sample for ARG</title> <vendor>Net Mall Tosa</vendor> <offline-allowed/> <shortcut online="false"> <desktop/> <menu submenu="Java Web Start Sample Apps for ARG"/> </shortcut> </information> --> <security> <all-permissions/> <!--<j2ee-application-client-permissions/>--> </security> <resources> <j2se version="1.7+" java-vm-args="-esa -ea -Xnoclassgc"/> <!-- 動かすJARへのパス --> <jar href="hello_jws_arg.jar"/> <!-- <jar href="lib/libname.jar"/> --> </resources> <!-- public static void main のあるクラス --> <application-desc main-class="jws_arg.hello_jws_arg"> <argument>c01="entry_no=2"</argument> <argument>tinf="tname=ネットモール土佐||tzip=781-1122||tken=35:高知県||taddress=土佐市高岡町乙１５５||ttel=088-889-4488||tfax=088-888-1769||tmail=yamada-taro@netosa-chan.com||ttanto=山田太郎"</argument> <argument>r01="order_no=ot001-0111-0001||odate=2001/11/26||operson_id=nishi||okei=40300||ozei=2015||ototal=42925||opay_kind=1:代引き||odaibiki=1200||osend_fee=610||yno=yama-ji||yname=山本次郎||yzip=881-4501||yken=35:高知県||yaddress=土佐市高岡町丙４２１||ynews=||ytel=088-821-7042||mei_no=1"</argument> <argument>r01_01="rno=1||tno=001||sno=0001||sname=かつおのたたき||scount=1||sunit=800g||stanka=3500||sgaku=3500"</argument> <argument>r02="order_no=ot001-0111-0002||odate=2001/11/26||operson_id=nishi||okei=40300||ozei=2015||ototal=42925||opay_kind=1:代引き||odaibiki=1200||osend_fee=610||yno=ike-sabu||yname=池田三郎||yzip=991-8601||yken=35:高知県||yaddress=土佐市高岡町乙８２５||ynews=||ytel=088-821-4079||mei_no=6"</argument> <argument>r02_01="rno=1||tno=001||sno=0001||sname=かつおのたたき||scount=1||sunit=800g||stanka=3500||sgaku=3500"</argument> <argument>r02_02="rno=2||tno=001||sno=0002||sname=かつおぶし||scount=2||sunit=1袋||stanka=1200||sgaku=2400"</argument> <argument>r02_03="rno=3||tno=001||sno=0003||sname=四万十のり||scount=3||sunit=１個||stanka=800||sgaku=2400"</argument> <argument>r02_04="rno=4||tno=001||sno=0004||sname=新高梨||scount=4||sunit=１ケース(３Ｋｇ)||stanka=3000||sgaku=72000"</argument> <argument>r02_05="sname=土佐四万十川　のり佃煮　と　しいたけのり　の詰合||sno=0005||tno=004||stanka=1270||scount=1||sunit_no=||sunit=２個詰め合わせ（２４５ｇ）||szei_use=2:内税||szei=5||sgaku=1270||"</argument> <argument>r02_06="rno=5||tno=001||sno=0005||sname=土佐ぶんたん||scount=5||sunit=１ケース(１２個入り)||stanka=4000||sgaku=20000"</argument> </application-desc> </jnlp> EOM #&Jcode::convert(\$s,'utf8'); print "$s\n"; exit(0);