[linux-users:70964] Re: user用のCGIの設定

["Akiyoshi Kato" <a-k _at_ xxxxxxxxxxxxxxx>]

加藤＠広島です。
　中江さん、お世話になります。

> そのスクリプトを差し支えない範囲で示していただけませんか？

　スクリプトの一部は、以下のとおりです。

#!/usr/local/bin/perl

#初期設定
$|=1;
require '/home/user/public_html/cgi-lib/cgi-lib.pl';
require '/home/userl/public_html/cgi-lib/jcode.pl';

#初期設定
$myaddress = 'love _at_ bien.co.jp';#メール送信先
$mailprogram = '/usr/bin/mail';#使用するメールプログラム
$self = "http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}";


#メインプログラム
&ReadParse(*in);
if($in{'switch'} eq "メール送信"){
 &getdata;
 &data_convert;
 &thanks_html;
 &mail;
 exit 0;
}
else{
 &getdata;
 &InputCheck;
 &data_convert;
 &print_html;
 exit 0;
}
ご教授宜しくお願い致します。
----------------------------
加藤　明義a-k _at_ venus.dti.ne.jp
         株式会社ビアン
    広島市南区京橋町１０−２２
       電話：082-263-1822
       FAX:082-506-1751
----------------------------