Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2022年05月31日] [更新 2022年05月31日]　Delphi 一般・その他 [未分類 - OS の操作等]
   
HTTP サーバの環境変数
動作確認等 Windows 7 U64(SP1) + FireFox 88.0.1 (64 ビット)
[整理番号 - 1800]






HTTP サーバの環境変数


HTTP サーバ (Web サーバ) の環境変数を，CGI (本ページでは perl 言語を使用) で取得する例です．
この環境変数は，CGI や PHP で使用することがあるので，CGI 環境変数，あるいは PHP サーバ環境変数と言うこともあります．





01_ HTTP サーバの環境数取得用の CGI を作成


以下のコードをテキストエディタで作成し，拡張子を .cgi にして保存します．保存のコードページは UTF-8N (BOM なし) にします．


リスト1
テストに使用した CGI のコード．UTF-8 で保存		 
#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>環境変数取得</title>\n";
print "<meta http-equiv='Content-Type' content='text/html; charset=UTF-8'>\n";
print "</head>\n";
print "<body>\n";
print "環境変数一覧表示テスト<br>\n";

foreach $key (keys %ENV) {
  print "$key ： $ENV{$key}<br>\n";
  }

print "</body>\n";
print "</html>\n";



保存したファイルを Web サーバの，CGI が実行可能なディレクトリ内に転送します．筆者が使用しているレンタルサーバでは，任意のディレクトリで CGI を実行できます．今回は cgis というディレクトリを作成して，CGI ファイルをそのディレクトリ内に置きました．
CGI ファイルのパーミッションの設定で [読み込み] と [実行] を設定します．この設定をしないと GGI が実行できません．500 internal server error が発生します．



図1
CGI のパーミッション




02_ CGI を実行して HTTP サーバの環境変数のリストを取得


下図は実行結果です．ウェブブラウザに表示しています．



図2
環境変数のリストを取得

以下のように，sort コマンドを使用すると，環境変数の名前でソートできます．



リスト2
テストに使用した CGI のコード．UTF-8 で保存		 
#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>環境変数取得</title>\n";
print "<meta http-equiv='Content-Type' content='text/html; charset=UTF-8'>\n";
print "</head>\n";
print "<body>\n";
print "環境変数一覧表示テスト (ソート)<br>\n";

foreach (sort keys %ENV) {
  print "$_ = $ENV{$_}<br>\n"; 
  }

print "</body>\n";
print "</html>\n";




03_HTTP サーバの特定の環境変数の値を取得


特定の環境変数の値だけを取得するには，例えば次のような CGI で可能です．



リスト3
テストに使用した CGI のコード．UTF-8 で保存		 
#!/usr/local/bin/perl

print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>環境変数取得</title>\n";
print "<meta http-equiv='Content-Type' content='text/html; charset=UTF-8'>\n";
print "</head>\n";
print "<body>\n";
print "環境変数取得テスト<br>\n";

$key = "SERVER_SOFTWARE";
$envvalue = $ENV{$key};
print "$key : $envvalue";

print "</body>\n";
print "</html>\n";


上の CGI の実行結果です．SERVER_SOFTWARE という環境変数の値が Apache となっています．これは，CGI プログラムを起動した Web サーバソフトウエアの名前です．


図3
特定の環境変数の値を取得




04_ HTTP サーバに環境変数を追加


HTTP サーバに新しい環境変数が定義できれば，Google Maps API のキーのように，他人に見られたり読まれたくない値を隠すことができます．新しく定義した環境変数は，その環境変数が存在するサーバで，環境変数取得用のプログラムを実行しなければ取得できません．このことを利用します．以下の最初のリンクの記事を参考にしてください．
筆者が利用しているレンタルサーバでは，HTTP サーバの環境設定ファイル (Apache の環境設定ファイル) を操作できません．また，Apache が提供している環境変数操作用モジュールの機能も利用できません．したがって，新規に環境変数を定義できませんでした．