teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問CGIの中でPHPを動かしたい

編集履歴

質問編集履歴

2

実行したい内容を表示しました

2020/11/07 07:58

投稿

natlpush
natlpush

スコア32

test CHANGED
File without changes
test CHANGED
@@ -199,3 +199,39 @@
199
199
  close(IN);
200
200
 
201
201
  ```
202
+
203
+
204
+
205
+ テンプレとして読み込んだファイルでPHPを実行したい
206
+
207
+ htmlファイル
208
+
209
+ ```ここに言語を入力
210
+
211
+ <?php
212
+
213
+ session_start();
214
+
215
+
216
+
217
+ // ログイン状態のチェック
218
+
219
+ if (!isset($_SESSION["USERID"])) {
220
+
221
+ header("Location: login.html");
222
+
223
+ exit;
224
+
225
+ }//if
226
+
227
+ ?>
228
+
229
+
230
+
231
+ <!doctype html>
232
+
233
+ <html lang="ja">
234
+
235
+ <head>
236
+
237
+ ```

1

ファイルの中身を追記に示しました

2020/11/07 07:58

投稿

natlpush
natlpush

スコア32

test CHANGED
File without changes
test CHANGED
@@ -6,11 +6,11 @@
6
6
 
7
7
 
8
8
 
9
- ログインの切り分け
9
+ - ログインの切り分け
10
-
10
+
11
- メニューの表示の分岐
11
+ - メニューの表示の分岐
12
-
12
+
13
- 名前の入力欄にあらかじめ入力
13
+ - 名前の入力欄にあらかじめ入力
14
14
 
15
15
 
16
16
 
@@ -22,8 +22,180 @@
22
22
 
23
23
 
24
24
 
25
- .htaccessを使い htmlファイルでphpやcgiを実行する方法はあるのですが、CGIプログラムの中でPHPが動かせるととても便利なのですが。
25
+ **.htaccess**を使い htmlファイルでphpやcgiを実行する方法はあるのですが、CGIプログラムの中でPHPが動かせるととても便利なのですが。
26
26
 
27
27
 
28
28
 
29
29
  よろしくお願いいたします。
30
+
31
+
32
+
33
+ ##追記
34
+
35
+
36
+
37
+ CGIのサイトは
38
+
39
+
40
+
41
+ https://www.kent-web.com/bbs/patio.html
42
+
43
+
44
+
45
+ patio.cgi
46
+
47
+ というプログラムがhtmlファイルを読み込んでいます（63行目）。
48
+
49
+ このhtmlにPHPを入れられれば動きそうなのですが、ソースがそのまま出てしまいます。
50
+
51
+
52
+
53
+ .htaccess
54
+
55
+ ```ここに言語を入力
56
+
57
+ AddType application/x-httpd-php .php .html
58
+
59
+
60
+
61
+ ```
62
+
63
+
64
+
65
+ patio.cgi（66行目まで）
66
+
67
+ ```ここに言語を入力
68
+
69
+ #!/usr/local/bin/perl
70
+
71
+
72
+
73
+ #┌─────────────────────────────────
74
+
75
+ #│ WEB PATIO : patio.cgi - 2019/11/10
76
+
77
+ #│ copyright (c) kentweb, 1997-2019
78
+
79
+ #│ http://www.kent-web.com/
80
+
81
+ #└─────────────────────────────────
82
+
83
+
84
+
85
+ # モジュール宣言
86
+
87
+ use strict;
88
+
89
+ use CGI::Carp qw(fatalsToBrowser);
90
+
91
+ use lib "./lib";
92
+
93
+ use CGI::Minimal;
94
+
95
+
96
+
97
+ # 設定ファイル認識
98
+
99
+ require "./init.cgi";
100
+
101
+ my %cf = set_init();
102
+
103
+
104
+
105
+ # データ受理
106
+
107
+ CGI::Minimal::max_read_size($cf{maxdata});
108
+
109
+ my $cgi = CGI::Minimal->new;
110
+
111
+ error('容量オーバー') if ($cgi->truncated);
112
+
113
+ my %in = parse_form($cgi);
114
+
115
+
116
+
117
+ # 認証モード
118
+
119
+ my %au = authent() if ($cf{authkey});
120
+
121
+
122
+
123
+ # 処理分岐
124
+
125
+ if ($in{read}) { read_log(); }
126
+
127
+ if ($in{edit}) { pwd_form(); }
128
+
129
+ if ($in{mode} eq 'form') { form_page(); }
130
+
131
+ if ($in{mode} eq 'find') { find_page(); }
132
+
133
+ if ($in{mode} eq 'note') { note_page(); }
134
+
135
+ if ($in{mode} eq 'past') { past_page(); }
136
+
137
+ bbs_list();
138
+
139
+
140
+
141
+ #-----------------------------------------------------------
142
+
143
+ # メニュー部表示
144
+
145
+ #-----------------------------------------------------------
146
+
147
+ sub bbs_list {
148
+
149
+ # アラーム数定義
150
+
151
+ my $alarm = int ($cf{m_max} * 0.9);
152
+
153
+
154
+
155
+ # ページ数
156
+
157
+ my $pg = $in{pg} || 0;
158
+
159
+
160
+
161
+ # スレッド表示
162
+
163
+ my ($i,@log);
164
+
165
+ open(IN,"$cf{nowfile}") or error("open err: $cf{nowfile}");
166
+
167
+ my $top = <IN>;
168
+
169
+ while (<IN>) {
170
+
171
+ $i++;
172
+
173
+ next if ($i < $pg + 1);
174
+
175
+ next if ($i > $pg + $cf{pgmax_now});
176
+
177
+
178
+
179
+ push(@log,$_);
180
+
181
+ }
182
+
183
+ close(IN);
184
+
185
+
186
+
187
+ # 繰越ボタン作成
188
+
189
+ my $page_btn = make_pgbtn($i,$pg,$cf{pgmax_now});
190
+
191
+
192
+
193
+ # テンプレート読込
194
+
195
+ open(IN,"$cf{tmpldir}/bbs.html") or error("open err: bbs.html");
196
+
197
+ my $tmpl = join('',<IN>);
198
+
199
+ close(IN);
200
+
201
+ ```