★三 【 スクリプト改造工房 PART 9 】 ★三
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2006/03/32(土) 04:52:20ID:WJnup8Dd# スレッドの説明
#================================
「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。
質問するときは以下の点に注意して書いて下さい
(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
※答えてくれないからといって逆ギレする厨はお断り
0516dLYuGbiTKgcOt
2009/10/23(金) 21:29:22ID:???0517nobodyさん
2009/10/24(土) 22:30:25ID:???【配布先URL】 http://www.gnbnet.com/cgi/?mode=dojin
【ヘルプ内容】
在庫が一定以下で販売中というアイコンを残部少のアイコンに、
また、在庫が0になったら完売のアイコンという風に自動変更できるようにしたいです。
一つ前のバージョンでは
http://www.gnbnet.com/bbs/index.cgi?mode=view&seq=521
のようにアイコンを自動変更するようにできるみたいなんですが、
最新のVersion 6.91で試したところ、できませんでした。
どうかよろしくお願いします。
0518nobodyさん
2009/11/03(火) 17:26:39ID:???0519nobodyさん
2009/11/05(木) 12:38:44ID:???（テンプレは配布先のサンプル版と同じ「city」です）
【配布先URL】 ://www.w-art.org/
【ヘルプ内容】 index頁の右側に表示されるカテゴリ＞サブカテゴリ一覧部分で
サブカテゴリを横２列から横３列表示にしたいです。
（cssのほうは横３列表示が可能なサイズに変更済み）
製作者の方にメルフォから問い合わせたのですが
いつになっても返事を貰えずに困り果ててます・・・・・。
よろしくお願いします。
あと。よければこれで間違ってないかチェックしていただきたいのですが。
top.htmlの右側、カテゴリの上に通常表示される
「マーク＞おすすめサイト・相互リンクサイト」がいらなかったので
top.htmlのソースの６３行目を
local($i=0,$Gno,$gane_flag,$st_flag=0,$bf_kt_no,$gane_NOT,%gNot,$gn_list,$Ncb,$mk);
↓
local($i=0,$Gno,$gane_flag,$st_flag=0,$bf_kt_no,$gane_NOT,%gNot,$gn_list,$Ncb);
上記から下のように改変、本来６４行目から７３行目にあるソースを削除しました。
今のところ希望通り「マーク＞〜」の表示がtopから消え、不具合もないのですが
スクリプト改造として、これで間違ってないですか？
0520nobodyさん
2009/11/06(金) 12:50:52ID:???そら「カスタマイズの問い合わせするな」という所に改造の問い合わせしたんだから
返事こなくて当たり前だろ。作者さんのせいにするもんじゃないよ。
0521nobodyさん
2009/11/06(金) 14:28:03ID:???修正前のver２．０だと、top.htrml頁のソースの一番上に
--------------------------------------------
#↓設定↓
#カテゴリ・テーブル横のセル数
$table = '2';
#サブカテゴリを横に並べる数
$subcat = '2';
#↑ここまで↑
--------------------------------------------
と書いてあったんです。
なので値をどちらも'3'に変えたんですが、表示は相変わらず２列だったので
製作者へ問い合わせたら
しばらくして、top.htrmlなどを修正したver２．０1の配布がはじまり
上記の設定項目が削られてしまってたんですけど・・・・。
あと、記憶違いでなければ
私が問いあわせたときに、あの注意書きはなかったと思うんです。
・・・・・・・・私のせいだろうな、注意書き足されたの。
猛省してきます。
0523nobodyさん
2009/11/12(木) 08:59:59ID:???【配布先URL】http://cgi.toshinari.net/wiki.cgi
【ヘルプ内容】
IEでは名前を打ち込んだ場合、ちゃんと記憶されて入力された状態なのですが
firefox等では名前を入力しても記憶されません。
これをfirefoxでも入力された状態になるように改造の方をお願いします。
0524nobodyさん
2009/11/12(木) 15:01:07ID:???0526nobodyさん
2009/11/12(木) 17:30:38ID:???0528nobodyさん
2009/11/12(木) 17:38:22ID:???0529nobodyさん
2009/11/12(木) 17:43:21ID:???FireFoxというのは例で上げています。
operaでも同じ現象です。
ブラウザが悪いとは思えません。
どうやらクッキーはちゃんと取得してるようですが、ちゃんと名前欄に表示されないみたいです。
0530nobodyさん
2009/11/12(木) 18:50:30ID:???スクリプト側の問題ではないんでない？名前を代入してHTMLを返してるだけなんだから
0532nobodyさん
2009/11/12(木) 19:07:19ID:???0534nobodyさん
2009/11/12(木) 20:41:41ID:???bbs.cgiのSetCookieサブルーチン内のクッキー発行文の、path=/の後にセミコロンを付ければおｋ
ちなみに2つ発行してる意味は分からん
0535nobodyさん
2009/11/12(木) 20:50:57ID:???おぉ！ありがとうございます。
ちゃんと表示されるようになりました！
ですが日本語名だと文字化けしますね；；
エンコードに問題があるのかな・・・
0536nobodyさん
2009/11/12(木) 21:51:51ID:???escapeかけるといいらしい
0537nobodyさん
2009/11/14(土) 21:59:33ID:???自分なりにググったりして調べてやってみましたができませんでした；；
bbs.cgiのクッキー発行の部分にescapeをかけて、makeindex.plのクッキーを読み込むところにunescapeを使うんですよね・・・
0538nobodyさん
2009/11/16(月) 11:35:54ID:???makeindex.plで生成されて当該ディレクトリに置かれるindex.htmlってことはおｋ？
0540わ
2009/11/26(木) 17:55:54ID:???よろしくお願いします。無料です。 http://pokpok.org/
0541nobodyさん
2009/12/06(日) 00:20:27ID:???【配布先URL】 http://wap2.jp/download/spict/
【ヘルプ内容】 ・PC、携帯表示共にアイコン式に改造したい
・アイコンの表示箇所はタイトルの前。レス番号の位置に表示させたい
以上です。できれば、よろしくお願いいたします。
0542nobodyさん
2009/12/10(木) 01:16:42ID:NJF5r4ib【. 置き場所 .】 http://www.big.or.jp/~talk/t-club/soft/mini_r6/index.cgi
【ヘルプ内容】 トリップを実装したいのです。実際にトリップを使える
CGIから移植を試みたりしているのですが、中々うまく行きません。
方法をご存知の方いらっしゃいましたらよろしくお願いします。
0543nobodyさん
2009/12/10(木) 01:31:32ID:???0544nobodyさん
2009/12/10(木) 01:56:31ID:NJF5r4ibimgboard トリップ 実装 追加 など、あらゆる単語の組み合わせで
検索をかけましたが、紹介はあるもののすでにデッドリンクだったりして
まともにはHITしませんでした。何が足りないのでしょうか？
0545nobodyさん
2009/12/10(木) 01:59:34ID:???ここを詳しく書かないとアドバイスのしようがないのだが。
perlがわからんとかいうレベルなら丸投げ行けとしか言えん。
0546nobodyさん
2009/12/10(木) 02:08:01ID:NJF5r4ibわかりました。ありがとうございました。
0547nobodyさん
2009/12/13(日) 07:01:48ID:NqNR44Mcその節はお世話になりました。ご紹介の通り丸投げへ行きましたがダメでした。
>>ここを詳しく書かないとアドバイスのしようがない
imgboardではない別のCGIですと、いくつかの実装例がありましたので、
それを見ながら似たようなことをやっていましたが、
トリップが表示されないか、掲示板そのものが表示されないかのどちらかでした。
「perl」・「初心者」で検索をかけ、あらゆるサイトを見てまわりましたが、
むずかしいですね。「習うより慣れろ」じゃありませんが、本を読むより
実際にスクリプトをいじらないと理解しにくいのかもしれません。
私としては、「このソースをimgboardのココに貼り付けて、後、ココとココと
ココをこのように書き直せ」みたいなレスを期待していたのですが、
どうやらそんな単純なモノではないようですね。
もっとよく勉強して改めて出直します。スレ汚し失礼しました。
0548545
2009/12/13(日) 09:46:05ID:???お前な・・・ダメも何もテンプレすら読まん（と判断された）ヤツが相手にされるわけ無いだろ。
つか期待する内容があるなら最初からそう書けよ。回りくどいことして自滅してどうする。
0549nobodyさん
2010/01/01(金) 18:29:16ID:???既成のCGIの改造でいくらやってもうまくいかなくて困りきっています。
板違いでしたらもうしわけありません（探してみましたがCGI改造板は2001年の代物でした）
いくら改造してもエラーばかりでもう2日悩んでいます。
改造したいものはテルラさんという方のCGI解説の古い本を入手してCGIの勉強を始めました。
昔はサポート掲示板などもあったらしいのですけど今はいくら探してもサポートがありません。
質問もできません。ほんとうにここしか質問ができる場所がなくてもう困っています。
もともとのCGIは
ttp://cgicgi.webdeki-hp.com/1.htm
です。 これを改造したいのです。
したいこと
1 このスクリプトはリロードするたびに（ブラウザで更新を押すたびに）なぜかどんどん
その直前に書き込んだ文章が繰り返してどんどん書き込まれて行きます。
更新ボタンを押してもページの更新を（リフレッシュを）するだけにして、勝手にどんどんその直前の
書き込みが繰り返して書き込まれていくのを辞めたいです。
2 もうひとつは書き込んだ人の名前の下に書き込み者のＩＰやブラウザ名を表示させたい
です。 サンプルは
ttp://cgicgi.webdeki-hp.com/2.htm
です。 この二つ目を改造して使えばいいではないかといわれそうですが、ひとつめの
デザインが好きなのでなんとか一つ目のデザインのまま、2.htmのスクリプトでの書き込み
表示のようになるようにしたいと思っています。
もうこれでまるまる3日目です。完全にわからなくなって発狂寸前です。
板違いかもしれないのですけど、ほんとうに助けてください。
なお、1.htmと2.htmは解決し次第、きちんと削除します。
すみません。ほんとうに助けてください。
(他のKentさんとかのCGIを使え､というレスはなしでお願いします)
0550nobodyさん
2010/01/01(金) 18:30:46ID:???やってみたこと。
ブラウザ名とIPの表示に関しては
&cookie_read;
$agentsoft = $ENV{'HTTP_USER_AGENT'};
$agentsoft =~ s/,/./g;
$hosei = 1;
if ($agentsoft =~ /Mozilla\/4/i && $agentsoft !~ /compatible/i) { $hosei = 0.8; }
$textwidth = 80;
if ($agentsoft =~ /MSIE 3/i) { $textwidth = $textwidth * 1.5; }
および
print "<br><font size=2>$agent</font>";
if ($returnmail eq 'checked') {
print "<input type=hidden name=returntoemail value=$email>\n";
}
を1に移植して1の$date\,などのところに関連すると思われる$agentsoftを追加したりしてみました。
でもエラーばかりでどうしてもうまくいきませんでした。 すみません。 お手上げで困ってます。
お年玉代わりにいろいろとご教唆いただけたらほんとうに嬉しいです。
0552nobodyさん
2010/01/01(金) 21:22:20ID:???お前さぁ、俺「それぞれのスレの>>1読め」って言ったよね？ 読んでないよね？
人の話し聞かないやつに回答する人はいないよ。もう消え失せろ！
0553nobodyさん
2010/01/01(金) 21:33:54ID:???perl初心者なら丸投げいったほうが早いかもねー
0554nobodyさん
2010/01/01(金) 21:58:49ID:???0555nobodyさん
2010/01/01(金) 22:03:15ID:???0556nobodyさん
2010/01/01(金) 22:26:56ID:???きちんと読みました。 1には「ソースを見られたら｣「どこをいじったのか」と書いてあります。 よってソースをつけ、またどこをいじったのかも書きました（これは前のところでは書いていません）。
出てくるエラーは「真っ白の白紙になる」です。
丸投げもみました。 しかし丸投げする代物ではありません。 自分でどこをやったらいいのか、ということを知りたいので（勉強になりたいので）こちらにきました。
>552 申し訳ないですけど、私も2ｃｈのほかの板でわかる範囲で助けています。
他人にけちをつけるだけの、ＣＧＩがわかるフリの奴、というのはフェアーではないと思います。
発狂というのは言い過ぎかもしれないですけど、いくらいろいろとソースの変更をやっても
真っ白になってしまう現象が3日も続いたらプロでない限り素人にはお手上げと言う意味です。
0557nobodyさん
2010/01/01(金) 22:29:09ID:???まさかエラーログも見れない環境でCGI改造しようとか暢気なこと考えてないよな？
初心者以前の問題だぞ？
0558nobodyさん
2010/01/01(金) 22:29:34ID:???あなたにそれから「おまえ」扱いされるのはどうかとおもいます。
少なくとも私は2chでもきちんと相手に対して礼儀をもって書き込んでいます。
親のしつけが丸見えになりますので。。
0560nobodyさん
2010/01/01(金) 22:30:55ID:???0561nobodyさん
2010/01/01(金) 22:33:07ID:???0562nobodyさん
2010/01/01(金) 22:36:33ID:???ありがとうございます。
書き込み直後、書き込んでいただいたようで申し訳ありません。
現在、ローカルサーバーを立て上げて擬似的にCGIを動かしています。
（動きもしない中途半端なCGIをサーバーにあげてサーバーをダウン
させるような馬鹿な真似はマナー違反になりますのでできません）
よってエラーコードは出てきません。 真っ白になるだけ、ということです。
このローカルで走らせている時に更新ボタンを押すとその直前に書き込んだ
ものがまた次の書き込みとして現れてしまう、という現象がおこったり
しています。 また2.htmではサーバ名としてLocalhostと出てきますが、
このようにしたいのですがどうやっても1.htmではこけて白い画面が
出てきてしまう､という現象です。
まだ必要なことがありましたらお知らせいたします。
丸投げは簡単ですし、その方が動作させるのには確実かもしれません。 時間
の節約にもなると思います。 しかしできる範囲でやってみたいと思っています
（そうでなければ3日も一人で悩まず最初から2chに頼っています）
0564nobodyさん
2010/01/01(金) 22:44:17ID:???3と5はきちんと読みました。 私の書き込みを全く読んでいないのはどちらでしょうか？
3で書かれております、ソースの提示は、私の書き込みの中にきちんとソースのリンク
1.htm 2.htm として入っています。 最低限のマナーです。
5はローカルなので記録がありません。
0565nobodyさん
2010/01/01(金) 22:49:48ID:???ありがとうございます。
とても古い本をオークションで手に入れたものらしく、約10年前の本です。
CGIでつくるインタラクティブWebページという本です。
この本の中にあるPerl for win32 というのとAn HTTPDというものを使って実験しています。
とりあえずできましたら549内に 1.htm 2.htm というリンクを貼ってあり、その先に
ソースを開示しておりますので（他の方のソースですのできちんと後から解決後に削除するつも
りでソースそのものは2chにはあげていません）見ていただけますでしょうか。
0566nobodyさん
2010/01/01(金) 22:56:14ID:???とても古い本をオークションで手に入れたものらしく、
友達が「こんな本あるけど要る？」と言ってくれて面白そうだなあ､とただでもらって私は飛びついたのが約2月ほどまえです（地獄の一丁目）。他のＣＧＩファイルではソースの改変というより、レ
イアウトの変更などは自分でもできたのですが、今回のように幾らやっても勝手に
自動で書き込みが行われる､ということは他のスクリプトではなかったので訳が
わからなくなりました。 また550に書きましたように2.htmを参考にしていろいろと
入れてもみたのですけど、どうしても真っ白になってしまい（2.htmは1.htmの改良版
とのことだったのでなんとかなるのかと思ったのですが）、どうしてもブラウザ名と
IP表示ができずに困りました。おわかりになる範囲で結構ですのでヒントをいただける
とうれしく思います。
0567nobodyさん
2010/01/01(金) 22:57:52ID:???いや、>>5をちゃんと読めば「ローカルなので」なんて答えは出てこない。
いまお前がやることは冷静に>>5を呼んで実践することだ。まず冷静になれ。話はそれからだ。
0568nobodyさん
2010/01/01(金) 23:00:04ID:???質問に全く関係ないエピソードとか要らんわｗ
0569nobodyさん
2010/01/01(金) 23:01:53ID:???理解できないことを素直に認めることもできなさそうな人だし
0570nobodyさん
2010/01/01(金) 23:40:24ID:???どちらにせよperlのverも書けないんじゃアドバイス以前だな。
0571nobodyさん
2010/01/02(土) 00:13:22ID:???教えられるほどの技術のある人が一人で残りの9人はどうでもいいことでさわいでいるだけの知能のない猿というか、言い負かされて悔しくてわめいているだけのチンパンジーというか。
Perl 5.003
>>567
二行目にuse CGI::Carp qw(fatalsToBrowser); を追加すると今まで動いてい
たスクリプトも動かなくなってしまいます（ご自身で1.htmの二行目に追加
して試してみてください）。
正月だから技術のある人はみなさん、お休みで小学校から逃げてきたチンパン
ジー集団ばっかなのだろうか？(567さんなどの一部を除く）
0573nobodyさん
2010/01/02(土) 00:25:06ID:???5の書き方がまずいですね。 再度検索して試してみました。
##use CGI::Carp qw(fatalsToBrowser);
にしないと動きませんよ。 ちょっとこれでしばらく再度がんばってみます。
またご連絡いたします。 ありがとう。
0574nobodyさん
2010/01/02(土) 00:26:18ID:???#use CGI::Carp qw(fatalsToBrowser);
にしないと動きませんでしたよ、の間違いでした。
0575567
2010/01/02(土) 00:31:36ID:???お前は煽れた立場じゃないだろ。少し考えて発言しろ。俺ももう少しで「半年ROMってろ」と言うぞ。
で、実際にCGI::Carp組み込んでも普通に「Can't locate jcode.pl in @INC」って出るけどな。
jcode.plが無いってことだな。お前ちゃんと全部のスクリプトうｐれよ。あとhtmlでうｐするとかおかしいだろ。
0577nobodyさん
2010/01/02(土) 00:35:26ID:???なんでこんなレベルで改造なんて大それたことしようとしてるんだ？ｗ
0578nobodyさん
2010/01/02(土) 03:16:44ID:???0579nobodyさん
2010/01/02(土) 10:14:11ID:???0582nobodyさん
2010/01/08(金) 16:21:55ID:???0583nobodyさん
2010/01/10(日) 02:52:15ID:???0584nobodyさん
2010/01/12(火) 13:33:37ID:???0587nobodyさん
2010/02/03(水) 21:45:42ID:???0588nobodyさん
2010/02/05(金) 03:47:51ID:???【配布先URL】http://swanbay-web.hp.infoseek.co.jp/yybbs/index.html
【ヘルプ内容】
１．投稿記事のプレビュー機能をチェックボックスかラジオボックス型にし、
プレビューを見ながらの内容修正を、何度か繰り返せるようなフォームにしたい。
２．入力された名前に応じて、自動でアイコンを選択できるようにしたい
この二つの改造をしたいのですが、自分では知識が足りず…
どなたかお力をお貸し頂けませんでしょうか？宜しくお願い致します。
0589nobodyさん
2010/02/05(金) 09:49:48ID:???0590nobodyさん
2010/02/05(金) 13:02:10ID:???反応を下さってありがとうございます。
プレビュー機能ですが、regist.cgiの1330行目に
<input type=radio name=mode value=previewmode>
を入れてみたところ、プレビューを繰り返す事には成功したように思うのですが、
肝心のフォームを出す事ができない状況です。
1355行の下に
EOM
# 修正フォーム
require $formpl;
&form($nam,$eml,$url,'??',$ico,$col,$sub,$com,$sm);
print <<EOM;
と入れてみたところ、フォーム事態は出現するのですが、記事の内容などがフォームに入っておらず、
そのままプレビューを押してみても、フォームの内容が反映されません。
現在はフォームにプレビューボタンを設置しようと試行錯誤している途中です。
よろしければ、アドバイス等頂ければ幸いです。
0591nobodyさん
2010/02/06(土) 21:59:42ID:???<input name="hoge" value="$hoge" type="text" /> # $hogeは引数
とか
あるいは、POSTされた内容が取得できてないとか
$hoge = $q->param('hoge');
プレビューと投稿の振り分けは
<input name="post" value="投稿" type="submit" />
<input name="preview" value="プレビュー" type="submit" />
両方を用意して
$mode = $q->param('post') || $q->param('preview') || undef;
みたいなのが個人的には好き( ´艸｀)
0592nobodyさん
2010/02/07(日) 15:14:38ID:???早速試してみます、ありがとうございます！
確かにチェックボックス等より、ボタンの方が投稿する時に楽ですよね、
実装頑張ってみます。
他にもアドバイス等あれば、是非ご助力お願いしますね。
それでは、また書き込ませて頂きます。
0593nobodyさん
2010/02/07(日) 18:07:16ID:???1355行の下に
<form action="$registcgi" method="$method">
<input type="hidden" name="comment" value="$in{'comment'}">
EOM
# 修正フォーム
require $formpl;
&form($nam,$eml,$url,'??',$ico,$col,$sub,$com,$sm);
$hoge = $q->param('hoge');
print <<EOM;
</form>
と記述したところ、フォームに記入した内容をプレビューする事はできるのですが、
相変わらず、フォームに内容が出ず、そのまま投稿すると、新規での投稿扱いになってしまい、
返信ができない状況です。
>591さんの言うとおり、POSTされた内容が取得できてないのだと思うのですが、
どこを弄ればいいのか、私の知識ではお手上げ状態でして…。
ご助力お願いしたく書き込ませて頂きました、宜しくお願い致します。
0594nobodyさん
2010/02/08(月) 11:31:22ID:???・チェックボックスを追加 at sub form{} in lib/form.pl
# 例えば、nameはpreviewとする。valueは真になるなら何でもいい
・sub preview {} を追加 in regist.cgi
# ここのブロックの中にプレビューで表示したいものを書く。
# &header はヘッダ生成(？)、最後にexitしておく。
・最初のほうに分岐を設定 at sub regist{} in regist.cgi
# ex.) &preview if $in{'preview'};
name=hogeの値をとるときは$in{'hoge'}
0595nobodyさん
2010/04/02(金) 09:12:07ID:???>594さんに頂いたアドバイスを元に頑張ってみたのですが上手くいかず、
再度お力添え頂きたく思い、投稿させて頂いております。
現在、プレビューボタンの設置はできたのですが、
大元の時間でのプレビュー表示を外してしまうとプレビューが表示されません。
あまり質問ばかりするのは教えて頂く側として失礼だと思い頑張ってみたのですが、
どうにも自分の知識では解決できず…。
ご助力願えればと思います、宜しくお願い致します。
0596KENT厨
2010/04/04(日) 01:55:03ID:???2について
メモ帳でもなんでもいいのでテキストエディタでnameicon.cgiという名前のファイルを作る。
そのファイルの中に以下のような感じで名前と画像のファイル名を書き込む。
太郎<>cow.gif<>
次郎<>dog.gif<>
花子<>zou.gif<>
画像のファイル名はinit.cgiの$ico1に書いてあるものにする。今後追加したり削除したりする場合は
nameicon.cgiを書き換えてupする。upする場所はregist.cgiとかと同じ場所。
そうしたら、regist.cgiのregistサブルーチンの # フォーム入力チェック の次あたりに以下を書き込む。
# 名前によってアイコンを指定
open(IN,"nameicon.cgi") || &error("Open Error: nameicon.cgi");
my @list = <IN>;
close(IN);
foreach (@list) {
my ($myname,$myicon) = split (/<>/);
if($in{'name'} eq $myname){
$in{'icon'} = $myicon;
last;
}
}
こんな感じでどうでしょう？試すときはバックアップを取っておいてください。
0597nobodyさん
2010/04/06(火) 01:17:40ID:???反応下さりありがとうございます。
教えて頂いた通りしたところ、無事にアイコンが自動選択されました。
ありがとうございます！
一つ質問があるのですが。こちら、記事の修正をするとアイコンが自動選択されず、
一番上に設定したアイコンが選択されてしまいました。
libフォルダのeditlog.plかな、と思い触ってみたのですが上手くいかず、
宜しければご教授願えればと思います。
0598nobodyさん
2010/04/06(火) 01:28:32ID:???× 記事の修正
○ 管理人権限での記事の修正
です。
レス消費申し訳ありませんでした。宜しくお願い致します。
0599KENT厨
2010/04/06(火) 02:04:09ID:???admin.cgiの中のadminサブルーチンの中に
# 修正実行
というのがあると思うので、その最初のほうに>>596と同様に
# 名前によってアイコンを指定
open(IN,"nameicon.cgi") || &error("Open Error: nameicon.cgi");
my @list = <IN>;
close(IN);
foreach (@list) {
my ($myname,$myicon) = split (/<>/);
if($in{'name'} eq $myname){
$in{'icon'} = $myicon;
last;
}
}
を加えてみてください。それと、editlog.plの中のedit_logサブルーチンにも
# フォーム入力チェック
というのがあるのでそのすぐ後ろとかに同様の処理を追加してみてください。ただし、
editlog.plのほうはnameicon.cgiを「../nameicon.cgi」にしてください。
open(IN,"../nameicon.cgi") || &error("Open Error: nameicon.cgi");
ここは投稿した本人が記事の修正をした場合のものです。
こんな感じでどうでしょうか？
0600nobodyさん
2010/04/06(火) 02:29:11ID:???記事修正でのアイコン選択、無事に出来ました。
>>588、ヘルプ内容の2番は解決とさせて頂きます。
KENT厨さん、本当にありがとうございます！
1につきましては、もしアドバイス等ありましたらお力添え頂ければと思います。
宜しくお願い致します。
0601nobodyさん
2010/04/19(月) 12:46:46ID:???多分とても簡単な事だと思うのですが、どう調べればいいのかが分からず…
$filepassにファイルのパスとファイル名が保存されています。
/data/aaa.zip
/data/b/abc.zip
のような形です。
これをファイル名だけ表示させたいのですが、どのようにしたらよいでしょうか?
$fname = 「スラッシュ以下だけを抜き取り?」
の形にしたいのですが、よろしくお願いします。
0603nobodyさん
2010/06/07(月) 20:10:19ID:???JavaScriptも入ってきてしまうのですが・・・
どなたかよろしければおつきあいください。
【. CGI名 .】 Hello-UP + plupload
【配布先URL】 Hello-UP: ttp://idol.nm.land.to/
plupload: ttp://www.plupload.com/index.php
【ヘルプ内容】 Hello-UPのアップロードフォームをpluploadに差し替えたい。
Hello-UPのupload.php中の<head>の中にスクリプトの呼び出しと
$upload = <<<UPLOADの部分に設置をしたところ、
オリジナルファイル名でのデータのアップだけは可能になりました。
その後のアップロードログへの書き込み、サムネイルの作成にどう対応したらいいのかわかりません。
0604nobodyさん
2010/06/07(月) 20:16:47ID:???先に聞いておきますが、API Documentのどの辺で引っかかってます？
0605603
2010/06/07(月) 21:23:18ID:???トライアンドエラーで少しのつぎはぎで何とかなるかな？と思っていじり始めてみたのですが。。
API Documentのどの辺と言われてもよくわからないくらいに基本的なところもわかりません。
ヘタに手を出してしまったかな。。
この辺をみてみるといいよ、とかでもありましたらお願いします。
0606nobodyさん
2010/06/07(月) 22:42:48ID:???じゃないとこちらも話がし辛いです。習得意欲が無くて実装のみ楽をしたいなら丸投げへどうぞ。
0607603
2010/06/07(月) 22:50:59ID:???ちょっとここで質問するには無知すぎたようですね。
もう少し勉強して出直してきます。
ひとまずありがとうございました。
0608588
2010/06/13(日) 15:29:02ID:???回答・ご助力して下さった方々は本当にありがとうございました！
0609nobodyさん
2010/09/27(月) 14:51:24ID:i9clsC0G0610nobodyさん
2010/09/27(月) 21:05:13ID:yo7j0Viu0611nobodyさん
2010/10/15(金) 18:23:54ID:h3JajiVY【 配布先URL 】http://www.cj-c.com/cgi_s/access.htm
【 依頼期限 】1ヶ月くらい
【 依頼内容】acmgr.cgiを弄ってurl.logに書き込む項目(サイトの紹介)を一つ増やしました。
■デフォルト yahoo%5c%2eco%5c%2ejp;Yahoo!;http://www.yahoo.co.jp/;
■改 yahoo%5c%2eco%5c%2ejp;Yahoo!;http://www.yahoo.co.jp/;アホー(サイトの紹介);
その増やした項目をaccess.cgiを開いた時に表示されるようにしてほしいのです。
■acmgr.cgi弄った箇所
50行目近辺
$url=$FORM{'url'};
$z = $FORM{'z'};#■$zコメント追加
$andor=$FORM{'andor'};
132行目近辺
($u,$t,$url,$z) = split(/;/,$URL[$_]);#■$zコメント追加
139行目近辺
print"<th>$t</th><td>$u<br><a href=\"$url\" target_=\"_blank\">→ $url</a><br>$z</td></tr>\n";#■$zコメント追加
164行目近辺
print OUT "$U;$t;$url;$z;\n";#■$zコメント追加
222行目近辺
if($_==$FORM{"G"}){$URL[$_]="$U;$t;$url;$z;\n"; $f=1;}#■$zコメント追加
236行目近辺
($ur,$ti,$urls,$z) = split(/;/,$Edit);#■$zコメント追加
252行目近辺
print"<tr><td bgcolor=\"$stripe\">コメント</td><td><input type=\"text\" name=\"z\" size=\"50\" value=\"$z\"></td></tr>\n";#■$zコメント追加
0612nobodyさん
2010/10/15(金) 18:25:12ID:h3JajiVY180行目近辺
($u,$n,$tu,$zc) = split(/;/,$urls);#■コメント追加,$zc
229行目近辺
($u,$n,$tu,$zc) = split(/;/,$_);#■コメント追加,$zc
319行目近辺
$Rankh.="<td><a href=\"$url\" target=\"$TGET\" title=\"$title\">$title_url</a><br>$zc</td>";#■コメント追加,$zc
これだと全てのサイトの紹介が、url.logの一番最後の行のデータで表示されてしまうので困っています。
どなたか助けてください。
0613nobodyさん
2010/10/15(金) 18:28:30ID:???0614nobodyさん
2010/10/15(金) 18:53:52ID:???ftpからダウンロードしてチェックしましたが、問題はないようです。
また、管理者モードacmgr.cgiから見ても問題ないです。
でも、access.cgi?countから見ると、駄目なんです。
0615KENT厨
2010/10/15(金) 21:01:06ID:???もっといい方法があるんだろうけど、これだとどう？
access.cgi
319行目近辺
$Rankh.="<td><a href=\"$url\" target=\"$TGET\" title=\"$title\">$title_url</a><br>$zc</td>";#■コメント追加,$zc
このすぐ上に以下をコピペしてみたらどう？
undef $zc;
foreach (@urls) {
($u,$n,$tu,$zt) = split(/;/,$_);
if($tu eq $url) {
$zc = $zt;
last;
}
}
うまくいかなかったらごめんね
■ このスレッドは過去ログ倉庫に格納されています