pwdフォルダ初期設定CGI
よろしくお願いします。※１ぺーじめの情報がはんえいされているようにしたい。これらを下記のように変更したいのですが・・・１ページ目だけにゅうりょくしてもらう。よろしくおねがいします。１ページだけ入力してもらって以降はとどけたメールからにゅうりょくしてもらいたいげんざい運営しているサイトのちゅうもんに関する入力ページがつごうじょう、３ページにわたっています。フォームについてcgiをまなびはじめてまもないしょしんしゃです。cgiファイルのコードが表示されてしまうという時、なににもんだいがあるかのうせいがたかいのでしょうか？チェックすべきことがらなどをごきょうじゅいただければさいわいです。にゅうりょくしてもらったメールアドレスあてにメールをそうしん。そうしんボタンをクリック。１ぺーじめにゅうりょく→２ぺーじめ（１ぺーじめの情報がはんえいされている）→３ページ目・・・という具合です。メールにはＵＲＬが記載されていてそれをクリックすると、つづきが入力できるようにする。※ＣＧＩ、ｐｅｒｌでそれらをつないでいます。げんざいしょせきをもとにHTMLからのフォームからのデータをうけとるということについてがくしゅうしているのですが、そうしんをするとcgiファイルのコードがブラウザに表示されてしまい、上手くいきません。
CGIセマフォ
（２）セマフォせいぎょ CGIのmainかんすうの開始と終了で排他制御をする。 問題点：セマフォせいぎょをCGIじしんにしていいものなのか？ URL:セッション管理。）CGI画面からボタンをれんぞくで３かい押下したばあいに最初の１かいめ、または、３回目のPOSTだけをゆうこうにしたい場合どうすればできますか？アドバイスください。 ID+time 問題点： いつセッションIDのせいせいするのか？、 いつセッションIDをチェックするのか？、 いつセッションIDをさくじょするのか？ じぶんじしんわかっていません。下記のほうほうはじぶんなりにほうほうをかんがえました。 （１）セッションかんり １ CGI全てのPOST、GET指定に、 セッションID（ユニーク）を付加させる。JAVA SCRIPTは、使用禁止です。 （apacheを使用してます。JAVASCRIPT禁止でのボタン&リンク制御についてしーげんご、CGIでボタンせいぎょについておしえてください。
quot&#
sendmail -fオプションの指定はどこでおこなえばいいでしょうか？キャノネットというサーバーでフリーのメールフォームCGIせっちをこころみました、-ｆと-tオプションせっていをおこなわなければならないみたいなのですが、今回しようしたいCGIのしょきせっていファイルsendmail指定ぶぶんかきに #sendmailのパス $init->{sendmail_path} = '/usr/local/bin/sendmail -t -f ' メールアドレス' ';としていしましたがCGIエラーとなってしまい、どうやらプログラムないを書き換える必要があるみたいなのですが、ちしき不足のためどうやってへんこうするのかがわからずこまっております。）--------------------------------------------------package webliberty::Sendmail;use strict;use Jcode;use webliberty::Encoder;### コンストラクタsub new { my $class = shift; my $self = { sendmail => shift, send_to => undef, send_from => undef, subject => undef, name => undef, message => undef, files => undef, x_mailer => undef }; bless $self, $class; return $self;}### メールそうしんsub sendmail { my $self = shift; my %args = @_; $self->{send_to} = $args{'send_to'}; $self->{send_from} = $args{'send_from'}; $self->{subject} = $args{'subject'}; $self->{name} = $args{'name'}; $self->{message} = $args{'message'}; $self->{files} = $args{'files'}; $self->{x_mailer} = $args{'x_mailer'}; if (!$self->{send_to}) { $self->{send_to} = 'example@example.com'; } if (!$self->{send_from}) { $self->{send_from} = 'example@example.com'; } if (!$self->{subject}) { $self->{subject} = 'No Subject'; } if (!$self->{message}) { $self->{message} = 'No Message'; } if (!$self->{x_mailer}) { $self->{x_mailer} = 'Web Liberty'; } foreach ($self->{subject}, $self->{name}, $self->{message}) { $_ =~ s/<br ?/>/?n/g; $_ =~ s/&amp;/&/g; $_ =~ s/&lt;/</g; $_ =~ s/&gt;/>/g; $_ =~ s/&quot;/"/g; } if ($self->{name}) { $self->{send_from} = "?"" . $self->_encode($self->{name}) . "?" <$self->{send_from}>"; } $self->{message} =~ s/?xEF?xBD?x9E/?xE3?x80?x9C/g; $self->{message} = Jcode->new($self->{message}, 'utf8')->jis; my @files = split(/?n/, $args{'files'}); my $boundary; if ($files[0]) { require webliberty::File; $boundary = time; while ($self->{message} =~ /$boundary/) { $boundary++; } } open(webliberty_Sendmail, "| $self->{sendmail} -t") or return(0, "Sendmail Error : $self->{sendmail}"); print webliberty_Sendmail "X-Mailer: $self->{x_mailer}?n"; print webliberty_Sendmail "To: $self->{send_to}?n"; print webliberty_Sendmail "From: $self->{send_from}?n"; print webliberty_Sendmail "Subject: " . $self->_encode($self->{subject}) . "?n"; if ($files[0]) { print webliberty_Sendmail "Content-Type: multipart/mixed; boundary=?"$boundary?"?n?n"; print webliberty_Sendmail "--$boundary?n"; } print webliberty_Sendmail "Content-Transfer-Encoding: 7bit?n"; print webliberty_Sendmail "Content-Type: text/plain; charset=iso-2022-jp?n?n"; print webliberty_Sendmail "$self->{message}?n"; foreach (@files) { my $file_ins = new webliberty::File($_); my $file_name = $file_ins->get_name . '.' . $file_ins->get_ext; print webliberty_Sendmail "--$boundary?n"; print webliberty_Sendmail "Content-Type: application/octet-stream; name=?"$file_name?"?n"; print webliberty_Sendmail "Content-Transfer-Encoding: X-uuencode?n"; print webliberty_Sendmail "Content-Disposition: attachment; filename=?"$file_name?"?n?n"; if (open(webliberty_Sendmail_FILE, $_)) { binmode(webliberty_Sendmail_FILE); print webliberty_Sendmail $self->_uuencode(join('', <webliberty_Sendmail_FILE>), $file_name); close(webliberty_Sendmail_FILE); } } close(webliberty_Sendmail); return 1;}。（CGIはURLのものをしようしております。お詳しいほう、かきのプログラムないの変更ぶぶんをおおしえ下さい。よろしくお願い致します。