[政治・選挙・ＮＨＫ254]
4.
新共産主義クラブ[-4469] kFaLpI5ZjuWLYINOg4mDdQ 2018年12月10日 11:50:59
: FxhG1Vvojy
: OU8eXBtFagI[1]
安倍首相が、北方四島の日本の領有権の主張を撤回し、ロシアと日本との間の国境を確定したことを、新共産主義クラブは高く評価する。
安倍首相の残りの課題は、北方四島からのロシアの軍事基地の恒久的な撤去を盛り込んだ『日露平和条約』の締結である。
http://www.asyura2.com/18/senkyo254/msg/724.html#c4
OU8eXBtFagI コメント履歴 No: 100000
http://www.asyura2.com/acas/o/ou/ou8/OU8eXBtFagI/100000.html
http://www.asyura2.com/acas/o/ou/ou8/OU8eXBtFagI/100000.html
[政治・選挙・ＮＨＫ255] 「安倍-プーチン」会談に反対する（日々雑感） 笑坊
1. 2019年1月08日 13:37:05 : FxhG1Vvojy : OU8eXBtFagI[2]
⇒《日ロ平和条約は日本国民に一体いかなる利益をもたらすというのだろうか。》
1. 2019年1月08日 13:37:05 : FxhG1Vvojy : OU8eXBtFagI[2]
⇒《日ロ平和条約は日本国民に一体いかなる利益をもたらすというのだろうか。》
当たり前ですが、防衛費の削減が見込めます。敵が減り中立国が増えるのですから。
「安倍-プーチン」会談に賛成する
http://www.asyura2.com/18/senkyo255/msg/845.html#c1
[政治・選挙・ＮＨＫ256] ＮＨＫは「報道」の看板を降ろせ！ 赤かぶ
22. 2019年1月15日 02:12:34 : FxhG1Vvojy : OU8eXBtFagI[3]
ＮＨＫがヨイショに徹している影の内閣（電通）オタク・ビジネスの闇が
暴露されたそうです。
22. 2019年1月15日 02:12:34 : FxhG1Vvojy : OU8eXBtFagI[3]
ＮＨＫがヨイショに徹している影の内閣（電通）オタク・ビジネスの闇が
暴露されたそうです。
26. 2019年1月15日 01:56:30 : obsWB7lOyc : Zr7dUNGnceI[28] 報告
▲△▽▼
オタク・ビジネスの成功者も安倍の影の内閣（電通）の一員だもんね
全国展開しているすべてのグループにこうした犯罪実行組織と
隠蔽システムがセットされてるって可能性が大だよな
97. 2019年1月15日 01:53:55 : YhjUVup5dk : tZJr@e@1JE8[8] 報告
▲△▽▼
これがホントのおもてなし？
カネだけでなく少女性接待も一緒に執り行われているってこと？
6. 2019年1月15日 01:47:24 : YhjUVup5dk : tZJr@e@1JE8[4] 報告
▲△▽▼
六本木ヒルズのＶＩＰ御用達接待シンジケートのロリコン・オタクバージョン？
全国展開テレビ芸能界に洗脳された若年少女リクルートビジネスって感じのさ
華原が復帰後サタニストのサインと思しき振り付け繰り返しているのと関係ある
のかも小室から離れても元の木阿弥で…
田布施天皇すり替え事件と繋がっているとやはりＶＩＰのためのそうしたビジネス
組織が日本の芸能界を牛耳っているっていうのは衝撃的な展開
http://livedoor.blogimg.jp/uucl/imgs/8/a/8a6ff271.jpg
https://熱愛.com/trend/wp-content/uploads/2014/03/%E7%AB%B9%E7%94%B0%E6%81%92%E6%B3%B03.jpg
https://endia.net/wp-content/uploads/2019/01/d04a94380eca7b31022ea0f722e10e90-1024x682.png
23. 2019年1月15日 01:26:35 : e7XpYCxQdY : mizfJLrIOAk[16] 報告
▲△▽▼
検察は支配権力側の「権力装置」のひとつに過ぎない事は
民主党政権転覆クーデターの小沢追い落とし工作でもはっきりとしている
中でも「特捜」は支配権力側の利益を高めたり守ったり
するための私的取締り機関
そのための追い落とし工作をあたかも正義のように見せかけるお先棒を担いでいる
のがマスコミ
下記の事件の真相を一般国民に知らせないようにしているのも
そうした検察や警察やマスコミが法や正義とはかけ離れた違法工作活動に従事
していることの現われ
5. 2019年1月15日 01:14:41 : iTjwmJO9zk : Zzs2JpyrOGY[60] 報告
▲△▽▼
安倍・秋元・電通・バーニング
日本はまさに犯罪天国
英語が出来る方はこの事実を海外に向けて発信すべき
日本を腐らせているのは日本に巣食い悪事を悪事ととがめだてされない
権力を握っている反日連中だってことを
9. 2019年1月15日 01:10:55 : iTjwmJO9zk : Zzs2JpyrOGY[59] 報告
▲△▽▼
支配人がメンバーに暴行を加えたとされる容疑者グループと懇意な間柄にあり
犯罪を犯しても可愛い連中だと以前から公言していたことが暴露されている
そしてその犯罪容疑者の頭目が例によってバーニングと関係を有していると
新潟の検察か警察もバーニング案件で及び腰
早々に釈放された容疑者は何食わぬ顔で後日行われたライブ会場の前列に
陣取っていたという異様さに暴行被害を訴えたメンバーは恐怖を覚えたのは
当然のことである
安倍の女房昭恵と関係のある自称記者がジャナーリスト志望の女性をレイプし
逮捕も起訴もされない事件とあわせて安倍が君臨する日本はまさに犯罪天国と化したようである
https://pbs.twimg.com/media/DwxsMywUwAAkdcN.jpg:small
ジョー会とは北川丈から成る犯人グループの総称です。
こんな奴らとつるんでたらＮＧＴ４８が犯罪グループに見られるぞ。 実際支配人の今村？とジョー会の稲岡？は仲が良いと聞いた。 メンバーを商
売道具としか見てない糞支配人今村辞任しろよ！！
https://endia.net/inaokaryunosuke-inapusa
https://endia.net/wp-content/uploads/2019/01/d04a94380eca7b31022ea0f722e10e90-1024x682.png
稲岡龍之介（いなぷぅさレモン）が暴行の黒幕？元NGT48大滝友梨亜、高橋真生に婦女暴行の噂も…5chの反応まとめ
https://twitter.com/inapooh0725
https://endia.net/wp-content/uploads/2019/01/653c4c092821e5a1d92f75ad3d795524-1021x1024.jpeg
FacebookとTwitterのサムネが一致していることにより、同一人物だと判断できます。また稲岡龍之介のFacebookは現在（1月12日2:30）でも確認で
きますが、いなぷぅさレモンのTwitterは鍵垢にした後、削除されたかIDを変更しており、閲覧できない状態。
稲岡龍之介（いなぷぅさレモン）はNGT運営・今村のお気に入り
稲岡龍之介はNGT48運営の今村悦朗支配人のお気に入りだと言われています。
NGT48支配人・今村悦朗
https://endia.net/wp-content/uploads/2019/01/00fff5039e2f853d959047674156884f.jpg
twterm^1084303657162534912&ref_url=https%3A%2F%2Fjohosokuhou.com%2F2019%2F01%2F13%2F11804%2F
https://pbs.twimg.com/media/Dww4ZoOU8AEMfz8.jpg:small
https://shanti-phula.net/ja/social/blog/?p=186222
収拾がつかなくなる、NGT48のトラブル！ 今村悦朗支配人は退任へ 〜NGT運営サイドや文春が優先して隠蔽するバーニングの影
2019/01/14 9:10 PM ＊事件, 事件, 日本国内, 竹下氏からの情報
竹下雅敏氏からの情報です。
NGT48のトラブルは、事故後の運営側の対応のまずさから、収拾がつかなくなり、ついに今村悦朗支配人を退任させることになったようです。メディアでは、事件の真相に迫る報道は全く見られませんが、ネット上では、かなり真相が突き止められてきました。
冒頭のツイート相関図を拡大してご覧になると、事件の全容がおぼろげにわかってきます。この事件の中心人物と見られるのは、図の赤い帯の中にいる人物で、特に「いなぷぅ」こと稲岡龍之介氏に注目が集まっています。
NGTサイドは「メンバーの関与は絶対にない」と言っていますが、事件の被害者である山口真帆さんは、ツイッターで「男が向かいの部屋から出てきました。その部屋は違うメンバーが住んでいた部屋でした」と言っています。
この発言を裏付ける書き込みがあったようです。リアルメンバーという人物によれば、「山口の向いというか斜め前の部屋は太野の部屋 そこに当日捕まった3人とメンバー2人がいたんです。そのもう一人のメンバーは西潟です」とのこと。
“続きはこちらから”をご覧ください。驚いたことに、山口真帆さんの謝罪公演の際、今回の事件に関わっていると考えられる稲岡龍之介氏が、“最前列に座って奇声を上げていた”というのです。ツイートによると、「舞台上で山口真帆はガタガタ震えてたみたい」と書かれています。
文春は、完全にNGT運営サイドに立っていて、かく乱情報を流すことで事件を隠蔽しようとしています。最後のツイートをご覧になると、運営サイドが、他の実行犯よりもこの稲岡龍之介氏を“優先して隠蔽している”と書かれています。氏は、バーニングの周防郁雄氏の甥っ子だという情報も
あるようです。これが事実なら、運営側が彼を特別扱いするのも頷けます。
山口真帆の住所を売った？「いなぷぅ」こと「稲岡龍之介」クン。NGT48運営とベタベタの繋がりがあるみたいで日常的にNGT48のマンションに出入り。そのコネで警備されながら山口真帆の謝罪公演で最前列に座って奇声を上げていたとのこと。怖すぎて草 pic.twitter.com/kUSSOvT2ct
― 暇な哲学犬 Ph.D.暇女学 アンガージュマン (@sbscience2) January 11, 2019
稲岡龍之介はバーニング幹部の甥っ子。周防郁雄より。 https://t.co/e1zvfzLfmu
― Pervitin (@KEN63473788) January 13, 2019
この人が問題なのは間違いないのに、
NGT運営や文春のコメントが、自分たちの信用よりも、山口よりも、太野西潟よりも、他の実行犯よりも、まずこの人を優先して隠蔽してるのすごいな
もし本当にバーニング関連ならAKSや文春ごときがどうにもできないのは納得だけどhttps://t.co/LPSBXIYqyh
― こーや (@akoshizu) January 13, 2019
http://www.asyura2.com/19/senkyo256/msg/200.html#c22
[カルト20] 気象庁サックス・茨城県・震度４サックス、小野寺・ハゲは南海サックスを狙っている。そうである。 ポスト米英時代
8. 2019年1月15日 02:19:35 : FxhG1Vvojy : OU8eXBtFagI[4]
田布施御用達ってことか
さすがは影の内閣（電通）オタク・ビジネスアルファベット三文字
8. 2019年1月15日 02:19:35 : FxhG1Vvojy : OU8eXBtFagI[4]
田布施御用達ってことか
さすがは影の内閣（電通）オタク・ビジネスアルファベット三文字
https://biz-journal.jp/2014/04/post_4729.html
2014.04.27
エンタメエンタメ
小倉智昭、華原朋美から「（竹田氏の）相当強烈なことを聞いた」、二股求愛を裏付け証言
【この記事のキーワード】
小倉智昭, 竹田恒泰, 華原朋美
CD『夢やぶれて-I DREAMED A DREAM-』（華原朋美／ユニバーサルJ）
歌手・華原朋美との交際が取り沙汰されていた元慶応義塾大学講師・竹田恒泰氏が、華原へ求愛していたのと同時期に元AKB48・畑山亜梨沙との交際をスタートさせていたと一部メディアで報じられ、話題を呼んでいる。これを受け華原は4月26日、旅行先から帰国した成田空港で受けた取材に対し「信じてた方なので、一度は真剣に考えた方だったので、かなりショックでした」と落胆の様子を見せているが、その華原から「芸能界のお父さん」と呼ばれるほど親しいというフリーアナウンサー・小倉智昭は、27日10時〜放送のテレビ番組『ワイドナショー』（フジテレビ系）に出演し、竹田氏への批判を展開。さらに、竹田氏と華原の関係がかなり深まっていたことなども明かした。
番組内でテーマが竹田氏の“二股求愛騒動”に及ぶと小倉は、以前、華原から「（竹田氏と）お付き合いをしたいと思う。見てもらいたい。だから3人で食事をしてください」と言われていたと明かした。そして、華原から相談を受けた直後に小倉が司会を務めるテレビ番組『とくダネ！』（同）に竹田氏が出演した際、竹田氏も小倉に「そうですね、よろしくお願いします。今度、本当に食事してください」と話していたといい、小倉は「その頃じゃねえか、これ」と、畑山とのデート写真が撮られた時期と重なっていたことに憤慨した。
ちなみに小倉は、「優秀な人だし、竹田さんも。家柄ももちろん良いわけだ。本人たちがいいんだったら、いいんじゃないと思ってた」と語り、交際を認める気だったという。
さらに小倉は、竹田氏と華原の関係について、「実際に2人でデートしたりもしてるし、同じジムに通って、お揃いのトレーニングシューズ買って、トレーニング行ったりもしてたのよ。相当強烈なことを僕は本人から聞いたけど、それは言えないからね、ここじゃあね」と語り、2人の仲が深まっていたことも明かし、「両天秤はないよ、ホント」と竹田氏を批判した。
番組内ではこのほかにも、芸能リポーター・井上公造氏が「竹田さんが朋ちゃんを好きで猛アタックしていたことは事実。僕の取材した中で言うと、（交際申し込みへの回答を）待たされた時に、竹田さんの中で『これ、脈ないな』って思った気配がある」と分析。続けて井上氏は、「そこで畑山さんと食事会で知り合うのですが、そこから（畑山に）猛アタックしてるんですよ。そしたら落ちちゃった」と竹田氏と畑山の交際スタートのきっかけを話すとともに、「お付き合いが始まった時点で、朋ちゃんに『実はこうだ』って言っておけば、こんな騒動にはならなかった。朋ちゃんはそこでも悩んでるんですよ、年明けまで」と、竹田氏の対応の“まずさ”を指摘した。
一連の報道を受けて竹田氏への批判が強まる中、今後、竹田氏と畑山の関係、さらには竹田氏と華原との関係はどのような展開をみせるのか、しばらくは世間の注目を集めそうだ。
（文＝編集部）
http://www.asyura2.com/18/cult20/msg/228.html#c8
[政治・選挙・ＮＨＫ256] ＮＨＫは「報道」の看板を降ろせ！ 赤かぶ
23. 2019年1月15日 02:20:53 : FxhG1Vvojy : OU8eXBtFagI[5]
8. 2019年1月15日 02:19:35 : FxhG1Vvojy : OU8eXBtFagI[4] 報告
▲△▽▼
田布施御用達ってことか
さすがは影の内閣（電通）オタク・ビジネスアルファベット三文字
23. 2019年1月15日 02:20:53 : FxhG1Vvojy : OU8eXBtFagI[5]
8. 2019年1月15日 02:19:35 : FxhG1Vvojy : OU8eXBtFagI[4] 報告
▲△▽▼
田布施御用達ってことか
さすがは影の内閣（電通）オタク・ビジネスアルファベット三文字
https://biz-journal.jp/2014/04/post_4729.html
2014.04.27
エンタメエンタメ
小倉智昭、華原朋美から「（竹田氏の）相当強烈なことを聞いた」、二股求愛を裏付け証言
【この記事のキーワード】
小倉智昭, 竹田恒泰, 華原朋美
CD『夢やぶれて-I DREAMED A DREAM-』（華原朋美／ユニバーサルJ）
歌手・華原朋美との交際が取り沙汰されていた元慶応義塾大学講師・竹田恒泰氏が、華原へ求愛していたのと同時期に元AKB48・畑山亜梨沙との交際をスタートさせていたと一部メディアで報じられ、話題を呼んでいる。これを受け華原は4月26日、旅行先から帰国した成田空港で受けた取材に対し「信じてた方なので、一度は真剣に考えた方だったので、かなりショックでした」と落胆の様子を見せているが、その華原から「芸能界のお父さん」と呼ばれるほど親しいというフリーアナウンサー・小倉智昭は、27日10時〜放送のテレビ番組『ワイドナショー』（フジテレビ系）に出演し、竹田氏への批判を展開。さらに、竹田氏と華原の関係がかなり深まっていたことなども明かした。
番組内でテーマが竹田氏の“二股求愛騒動”に及ぶと小倉は、以前、華原から「（竹田氏と）お付き合いをしたいと思う。見てもらいたい。だから3人で食事をしてください」と言われていたと明かした。そして、華原から相談を受けた直後に小倉が司会を務めるテレビ番組『とくダネ！』（同）に竹田氏が出演した際、竹田氏も小倉に「そうですね、よろしくお願いします。今度、本当に食事してください」と話していたといい、小倉は「その頃じゃねえか、これ」と、畑山とのデート写真が撮られた時期と重なっていたことに憤慨した。
ちなみに小倉は、「優秀な人だし、竹田さんも。家柄ももちろん良いわけだ。本人たちがいいんだったら、いいんじゃないと思ってた」と語り、交際を認める気だったという。
さらに小倉は、竹田氏と華原の関係について、「実際に2人でデートしたりもしてるし、同じジムに通って、お揃いのトレーニングシューズ買って、トレーニング行ったりもしてたのよ。相当強烈なことを僕は本人から聞いたけど、それは言えないからね、ここじゃあね」と語り、2人の仲が深まっていたことも明かし、「両天秤はないよ、ホント」と竹田氏を批判した。
番組内ではこのほかにも、芸能リポーター・井上公造氏が「竹田さんが朋ちゃんを好きで猛アタックしていたことは事実。僕の取材した中で言うと、（交際申し込みへの回答を）待たされた時に、竹田さんの中で『これ、脈ないな』って思った気配がある」と分析。続けて井上氏は、「そこで畑山さんと食事会で知り合うのですが、そこから（畑山に）猛アタックしてるんですよ。そしたら落ちちゃった」と竹田氏と畑山の交際スタートのきっかけを話すとともに、「お付き合いが始まった時点で、朋ちゃんに『実はこうだ』って言っておけば、こんな騒動にはならなかった。朋ちゃんはそこでも悩んでるんですよ、年明けまで」と、竹田氏の対応の“まずさ”を指摘した。
一連の報道を受けて竹田氏への批判が強まる中、今後、竹田氏と畑山の関係、さらには竹田氏と華原との関係はどのような展開をみせるのか、しばらくは世間の注目を集めそうだ。
（文＝編集部）
http://www.asyura2.com/19/senkyo256/msg/200.html#c23
[政治・選挙・ＮＨＫ256] ガーベラ革命成就で共生社会を実現しよう（植草一秀の『知られざる真実』） 赤かぶ
2. 2019年1月27日 08:45:09 : FxhG1Vvojy : OU8eXBtFagI[6]
⇒《すべての人が笑顔で生きてゆける社会を実現する》
2. 2019年1月27日 08:45:09 : FxhG1Vvojy : OU8eXBtFagI[6]
⇒《すべての人が笑顔で生きてゆける社会を実現する》
いいですねぇ…
リベラルの真髄っぽくって…
もっと言えば浄土真宗っぽくって…
例外があってはならない。すべての人が笑顔で生きてゆける社会。
そういう社会を実現しましょう。
植草氏、がんばってください。応援しております。
http://www.asyura2.com/19/senkyo256/msg/729.html#c2
[政治・選挙・ＮＨＫ256] 安倍首相が施政方針演説でも嘘だらけ“アベノミクスの成果”を強弁！ 戦意高揚の短歌まで読み上げるカルト全開（リテラ） 赤かぶ
10. 2019年1月29日 11:11:01 : FxhG1Vvojy : OU8eXBtFagI[7]
小沢一郎（事務所）
「都合のよい数字をもとに延々と自慢話を繰り広げ、国民生活の実態から目をそむけた、中身空っぽの施政方針演説。偽装できない外交安保の失敗についてはほどんど語らず。評判の悪い憲法改正はすぐ引っ込める。もはや演説自体が隠ぺい、改ざんそのもの。国難総理による不正内閣を倒すために全力を尽くす。」
https://twitter.com/ozawa_jimusho/status/1090067230329466880
10. 2019年1月29日 11:11:01 : FxhG1Vvojy : OU8eXBtFagI[7]
小沢一郎（事務所）
「都合のよい数字をもとに延々と自慢話を繰り広げ、国民生活の実態から目をそむけた、中身空っぽの施政方針演説。偽装できない外交安保の失敗についてはほどんど語らず。評判の悪い憲法改正はすぐ引っ込める。もはや演説自体が隠ぺい、改ざんそのもの。国難総理による不正内閣を倒すために全力を尽くす。」
https://twitter.com/ozawa_jimusho/status/1090067230329466880
憲法改定が出来そうもなくなっただけでも、野党に拍手喝采ですよ。
少ない人数でよくやってます。頭が下がります。
http://www.asyura2.com/19/senkyo256/msg/790.html#c10
[お知らせ・管理21] 安全で安定な阿修羅掲示板の活用のために、ＨＴＭＬで入力された記事やコメントの書式をチェックするプログラムを公開します 新共産主義クラブ
15. 新共産主義クラブ[-10183] kFaLpI5ZjuWLYINOg4mDdQ 2019年1月30日 18:16:54 : FxhG1Vvojy : OU8eXBtFagI[8]
perl 5, version 26, subversion 1 (v5.26.1) で動作を確認した、Shift＿JIS用のモジュール「Chkmsg.pm version 0.21」を公開します。
0001: package Chkmsg;
0002: # Chkmsg.pm version 0.21 : This program checks the validity of the HTML data entered by users to ensure the security and the stability of Bulletin Board Systems.
0003: #
0004: # Jan. 16, 2019 - Jan. 30, 2019. New Communist Club
0005: #
0006: # This software is released both under the MIT license and under the CC0 1.0.
0007: #
0008: # Copyright (c) 2019 New Communist Club
0009: # Released under the MIT license
0010: # https://opensource.org/licenses/mit-license.php
0011: #
0012: # CC0 1.0 Universal
0013: # https://creativecommons.org/publicdomain/zero/1.0/legalcode.ja
0014: #
0015: #
0016: use strict;
0017: use warnings;
0018: use Encode;
0019:
0020: # global variables
0021: our $charset = 'Shift_JIS';
0022: our $encoding = 'shiftjis';
0023: # our $charset = 'utf-8';
0024: # our $encoding = 'utf8';
0025:
0026: our $error_description_filename = "/etc/perl/error_description.txt";
0027:
0028: our @valid_script_tag=(
0029: #'<script async src="https://platform.twitter.com/widgets.js" charset="utf-8"></script>', # As is.
0030: '<script async src="https:\\/\\/platform\\.twitter\\.com\\/widgets\\.js" charset="utf-8"><\\/script>', # RegExp
0031: );
0032:
0033: our @valid_iframe_src_uri=(
0034: "^https:\\/\\/www\\.youtube\\.com\\/embed\\/[\\w]{11}\$" # same as "^https:\\/\\/www\\.youtube\\.com\\/embed\\/[_a-zA-Z0-9]{11}\$"
0035: );
0036:
0037: our %valid_single_tag_elements=(
0038: br=>1,
0039: img=>1
0040: );
0041:
0042: our %valid_paired_tags_elements=(
0043: iframe=>2,
0044: div=>2,
0045: span=>2,
0046: h1=>2,
0047: h2=>2,
0048: h3=>2,
0049: h4=>2,
0050: h5=>2,
0051: h6=>2,
0052: p=>2,
0053: pre=>2,
0054: blockquote=>2,
0055: q=>2,
0056: cite=>2,
0057: dfn=>2,
0058: em=>2,
0059: strong=>2,
0060: sup=>2,
0061: sub=>2,
0062: code=>2,
0063: kbd=>2,
0064: samp=>2,
0065: var=>2,
0066: abbr=>2,
0067: acronym=>2,
0068: ins=>2,
0069: del=>2,
0070: bdo=>2,
0071: font=>2,
0072: big=>2,
0073: small=>2,
0074: b=>2,
0075: i=>2,
0076: tt=>2,
0077: strike=>2,
0078: s=>2,
0079: u=>2,
0080: ul=>2,
0081: ol=>2,
0082: li=>2,
0083: a=>2,
0084: );
0085:
0086: our $true = (1==1);
0087: our $false = ! $true;
0088: # end of global variables
0089:
0090: # sub chkmsg
0091: # args: string $usrmsg
0092: # returns: (boolean $ack, string $reply)
0093: # if $usrmsg is well-fored HTML message, sub chkmsg returns array ($ack = $true, $reply = corrected user's HTML message).
0094: # if $usrmsg is non-well-formed HTML message, sub chkmsg returns array ($ack = $false, $reply = error message).
0095: sub chkmsg {
0096:
0097: my ($usrmsg) = @_;
0098:
0099: my $usrmsg_r1=$usrmsg;
0100:
0101: $usrmsg_r1 =~ s/<(\s*)!(\s*)-(\s*)-/"<!--" . margin($1.$2.$3)/eg;
0102: $usrmsg_r1 =~ s/-(\s*)-(\s*)>/margin($1.$2) . "-->"/eg;
0103:
0104: my $usrmsg_r1_len=length($usrmsg_r1);
0105:
0106: my @cmt_lt_ary;
0107: my @cmt_gt_ary;
0108: my $p=0;
0109: while($p<$usrmsg_r1_len){
0110: $p=index $usrmsg_r1, "<!--", $p;
0111: if($p<0){
0112: last;
0113: }
0114: push @cmt_lt_ary, $p;
0115: $p+=4;
0116: }
0117:
0118: $p=0;
0119: while($p<$usrmsg_r1_len){
0120: $p=index $usrmsg_r1, "-->", $p;
0121: if($p<0){
0122: last;
0123: }
0124: push @cmt_gt_ary, $p+2;
0125: $p+=3;
0126: }
0127:
0128: my $cmt_lt_ary_sz=@cmt_lt_ary;
0129: my $cmt_gt_ary_sz=@cmt_gt_ary;
0130:
0131: if($cmt_lt_ary_sz != $cmt_gt_ary_sz){
0132: return ($false, errmsg(10, __LINE__, ""));
0133: }
0134:
0135: my $num_cmt=$cmt_lt_ary_sz;
0136:
0137: if($num_cmt>=1){
0138: if($num_cmt==1){
0139: if($cmt_lt_ary[0]>=$cmt_gt_ary[0]){
0140: return ($false, errmsg(20, __LINE__, ""));
0141: }
0142: }else{
0143: for(my $i=0; $i<$num_cmt-1; $i++){
0144: if($cmt_lt_ary[$i]>=$cmt_gt_ary[$i]){
0145: return ($false, errmsg(30, __LINE__, ""));
0146: }
0147: if($cmt_gt_ary[$i]>=$cmt_lt_ary[$i+1]){
0148: return ($false, errmsg(40, __LINE__, ""));
0149: }
0150: }
0151: if($cmt_lt_ary[$num_cmt-1]>=$cmt_gt_ary[$num_cmt-1]){
0152: return ($false, errmsg(50, __LINE__, ""));
0153: }
0154: }
0155: }
0156:
0157: # comments are replaced by white spaces
0158: my $usrmsg_r2=$usrmsg_r1;
0159:
0160: for(my $i=0; $i<$num_cmt; $i++){
0161: my $n=$cmt_gt_ary[$i]-$cmt_lt_ary[$i]+1;
0162: substr($usrmsg_r2, $cmt_lt_ary[$i], $n, space($n));
0163: }
0164:
0165: # correct left end of the tag
0166: $usrmsg_r2 =~ s/<(\s*)([a-zA-Z]+)/"<" . $2 . margin($1)/eg;
0167: $usrmsg_r2 =~ s/<(\s*)\/(\s*)([a-zA-Z]+)/"<\/" . $3 . margin($1 . $2)/eg;
0168:
0169: # correct right end of the single tag
0170: $usrmsg_r2 =~ s/\/(\s*)>/margin($1) . "\/>"/eg;
0171: # "
0172:
0173: # make tag start and end position array, lt_ary, gt_ary
0174: my $usrmsg_r2_len=length($usrmsg_r2);
0175: my @lt_ary;
0176: my @gt_ary;
0177:
0178: $p=0;
0179: while($p<$usrmsg_r2_len){
0180: $p=index $usrmsg_r2, "<", $p;
0181: if($p<0){
0182: last;
0183: }
0184: push @lt_ary, $p;
0185: $p++;
0186: }
0187:
0188: $p=0;
0189: while($p<$usrmsg_r2_len){
0190: $p=index $usrmsg_r2, ">", $p;
0191: if($p<0){
0192: last;
0193: }
0194: push @gt_ary, $p;
0195: $p++;
0196: }
0197:
0198: my $lt_ary_sz=@lt_ary;
0199: my $gt_ary_sz=@gt_ary;
0200:
0201: if($lt_ary_sz != $gt_ary_sz){
0202: return ($false, errmsg(60, __LINE__, ""));
0203: }
0204:
0205: my $num_tag=$lt_ary_sz;
0206:
0207: if($num_tag>=1){
0208: if($num_tag==1){
0209: if($lt_ary[0]>=$gt_ary[0]){
0210: return ($false, errmsg(70, __LINE__, ""));
0211: }
0212: }else{
0213: for(my $i=0; $i<$num_tag-1; $i++){
0214: if($lt_ary[$i]>=$gt_ary[$i]){
0215: return ($false, errmsg(80, __LINE__, ""));
0216: }
0217: if($gt_ary[$i]>=$lt_ary[$i+1]){
0218: return ($false, errmsg(90, __LINE__, ""));
0219: }
0220: }
0221: if($lt_ary[$num_cmt-1]>=$gt_ary[$num_cmt-1]){
0222: return ($false, errmsg(100, __LINE__, ""));
0223: }
0224: }
0225: }
0226:
0227: # analyze tag
0228: my @paired_tags_name_ary;
0229: my @paired_tags_type_ary;
0230: for(my $i=0; $i < $num_tag; $i++){
0231: my $tag = substr($usrmsg_r2, $lt_ary[$i], $gt_ary[$i]-$lt_ary[$i]+1);
0232: if( $tag =~ /^<(h[1-6]{1}|[a-z]+)/i){
0233: my $tag_name = lc($1);
0234: my $l1=exists $valid_single_tag_elements{$tag_name};
0235: my $l2=exists $valid_paired_tags_elements{$tag_name};
0236: my $l3=$tag_name eq "script";
0237:
0238: if($l2){
0239: push(@paired_tags_name_ary, $tag_name);
0240: push(@paired_tags_type_ary, "StartTag");
0241: }
0242:
0243: if($l1||$l2){
0244: my $str = substr($tag, length($tag_name)+1);
0245: my ($ack, $reply)=analyze_attr_val($str, $tag_name);
0246: if(!$ack){
0247: return ($false, $reply);
0248: }
0249: }elsif($l3){
0250: my $str=substr($usrmsg_r2, $lt_ary[$i], $gt_ary[$i]+length("</script>")-$lt_ary[$i]+1);
0251: # if($str ne $valid_script_tag[0]){
0252: # return ($false, errmsg(120, __LINE__, $str));
0253: # }
0254: if(!chk_script_tag($str)){
0255: return ($false, errmsg(120, __LINE__, $str));
0256: }
0257: push(@paired_tags_name_ary, $tag_name);
0258: push(@paired_tags_type_ary, "StartTag");
0259: }else{
0260: return ($false, errmsg(130, __LINE__, $tag_name));
0261: }
0262: }elsif($tag =~ /^<\/(h[1-6]{1}|[a-z]+)\s*/i){
0263: my $tag_name=lc($1);
0264: if(exists $valid_paired_tags_elements{$tag_name}){
0265: push(@paired_tags_name_ary, $tag_name);
0266: push(@paired_tags_type_ary, "EndTag");
0267: }elsif($tag_name eq "script"){
0268: push(@paired_tags_name_ary, $tag_name);
0269: push(@paired_tags_type_ary, "EndTag");
0270: }else{
0271: return ($false, errmsg(140, __LINE__, $tag_name));
0272: }
0273: }else{
0274: return ($false, errmsg(150, __LINE__, $tag)); # !StartTag && !EndTag
0275: }
0276: }
0277:
0278: # Check Pairing and Nesting of StartTags and EndTags
0279: my @tag_name_stack;
0280: my @tag_type_stack;
0281:
0282: my $ary_sz=@paired_tags_type_ary;
0283: my $stack_sz;
0284:
0285: for(my $i=0; $i<$ary_sz; $i++){
0286: if($paired_tags_type_ary[$i] eq "StartTag"){
0287: push @tag_name_stack, $paired_tags_name_ary[$i];
0288: push @tag_type_stack, $paired_tags_type_ary[$i];
0289: }else{ # $paired_tags_type_ary[$i] eq "EndTag";
0290: $stack_sz=@tag_type_stack;
0291: if($stack_sz>0){
0292: my $toptag_type=pop @tag_type_stack;
0293: my $toptag_name=pop @tag_name_stack;
0294: if($toptag_type ne "StartTag"){
0295: return ($false, errmsg(160, __LINE__, ""));
0296: }
0297: if($toptag_name ne $paired_tags_name_ary[$i]){
0298: return ($false, errmsg(170, __LINE__, ""));
0299: }
0300: }else{
0301: return ($false, errmsg(180, __LINE__, ""));
0302: }
0303: }
0304: }
0305:
0306: $stack_sz=@tag_type_stack;
0307: if($stack_sz > 0){
0308: return ($false, errmsg(190, __LINE__, ""));
0309: }
0310: # End of Check Pairing and Nesting of StartTags and EndTags
0311:
0312:
0313: # comment retrieve
0314: for(my $i=0; $i<$num_cmt; $i++){
0315: my $n=$cmt_gt_ary[$i]-$cmt_lt_ary[$i]+1;
0316: substr($usrmsg_r2, $cmt_lt_ary[$i], $n, substr($usrmsg_r1, $cmt_lt_ary[$i], $n));
0317: }
0318:
0319: my $usrmsg_r3;
0320: my $in_tag=$false;
0321: # my $usrmsg_r2_len = length($usrmsg_r2);
0322: my $c;
0323:
0324: # HTML escape in Content
0325: for(my $p=0; $p<$usrmsg_r2_len; $p++){
0326: $c=substr($usrmsg_r2, $p, 1);
0327: if($c eq "<"){
0328: $usrmsg_r3 .= "<";
0329: $in_tag=$true;
0330: next;
0331: }elsif($c eq ">"){
0332: $usrmsg_r3 .= ">";
0333: $in_tag=$false;
0334: next;
0335: }elsif($c eq "&"){
0336: if($in_tag){
0337: $usrmsg_r3 .= "&";
0338: next;
0339: }else{
0340: if(chk_char_entity_ref_num_char_ref($usrmsg_r2, $p)){
0341: $usrmsg_r3 .= "&";
0342: next;
0343: }else{
0344: $usrmsg_r3 .= escape_html_char("&");
0345: next;
0346: }
0347: }
0348: }else{
0349: if($in_tag){
0350: $usrmsg_r3 .= $c;
0351: next;
0352: }else{
0353: $usrmsg_r3 .= escape_html_char($c);
0354: next;
0355: }
0356: }
0357: }
0358:
0359: return ($true, $usrmsg_r3);
0360: }
0361: # end of sub chkmsg
0362:
0363: # sub margin: replace \t -> space, \n -> space, space -> space
0364: sub margin {
0365: my ($str) = @_;
0366: $str =~ s/\s/ /g;
0367: return $str;
0368: }
0369: # end of sub margin
0370:
0371:
0372: # sub space: returns n spaces string
0373: sub space {
0374: my ($n) = @_;
0375: my $str;
0376: for(my $i=0; $i<$n; $i++){
0377: $str .= " ";
0378: }
0379: return $str;
0380: }
0381: # end of sub space
0382:
0383:
0384: # sub escape_html_char: returns character entity references for " & ' < >
0385: sub escape_html_char {
0386: my ($c) = @_;
0387: if($c eq '"'){
0388: return """;
0389: }elsif($c eq "&"){
0390: return "&";
0391: }elsif($c eq "'"){
0392: return "'";
0393: }elsif($c eq "<"){
0394: return "<";
0395: }elsif($c eq ">"){
0396: return ">";
0397: }else{
0398: return $c;
0399: }
0400: }
0401: # end of sub escape_html_char
0402:
0403:
0404: # sub escape_html: " & ' < > in the string are replaced by character entity references
0405: sub escape_html {
0406: my ($str) = @_;
0407: my $str_len=length($str);
0408: my $str1="";
0409: for(my $p=0; $p<$str_len; $p++){
0410: my $c=substr($str, $p, 1);
0411: $str1 .= escape_html_char($c);
0412: }
0413: return $str1;
0414: }
0415: # end of sub escape_html
0416:
0417:
0418: # sub analyze_attr_val: analyze attributes and values in a tag
0419: sub analyze_attr_val {
0420: my ($str, $tag_name) = @_;
0421: while(length($str)>0){
0422: my $attribute;
0423: my $value;
0424: my $p;
0425: my $l1=$false;
0426: my $l2=$false;
0427: if($str =~ /^(\s+)([a-zA-Z]+)(\s*=\s*)\"(\s*)([^<>]*)(\s*)\"/i){
0428: $attribute=lc($2);
0429: $value=$5;
0430: $p=length($1.$2.$3.$4.$5.$6)+2;
0431: $l1=$true;
0432: }elsif($str =~ /^(\s+)([a-zA-Z]+)(\s*=\s*)\'(\s*)([^<>]*)(\s*)\'/i){
0433: $attribute=lc($2);
0434: $value=$5;
0435: $p=length($1.$2.$3.$4.$5.$6)+2;
0436: $l2=$true;
0437: }else{
0438: ;
0439: }
0440: if( $l1 || $l2 ){
0441: if(substr($attribute, 0, 2) eq "on"){
0442: return ($false, errmsg(230,__LINE__,$str));
0443: }
0444: if($attribute eq "srcdoc"){
0445: return ($false, errmsg(240,__LINE__,$str));
0446: }
0447: if($tag_name eq "iframe" && $attribute eq "src"){
0448: if(!chk_iframe_src($value)){
0449: return ($false, errmsg(250,__LINE__,$str));
0450: }
0451: }
0452: if($attribute eq "href"){
0453: if($value =~ /^https?:\/\//){
0454: ;
0455: }else{
0456: return ($false, errmsg(260,__LINE__,$str));
0457: }
0458: }
0459: $str=substr($str, $p);
0460: next;
0461: }elsif($str =~ /\s*>/){
0462: last;
0463: }elsif($str =~ /\s*\/\s*>/ && exists $valid_single_tag_elements{$tag_name}){
0464: last;
0465: }else{
0466: return ($false, errmsg(270,__LINE__,$str));
0467: }
0468: }
0469: return ($true,"");
0470: }
0471: # end of sub analyze_attr_val
0472:
0473:
0474: # sub chk_script_tag: check paired script tags
0475: sub chk_script_tag {
0476:
0477: my ($script_tag) = @_;
0478:
0479: my $allowed=$false;
0480: my $sz=@valid_script_tag;
0481: for(my $j=0; $j<$sz; $j++){
0482: if($script_tag =~ /$valid_script_tag[$j]/ ){
0483: $allowed=$true;
0484: last;
0485: }
0486: }
0487: return $allowed;
0488: }
0489: # end of sub chk_script_tag
0490:
0491:
0492: # sub chk_iframe_src: check value of src in iframe tag
0493: sub chk_iframe_src {
0494:
0495: my ($value) = @_;
0496:
0497: my $allowed_src=$false;
0498: my $sz=@valid_iframe_src_uri;
0499: for(my $j=0; $j<$sz; $j++){
0500: if($value =~ /$valid_iframe_src_uri[$j]/ ){
0501: $allowed_src=$true;
0502: last;
0503: }
0504: }
0505: return $allowed_src;
0506: }
0507: # end of sub chk_iframe_src
0508:
0509:
0510: # sub chk_char_entity_ref_num_char_ref: check if "&" refer to character entity reference or numeric character reference
0511: sub chk_char_entity_ref_num_char_ref {
0512:
0513: my ($msg, $p) = @_;
0514:
0515: my %character_entity_references=(
0516: nbsp => 0, iexcl => 0, cent => 0, pound => 0, curren => 0,
0517: yen => 0, brvbar => 0, sect => 0, uml => 0, copy => 0,
0518: ordf => 0, laquo => 0, not => 0, shy => 0, reg => 0,
0519: macr => 0, deg => 0, plusmn => 0, sup => 0, sup => 0,
0520: acute => 0, micro => 0, para => 0, middot => 0, cedil => 0,
0521: sup => 0, ordm => 0, raquo => 0, frac => 0, frac => 0,
0522: frac => 0, iquest => 0, Agrave => 0, Aacute => 0, Acirc => 0,
0523: Atilde => 0, Auml => 0, Aring => 0, AElig => 0, Ccedil => 0,
0524: Egrave => 0, Eacute => 0, Ecirc => 0, Euml => 0, Igrave => 0,
0525: Iacute => 0, Icirc => 0, Iuml => 0, ETH => 0, Ntilde => 0,
0526: Ograve => 0, Oacute => 0, Ocirc => 0, Otilde => 0, Ouml => 0,
0527: times => 0, Oslash => 0, Ugrave => 0, Uacute => 0, Ucirc => 0,
0528: Uuml => 0, Yacute => 0, THORN => 0, szlig => 0, agrave => 0,
0529: aacute => 0, acirc => 0, atilde => 0, auml => 0, aring => 0,
0530: aelig => 0, ccedil => 0, egrave => 0, eacute => 0, ecirc => 0,
0531: euml => 0, igrave => 0, iacute => 0, icirc => 0, iuml => 0,
0532: eth => 0, ntilde => 0, ograve => 0, oacute => 0, ocirc => 0,
0533: otilde => 0, ouml => 0, divide => 0, oslash => 0, ugrave => 0,
0534: uacute => 0, ucirc => 0, uuml => 0, yacute => 0, thorn => 0,
0535: yuml => 0, fnof => 0, Alpha => 0, Beta => 0, Gamma => 0,
0536: Delta => 0, Epsilon => 0, Zeta => 0, Eta => 0, Theta => 0,
0537: Iota => 0, Kappa => 0, Lambda => 0, Mu => 0, Nu => 0,
0538: Xi => 0, Omicron => 0, Pi => 0, Rho => 0, Sigma => 0,
0539: Tau => 0, Upsilon => 0, Phi => 0, Chi => 0, Psi => 0,
0540: Omega => 0, alpha => 0, beta => 0, gamma => 0, delta => 0,
0541: epsilon => 0, zeta => 0, eta => 0, theta => 0, iota => 0,
0542: kappa => 0, lambda => 0, mu => 0, nu => 0, xi => 0,
0543: omicron => 0, pi => 0, rho => 0, sigmaf => 0, sigma => 0,
0544: tau => 0, upsilon => 0, phi => 0, chi => 0, psi => 0,
0545: omega => 0, thetasym => 0, upsih => 0, piv => 0, bull => 0,
0546: hellip => 0, prime => 0, Prime => 0, oline => 0, frasl => 0,
0547: weierp => 0, image => 0, real => 0, trade => 0, alefsym => 0,
0548: larr => 0, uarr => 0, rarr => 0, darr => 0, harr => 0,
0549: crarr => 0, lArr => 0, uArr => 0, rArr => 0, dArr => 0,
0550: hArr => 0, forall => 0, part => 0, exist => 0, empty => 0,
0551: nabla => 0, isin => 0, notin => 0, ni => 0, prod => 0,
0552: sum => 0, minus => 0, lowast => 0, radic => 0, prop => 0,
0553: infin => 0, ang => 0, and => 0, or => 0, cap => 0,
0554: cup => 0, int => 0, there => 0, sim => 0, cong => 0,
0555: asymp => 0, ne => 0, equiv => 0, le => 0, ge => 0,
0556: sub => 0, sup => 0, nsub => 0, sube => 0, supe => 0,
0557: oplus => 0, otimes => 0, perp => 0, sdot => 0, lceil => 0,
0558: rceil => 0, lfloor => 0, rfloor => 0, lang => 0, rang => 0,
0559: loz => 0, spades => 0, clubs => 0, hearts => 0, diams => 0,
0560: quot => 0, amp => 0, lt => 0, gt => 0, OElig => 0,
0561: oelig => 0, Scaron => 0, scaron => 0, Yuml => 0, circ => 0,
0562: tilde => 0, ensp => 0, emsp => 0, thinsp => 0, zwnj => 0,
0563: zwj => 0, lrm => 0, rlm => 0, ndash => 0, mdash => 0,
0564: lsquo => 0, rsquo => 0, sbquo => 0, ldquo => 0, rdquo => 0,
0565: bdquo => 0, dagger => 0, Dagger => 0, permil => 0, lsaquo => 0,
0566: rsaquo => 0, euro => 0
0567: );
0568: my $str=substr($msg, $p+1, 9);
0569: if ($str eq ""){
0570: return $false;
0571: }else{
0572: my $q=index($str, ";");
0573: if($q >=0){
0574: my $str1=substr($str, 0, $q);
0575: if(exists $character_entity_references{$str1}){ # character entity reference
0576: return $true;
0577: }elsif($str1 =~ /^#[0-9]+$/){ # decimal numeric character reference
0578: return $true;
0579: }elsif($str1 =~ /^#x[0-9a-f]+$/i){ # hexadecimal numeric character reference
0580: return $true;
0581: }else{
0582: return $false;
0583: }
0584: }else{
0585: return $false;
0586: }
0587: }
0588: }
0589: # end of sub chk_char_entity_ref_num_char_ref
0590:
0591:
0592: # sub errmsg: make error message in HTML
0593: sub errmsg {
0594: my ($errnum, $errline, $wrong_code) = @_;
0595:
0596: open my $fh, '<', $error_description_filename or die $!;
0597: my $text = do { local $/ = undef; <$fh>; };
0598: my @lines = split ( /\n/, $text);
0599: my %description;
0600: foreach my $line (@lines) {
0601: if($line ne ""){
0602: my @items = split( /\t/, $line);
0603: my $err_num = shift @items;
0604: my $err_txt = shift @items;
0605: $err_txt = Encode::decode($encoding, $err_txt);
0606: $description{$err_num} = $err_txt;
0607: }
0608: }
0609: my $error_title='<h1>' . 'Error ' . $errline . '</h1>';
0610: $wrong_code='<pre><strong><font color="red">' . escape_html($wrong_code) . '</font></strong></pre>';
0611: my $error_description= '<p>'. escape_html($description{$errnum}) . '</p>';
0612: my $errmsg_body = $error_title . $wrong_code . $error_description;
0613:
0614: return $errmsg_body;
0615: }
0616: # end of sub errmsg
0617:
0618: 1;
0619:
http://www.asyura2.com/13/kanri21/msg/545.html#c15
15. 新共産主義クラブ[-10183] kFaLpI5ZjuWLYINOg4mDdQ 2019年1月30日 18:16:54 : FxhG1Vvojy : OU8eXBtFagI[8]
perl 5, version 26, subversion 1 (v5.26.1) で動作を確認した、Shift＿JIS用のモジュール「Chkmsg.pm version 0.21」を公開します。
0001: package Chkmsg;
0002: # Chkmsg.pm version 0.21 : This program checks the validity of the HTML data entered by users to ensure the security and the stability of Bulletin Board Systems.
0003: #
0004: # Jan. 16, 2019 - Jan. 30, 2019. New Communist Club
0005: #
0006: # This software is released both under the MIT license and under the CC0 1.0.
0007: #
0008: # Copyright (c) 2019 New Communist Club
0009: # Released under the MIT license
0010: # https://opensource.org/licenses/mit-license.php
0011: #
0012: # CC0 1.0 Universal
0013: # https://creativecommons.org/publicdomain/zero/1.0/legalcode.ja
0014: #
0015: #
0016: use strict;
0017: use warnings;
0018: use Encode;
0019:
0020: # global variables
0021: our $charset = 'Shift_JIS';
0022: our $encoding = 'shiftjis';
0023: # our $charset = 'utf-8';
0024: # our $encoding = 'utf8';
0025:
0026: our $error_description_filename = "/etc/perl/error_description.txt";
0027:
0028: our @valid_script_tag=(
0029: #'<script async src="https://platform.twitter.com/widgets.js" charset="utf-8"></script>', # As is.
0030: '<script async src="https:\\/\\/platform\\.twitter\\.com\\/widgets\\.js" charset="utf-8"><\\/script>', # RegExp
0031: );
0032:
0033: our @valid_iframe_src_uri=(
0034: "^https:\\/\\/www\\.youtube\\.com\\/embed\\/[\\w]{11}\$" # same as "^https:\\/\\/www\\.youtube\\.com\\/embed\\/[_a-zA-Z0-9]{11}\$"
0035: );
0036:
0037: our %valid_single_tag_elements=(
0038: br=>1,
0039: img=>1
0040: );
0041:
0042: our %valid_paired_tags_elements=(
0043: iframe=>2,
0044: div=>2,
0045: span=>2,
0046: h1=>2,
0047: h2=>2,
0048: h3=>2,
0049: h4=>2,
0050: h5=>2,
0051: h6=>2,
0052: p=>2,
0053: pre=>2,
0054: blockquote=>2,
0055: q=>2,
0056: cite=>2,
0057: dfn=>2,
0058: em=>2,
0059: strong=>2,
0060: sup=>2,
0061: sub=>2,
0062: code=>2,
0063: kbd=>2,
0064: samp=>2,
0065: var=>2,
0066: abbr=>2,
0067: acronym=>2,
0068: ins=>2,
0069: del=>2,
0070: bdo=>2,
0071: font=>2,
0072: big=>2,
0073: small=>2,
0074: b=>2,
0075: i=>2,
0076: tt=>2,
0077: strike=>2,
0078: s=>2,
0079: u=>2,
0080: ul=>2,
0081: ol=>2,
0082: li=>2,
0083: a=>2,
0084: );
0085:
0086: our $true = (1==1);
0087: our $false = ! $true;
0088: # end of global variables
0089:
0090: # sub chkmsg
0091: # args: string $usrmsg
0092: # returns: (boolean $ack, string $reply)
0093: # if $usrmsg is well-fored HTML message, sub chkmsg returns array ($ack = $true, $reply = corrected user's HTML message).
0094: # if $usrmsg is non-well-formed HTML message, sub chkmsg returns array ($ack = $false, $reply = error message).
0095: sub chkmsg {
0096:
0097: my ($usrmsg) = @_;
0098:
0099: my $usrmsg_r1=$usrmsg;
0100:
0101: $usrmsg_r1 =~ s/<(\s*)!(\s*)-(\s*)-/"<!--" . margin($1.$2.$3)/eg;
0102: $usrmsg_r1 =~ s/-(\s*)-(\s*)>/margin($1.$2) . "-->"/eg;
0103:
0104: my $usrmsg_r1_len=length($usrmsg_r1);
0105:
0106: my @cmt_lt_ary;
0107: my @cmt_gt_ary;
0108: my $p=0;
0109: while($p<$usrmsg_r1_len){
0110: $p=index $usrmsg_r1, "<!--", $p;
0111: if($p<0){
0112: last;
0113: }
0114: push @cmt_lt_ary, $p;
0115: $p+=4;
0116: }
0117:
0118: $p=0;
0119: while($p<$usrmsg_r1_len){
0120: $p=index $usrmsg_r1, "-->", $p;
0121: if($p<0){
0122: last;
0123: }
0124: push @cmt_gt_ary, $p+2;
0125: $p+=3;
0126: }
0127:
0128: my $cmt_lt_ary_sz=@cmt_lt_ary;
0129: my $cmt_gt_ary_sz=@cmt_gt_ary;
0130:
0131: if($cmt_lt_ary_sz != $cmt_gt_ary_sz){
0132: return ($false, errmsg(10, __LINE__, ""));
0133: }
0134:
0135: my $num_cmt=$cmt_lt_ary_sz;
0136:
0137: if($num_cmt>=1){
0138: if($num_cmt==1){
0139: if($cmt_lt_ary[0]>=$cmt_gt_ary[0]){
0140: return ($false, errmsg(20, __LINE__, ""));
0141: }
0142: }else{
0143: for(my $i=0; $i<$num_cmt-1; $i++){
0144: if($cmt_lt_ary[$i]>=$cmt_gt_ary[$i]){
0145: return ($false, errmsg(30, __LINE__, ""));
0146: }
0147: if($cmt_gt_ary[$i]>=$cmt_lt_ary[$i+1]){
0148: return ($false, errmsg(40, __LINE__, ""));
0149: }
0150: }
0151: if($cmt_lt_ary[$num_cmt-1]>=$cmt_gt_ary[$num_cmt-1]){
0152: return ($false, errmsg(50, __LINE__, ""));
0153: }
0154: }
0155: }
0156:
0157: # comments are replaced by white spaces
0158: my $usrmsg_r2=$usrmsg_r1;
0159:
0160: for(my $i=0; $i<$num_cmt; $i++){
0161: my $n=$cmt_gt_ary[$i]-$cmt_lt_ary[$i]+1;
0162: substr($usrmsg_r2, $cmt_lt_ary[$i], $n, space($n));
0163: }
0164:
0165: # correct left end of the tag
0166: $usrmsg_r2 =~ s/<(\s*)([a-zA-Z]+)/"<" . $2 . margin($1)/eg;
0167: $usrmsg_r2 =~ s/<(\s*)\/(\s*)([a-zA-Z]+)/"<\/" . $3 . margin($1 . $2)/eg;
0168:
0169: # correct right end of the single tag
0170: $usrmsg_r2 =~ s/\/(\s*)>/margin($1) . "\/>"/eg;
0171: # "
0172:
0173: # make tag start and end position array, lt_ary, gt_ary
0174: my $usrmsg_r2_len=length($usrmsg_r2);
0175: my @lt_ary;
0176: my @gt_ary;
0177:
0178: $p=0;
0179: while($p<$usrmsg_r2_len){
0180: $p=index $usrmsg_r2, "<", $p;
0181: if($p<0){
0182: last;
0183: }
0184: push @lt_ary, $p;
0185: $p++;
0186: }
0187:
0188: $p=0;
0189: while($p<$usrmsg_r2_len){
0190: $p=index $usrmsg_r2, ">", $p;
0191: if($p<0){
0192: last;
0193: }
0194: push @gt_ary, $p;
0195: $p++;
0196: }
0197:
0198: my $lt_ary_sz=@lt_ary;
0199: my $gt_ary_sz=@gt_ary;
0200:
0201: if($lt_ary_sz != $gt_ary_sz){
0202: return ($false, errmsg(60, __LINE__, ""));
0203: }
0204:
0205: my $num_tag=$lt_ary_sz;
0206:
0207: if($num_tag>=1){
0208: if($num_tag==1){
0209: if($lt_ary[0]>=$gt_ary[0]){
0210: return ($false, errmsg(70, __LINE__, ""));
0211: }
0212: }else{
0213: for(my $i=0; $i<$num_tag-1; $i++){
0214: if($lt_ary[$i]>=$gt_ary[$i]){
0215: return ($false, errmsg(80, __LINE__, ""));
0216: }
0217: if($gt_ary[$i]>=$lt_ary[$i+1]){
0218: return ($false, errmsg(90, __LINE__, ""));
0219: }
0220: }
0221: if($lt_ary[$num_cmt-1]>=$gt_ary[$num_cmt-1]){
0222: return ($false, errmsg(100, __LINE__, ""));
0223: }
0224: }
0225: }
0226:
0227: # analyze tag
0228: my @paired_tags_name_ary;
0229: my @paired_tags_type_ary;
0230: for(my $i=0; $i < $num_tag; $i++){
0231: my $tag = substr($usrmsg_r2, $lt_ary[$i], $gt_ary[$i]-$lt_ary[$i]+1);
0232: if( $tag =~ /^<(h[1-6]{1}|[a-z]+)/i){
0233: my $tag_name = lc($1);
0234: my $l1=exists $valid_single_tag_elements{$tag_name};
0235: my $l2=exists $valid_paired_tags_elements{$tag_name};
0236: my $l3=$tag_name eq "script";
0237:
0238: if($l2){
0239: push(@paired_tags_name_ary, $tag_name);
0240: push(@paired_tags_type_ary, "StartTag");
0241: }
0242:
0243: if($l1||$l2){
0244: my $str = substr($tag, length($tag_name)+1);
0245: my ($ack, $reply)=analyze_attr_val($str, $tag_name);
0246: if(!$ack){
0247: return ($false, $reply);
0248: }
0249: }elsif($l3){
0250: my $str=substr($usrmsg_r2, $lt_ary[$i], $gt_ary[$i]+length("</script>")-$lt_ary[$i]+1);
0251: # if($str ne $valid_script_tag[0]){
0252: # return ($false, errmsg(120, __LINE__, $str));
0253: # }
0254: if(!chk_script_tag($str)){
0255: return ($false, errmsg(120, __LINE__, $str));
0256: }
0257: push(@paired_tags_name_ary, $tag_name);
0258: push(@paired_tags_type_ary, "StartTag");
0259: }else{
0260: return ($false, errmsg(130, __LINE__, $tag_name));
0261: }
0262: }elsif($tag =~ /^<\/(h[1-6]{1}|[a-z]+)\s*/i){
0263: my $tag_name=lc($1);
0264: if(exists $valid_paired_tags_elements{$tag_name}){
0265: push(@paired_tags_name_ary, $tag_name);
0266: push(@paired_tags_type_ary, "EndTag");
0267: }elsif($tag_name eq "script"){
0268: push(@paired_tags_name_ary, $tag_name);
0269: push(@paired_tags_type_ary, "EndTag");
0270: }else{
0271: return ($false, errmsg(140, __LINE__, $tag_name));
0272: }
0273: }else{
0274: return ($false, errmsg(150, __LINE__, $tag)); # !StartTag && !EndTag
0275: }
0276: }
0277:
0278: # Check Pairing and Nesting of StartTags and EndTags
0279: my @tag_name_stack;
0280: my @tag_type_stack;
0281:
0282: my $ary_sz=@paired_tags_type_ary;
0283: my $stack_sz;
0284:
0285: for(my $i=0; $i<$ary_sz; $i++){
0286: if($paired_tags_type_ary[$i] eq "StartTag"){
0287: push @tag_name_stack, $paired_tags_name_ary[$i];
0288: push @tag_type_stack, $paired_tags_type_ary[$i];
0289: }else{ # $paired_tags_type_ary[$i] eq "EndTag";
0290: $stack_sz=@tag_type_stack;
0291: if($stack_sz>0){
0292: my $toptag_type=pop @tag_type_stack;
0293: my $toptag_name=pop @tag_name_stack;
0294: if($toptag_type ne "StartTag"){
0295: return ($false, errmsg(160, __LINE__, ""));
0296: }
0297: if($toptag_name ne $paired_tags_name_ary[$i]){
0298: return ($false, errmsg(170, __LINE__, ""));
0299: }
0300: }else{
0301: return ($false, errmsg(180, __LINE__, ""));
0302: }
0303: }
0304: }
0305:
0306: $stack_sz=@tag_type_stack;
0307: if($stack_sz > 0){
0308: return ($false, errmsg(190, __LINE__, ""));
0309: }
0310: # End of Check Pairing and Nesting of StartTags and EndTags
0311:
0312:
0313: # comment retrieve
0314: for(my $i=0; $i<$num_cmt; $i++){
0315: my $n=$cmt_gt_ary[$i]-$cmt_lt_ary[$i]+1;
0316: substr($usrmsg_r2, $cmt_lt_ary[$i], $n, substr($usrmsg_r1, $cmt_lt_ary[$i], $n));
0317: }
0318:
0319: my $usrmsg_r3;
0320: my $in_tag=$false;
0321: # my $usrmsg_r2_len = length($usrmsg_r2);
0322: my $c;
0323:
0324: # HTML escape in Content
0325: for(my $p=0; $p<$usrmsg_r2_len; $p++){
0326: $c=substr($usrmsg_r2, $p, 1);
0327: if($c eq "<"){
0328: $usrmsg_r3 .= "<";
0329: $in_tag=$true;
0330: next;
0331: }elsif($c eq ">"){
0332: $usrmsg_r3 .= ">";
0333: $in_tag=$false;
0334: next;
0335: }elsif($c eq "&"){
0336: if($in_tag){
0337: $usrmsg_r3 .= "&";
0338: next;
0339: }else{
0340: if(chk_char_entity_ref_num_char_ref($usrmsg_r2, $p)){
0341: $usrmsg_r3 .= "&";
0342: next;
0343: }else{
0344: $usrmsg_r3 .= escape_html_char("&");
0345: next;
0346: }
0347: }
0348: }else{
0349: if($in_tag){
0350: $usrmsg_r3 .= $c;
0351: next;
0352: }else{
0353: $usrmsg_r3 .= escape_html_char($c);
0354: next;
0355: }
0356: }
0357: }
0358:
0359: return ($true, $usrmsg_r3);
0360: }
0361: # end of sub chkmsg
0362:
0363: # sub margin: replace \t -> space, \n -> space, space -> space
0364: sub margin {
0365: my ($str) = @_;
0366: $str =~ s/\s/ /g;
0367: return $str;
0368: }
0369: # end of sub margin
0370:
0371:
0372: # sub space: returns n spaces string
0373: sub space {
0374: my ($n) = @_;
0375: my $str;
0376: for(my $i=0; $i<$n; $i++){
0377: $str .= " ";
0378: }
0379: return $str;
0380: }
0381: # end of sub space
0382:
0383:
0384: # sub escape_html_char: returns character entity references for " & ' < >
0385: sub escape_html_char {
0386: my ($c) = @_;
0387: if($c eq '"'){
0388: return """;
0389: }elsif($c eq "&"){
0390: return "&";
0391: }elsif($c eq "'"){
0392: return "'";
0393: }elsif($c eq "<"){
0394: return "<";
0395: }elsif($c eq ">"){
0396: return ">";
0397: }else{
0398: return $c;
0399: }
0400: }
0401: # end of sub escape_html_char
0402:
0403:
0404: # sub escape_html: " & ' < > in the string are replaced by character entity references
0405: sub escape_html {
0406: my ($str) = @_;
0407: my $str_len=length($str);
0408: my $str1="";
0409: for(my $p=0; $p<$str_len; $p++){
0410: my $c=substr($str, $p, 1);
0411: $str1 .= escape_html_char($c);
0412: }
0413: return $str1;
0414: }
0415: # end of sub escape_html
0416:
0417:
0418: # sub analyze_attr_val: analyze attributes and values in a tag
0419: sub analyze_attr_val {
0420: my ($str, $tag_name) = @_;
0421: while(length($str)>0){
0422: my $attribute;
0423: my $value;
0424: my $p;
0425: my $l1=$false;
0426: my $l2=$false;
0427: if($str =~ /^(\s+)([a-zA-Z]+)(\s*=\s*)\"(\s*)([^<>]*)(\s*)\"/i){
0428: $attribute=lc($2);
0429: $value=$5;
0430: $p=length($1.$2.$3.$4.$5.$6)+2;
0431: $l1=$true;
0432: }elsif($str =~ /^(\s+)([a-zA-Z]+)(\s*=\s*)\'(\s*)([^<>]*)(\s*)\'/i){
0433: $attribute=lc($2);
0434: $value=$5;
0435: $p=length($1.$2.$3.$4.$5.$6)+2;
0436: $l2=$true;
0437: }else{
0438: ;
0439: }
0440: if( $l1 || $l2 ){
0441: if(substr($attribute, 0, 2) eq "on"){
0442: return ($false, errmsg(230,__LINE__,$str));
0443: }
0444: if($attribute eq "srcdoc"){
0445: return ($false, errmsg(240,__LINE__,$str));
0446: }
0447: if($tag_name eq "iframe" && $attribute eq "src"){
0448: if(!chk_iframe_src($value)){
0449: return ($false, errmsg(250,__LINE__,$str));
0450: }
0451: }
0452: if($attribute eq "href"){
0453: if($value =~ /^https?:\/\//){
0454: ;
0455: }else{
0456: return ($false, errmsg(260,__LINE__,$str));
0457: }
0458: }
0459: $str=substr($str, $p);
0460: next;
0461: }elsif($str =~ /\s*>/){
0462: last;
0463: }elsif($str =~ /\s*\/\s*>/ && exists $valid_single_tag_elements{$tag_name}){
0464: last;
0465: }else{
0466: return ($false, errmsg(270,__LINE__,$str));
0467: }
0468: }
0469: return ($true,"");
0470: }
0471: # end of sub analyze_attr_val
0472:
0473:
0474: # sub chk_script_tag: check paired script tags
0475: sub chk_script_tag {
0476:
0477: my ($script_tag) = @_;
0478:
0479: my $allowed=$false;
0480: my $sz=@valid_script_tag;
0481: for(my $j=0; $j<$sz; $j++){
0482: if($script_tag =~ /$valid_script_tag[$j]/ ){
0483: $allowed=$true;
0484: last;
0485: }
0486: }
0487: return $allowed;
0488: }
0489: # end of sub chk_script_tag
0490:
0491:
0492: # sub chk_iframe_src: check value of src in iframe tag
0493: sub chk_iframe_src {
0494:
0495: my ($value) = @_;
0496:
0497: my $allowed_src=$false;
0498: my $sz=@valid_iframe_src_uri;
0499: for(my $j=0; $j<$sz; $j++){
0500: if($value =~ /$valid_iframe_src_uri[$j]/ ){
0501: $allowed_src=$true;
0502: last;
0503: }
0504: }
0505: return $allowed_src;
0506: }
0507: # end of sub chk_iframe_src
0508:
0509:
0510: # sub chk_char_entity_ref_num_char_ref: check if "&" refer to character entity reference or numeric character reference
0511: sub chk_char_entity_ref_num_char_ref {
0512:
0513: my ($msg, $p) = @_;
0514:
0515: my %character_entity_references=(
0516: nbsp => 0, iexcl => 0, cent => 0, pound => 0, curren => 0,
0517: yen => 0, brvbar => 0, sect => 0, uml => 0, copy => 0,
0518: ordf => 0, laquo => 0, not => 0, shy => 0, reg => 0,
0519: macr => 0, deg => 0, plusmn => 0, sup => 0, sup => 0,
0520: acute => 0, micro => 0, para => 0, middot => 0, cedil => 0,
0521: sup => 0, ordm => 0, raquo => 0, frac => 0, frac => 0,
0522: frac => 0, iquest => 0, Agrave => 0, Aacute => 0, Acirc => 0,
0523: Atilde => 0, Auml => 0, Aring => 0, AElig => 0, Ccedil => 0,
0524: Egrave => 0, Eacute => 0, Ecirc => 0, Euml => 0, Igrave => 0,
0525: Iacute => 0, Icirc => 0, Iuml => 0, ETH => 0, Ntilde => 0,
0526: Ograve => 0, Oacute => 0, Ocirc => 0, Otilde => 0, Ouml => 0,
0527: times => 0, Oslash => 0, Ugrave => 0, Uacute => 0, Ucirc => 0,
0528: Uuml => 0, Yacute => 0, THORN => 0, szlig => 0, agrave => 0,
0529: aacute => 0, acirc => 0, atilde => 0, auml => 0, aring => 0,
0530: aelig => 0, ccedil => 0, egrave => 0, eacute => 0, ecirc => 0,
0531: euml => 0, igrave => 0, iacute => 0, icirc => 0, iuml => 0,
0532: eth => 0, ntilde => 0, ograve => 0, oacute => 0, ocirc => 0,
0533: otilde => 0, ouml => 0, divide => 0, oslash => 0, ugrave => 0,
0534: uacute => 0, ucirc => 0, uuml => 0, yacute => 0, thorn => 0,
0535: yuml => 0, fnof => 0, Alpha => 0, Beta => 0, Gamma => 0,
0536: Delta => 0, Epsilon => 0, Zeta => 0, Eta => 0, Theta => 0,
0537: Iota => 0, Kappa => 0, Lambda => 0, Mu => 0, Nu => 0,
0538: Xi => 0, Omicron => 0, Pi => 0, Rho => 0, Sigma => 0,
0539: Tau => 0, Upsilon => 0, Phi => 0, Chi => 0, Psi => 0,
0540: Omega => 0, alpha => 0, beta => 0, gamma => 0, delta => 0,
0541: epsilon => 0, zeta => 0, eta => 0, theta => 0, iota => 0,
0542: kappa => 0, lambda => 0, mu => 0, nu => 0, xi => 0,
0543: omicron => 0, pi => 0, rho => 0, sigmaf => 0, sigma => 0,
0544: tau => 0, upsilon => 0, phi => 0, chi => 0, psi => 0,
0545: omega => 0, thetasym => 0, upsih => 0, piv => 0, bull => 0,
0546: hellip => 0, prime => 0, Prime => 0, oline => 0, frasl => 0,
0547: weierp => 0, image => 0, real => 0, trade => 0, alefsym => 0,
0548: larr => 0, uarr => 0, rarr => 0, darr => 0, harr => 0,
0549: crarr => 0, lArr => 0, uArr => 0, rArr => 0, dArr => 0,
0550: hArr => 0, forall => 0, part => 0, exist => 0, empty => 0,
0551: nabla => 0, isin => 0, notin => 0, ni => 0, prod => 0,
0552: sum => 0, minus => 0, lowast => 0, radic => 0, prop => 0,
0553: infin => 0, ang => 0, and => 0, or => 0, cap => 0,
0554: cup => 0, int => 0, there => 0, sim => 0, cong => 0,
0555: asymp => 0, ne => 0, equiv => 0, le => 0, ge => 0,
0556: sub => 0, sup => 0, nsub => 0, sube => 0, supe => 0,
0557: oplus => 0, otimes => 0, perp => 0, sdot => 0, lceil => 0,
0558: rceil => 0, lfloor => 0, rfloor => 0, lang => 0, rang => 0,
0559: loz => 0, spades => 0, clubs => 0, hearts => 0, diams => 0,
0560: quot => 0, amp => 0, lt => 0, gt => 0, OElig => 0,
0561: oelig => 0, Scaron => 0, scaron => 0, Yuml => 0, circ => 0,
0562: tilde => 0, ensp => 0, emsp => 0, thinsp => 0, zwnj => 0,
0563: zwj => 0, lrm => 0, rlm => 0, ndash => 0, mdash => 0,
0564: lsquo => 0, rsquo => 0, sbquo => 0, ldquo => 0, rdquo => 0,
0565: bdquo => 0, dagger => 0, Dagger => 0, permil => 0, lsaquo => 0,
0566: rsaquo => 0, euro => 0
0567: );
0568: my $str=substr($msg, $p+1, 9);
0569: if ($str eq ""){
0570: return $false;
0571: }else{
0572: my $q=index($str, ";");
0573: if($q >=0){
0574: my $str1=substr($str, 0, $q);
0575: if(exists $character_entity_references{$str1}){ # character entity reference
0576: return $true;
0577: }elsif($str1 =~ /^#[0-9]+$/){ # decimal numeric character reference
0578: return $true;
0579: }elsif($str1 =~ /^#x[0-9a-f]+$/i){ # hexadecimal numeric character reference
0580: return $true;
0581: }else{
0582: return $false;
0583: }
0584: }else{
0585: return $false;
0586: }
0587: }
0588: }
0589: # end of sub chk_char_entity_ref_num_char_ref
0590:
0591:
0592: # sub errmsg: make error message in HTML
0593: sub errmsg {
0594: my ($errnum, $errline, $wrong_code) = @_;
0595:
0596: open my $fh, '<', $error_description_filename or die $!;
0597: my $text = do { local $/ = undef; <$fh>; };
0598: my @lines = split ( /\n/, $text);
0599: my %description;
0600: foreach my $line (@lines) {
0601: if($line ne ""){
0602: my @items = split( /\t/, $line);
0603: my $err_num = shift @items;
0604: my $err_txt = shift @items;
0605: $err_txt = Encode::decode($encoding, $err_txt);
0606: $description{$err_num} = $err_txt;
0607: }
0608: }
0609: my $error_title='<h1>' . 'Error ' . $errline . '</h1>';
0610: $wrong_code='<pre><strong><font color="red">' . escape_html($wrong_code) . '</font></strong></pre>';
0611: my $error_description= '<p>'. escape_html($description{$errnum}) . '</p>';
0612: my $errmsg_body = $error_title . $wrong_code . $error_description;
0613:
0614: return $errmsg_body;
0615: }
0616: # end of sub errmsg
0617:
0618: 1;
0619:
http://www.asyura2.com/13/kanri21/msg/545.html#c15
[政治・選挙・ＮＨＫ257] 「連合」の新年会にはせ参じた惨めな枝野幸男！ 赤かぶ
6. 新共産主義クラブ[-10489] kFaLpI5ZjuWLYINOg4mDdQ 2019年2月03日 15:01:28 : FxhG1Vvojy : OU8eXBtFagI[9]
>>5さん
阿修羅掲示板では、2年前くらいのことも、普通に昨日のことのように話題にします。
安倍は籠池と会っていた!! 「週刊朝日」がスクープ！
http://www.asyura2.com/19/senkyo256/msg/797.html
http://www.asyura2.com/19/senkyo257/msg/141.html#c6
6. 新共産主義クラブ[-10489] kFaLpI5ZjuWLYINOg4mDdQ 2019年2月03日 15:01:28 : FxhG1Vvojy : OU8eXBtFagI[9]
>>5さん
阿修羅掲示板では、2年前くらいのことも、普通に昨日のことのように話題にします。
安倍は籠池と会っていた!! 「週刊朝日」がスクープ！
http://www.asyura2.com/19/senkyo256/msg/797.html
http://www.asyura2.com/19/senkyo257/msg/141.html#c6
[経世済民130] 学歴に日本分断のリスク非大卒に意識を 学歴と人生の格差 「底辺校」出身の田舎者、東大に入って絶望 日本は学歴分断社会 うまき
11. 2019年2月06日 19:52:29 : FxhG1Vvojy : OU8eXBtFagI[10]
天皇由来で日本分断
日本、朝鮮、中国、ユダヤ、
隠れた意図は
11. 2019年2月06日 19:52:29 : FxhG1Vvojy : OU8eXBtFagI[10]
天皇由来で日本分断
日本、朝鮮、中国、ユダヤ、
隠れた意図は
日本分断
題名には必ず「阿修羅さんへ」と記述してください。