【 スクリプト改造工房 PART 6 】
■ このスレッドは過去ログ倉庫に格納されています
00011
03/03/16 18:28ID:vOOsWTxU# スレッドの説明
#================================
「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。
質問するときは以下の点に注意して書いて下さい
(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
※答えてくれないからといって逆ギレする厨はお断り
#================================
# 過去のスレッド
#================================
【PART1】行方不明
【PART2】http://pc.2ch.net/test/read.cgi/perl/986986227/
【PART3】http://pc.2ch.net/php/kako/988/988808396.html (HTML化済み)
0558nobodyさん
03/07/12 11:20ID:dkTTYYjg※リンクレイアスとはしたらばで使われている名前>>ＵＲＬと書くことで<a href="url">名前</a>
に置き換わる機能です。
0559558
03/07/12 11:21ID:dkTTYYjghttp://zero.s28.xrea.com/public/scripts/test030705.zip
0560nobodyさん
03/07/12 11:33ID:???ソース見ないでカキコ。ファイル名のサフィックスが .pl だったので、
perl だな…
名前>>URL をマッチさせればいいんじゃない？
URL のマッチルールはperlメモでも読んでくれ
あと、名前のところは当然マルチバイト文字も入るから…
\b[\B]+>>
こんな正規表現ではどうか？
0561560
03/07/12 11:41ID:???s/(\b[\B]+)>>(s?https?://[-_.!~*'()a-zA-Z0-9;/?:@&=+$,%#]+)/<a href=\"\2\">\1</a>/g;
こんな感じかな…。ただ、(\b[\B]+)>> の部分はマルチバイト文字入るとどうなるか自信なし（ｗ
0562560
03/07/12 11:42ID:???s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1</a>/g;
0564558
03/07/12 11:46ID:???挿入すればいいんでしょうか？
0565543
03/07/12 11:49ID:M0XOsREiたぶんＩＤ変わってると思いますが昨日の543です。
もう何というか・・・なんというかですね・・・
「ありがとうございました」
って文字をタイピングすることでしか感謝の気持ちを表現できないのが腹立たしい・・・
それくらい感謝です。
実は今から御指摘通りにやってみるつもりなので結果はまだなのですが、どうしても先にお礼を言っておきたくて先に書き込んでしまいました。
webProg板にお邪魔するのにはあまりにも無知な自分の質問にこころよくお答えくださった547さん、549さんの優しさは一生忘れません。
自分ももっと勉強して、いつか誰かに質問された時にお二方のようにこころよく、わかりやすく、アドバイスできるようになれるように頑張ります！
何もお礼ができませんが、せめてお二方の幸福と御健康をお祈りしています。
本当にありがとうございました！
0567558
03/07/12 12:56ID:dkTTYYjgすみません。組めません、、
http://miscast.s35.xrea.com/joyful/img/12.txt
こんなこんな感じでやってみましたが、内部サーバーエラーが出て
しまいました。
教えてクンですね、、、
0568_
03/07/12 13:08ID:???0569560
03/07/12 13:18ID:???君さ、性別と年齢は？
ま、取り敢えず
$s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1</a>/g;
↑
これを
$text =~ s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1</a>/g;
↑
こう変えてみ
0570543
03/07/12 15:43ID:???今設置し終わりました。
549さんのおっしゃる通りに、すべてそのままでしっかり動作しました！
エラーもありません。
何回も言ってすみなせんが、本当にありがとうございました。
sageにて報告させていただきました。
0571558
03/07/12 17:47ID:dkTTYYjgその文に置き換えても500エラーです。
ちょっとあきらめてみます。ありがとうございました。
0573560
03/07/12 18:56ID:???よく見ると、思いっきり間違えてるな（藁
エラー出て当然だわ( ´,_ゝ`)ﾌﾟｯ
$text =~ s/(\b[\B]+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1<\/a>/g;
0574558
03/07/12 20:19ID:dkTTYYjgなんかエラーはなくなったんですが、例えば2ch>>ｈttp://www.2ch.net/
と記述しても出ないです。
0575nobodyさん
03/07/12 20:30ID:N7l3tI07http://www3.free-city.net/home/espresso/adult/xxx.html
0576nobodyさん
03/07/12 20:33ID:???ｈttp://www.2ch.net/
http://www.2ch.net/
上の二つの違いがわかるか？
0579560
03/07/12 21:15ID:???$text =~ s/\s(\S+)>>(s?https?:\/\/[-_.!~*'()a-zA-Z0-9;\/?:\@&=+\$,\%#]+)/<a href=\"\2\">\1<\/a>/g;
因みに、h 抜き とか http:// 省略には対応してない
0580558
03/07/12 21:39ID:dkTTYYjg0581_
03/07/12 21:54ID:???0582nobodyさん
03/07/12 22:01ID:nKkhPfOJネットで稼ぐならこれ。完全無料！！
リンクスタッフになれば小遣い稼ぎができます！！(左下に登録画面があります)
バナー1クリック10円や自分の貼った広告から誰かが会員になったら一人につき1000円ももらえる！
他にもいろいろな報酬があります。
http://www12.ocn.ne.jp/~sihori/com.html
↑俺も最初は半信半疑で暇つぶし程度でやっていたけれど、
先月15万振り込まれたよ。( ﾟдﾟ)ﾎﾟｶｰﾝ
そこらへんの掲示板に広告を貼り付けてっただけなのに・・・。
2ちゃんにはこういう広告がそこら中にあるけれど、
これはマジでおすすめです！！
バンバン広告貼ってバンバン稼いでください！！
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★.
0583nobodyさん
03/07/12 22:39ID:???おまえやめろ。
二度とプログラミングしようとか考えるな。
おまえには、プログラミングに対して必要な「何か」が決定的に足りない。
それに気付かない限り、お前はプログラミングで何をしようとも成功しない。
だからさ、お前がやめるのがおまえ自身にとっても、周囲の人間にとっても、
一番いいことなんだよ。わかる？
0584nobodyさん
03/07/12 22:52ID:???0586nobodyさん
03/07/12 23:22ID:???0587nobodyさん
03/07/12 23:52ID:???でも真っ先に思い浮かぶのは、「他のを使えばいいんじゃない？」
見返りよりは、興味を引かれる改造かどうかだねぇ。
デザインをいじるとか、あってもなくても大差ないような機能の追加なんかだと
ちょっとやる気は起きないね。
0588ど素人です。
03/07/13 03:55ID:+XbtGIZIようなものをご存じないでしょうか？
e-FTPBoard (Ver.124 Rev.7)にヘッドラインがついたものか、
http://www.big.or.jp/~talk/t-club/soft/mini_r7/imgboard_ftp.cgi
Joyful Note改「HOGE2ch｣で圧縮ファイルなどもアップできるような至れり尽くせりの掲示板を探してます。
http://underwd.s1.x-beat.com/hoge2ch/sample/index.html
よろしくお願いします。
0590nobodyさん
03/07/13 20:38ID:lgv8WpE5今日は朝からずっと格闘しているのですが、まだCGI勉強しだしてから日が浅いものでなかなか上手くいきません。
プレビューされる場所はおまかせしますが、できましたらSubmitとClearの右横か左横でお願いしたいです。
よろしくお願いいたします
0591_
03/07/13 20:48ID:???0592_
03/07/13 21:31ID:???0594590
03/07/13 23:40ID:lgv8WpE5どうやら鯖が少しおかしいようですね。。。
何回かアクセスしていただけるといけるとおもうんですが(´･ω･)
0596590
03/07/14 01:34ID:GkiIu8gNttp://www2s.biglobe.ne.jp/~club_tom/java-kouza/sample/ja-sam_ienn.htm
ここの「５．プルダウンメニューで画像を変更します。 」っていうJava Scriptをyybbs.jsという外部のファイルにして読み込ませてるみたいです。
なのでttp://www.minicgi.net/yybbs/yybbs.jsからそのファイルをいただいてきて、Light BBSの方の
###<--- HTMLヘッダー書き出し
のところに
print "<Script Language=\"JavaScript\" SRC=\"yybbs.js\"></Script>\n";
と書き加えてみたのまではいいんですが、その後どこいじっても上手くできないんです（´・ω・）y━~~
0597nobodyさん
03/07/14 02:51ID:???ttp://www.webpower.jp/websofts/message_boards/hyper_thread/
上記のハイパースレッドの投稿者識別するためのＩＤ表示部分なのですが
1日で同一ホストからの投稿ＩＤが変わってしまう設定を
1ヶ月間同じＩＤにするという改造をお願いしたいのですが
実際にそう言う状態で動かしてるサイトがあるので
ttp://gc.e-hobby.net/bbs/talk/bbs.cgi
改造箇所はわかるのですが
どう修正したらしたらよいかが分らないので質問させていただきました。
どなたかよろしくおねがいします。
0598nobodyさん
03/07/14 03:32ID:???いちばん楽な方法（手抜き）
2869行目の
$day = sprintf("%02d", (gmtime(time + 3600 * $SET{'TimeZone'}))[3]);
を、
$day = sprintf("%02d", (gmtime(time + 3600 * $SET{'TimeZone'}))[4]);
にしる（ｗ
0601nobodyさん
03/07/14 13:18ID:pLo1fop3これをできないように、管理人がftpでログを落としてこない限りログは見れないようにしたいのですが、改造でなんとかなるものなのでしょうか？
まったくちんぷんかんぷんなんですけど、もしできるのならがんばってみようと思うんです。
なのでせめて「できる」「不可能」「むずかしいから素人はやめとけ」
のどれかだけでも一言助言いただけると幸いです。よろしくおねがいします
0602_
03/07/14 13:22ID:???0603nobodyさん
03/07/14 13:28ID:???修正するところはまずselectタグを
<select name=icon onChange='chaImgIenn5("FoImg","icon","imgIenn5")'>
こうして、適当なところにimgタグを置く
<IMG SRC="./img/xxx.gif" name="imgIenn5" ALIGN="CENTER" BORDER="0">
そうすれば動くかも
0606nobodyさん
03/07/14 13:52ID:TkbjLjFd>>「～.dat」に変えると
長いﾌｧｲﾙ名に変更「XXXXakerutokikensindekureXXXX.dat」
0607６０１
03/07/14 14:02ID:pLo1fop3いぢわるだなんてとんでもない！
できるってことがわかっただけでもがんばってみようという気持ちになれました。
>>606
それも一つの手なんでしょうか？
とりあえず改造してみて、駄目ならやってみます。
レス感謝っす
0611６０１
03/07/14 15:44ID:pLo1fop3ほんとだ・・・・鬱
２時間もファイル弄ってました・・・
>>610
こんな近くのレスにヒントがあるなんて・・・
608さん610さんありがとうございました
これからはもっとよく探してから書き込むようにします・・・
スレ汚しごめんなさいでした
0612nobodyさん
03/07/15 01:39ID:4x5fnkjb0613nobodyさん
03/07/15 06:33ID:???・CGIのソースや、それが出力するフォームなどあらゆる部分をすべてシフトJISなど
特定の文字コードに統一する
・CGI内部でのjcode.plなどによる漢字コード変換をやめる
0614山崎 渉
03/07/15 11:05ID:???__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
0615nobodyさん
03/07/15 12:01ID:ZVk1LGMg0617590
03/07/16 00:19ID:mdWM3O+A毎日暇な時間を見つけてはいじってますが、さっぱりワカラソ(･ω･｀)
0621nobodyさん
03/07/16 12:04ID:JVBbhBUjどのようにしたらいいでしょうか。
ググっていたら、以下のようなものを見つけましたが
これを使ってなんとかすることはできるでしょうか？
ttp://res9.7777.net/CGI-BBS/chat/2shot/20010813140637.shtml
このスクリプトを改造しているサイトもみつけました。
ttp://www.generative.info/cutout/
よろしくお願いします。
0622612
03/07/16 23:53ID:EJ+QZ/hQググってみたのですが、やっぱりよくわからないです。
jcode.plを使わないと逆に全角文字が化けてしまったりしないですか？
元のスクリプトはttp://tackysroom.com/cgi_mkakikomitai.htmなんですが、よろしければ、半角が使えるようにいじっていただけませんでしょうか？
0623nobodyさん
03/07/17 00:03ID:???だいたい、「調べてみたけど、よくわからない」は、
「調べるのが面倒くさいので調べてない」とほぼ同じ意味だ。
学問に王道はないぞ。地道にやれ。
なお、>>613 の説明でわからなければ、
プログラミングは諦めた方がいい。グッドラック。
0624nobodyさん
03/07/17 07:34ID:YvEIjlNm↑このscriptに以下のことが出来るように改造したいのですが
どの位置をどういじったらいいのかどなたか教えてください。
よろしくお願いします。
①IEのスクロールバーの色を変えたい(CSSの書き方はわかります)
②掲示板最上部(書き込みフォームの上)に掲示板利用にあたっての注意書きを載せたい
0625nobodyさん
03/07/17 08:28ID:???1.
sub head の適切なところへ。
2.
sub form{
print <<EOF;
の下ぐらい。
注意点。
・機種依存文字の使用は控えましょう。
・table厨不思議 HTML の使用は控えましょう。
0626nobodyさん
03/07/17 13:16ID:???>>612
ここは「改造スレ」なんだから結果が全て、思い通りになれば
それでいいんじゃない？
やりたい事は>>613で出来るんだから、それ以上中の人の事が
知りたければ1から勉強した方がいいかと。
0627624
03/07/18 00:34ID:a4CxiUHZありがとうございます！早速やってみます。
叱られるの覚悟で聞きますが、やっぱtableデザインはｲｸﾅｲですか？
web制作板ではいろいろと言われているのは知ってますが･･･
不思議ってどゆこと？
ちなみにtable幅は改造して410にしてますがtable自体控えた方がいいんでしょうか？
0628nobodyさん
03/07/18 04:28ID:???時間が空いたときにでも、
http://www.asahi-net.or.jp/~sd5a-ucd/rec-html401j/cover.html
を読んでみると良いかと。
.zip ファイルもあるのでローカルに保存しておくのも○
世の中 Win MSIE で観ている人だけとは限りません。
また、 CGI を利用するのであれば HTML や XML 他にも精通しておかなければならないと思います。
> ちなみにtable幅は改造して410にしてますがtable自体控えた方がいいんでしょうか？
携帯端末で閲覧される方には酷ですよね。
0629nobodyさん
03/07/18 14:57ID:???0630nobodyさん
03/07/18 17:36ID:???0631＠寝不足
03/07/19 00:04ID:fxpqGPlRこれは携帯のシリアル番号を抜き取り、特定ユーザーのアクセスを拒否できるCGIなんですが
、この反対の機能で 指定したシリアル番号のユーザーのアクセスだけ許可できる物にしたいんです。
ttp://cgiroom.nu/list/level_up/utn/index.htm
スクリプト改造工房 をご覧のプログラマー様！
どうか改造して下さるようお願いしますm(_ _)m
0632624
03/07/19 02:09ID:???どうも親切にありがとうございました！
いろいろと学ぶことは多いです。
ちなみにここでアドバイスしている皆さんはどのように
CGI勉強しました？Pealのお勧め参考書とか教えていただけると嬉しいです。
0635＠寝不足
03/07/19 13:43ID:KOjoRR6Hありがとうございます！よろしくお願いしますm(_ _)m
ttp://www.geocities.co.jp/Milkyway-Kaigan/3826/utn.cgi.txt
ttp://www.geocities.co.jp/Milkyway-Kaigan/3826/utnadmin.cgi.txt
＞６３４
確認画面が出るのでバレたくない人はアクセスしませんが、アクセスした人はシリアル番号がバレるから、その中から特定の人を拒否できるみたいな感じです。
抜き取りという言い方は間違いですね(^^;
まぎらわしい発言すみませんでした（汗）
0636＠寝不足
03/07/19 13:53ID:KOjoRR6HURL間違えました(^^;
こちらでお願いしますm(_ _)m
ttp://members.tripod.co.jp/ikatarou/utn.cgi.txt
ttp://members.tripod.co.jp/ikatarou/utnadmin.cgi.txt
0637_
03/07/19 13:57ID:???0638ぎこははは
03/07/19 16:08ID:MeQfak1E下のURLのゲーム開始ページなんですが、
パスワード入力欄とユーザID入力欄が同じ大きさにできなくて
困っとります。どなたか直し方ごぞんじ？
http://www.asahi-net.or.jp/~fa3k-nmr/ouroboros/
FFA改造したものだけど、
FFAのコードほとんど書き直してるから、
ゲーム内容も段々FFAからかけ離れてきたよ。
画像とか書くのは面倒なんで後回し。今はWebからひろってきた
ディアブロ画像勝手につかってます。
0639nobodyさん
03/07/19 16:09ID:bxFrFdhNhttp://yahooo.s2.x-beat.com/linkvp/linkvp.html
0640nobodyさん
03/07/19 16:19ID:???板違い。Web製作へGo!!
といっても向こうへ行っても嫌われる罠。
7 になってもこんな糞 HTML 吐き出してるのね。> IBM HPB
0641nobodyさん
03/07/19 21:36ID:???にアイコン機能をつけたいのですが
http://www.iruka.ne.jp/cgi-bin/a5/iruka.cgi?ftype
みたいな感じです
どなたかお願いしますm(__)m
0642633
03/07/19 22:03ID:???つーことでテストできまへんがな。
while(<IN>){
chop;
if($ser eq $_){
&error("あなたのアクセスは禁止されています。");
}
}
close(IN);
この部分を
while(<IN>){
chop;
if($ser eq $_){
$nebusoku = 1;last;
}
}
close(IN);
unless($nebusoku){&error("あなたのアクセスは禁止されています。");}
あとは、/拒否/許可/g; かな？
ところで、>>634も書いたが、
> 指定したシリアル番号のユーザーのアクセスだけ許可
それをどうやって得るのかな？
0643590
03/07/19 23:07ID:???0644＠寝不足
03/07/19 23:17ID:FPrc5Q1+親切にありがとうございます！早速試してみます(喜)
素人なのでうまく説明できないけど、このCGIは掲示板などの
投稿ボタンに<FORM action="～" ～ utn> と最後にutnを付けると
ボタンを押した人が携帯情報（シリアル番号）を送らなきゃ投稿できないみたいで、
投稿ボタンを押すと携帯に「携帯情報を送信しますか？」と出ます。
はいを押すと投稿可能、いいえを押すと投稿不可になり、投稿者の投稿時間とシリアルが書かれたログが
access.cgiって所に溜まっていくので、それと掲示板の投稿された時間を照らし合わせて誰のシリアル番号なのか判別できます(^_^)
utnadmin.cgiで、シリアル番号と投稿時間が書かれたログを見ながらアクセス拒否を設定するとdeny.cgiに拒否リストが作成されるという感じでした。
携帯を持っていないという事なので、動作確認して結果報告に来ますm(_ _)m
0645＠寝不足
03/07/19 23:41ID:FPrc5Q1+動作確認したら見事に希望通りのCGIになりました！
かなり嬉しいです(>_<)ﾉ 相談して良かったぁ(;_;)
＞６４３
私にとって６３３は神様的存在です。
0646nobodyさん
03/07/20 16:03ID:???取り敢えず、スクリプトを動かしている場所とか、
スクリプトを txt にしてアップとかして、改造してくれる人に対して、
環境を提供しないと動かないぞ。環境を提供しても動いてくれる人が
いるとは限らないし
0647590
03/07/20 17:10ID:???ttp://www.minicgi.net/cgi2/yybbs.htmlこちらに掲示板にありますアイコンのプレビュー機能を、
ttp://saya.kiy.jp/cgi/lbbs.htmlこちらのBBSに付けて欲しいんです。
スクリプトをテキストにしてageさせていただきました。
ttp://sho.ath.cx/cgi/yybbs.txt
これはyybbsのスクリプトです。
ttp://sho.ath.cx/cgi/yybbs.js
これはyybbsの外部JavaScriptファイルです。
ttp://sho.ath.cx/cgi/lbbs.txt
これはLight BBSのスクリプトです。
よろしくお願いいたします。
0648nobodyさん
03/07/20 19:53ID:???> 今日は朝からずっと格闘しているのですが、まだCGI勉強しだしてから日が浅いものでなかなか上手くいきません。
> 毎日暇な時間を見つけてはいじってますが、さっぱりワカラソ(･ω･｀)
君がどんな格闘をしたのか見てみたい。
君が弄ったスクリプトもUPせよ。
> 今日は朝からずっと格闘している(人を探している)のですが、
> 毎日暇な時間を見つけてはいじって(くれる人を探して)ますが、
じゃない事を証明汁。
そういう熱意を持った者なら(特に女性)、動いてくれる人はいる(と思う)。
0649nobodyさん
03/07/20 21:32ID:???0650590
03/07/20 23:21ID:???HTMLヘッダ書き出しのところに外部JSファイルを読み込めるように
print "<Script Language=\"JavaScript\" SRC=\"yybbs.js\"></Script>\n";
こういう風に書き加え、アイコンの設定のところにyybからとってきた数行を加えました。
そしてフォントカラー選択とアイコン選択の間に☆アイコン☆という文字を表示させることも成功しました。
しかしスクリプト上一番重要であろうyybの
if($preview){print "<select name=icon onChange='chaImgIenn5(\"FoImg\",\"icon\",\"imgIenn5\")'>\n";}
else{print "<select name=icon>\n";}
foreach(0 .. $#icon1) {
if ($cico eq "$icon1[$_]") {
print "<option value=\"$imgurl$icon1[$_]\" selected>$icon2[$_]\n";
} else {
print "<option value=\"$imgurl$icon1[$_]\">$icon2[$_]\n";
}
}
print "</select> <small>(アイコンを選択して下さい)</small>\n";
この行をいれるとどうしてもエラーがでます(´･ω･)
それで直したはずなのにアイコン選択プルダウンメニュー中のアイコン名前がなくなってしましました。
現在の見た目はttp://sho.ath.cx/cgi/lbbs.cgiを見ていただければわかると思います。
0651nobodyさん
03/07/21 02:07ID:???選択したアイコンのデータって当然ログにも残ってるよな？
見た目と言うか、UI 部分を変えるのは当たり前として、
当然ログフォーマットも変わるんじゃ？
0652nobodyさん
03/07/21 04:36ID:???ただし500エラーは無しの方向で。
0653nobodyさん
03/07/21 05:10ID:???改造できたよ。
で、どうする？
改造スクリプトを晒して欲しいのか？
ヒントだけ貰って自分で改造汁のか？
もちろん君のスキルアップには後者のほうだが･･･
0654590
03/07/21 07:35ID:???どちらもお願いできませんか？
改造されたスクリプトを答えとして保存しておいて、もうしばらく自分でいじろうと思います。
上の改造自体的はずれなことしてたらヒントいただいても多分できないでしょうし（汗
できない時に、ここで質問しまくるのも忍びないですし…
0655653
03/07/21 17:46ID:???> 上の改造自体的はずれなことしてたらヒントいただいても多分できないでしょうし（汗
まあ、ハッキリ言うと的はずれだ。
変数名や配列の構造がyybbsとLight BBSでまったく違うのだから、変数名等そのままで移植しても動くわけがない。
それとな、>>651が言ってた
> 当然ログフォーマットも変わるんじゃ？
これをな見逃してたんだ。
という事で、既存のログと互換性がないって事だ。
識者が見れば解決できるだろうから、漏れは書くだけ書いて逃げる。
もうひとつ。
Light BBSは管理者アイコンやら、常連者アイコンやらややこしかったんで、訪問者用アイコンしかテストしてない。
0656653
03/07/21 17:47ID:???###<--- HTMLヘッダー書き出し
###<--------------------------------------------------------------
sub header {
print "Content-type: text/html; charset=Shift_JIS\n\n";
print "<html>\n<head>\n";
print "<META HTTP-EQUIV=\"Content-type\" CONTENT=\"text/html; charset=x-sjis\">\n";
print "<title>$title</title>\n";
print "$style\n";
print "<Script Language=\"JavaScript\" SRC=\"./yybbs.js\"></Script>\n";# 追加部分
print "</head>\n";
0657653
03/07/21 17:47ID:???if ( $icon_use eq 'yes' ){
print "<td align=$align>\n";
print "Icon <select name=\"icon\" onChange='chaImgIenn5(\"inputform\",\"icon\",\"imgIenn5\")'>\n";# 改造部分
$i = 0 ;
for ( @iconnm ) {
if ( $i == $c_icon ){$dmy = "selected";} else {$dmy = "" ;}
print "<option value=$icon_gif[$i] $dmy>$iconnm[$i]\n";# 改造部分
$i++ ;
}
print "</select>\n";
print "[<a href=\"$script?action=icondisp\" target='_blank'>sample</a>]\n";
#パスワード
print " Pass \n";
print "<input type=password name=\"pass\" size=8 value=\"$c_pass\"> <small>修正・削除に使用</small></td></tr>\n";
print "<tr><td class=\"pre\" align=$align><br>\n";# 改造部分
print "<IMG SRC=\"$icon_gif[0]\" name=\"imgIenn5\" ALIGN=\"CENTER\" BORDER=\"0\">";# 追加部分
print "Icon Preview \n";# 追加部分
if ( $FORM{'action'} ne 'res' && $c_resno eq '' ) {
■ このスレッドは過去ログ倉庫に格納されています