絵文字挿入／ＨＴＭＬ対策機能・ＳＩＩシステム

動作
このサブルーチンの処理内容は次の通りです。

• HTMLタグを解析し、無許可のタグを無効化させる処理
• 開始タグと終了タグの過多などをチェックし、補完または無効化させる処理
• \rをすべて削除（ver 1.10で削除）
• &をすべて&に置換
• タグ外の半角スペースを に置換
• タグ内のstyle属性、id属性、class属性をすべて削除
• タグ外の\nを<br>に置換
• タグ内の\nを半角スペースに置換（ver 1.10で削除）

---

引数
引数$htmlには、入力フォーム（<form></form>など）から受け取ったコメントを渡してください。

引数$tag1と$tag2と$tag3は、どのＨＴＭＬタグを許可するかを指定するものです。brなどの終了タグのないものは$tag1に、終了タグのあるインライン要素タグは$tag2に、終了タグのあるブロック要素タグは$tag3に設定してください。
この値は省略してもかまいません。（$tag1 eq'' 等として処理）

$tag1 eq '0'　の場合、すべてのタグを無効化します。
$tag1内に'/'　が含まれていた場合、許可するタグを個別に指定できます。区切り記号は/です。たとえば、'img/br'の場合、imgタグとbrタグのみを許可します。
$tag1 eq '1'　または　$tag1 eq''　の場合、isi-sii.pl内で設定したタグを許可します。

$tag2、$tag3の動作もこれと同様です。

---

サンプル１
プログラムサンプル：

require '../cgi/isi-sii.pl';

$html='<b>今日</b>の<table><i>気分は   <!電球>です。';
$pass='../cgi/';
&isi_sii::Check_Html($html);

print $html;

サンプルの出力結果：

ＨＴＭＬ＞　<b>今日</b>の&lt;table&lt;<i>気分は&nbsp;&nbsp;&nbsp;<!電球>です。</i>

ブラウザ＞　今日の<table>気分は   です。

　許可済みのタグ（<b>）は有効のまま、無許可のタグ（<table>）は無効化されているのがわかります。
　また、<i>の終了タグが不足しているため、自動的に末尾にこれを補完しています。
　なお、この段階では絵文字タグ（<!電球>）はそのままなので、不明なタグとしてブラウザは無視します。

---

サンプル２
　通常、ＨＴＭＬタグの許可不許可の設定はisi-sii.pl内に記録されていますが、引数$tag1と$tag2を使うと、タグの許可設定をカスタマイズすることが出来ます。

プログラムサンプル：

require '../cgi/isi-sii.pl';

$html='<b>今日</b>の気分は<font color="red">超ナイス</font>です。';
$pass='../cgi/';
&isi_sii::Check_Html($html,'0','b/i/u/small','0');

print $html;

サンプルの出力結果：

ＨＴＭＬ＞　<b>今日</b>の気分は&lt;font color="red"&gt;超ナイス>&lt;/font&gt;です。

ブラウザ＞　今日の気分は<font color="red">超ナイス</font>です。

上記の例では$tag2='b/i/u/small'を設定してあるため、b,i,u,smallのタグだけを許可するように動作が変更されました。

<!電球>などの絵文字タグを、実際のimgタグに置換する関数です。
引数$htmlには、表示するコメントを渡してください。引数$passには、表示するＷｅｂページのアドレスからＳＩＩシステムまでの相対パスを渡してください。
$passは、たとえば掲示板のアドレスがhttp://www.jias.jp/cgi/bbs1/isi-bbs.cgi、isi-siiの画像がhttp://www.jias.jp/cgi/isi-sii/に保存されているとき、$pass='../isi-sii/'となります。

プログラムサンプル：

require '../cgi/isi-sii.pl';

$html='今日の気分は<!電球>';
$pass='../cgi/';
&isi_sii::Chenge_Imagetag($html,$pass);

print $html;

サンプルの出力結果：

今日の気分は<img src="../cgi/isi-sii/mark/denkyu.gif" alt="電球">

isi-sii.plの内部では、プログラム全体がisi_siiとしてパッケージ化されていることに注意してください。

利用できる絵文字リストを受け取るための変数です。普通は使わないと思うので、知らなくても構わないと思います(^-^;;;)。区切り記号は\nです。プログラムが文字コードShift-jisで保存してあったとしても、\rはすべて事前に削除してあるものとします。

プログラムサンプル：

$list=&isi_sii::Get_List();
print $list;

許可されたＨＴＭＬタグ一覧（終了タグのないもの）を得るための変数です。区切り記号は\nです。&Get_Listと同様に\rは削除済みです。
プログラムサンプル：

$list=&isi_sii::Get_TagList1();
print $list;

許可されたＨＴＭＬタグ一覧（終了タグのあるもの、インライン要素）を得るための変数です。区切り記号は\nです。&Get_Listと同様に\rは削除済みです。
プログラムサンプル：

$list=&isi_sii::Get_TagList2();
print $list;

許可されたＨＴＭＬタグ一覧（終了タグのあるもの、ブロック要素）を得るための変数です。区切り記号は\nです。&Get_Listと同様に\rは削除済みです。
プログラムサンプル：

$list=&isi_sii::Get_TagList3();
print $list;

ＳＩＩシステム(isi-sii.pl)のバージョンです。
プログラムサンプル：

print $isi_sii::version;