Jcode.pmとMIME::Base64モジュールがインストールされているかどうかをチェックするためのプログラム
check.cgi:
#!/usr/local/bin/perl ## 1. Perlのパスは必要に応じて書き換えてください。 ## 2. CGIのパーミッションは適切なものにしてください。多くの場合は ## 705か755で動作すると思います。 ## 3. (c)株式会社プランセス( http://perl.shtml.jp ) ## 4. このプログラムの拡張子は.cgiに書き換えて再保存して実行してください。 BEGIN { #ライブラリーのパスを必要に応じて追加してください。 #(多くの場合、不要です。) #push(@INC,"f:/Perl/lib"); } $jcode="Jcode"; $base64="MIME::Base64"; $msg=""; if(eval"require $jcode") { $msg ="Jcodeはインストール(もしくはロード可能な状況)されています。
"; }else { if($]>=5.008){ $msg ="Jcodeは利用できませんが、Perl 5.8以上ですからEncode.pmが御利用いただけます。
"; } else { $msg ="Jcodeは利用できません。別途インストールしていただく必要があります。
root権限がなくてもJcodeの設置は可能であり、
サーバサイドSHTML for Perl
は利用可能です。
詳細は
サポート
にお知らせください。
"; } } if(eval"require $base64") { $msg .=$base64.'はインストールされています。
'; }else { $msg .=$base64 . 'は利用できません。別途インストールしていただく必要があります。
'; } print "Content-type: text/html; charset=EUC-JP\n\n"; print '
'; print '
必要モジュールのインストール状況
'; print ''; print ''; print $msg . "
"; $version= $]; print "現在御利用中のPerlのバージョン:" . $version . "
"; print "";