【 スクリプト改造依頼スレ 】(丸投げ)
■ このスレッドは過去ログ倉庫に格納されています
00011
04/02/15 16:59ID:???#================================
# スレッドの説明
#================================
「スクリプトを改造したいけど、言語の知識ゼロなんでつ」という人がいましたら
ここで依頼してください。ひょっとしたら改造してくれる人がいるかもしれません。
質問するときは以下の点に注意して書いて下さい
(1) 作者に改造依頼したが答えてくれない場合このスレを利用する。
(2) スクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(3) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(4) 出来るだけ詳しく具体的に書くこと。(依頼は小出しにしない事)
(5) 御礼や動作報告は必須。
なお、多少なりとも自分でいじれる人は改造スレをご利用ください。(ここは改造丸投げスレです)
※答えてくれないからといって逆ギレする厨はお断り
0175165
04/03/09 20:36ID:???SSIは、<!--include virtual="./k/bbs.cgi?mode=lastest&log=${date}"-->
のように、その日のレスを表示するような事をしたかったので……
それと、ログの12桁の数字とは何でしょうか？本当にすいません。
解決策もありがとうございました。
0176168
04/03/09 21:41ID:???ログが"年月日時分.cgi"で年月日時分が12桁だからそのこと。
SSIで表示するってどこでの話？
たとえばTOPのhtmlにSSIで表示させるなら、日記を書いてタイトルが
リンクになった部分のlog=12桁に合わせて書けばいいし。
それとも日記の最新の分にだけ、その下に表示させるとか。
やりたいことがよくわからない。
0177165
04/03/09 22:21ID:???それと、ログの年月日時分.cgiはUnico diaryの$log{date}の数字のことですよね。
私はそれを、DIARY_09のように変えて使っているのですが、その場合は、
<!--include virtual="./k/bbs.cgi?mode=lastest&log=DIARY_09"-->のような形になるんですよね？
日記の最新の分にだけ、その下に表示させたいんですが……
説明不足で申し訳ありません。
0178nobodyさん
04/03/10 04:23ID:???自分で改造してうまくいかない場合、このスレではスレ違いとなるので注意しる。
ま、>>168はこの板の住人にしては優しいやつだから答えてくれると思うが。
それと、DIARY_09 ってのをもっと詳しく説明しておいた方がいいんじゃ？
お前の脳内スクリプトは俺たちに見えないのだから。。。
0179168
04/03/10 07:22ID:???bbsで日記のログを指定してどうするの。
bbsが読み書きするために"log=***"で指定するログはbbsのログ。
そのログのファイル名に日記を書いた日時を12桁で"年月日時分.cgi"にしたってこと。
日記タイトルのリンク部分を見ればわかるけど、04/03/09 22:21 に日記を書いたら
bbsのログファイル名は200403092221.cgiになるわけ。
一番古い日記以前の日時のbbsのログを削除するとき探しやすいでしょ。
ところで最新の日記に下に表示と言っても何日分も表示させているなら
日記CGIの中ではループで回してるからちょっとやっかいだな。
CGIが吐くHTMLにSSIを書いても動作しないし。
ちょっと考えてみる。
それとSSIのスペルとか間違ってた。
lastestじゃなくlatestね。
もうひとつ、virtualの場合はたいてい相対パスが使えないから絶対パス指定ね。
<!--include virtual="/****/k/bbs.cgi?mode=latest&log=************"-->
こんな感じ。
0180168
04/03/10 09:41ID:???こういうのはどうだろう？
今は日記を http://*****/***/u_diary.cgi のようにアクセスして
たぶん数日分表示させていると思うんだけど、これを
http://*****/***/index.html かindex.shtmlにして
そこにSSIで日記の最新一日分とbbsを表示させる。
それより古い分は日記の下にある「OLD」のリンクで遡る。
すると前回までの改造した状態で最新の一つ前から数日分の表示になる。
0181初心者
04/03/10 15:33ID:???0182nobodyさん
04/03/10 15:47ID:bqGiGoNX掲示板のCGIなんですが、普通の掲示板と違ってフォルダわけされた・・みたいな
ツリーのレスが見えない表示で、題名を押すとその記事が見れるやつです。
KENTのやつでいうと「web patio」とかいうやつです。（中身は違いますが）
http://www.geocities.jp/hoge2009/bbs.txt
にUPしたんですが、返信の記事が新しいものほど上に表示されるようにして
いただきたいんです。
よろしくお願いいたします。。
0183nobodyさん
04/03/10 16:00ID:je8Sz+h9マルチでしかもこのスレの後に改造工房に書き込んでやがる
逆なら間違えたのかな、と好意的に解釈さえするものを。。。
こんな香具師は相手にする必要ない
http://pc2.2ch.net/test/read.cgi/php/1076831972/41
41 名前：nobodyさん[] 投稿日：04/03/10 15:49 ID:bqGiGoNX
晒しage
0184nobodyさん
04/03/10 16:07ID:bqGiGoNX確かに二箇所に書きこんだのは急ぎだったから。
でも、能無しの君もだまっといてくれる？
マル投げスレなんだから（σ・Д・）σYO
0185nobodyさん
04/03/10 16:28ID:???↓次の依頼ドゾー。
0186nobodyさん
04/03/10 16:36ID:???やっぱり本当の阿呆には周りが阿呆のようにしか見えないんだな。
0187165
04/03/10 23:04ID:???いろいろとありがとうございました。
SSI等と喚き迷惑をかけましたが、結局使用しないことにしました。サーバーへの負担も大きいですし……
質問などもしてしまいすいませんでした。
168氏には、いろいろとご迷惑をかけましたが本当にありがとうございました。
0188nobodyさん
04/03/11 00:47ID:???http://www.vector.co.jp/soft/unix/net/se258112.html
1.アクセスできるサーバーを固定させる。
2.アクセスするとき入力するのはユーザー名とパスワードだけ
その他はスクリプトで設定
0192nobodyさん
04/03/11 11:04ID:???漏れは動作確認できないのでやらないが…。
0193188
04/03/11 12:34ID:???>それに改造っていうほどでもなくHTMLのフォームで解決できるレベルだろ
どのようにフォームを改造すればいいのでしょうか、教えてください
0194nobodyさん
04/03/11 19:37ID:???804行目に鯖を入力するところがあるだろ。
<input type=text name=server size=60>
<input type=text name=server size=60 value="鯖">にするか
そのinputを削除して
<input type=hidden name=server value value="鯖">にすりゃいいだろ。
0195nobodyさん
04/03/11 19:51ID:???実際にはhiddenから受け取って変数に入れるわけだから
その変数に鯖を指定するように書けばいいわけだけど
perlがわからないならHTMLレベルで上記のようにぐらいは
できるだろってこと。
ところでこのCGIをどういう用途で使うんだ？
なんかおもしろい使い方ある？
0196nobodyさん
04/03/11 20:00ID:???0197nobodyさん
04/03/11 20:01ID:???0198nobodyさん
04/03/16 21:25ID:???仲間内でやってるサイトに日記を置きたいのですが、いろいろ見て周ってはいるものの、これだってCGIに巡り合えません。
要望としては、
●１つの日記に画像を複数枚（最低５枚）アップ可能。
●日記本文中に画像を張る位置をある程度指定できるもの。
●複数人で使う為、同じ日の日記が複数作成可能であること。
●ただし、書くことが可能なメンバーをパスワードで制限できること。
●フレーム内設置の為、無駄な装飾の無いもの。
●フレーム周りに同化させるために、色の変更などが設定出来るもの。
●フレーム内設置の為、大きな画像は自動的に縮小表示してくれるもの。
●月毎にログをまとめて、過去ログの読みやすいもの。
ってとこです。
CGIサイト等をいろいろ周って見た結果、、
http://www.nyats.com
こちらにある、『なんちてBLOG』が無駄な装飾も少なく、シンプルで要望に近い機能を持っていました。
このCGIに、
●画像アップ数増加
●画像の自動縮小表示
●可能な限りGoogle等の検索に引っかからないようなHTMLを生成する。
の３つの機能を付加したいのですが、プログラミング知識に乏しく難航しています。
画像アップ数増加はなんとか出来たのですが、設置時にフレーム内に表示させたい為に、画像縮小の機能を付加したいわけです。
例えば、HTML生成の時に画像の幅が450以上の場合は450に縮小表示して、クリックで元の画像サイズでも見れるようにしたいのです。
上記の機能を実現できるようなアドバイスを、どうかよろしくお願いします。
0199nobodyさん
04/03/16 21:27ID:???●画像のアップ数増加（入力フォームの増加と、増加分のファイル名、変数生成）
●アップ時に生成されるファイル名に（秒）を拾って付加させることによって、同日の絵日記を複数作成しても、後からアップした画像で上書きされないようにした。
●余分なタイトル画像等の装飾を排除した。
ってところまでは、なんとか自力で出来ました。
0200nobodyさん
04/03/16 22:49ID:???レスキューCGIで配布している「幹事！」
http://www.rescue.ne.jp/cgi/kanji/
を使って、サークルのオフ会を企画したいのですが、一度
登録した参加申込情報の修正ができるように改造してもらえ
ませんでしょうか？
イメージ的には申し込みページにある参加申込と申込取
消の間に修正の欄を加えるという感じです。
http://www.rescue.ne.jp/cgi/kanji/sample/kanji.cgi?test
最初は一度申込取消をしたあとに、新規で登録する方法を
考えていたのですが、識別ID重複のエラーがでてしまいました。
サークルなので、識別ID（会員番号）は変えたくないんです。
これに変わるCGIを探したのですが、結局みつからなかったので
こちらに依頼をだすことにしました。
お手数をかけますが、よろしくお願いいたします。
0202nobodyさん
04/03/16 23:55ID:???kanji.cgi の 133〜160行を以下に書き換えてみてください
--ここから--
if ($ADD) { ### 申込み ###
if ($ENV{'REMOTE_USER'} ne "") { $USER = $ENV{'REMOTE_USER'}; } else {
if ($in{'user'} eq "") { &error("識別ＩＤを…","入力してください。","パスワードと組み合わせて本人確認するものです。"); }
if ($in{'パスワード'} eq "" || $in{'パスワード'} ne $in{'パスワード２'}) { &error("パスワードを…","入力してください。","または、入力が間違っています。"); }
$USER = $in{'user'}; }
if ($KANJI{$USER} ne "") {
($NAME,$EMAIL,$TEL,$REM,$PASSWD) = split(/\t/,$KANJI{$USER},5);
if ($in{'パスワード'} ne $PASSWD) { &error("申\込み済み","'$USER'は既に申\込みがあります。"); }
if ($in{'名前'} eq "") { $in{'名前'} = $NAME; }
if ($in{'Ｅメール'} eq "") { $in{'Ｅメール'} = $EMAIL; }
if ($in{'連絡先'} eq "") { $in{'連絡先'} = $TEL; }
if ($in{'備考'} eq "") { $in{'備考'} = $REM; }
if ($in{'パスワード'} eq "") { $in{'パスワード'} = $PASSWD; }
if (open(ADD,"$base_dir/$target_id\.cgi")) {
@temp = <ADD>;close(ADD);
foreach (@temp) {
if (m/$NAME\t$EMAIL\t$TEL\t$REM\t$PASSWD/i) { $_ = "$USER\t$in{'名前'}\t$in{'Ｅメール'}\t$in{'連絡先'}\t$in{'備考'}\t$in{'パスワード'}\n"; }
}
open(ADD,">$base_dir/$target_id\.cgi") || &error($!,"記録が出来ませんでした。","設定が間違っています。"); print ADD @temp;
close(ADD); chmod(0666,"$base_dir/$target_id\.cgi");
}
else { &error($!,"記録が出来ませんでした。","設定が間違っています。"); }
$KANJI{$USER} = "$in{'名前'}\t$in{'Ｅメール'}\t$in{'連絡先'}\t$in{'備考'}\t$in{'パスワード'}";
$MESSAGE1 = "※修正を受け付けました。";
}
0203nobodyさん
04/03/16 23:56ID:???else {
if ($in{'名前'} eq "") { &error("名前を…","入力してください。"); }
if ($in{'Ｅメール'} !~ /\b[-\w.]+@[-\w.]+\.[-\w]+\b/) { &error("Ｅメールを…","入力してください。"); }
if (open(ADD,">> $base_dir/$target_id\.cgi")) {
print ADD "$USER\t$in{'名前'}\t$in{'Ｅメール'}\t$in{'連絡先'}\t$in{'備考'}\t$in{'パスワード'}\n";
close(ADD);
chmod(0666,"$base_dir/$target_id\.cgi");
}
else { &error($!,"記録が出来ませんでした。","設定が間違っています。"); }
$KANJI{$USER} = "$in{'名前'}\t$in{'Ｅメール'}\t$in{'連絡先'}\t$in{'備考'}\t$in{'パスワード'}";
$MESSAGE1 = "※申\込みを受け付けました。";
}
}
--ここまで--
0204198
04/03/17 04:01ID:???＞199
ですが、
適当にやったら出来たので取り下げます。
お世話になりました。
0206205
04/03/17 04:06ID:???0207198
04/03/17 04:32ID:???とりあえず、アップローダーでもいいんでしょうか？
0208198
04/03/17 04:39ID:???画像の縮小表示の為に、下記の追加、修正をしてみました。
#######ファイル添付・$doc内の置換 ######
sub image {
if ($in{'upfile1'} || $in{'upfile2'} || $in{'upfile3'} || $in{'upfile4'} || $in{'upfile5'}) {
&upload;
$doc =~ s/($hereimg1)/<img src\=\"$cgidir$imgfna\" alt\=\"$alta\">/;
$doc =~ s/($hereimg2)/<img src\=\"$cgidir$imgfnb\" alt\=\"$altb\">/;
$doc =~ s/($hereimg3)/<img src\=\"$cgidir$imgfnc\" alt\=\"$altc\">/;
$doc =~ s/($hereimg4)/<img src\=\"$cgidir$imgfnd\" alt\=\"$altd\">/;
$doc =~ s/($hereimg5)/<img src\=\"$cgidir$imgfne\" alt\=\"$alte\">/;
}
}
↑これを
0209198
04/03/17 04:45ID:???#######ファイル添付・$doc内の置換 ######
sub image {
if ($in{'upfile1'} || $in{'upfile2'} || $in{'upfile3'} || $in{'upfile4'} || $in{'upfile5'}) {
&upload;
&big_img;
$doc =~ s/($hereimg1)/$taga/;
$doc =~ s/($hereimg2)/$tagb/;
$doc =~ s/($hereimg3)/$tagc/;
$doc =~ s/($hereimg4)/$tagd/;
$doc =~ s/($hereimg5)/$tage/;
}
}
0210198
04/03/17 04:46ID:???#----------------------#
# 画像サイズチェック #
#----------------------#
sub big_img {
if ($W<=450) {$taga="<img src\=\"$cgidir$imgfna\" alt\=\"$alta\">";
$tagb="<img src\=\"$cgidir$imgfnb\" alt\=\"$altb\">";
$tagc="<img src\=\"$cgidir$imgfnc\" alt\=\"$altc\">";
$tagd="<img src\=\"$cgidir$imgfnd\" alt\=\"$altd\">";
$tage="<img src\=\"$cgidir$imgfne\" alt\=\"$alte\">";
}
elsif ($W>450) {$taga="<A HREF\=\"$cgidir$imgfna\" TARGET\=\"_blank\"><img src\=\"$cgidir$imgfna\" alt\=\"$alta\" WIDTH\=450>";
$tagb="<A HREF\=\"$cgidir$imgfnb\" TARGET\=\"_blank\"><img src\=\"$cgidir$imgfnb\" alt\=\"$altb\" WIDTH\=450>";
$tagc="<A HREF\=\"$cgidir$imgfnc\" TARGET\=\"_blank\"><img src\=\"$cgidir$imgfnc\" alt\=\"$altc\" WIDTH\=450>";
$tagd="<A HREF\=\"$cgidir$imgfnd\" TARGET\=\"_blank\"><img src\=\"$cgidir$imgfnd\" alt\=\"$altd\" WIDTH\=450>";
$tage="<A HREF\=\"$cgidir$imgfne\" TARGET\=\"_blank\"><img src\=\"$cgidir$imgfne\" alt\=\"$alte\" WIDTH\=450>";
}
}
現在、この状態でアップ画像が1枚のときは問題ないが、複数アップすると縮小表示にならないといったトラブルが出ています。
原因はなんとなく解るのですが、どう修正すれば良いかで悩んでいます。
Googleで”Perl” ”入門”で引っかかったところ数箇所で勉強しながらやった、正に付け刃なものですから、修正すべき箇所のアドバイスいただけると幸いです。
0211198
04/03/17 04:49ID:TQ3Th6P90212nobodyさん
04/03/17 05:27ID:???450以下の画像は拡大になってしまう。
HEIGHTも抜けてるから縦横比も変わってしまうし。
高さは制限なしでいいのか？
縮小後の高さ = int (450 / 元画像の幅 * 元画像の高さ);
0213198
04/03/17 05:39ID:TQ3Th6P9幅の指定だけでIEだとちゃんと表示してくれてるので、幅しか指定してません。
複数画像をアップするときに、1枚毎の幅が＄Wに入ってないから駄目なんですよね？
その回避策を勉強しながら探してるのですが、なかなか案が浮かばなくて・・・。
0214nobodyさん
04/03/17 06:04ID:???$doc =~ s/($hereimg1)/<img src\=\"$cgidir$imgfna\" widht=\"450\" alt\=\"$alta\">/;
$doc =~ s/($hereimg2)/<img src\=\"$cgidir$imgfnb\" widht=\"450\" alt\=\"$altb\">/;
$doc =~ s/($hereimg3)/<img src\=\"$cgidir$imgfnc\" widht=\"450\" alt\=\"$altc\">/;
$doc =~ s/($hereimg4)/<img src\=\"$cgidir$imgfnd\" widht=\"450\" alt\=\"$altd\">/;
$doc =~ s/($hereimg5)/<img src\=\"$cgidir$imgfne\" widht=\"450\" alt\=\"$alte\">/;
0215198
04/03/17 06:07ID:TQ3Th6P90216198
04/03/17 06:20ID:???おつきあいくださり、ありがとうございました。
0217nobodyさん
04/03/17 12:47ID:???頼むから配列使ってくれ、と言いたくなる・・・
動くかどうか知らないがとりあえず適当に無理矢理。
sub image {
if ($in{'upfile1'} || $in{'upfile2'} || $in{'upfile3'} || $in{'upfile4'} || $in{'upfile5'}) {
my @tekito = &upload;
my ($a,$i,$j,$tag,$imgfn,$alt,$hereimg);
for($i = 0;$i < 5;$i++){
$a = ("a","b","c","d","e")[$i];
$imgfn = ${"imgfn$a"};
$alt = ${"alt$a"};
if($tekito[$i*3+1]<=450){
$tag = "<img src\=\"$cgidir$imgfn\" alt\=\"$alt\">";
}else{
$tag = "<A HREF\=\"$cgidir$imgfn\" TARGET\=\"_blank\"><img src\=\"$cgidir$imgfn\" alt\=\"$alt\" WIDTH\=450>";
}
$j=$i+1;
$hereimg = ${"hereimg$j"};
$doc =~ s/($hereimg)/$tag/;
}
}
}
0218198
04/03/17 14:50ID:???＞217さんのソースを組み込んでみた結果、みごとに問題が解決いたしました。
少し問題があったのですが、<A>タグを閉じるだけでOKでした。
本当に助かりました。
残りの改造仕上げて、テストが通ったら、今回教えていただいた部分を勉強したいとおもいます。
本当に本当にありがとうございました。
0219JK
04/03/17 17:11ID:Gzqqj+Vz『http://mamastar.jp/bbs/urikai/』『http://mamastar.jp/hos/』『http://mamastar.jp/bbs/serch_form.php』
『http://mamastar.jp/bbs/topic.php?cate=checks』
です。
削除の機能とか別のところでしているみたいで、カテゴリーも別で管理人が自らできるようにしているみたいで・・・多分。
初歩的なことPHPさっぱりわからず・・・。
教えてください！！
0220nobodyさん
04/03/17 17:17ID:???0221JK
04/03/17 17:48ID:Gzqqj+Vzすいません。訳わからず書いてしまって。
0222nobodyさん
04/03/17 18:27ID:???0224200
04/03/17 20:51ID:???ご指摘のとおり、書き直したものをアップしたのですが、
修正欄がでてこないし、一度削除して再度同じIDで登録すると
重複登録のエラーがでてきます・・・・・・
何かやり方がおかしいのでしょうか。ちなみにサーバーはロリポです。
0225JK
04/03/17 22:31ID:Gzqqj+Vzhttp://mamastar.jp/←ここのサイトの。
『http://mamastar.jp/news/』『http://mamastar.jp/baby/』『http://mamastar.jp/bbs/』『http://mamastar.jp/bbs/room.php』『http://mamastar.jp/bbs/idobata.php』
『http://mamastar.jp/bbs/urikai/』『http://mamastar.jp/hos/』『http://mamastar.jp/bbs/serch_form.php』
『http://mamastar.jp/bbs/topic.php?cate=checks』を作りたいのです。作り方を教えてください。
0228nobodyさん
04/03/18 12:37ID:H5623xHBOS:WinXP
ActivePerl 5.8.0
鯖はinfoseek予定
Tacky'sRoom(ttp://tackysroom.com/)で配布されていた
tottochan Ver0.51を使っていて、
質問なんだけど
今の状態だと、
「登録情報／結果・開催表示」の部分をクリックすると
自分の名前・パスワードを入力しても、自分の投稿が見れないで、
最新投稿者のが表示されるんだが
http://kaininn.hp.infoseek.co.jp/toto.txt
これを、自分の名前・パスワードで、自分の投稿が表示されるようにしたい。
0232nobodyさん
04/03/18 20:01ID:???あ、サムネイルもついでにつけといてね。期限は3日あげちゃう（はぁと
0233nobodyさん
04/03/18 20:15ID:???0234てぷる
04/03/18 20:38ID:???にアップされている、176R様が製作された
「どりーむぽすと」に一行レス機能が欲しいのですが、
どのように改造したらいいのでしょうか？
作品No.ごとに、"$no.log"というファイルを作って、
それを読み込んで作品の下に表示…と考えたのですが、
技術が伴わないのでなんとか改造して頂けませんでしょうか？
よろしくお願い致します。
0236235
04/03/19 09:13ID:???マルチポストかよ
0237nobodyさん
04/03/19 10:28ID:???ここのカレンダーなんですが、入力できる項目を増やしたいのです。
具体的には
---------------------------------
項目 ○○○
詳細 ○○○
○○○
色 標準 赤 青 黄
標準 太字
リンク先（省略可）○○○
---------------------------------
↑こんな感じの投稿画面にして、
---------------------------------
■タイトルタイトル ←リンクしてある。
詳細詳細詳細 ←これは普通のテキスト
詳細詳細詳細
---------------------------------
↑こんな感じに出力したいのです。
htmlはわかるので投稿画面までは出来たのですが
それをどうやって、入力した文字を反映させるかがわかりません。
あと、これは住民様の粋な計らいでかまわないのですが
当日分のスケジュールだけi-mode用に出力できないものでしょうか。
以上宜しくお願いいたします！
0238nobodyさん
04/03/19 15:19ID:???どうしてもそれを改造して使いたいのか？
余分な機能もついてるが希望しているようなものはあるぞ。
例えば
ttp://www3.biwako.ne.jp/~nobuaki/webcal/index.html
0239nobodyさん
04/03/19 19:16ID:???実はそのスクリプトも考えたのですが、
確かに余計な機能が多すぎるんですよね。
仮にコレなら名前欄、電子メール欄、時間欄
種別欄とパスワード、返信欄はいらないので
タイトルをリンクにできるような感じで使いたいです。
出力は>>237で述べたとおり。
あと次から次へとスケジュールが増えていく
（投稿自由にしてある）ので
出来れば今使っているのを改造して使いたいです。
0240168
04/03/20 10:39ID:???※行番号は上から順に追加・変更を行ってずれた番号
・ 428・440・452行目あたりをそれぞれ以下の2行に変更
※編集画面のTEXTAREAが1行なので複数行の予定はROWSを増やすように
しただけ。依頼内容とは関係ないのでやらなくても支障はない。
print "<TEXTAREA NAME=\"$i\" ROWS=1 COLS=60>$comment</TEXTAREA>";
↓
$rows = $comment =~ s/<BR>/\n/ig + 1;
print "<TEXTAREA NAME=\"$i\" ROWS=$rows COLS=60>$comment</TEXTAREA>";
・ 580行目あたりにある項目の<TR>・・・</TR>の下に4行追加
print "<TR>\n";
print " <TD>項目</TD>\n";
print " <TD><INPUT TYPE=\"text\" NAME=\"title\" SIZE=30></TD>\n";
print "</TR>\n";
↓
print "<TR>\n";
print " <TD>項目</TD>\n";
print " <TD><INPUT TYPE=\"text\" NAME=\"title\" SIZE=30></TD>\n";
print "</TR>\n";
print "<TR>\n";
print " <TD>詳細</TD>\n";
print " <TD><TEXTAREA NAME=\"detail\" ROWS=5 COLS=30></TEXTAREA></TD>\n";
print "</TR>\n";
0241240
04/03/20 10:42ID:???・ 700行目あたりのchop($line); # 改行コードをカットの下をそれぞれ以下に追加・変更
if ( $FORM{'url'} ne "" ) {
$temp2 = "$line <A HREF=\"$FORM{'url'}\">$FORM{'title'}</A>\n";
}
else {
$temp2 = "$line $FORM{'title'}\n";
}
$flag = 1;
↓
if ( $FORM{'url'} ne "" ) {# 改造
$temp2 = "$line <A HREF=\"$FORM{'url'}\">$FORM{'title'}</A>";
}
else {
$temp2 = "$line $FORM{'title'}";
}
if ($FORM{'detail'} ne "" ) {
$temp2 .= "<BR>$FORM{'detail'}";
}
$temp2 .= "\n";
$flag = 1;
0242240
04/03/20 10:43ID:???・ 上記の10行ぐらい下の似たような部分も以下に変更
if ( $FORM{'url'} ne "" ) {
$temp2 = "$FORM{'day'}:<A HREF=\"$FORM{'url'}\">$FORM{'title'}</A>\n";
}
else {
$temp2 = "$FORM{'day'}:$FORM{'title'}\n";
}
push( @data, $temp2 );
↓
if ( $FORM{'url'} ne "" ) {
$temp2 = "$FORM{'day'}:<A HREF=\"$FORM{'url'}\">$FORM{'title'}</A>";
}
else {
$temp2 = "$FORM{'day'}:$FORM{'title'}";
}
if ($FORM{'detail'} ne "" ) {
$temp2 .= "<BR>$FORM{'detail'}";
}
$temp2 .= "\n";
push( @data, $temp2 );
0243240
04/03/20 10:44ID:???続き
・ 42行目あたりに以下を追加
#===============================================================================
# 携帯用の初期設定
#-------------------------------------------------------------------------------
$i_title = "今日の予\定"; # タイトル文字列
$i_title_col = '#000090'; # タイトルの色
$i_bg_color = '#FFFFFF'; # 背景色
$i_text_color = '#000000'; # テキスト色
$i_link_color = '#2222ff'; # リンク色
$i_alink_color = '#ff0000'; # リンク中の色
$i_vlink_color = '#aa22aa'; # 既リンク色
$i_holiday = '#FF0000'; # 日付の文字色（休日）
$i_sunday = '#FF0000'; # 日付の文字色（日曜日）
$i_saturday = '#0000FF'; # 日付の文字色（土曜日）
$i_weekday = '#000000'; # 日付の文字色（平日）
$i_index = '../'; # 戻り先(URL)
・ 86行目あたりの&calender;の下に以下を追加
if ( $FORM{'view'} eq 'i' ) {
&i_html;
}
0244240
04/03/20 10:47ID:???・一番下のsub errの上あたりに以下を追加
#----------------------------------------------------------
# 携帯用今日の予定画面の表示
#----------------------------------------------------------
sub i_html{
print "Content-type: text/html\n\n";
print "<HTML>\n<HEAD>\n<TITLE>$i_title</TITLE>\n</HEAD>\n\n";
print "<BODY BGCOLOR=\"$i_bg_color\" TEXT=\"$i_text_color\" LINK=\"$i_link_color\" ALINK=\"$i_alink_color\" VLINK=\"$i_vlink_color\">\n\n";
print "<FONT COLOR=\"$i_title_col\">$i_title</FONT><br>";
if( $wday == 0 ) { # 日曜日
$i_date_color = $i_sunday;
}
elsif( $wday == 6 ) { # 土曜日
$i_date_color = $i_saturday;
}
else {
$i_date_color = $i_weekday;
}
if( $HOLIDAY{$mday} eq "=" ) {
$i_date_color = $i_holiday;
}
0245240
04/03/20 10:49ID:???print "<FONT COLOR=\"$i_date_color\">$year年$month月$mday($youbi)</FONT>\n";
print "<HR>\n";
if( $DATA{$mday} ne "" ) {
$comment = $DATA{$mday};
}
else {
$comment = "予\定はありません";
}
print "$comment\n";
print "<HR>\n";
print "<A HREF=\"$i_index\">戻る</A>\n<BR>\n";
print "</BODY>\n</HTML>\n";
exit;
}
以上
※ 携帯からのアクセス（本日分を表示）
http://*******/webcalen.cgi?view=i
0246nobodyさん
04/03/20 13:22ID:iCBIVaD5うｐろーだー使えよｗ
0247237
04/03/20 14:53ID:???おぉ。神様！有難うございます！
携帯にまで対応してもらって…ほんとに感謝です。
便利になりました。
最初に自分でやってたやり方と見比べたりして
「なるほど、そうか…」などと関心しつつ
色々勉強にもなりました。
0248240
04/03/20 15:04ID:???それに親切でやってあげてるわけじゃなく、自分が作ってるものが
ちょっと行き詰まった時の気分転換だし。
今のところ、落として解凍してすぐ使えますまでやってやろうとは思わないな。
有料なら別だけど・・・ってか？ｗ
0249nobodyさん
04/03/20 19:11ID:iCBIVaD5txtにしてＵＰすればイイんじゃねーの
0250nobodyさん
04/03/20 20:40ID:QQ01kqz9ttp://tackysroom.com/sample/smp_annecho.cgi
ここのスケジュールCGIの表示形式を、一番最初に開いた時に
当月(今なら3月）でなく他の月（5月とか）にしたいんですが、
何処を弄ればいいのでしょうか。
スクリプトはこれです。
ttp://hy-t.hp.infoseek.co.jp/sc.txt
ご教授よろしくお願いいたします。
0253250
04/03/20 21:10ID:QQ01kqz9$cday = 365;
($sec,$min,$hour,$day,$mon,$year,$wday)= localtime;
if( $FORM{'action'} eq 'move' || $FORM{'action'} eq 'download'){#表示対象年月が変更された場合
$year = $FORM{'year'};
$mon = $FORM{'month'};
}else{
$year = $syear;
$mon = $smonth;
ここのlocaltime辺りを変更すればいいとかかなぁ、と思うのですが…
違います？
0254252
04/03/20 21:20ID:???($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
このtimeにご希望のエポックを入れればよし。
例えば2003年09月21日なら、
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(1064070000);
0255250
04/03/20 21:27ID:QQ01kqz9しかし何で2003年09月21日が1064070000になるのか分からない…(若葉
コレスケジュール表に使いたいので、今年の5月を標準表示に
したいのですが、その場合はどういう数字を入れればよろしいので？
0257250
04/03/20 21:39ID:QQ01kqz9252さん貴方は神だ！！！
ありがとうございましたーー（*´∀｀*）
0258nanasi
04/03/21 05:34ID:???http://marunage.web2.poporo.net/joyful/joyful.cgi
の『c-board改造依頼』にあります。
改造点
・auの携帯でダウンロードできるようにして欲しい。
お礼は2890万ﾍﾄﾞﾛでお願いします。
0259nobodyさん
04/03/21 14:02ID:gjlqAC27＞ez.cgiという物を使うとできるとわかったのですが
だったらそれをコピーすれば終了
0260240
04/03/21 14:25ID:???0261nobodyさん
04/03/21 15:51ID:???んじゃないかい？
0263nobodyさん
04/03/22 12:27ID:???書きかえる場所がわからないんだろ？
漏れも探すのに時間かかった……。
./c-board354/style/msg.txt の 224,231,234,239,242行目。
c-board の改造は本当に面倒だよ…。
0264nobodyさん
04/03/22 12:34ID:???すまん、上のはたぶんPC用だ。
./c-board354/style/mobile/msg.txtの135行目が正解っぽい。
携帯からテストできないので勘だが…。
0265nobodyさん
04/03/25 01:00ID:Im20HR0F本当に助かります。
使用目的の都合上、閲覧者は不特定多数ですが、
■記事内容を編集・修正する機能がほしい （ただし編集できる人をパスワードで制限したい）
ディレクトリ構造：
# public_html (ホームディレクトリ)
# |
# +-- epad / index.cgi [705]
# | elog.cgi [606]
# | pcom.pl [604]
# | ptel.pl [604]
# | jcode.pl [604]
# |
# +-- img / *.gif
# +-- i / *.gif *.png
# +-- j / *.gif
# +-- lock [707] /
ちなみに、ソースは以下の場所にTXTでアップロードしていますので、 よろしかったら見て頂ければ幸いです。
index.cgi： http://www.geocities.jp/lesson_komura/index.txt
pcom.pl： http://www.geocities.jp/lesson_komura/pcom.pl
ptel.pl： http://www.geocities.jp/lesson_komura/ptel.pl
以上です。どうぞよろしくお願いします。
0266nobodyさん
04/03/25 07:19ID:???スクリプトは
http://marunage.web2.poporo.net/joyful/joyful.cgi
の「掲示板改造依頼」にアップしました。
ttp://mo-mo.vis.ne.jp/1sample/t/ud_meisai/mo-erv002.cgi
投稿欄のコメント部分のみ半角一文字分の空きが出るのを詰めたいです。
元の配布先であるTackyさんのところでは空きはないのですが
ttp://tackysroom.com/sample/smp_updown.cgi
どこをいじれば元に戻せるのかわからなかったのでよろしくお願いします。
こちらとアップローダーの上手い書き分けができてなくてすみません。
0267nobodyさん
04/03/25 11:29ID:Tstr23qDまるなげどん。にアップしといた。
0268266
04/03/25 13:12ID:???即レスありがとうございます。
しかし、直していただいたものも一文字分空白ができます。
さらに、635行目辺りにそのような表記がなく
を一つずつ消して見て試したのですがやはり上手くいかなくて
その時に
#メッセージ
print "<tr><td $tbgcolor>Message</td>\n";
print "<td $tbgcolor> <textarea name=\"comment\" cols=\"$col\" rows=\"$row\" $dmy $css_style> $c_comment</textarea> ";
print "</td></tr>\n";
の部分の $c_commentに空白があることに気づきそれを削除することで
望みどおりの表示になりました。
0269266
04/03/25 13:21ID:???”を”の前に が抜けていました。
>>267
を消しても大丈夫ということすら知らなかったので参考になりました。
ありがとうございました。
･･･しかし、またいじるうちに空白が出現しました。
本来表示予定のフレームなしで編集しているほうは先ほどの空白を消すことで
一文字分の空白は消えたので問題はないのですが。
やはりある程度は自分でプログラムの勉強をしたほうがいいのでしょうね。
0270nobodyさん
04/03/29 15:55ID:???配布先でアドバイスが得られない場合、ここで依頼すれば
親切な人が改造してくれるかもしれません。
依頼テンプレ
【. CGI名 .】 複数のバージョンがある場合には正確に （必須）
【配布先URL】 請け負う人が参照する場合があるので （必須）
【. 置き場所 .】 配布先が閉鎖の場合、すぐ見られるようtxtなどで
upした場合、 デザインをhtmlで作成した場合など （任意）
【. 依頼内容 】 機能・動作など希望を簡潔かつ詳細に （必須）
追加依頼は場合によっては全部やり直しなど
二度手間になるので最初から全部書くこと
0271nobodyさん
04/03/29 17:02ID:???あぷろだ用意してあります。
http://marunage.web2.poporo.net/joyful/joyful.cgi
スクを貼るのに必要な方はここを使ってください。
＊ >>132さんに感謝 ＊
0272nobodyさん
04/03/29 20:07ID:???もう一度質問いたします。
恐れ入ります、BooBoo倶楽部さんのところで配布されています、
「メールニュース」の改造をお願いしたいのですが
【. CGI名 .】 BooMailNews ver2.16
【配布先URL】 ttp://www.booboo.ne.jp/contents/cgi/program/mail/index.html
【. 依頼内容 】 E-mailの他に、名前を入力する欄をもうけ、
送信のさいに
$名前 さん、いつもお世話になっております。
$本文
$名前さんもご健康にお気をつけて。
$フッター
という形にしたいと思っております。
入力欄まではなんとか出来たのですが、出力がわかりません。
なお、address.datは
名前,メールアドレス,グループ
という形になっています。
0273nobodyさん
04/03/29 20:41ID:???ここの連中はメル送信スクリプトはスパムに使われるんじゃないかという事で改造を躊躇するんですよ。
技術的には簡単なんでしょうけどね。
0274272
04/03/29 21:00ID:???そうなんですか＿|￣|○
鯖引越しのお知らせに使おうと思っていたのですが……（任意：100人）
どこをいじればいいのか、ヒントだけでもいただけると助かります。
■ このスレッドは過去ログ倉庫に格納されています