★三 【 スクリプト改造工房 PART 9 】 ★三
■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん
2006/03/32(土) 04:52:20ID:WJnup8Dd# スレッドの説明
#================================
「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。
質問するときは以下の点に注意して書いて下さい
(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い
※答えてくれないからといって逆ギレする厨はお断り
0415nobodyさん
2009/02/05(木) 15:17:02ID:???0416414
2009/02/05(木) 16:05:49ID:???ファイル名 oo.jpg アップロード成功！
Warning: Division by zero in bbs.php on line 197
と出て、その行（表示させるテーブル）が凝縮されて画像は表示されません。
0417nobodyさん
2009/02/06(金) 02:28:34ID:???0418414
2009/02/06(金) 22:45:19ID:???if($filesize <= 100000)をif($filesize <= 800000)に変えるとなぜ
$a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h);
がエラーを起こすのか理解できていないので解決できません
0419nobodyさん
2009/02/06(金) 22:45:51ID:???0420nobodyさん
2009/02/06(金) 23:33:26ID:???とりあえずその行の直前ででも関係する変数を適当に出力してみれ。
ゼロ除算なのだから、割る数のうちいずれかが0になっている。
値がおかしい変数が見つかったら、その変数に値を設定している部分を全部洗い出して、どういう風に値が変わっていくか調べろ。
0421420
2009/02/07(土) 01:08:19ID:???問題はその変更じゃないな。変な画像が混ざってるんじゃねぇか？
データはそのままで改造前のスクリプトを設置したらちゃんと動くのか？
0422414
2009/02/07(土) 13:19:00ID:???アップして表示するのに関しては正常に動きます
画像がない場合の表示はダメです
理想 現実
■□□□□ ■××××
■アップした画像
□画像がない場合に表示する画像
×イメージがない
0423nobodyさん
2009/02/07(土) 13:42:18ID:???$a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h);
の直前に
print "Content-type: text/plain\n\n$a_num = $size_w/($a_w+$b_w*$a_h/$b_h+$c_w*$a_h/$c_h+$d_w*$a_h/$d_h+$e_w*$a_h/$e_h);\n";
exit;
みたいに書いてさ・・
0424414
2009/02/07(土) 14:58:22ID:???ありがとう。テーブルの幅を変えているからダメなんでしょうか？
何かやればやるほど色んな不具合が見つかり心が折れそうです
これは止めておいた方がいいスクリプトですかね（ ＾ω＾）
0425nobodyさん
2009/02/07(土) 17:41:10ID:???0426nobodyさん
2009/02/07(土) 18:01:23ID:???image.jpgがスクリプトと同じディレクトリに無いだけ、に一票。
どう見えるかなんざ枝葉末節の問題に過ぎないんだから、HTMLソースどうなってるのか確認しろよ。
0427nobodyさん
2009/02/07(土) 18:40:53ID:???デバッグの仕方教えても仕方ないような気がしてきた。
0428nobodyさん
2009/02/07(土) 18:44:15ID:???0429414
2009/02/07(土) 19:01:15ID:???テーブル幅・ファイルサイズを変えて色々試しました
ファイルサイズが関係無い事はわかったのですが
何がいけないかわからなかったです
>>426
422の現実は下記の間違いでした
■□×××
0430nobodyさん
2009/02/07(土) 19:47:38ID:???>表示してみなよ
>表示してみなよ
>表示してみなよ
>426
>HTMLソースどうなってるのか確認しろよ。
>HTMLソースどうなってるのか確認しろよ。
>HTMLソースどうなってるのか確認しろよ。
（日本語が分からないようなので3回言いました）
0432414
2009/02/07(土) 21:09:57ID:???表示された式をレスすれば解決してくれるの？
ソースを確認と言われても414のサイトにあるソースの
ファイルサイズとテーブル幅以外は変更してないので
確認して貰えれば助かるのですが？
0433nobodyさん
2009/02/07(土) 21:11:49ID:???こちらのスレでどうぞ
http://pc11.2ch.net/test/read.cgi/php/1158647441/
0434nobodyさん
2009/02/08(日) 07:11:28ID:???0ならば、登録フォームを表示させない。
1か0かは、管理人用ページから設定することができる。 という感じでPerlを組みたいのですが、
まだまだ初心者でよく分かりません。
一応、
<input type=radio name=bosyu value=1>表示する
<input type=radio name=bosyu value=0>表示しない
というフォームを作り、登録フォームの表示部分に、
if ( $bosyu == 1 ){
#登録フォーム
}
else {}
というようにしました。
しかし、管理人画面から1にしようが0にしようが、登録フォームはどのみち消えてしまいました。
この場合、どうしたらよいのでしょう？
もしよろしければ、
http://www.77c.org/d.php?f=nk5918.lzh
に本体をアップロードしましたので、修正箇所など教えていただけますと助かります。
私自身が追加しましたのは、行381,行382,行678,行683,行684 になります。
0435nobodyさん
2009/02/08(日) 07:13:19ID:???【. CGI名 .】 Annevote Ver0.791
【配布先URL】 http://tackysroom.com/
【. 置き場所 .】 http://tackysroom.com/cgi_annevote.htm
【ヘルプ内容】
>>434
0436nobodyさん
2009/02/08(日) 09:39:47ID:???ｽｸﾘﾌﾟﾄを全部見る気はないんで間違っているかもしれんが
684行
else {}
→不要
678行
if ( bosyu == 1 ){
→if ( $FORM{'bosyu'} == 1 ){
0437436
2009/02/08(日) 10:47:01ID:???>>436は間違ってるわｗ
設定を別ファイルとかに記録しておかないとダメ!! ゛o(≧◇≦*)oo(*≧◇≦)o″ダメ!!じゃんｗ
考え方としては
&decode ;の後に
$FORM{'bosyu'}の値が「表示しない」なら別ファイルとかに表示しないという記録をして
$FORM{'bosyu'}の値が｢表示する｣なら別ファイルとかに表示するという記録をする
678行目のif文では、別ファイルとかに表示するという記録があるかないかで分岐させればいい
0438nobodyさん
2009/02/08(日) 11:47:45ID:???ありがとうございます。
大体構造は理解できました。
if文で変数に値を入力する為には、「記録する」という別の処理が必要なのですね。
まことにお恥ずかしい話ですが、記録させるソースの書き方が分かりません・・・
例として、記録させるためのソースを教えていただけませんか？
（プログラム内容に沿っていなくても構いません。全体的に「どんな感じ」で書けばいいのか掴めれば幸いです。）
0439nobodyさん
2009/02/08(日) 15:15:31ID:???考え方は排他制御を参考にすればいい
$FORM{'bosyu'}の値が「表示しない」ならロックファイルみたいなものを作成し、
$FORM{'bosyu'}の値が｢表示する｣ならロックファイルみたいなものを削除する
if文はロックファイルみたいなものが存在していなかったらブロックを実行すればよい
annevote.cgiにもロックファイルが使われているからソースをよく読んで自分考えれ
0440nobodyさん
2009/02/12(木) 16:19:46ID:KnJ40Ap9【配布先URL】 http://blog.dtpwiki.jp/dtp/2009/02/favicon-api-api.html
【ヘルプ内容】 O_SHLOCKとO_EXLOCKが使えないサーバでロック処理をしたい
上記スクリプトをcoreserverに設置し、
http://MYDOMAIN.com/test/favicon.cgi/http://www.yahoo.co.jp/ などとして呼び出した結果、
Software error:
Your vendor has not defined Fcntl macro O_SHLOCK, used at /virtual/MYDOMAIN/public_html/test/favicon.cgi line 97.
とエラーが出ます。
O_SHLOCKを削除してテストを続行すると、次はO_EXLOCKが使えないとのエラー。
coreserverのOSがLinuxなので使えないようです。
http://www.coreserver.jp/help/index.php/spec/
エラーが出る部分を、Linuxで使えるロック処理にするにはどうすればいいのか、
どうぞご教示ください。
0442nobodyさん
2009/04/02(木) 18:02:40ID:q5b3212c【 配布先URL 】 http://siokara.que.jp/siokara_accessories.html
【 依頼期限 】 一週間くらい
【 依頼内容 】 1、サムネイル作成元（$img_dir）フォルダーを、複数（7つくらい）指定できるようにしてほしい
どうぞよろしくお願いします<m(__)m>
【 スクリプト改造依頼スレ】(丸投げ) part7再々
http://pc11.2ch.net/test/read.cgi/php/1222645553/
こちらでも依頼しましたが反応がありませんでした
0444442
2009/04/02(木) 21:27:22ID:???0445nobodyさん
2009/04/03(金) 23:39:45ID:oy8/1v1D【配布先URL】 http://tackysroom.com/page_cgi2.htm
【ヘルプ内容】
外部のテンプレートファイルを読み込んで表示させたいのですが、うまくいきません。
772行目あたりの「ヘッダー上部書き出し」のところに
open (FT,"/navi.tmp"); #navi.tmpはテンプレートファイルです。
@navi = <FT>;
close (FT);
と書き、表示させたいところに
print @navi;
と書いてみたのですが、表示されません。
解決策ありましたらどうかご教示下さい。
0446nobodyさん
2009/04/03(金) 23:50:12ID:???0447nobodyさん
2009/04/29(水) 09:42:28ID:???【. CGI名 .】arseno-l-0.5
【配布先URL】 ttp://www.geocities.jp/fla774/arseno/
【ヘルプ内容】 単語の新規登録時に既に登録済みの単語（例えば雨があるのに雨はng。飴ならok）はエラーにする方法が知りたい
やってみたことはdl.cgiの中にあるregist_entryで
「新しい単語を配列に書き込む」って処理があったから、その直前に
新しい単語と配列の単語を比較して、一致したら既に登録済みってことでエラーにしようと思いました。
&catch_continuation( "index", $word, $Ip );
&lock_file;
&get_index_array( \@index ) or &error( 'open_index', __LINE__, 1 );
$newkey = 0;
（追加↓）
foreach( @index ){
&error( 'double_word', __LINE__ ) if @index[1] == $word;
}
（追加ここまで↑）
実際に試してみると、重複して登録できてしまいました。何が原因なんでしょうか。
0448nobodyさん
2009/04/29(水) 09:58:24ID:???&error( 'double_word', __LINE__ ) if $_ eq $word;
}
0449447
2009/04/29(水) 10:29:59ID:???構文ミスってことでしょうか？
試してみましたが、やっぱり重複しても登録できてしまいました。
もしかして入れる場所間違ってるんでしょうか…。
0450nobodyさん
2009/04/29(水) 10:48:19ID:???0451447
2009/04/29(水) 14:48:50ID:???&get_index_arrayの単語と比較する前に「改行を除く」か
改行の手前までを比較対象にするようにすればいい、ってことですかね。
やってみます。
0452nobodyさん
2009/04/29(水) 18:30:42ID:???&error( 'double_word', __LINE__ ) if $_ eq "$word\n";
}
ちと頭悪いがsjisじゃなければこれで良くね？
0453447
2009/04/29(水) 21:36:31ID:???foreach my $var ( @index ){
my $var == @index;
my $var =~ s/\n//;
&error( 'double_word', __LINE__ ) if my $var_ eq "$word\n";
}
変数作って一旦配列の単語をコピーし、\nを置換で削って比較、と思ったのですが
既存の単語が消えて、新しい単語に置き換わる、という結果になってしまいました。
（雨、宝物、てすと、の３つがあった時、新たにとんかちを追加すると直前のてすとがとんかちに変わる）
>>452
ありがとうございます。試してみましたが、やはり重複登録できてしまいました。
0454nobodyさん
2009/04/29(水) 22:42:25ID:???なんか構文が色々おかしいぞｗ
foreach my $var ( @index ){
chomp($var);
&error( 'double_word', __LINE__ ) if $var eq $word;
}
0455nobodyさん
2009/04/29(水) 22:46:53ID:???0456447
2009/04/29(水) 23:30:00ID:???ローカル変数にはmyつけるってperlのサイトに出てましたが…違うんですかorz
>>454の方法を試すと
あめ、山、海の順で登録すると海を追加した後に山が消え、あめがあ行の前に移動して
海があ行先頭にきてしまいました。
どうもchomp命令で改行外すと、索引ファイルが改行なしになって表示が狂うようです。
>>454のmy $varをやめてchomp( @index)としても同様の結果に。
改行を外すのではなく見ないようにする方がいいんでしょうか。（末尾無視するとか）
0457nobodyさん
2009/04/30(木) 00:25:58ID:???うーん、思ったよりおまいさんのperl知識が乏し過ぎてちょと話がしにくいな。
判定方法は>>454のでいいはずだけど、他にもいじっちゃったでしょ。そこがたぶん全然合って無い。
頑張る気持ちは大切にしてあげたいけど、先にもう少しperlの勉強しないと厳しいかも。
急ぎなら丸投げおいで。
0458447
2009/04/30(木) 21:19:55ID:???付け焼刃の知識じゃどうにもなんないみたいだし…。
とはいえ自分で中身わかってないと、何かあっても対処できないし
急ぎでもないので丸投げ依頼も今はやめておきます。
ありがとうございます。
0459nobodyさん
2009/05/11(月) 18:46:32ID:???0460nobodyさん
2009/05/11(月) 19:31:18ID:???0461nobodyさん
2009/05/11(月) 20:50:00ID:???0462nobodyさん
2009/05/16(土) 15:01:23ID:???なんで動かないのだろう・・・？
0463nobodyさん
2009/05/21(木) 07:04:12ID:5BoMPyL5【配布先URL】 http://www.chama.ne.jp/index.htm
【. 置き場所 .】 http://www.chama.ne.jp/download/bbs/iimgbbs/index.htm
【ヘルプ内容】 強制ID表示 ２ちゃんねると同じトリップ利用可
まだ勉強し始めの超初心者です
よろしくお願いします。
0464nobodyさん
2009/05/21(木) 07:35:18ID:???どこまでやってどこでつっかえてるんだ？
0465643
2009/05/21(木) 20:45:43ID:???参考になるようなサイトを紹介してもらえればと思ったのですが、丸投げスレの方が妥当なのでそちらに行ってみます。
0466nobodyさん
2009/05/26(火) 00:43:47ID:hNbwwEvZ【配布先URL】 ttp://plus-code.net/cgi-flash-counter/accesscounter01/
【ヘルプ内容】
このCGIは、flashでカウンターを表示しているのですが、
カウンターをクリックすると、配布URLのトップページに飛ぶようになっています。
flash(swf)自体にリンクが設定されているのですが、なんとかこれを無効にする
方法はないでしょうか？
リンクの無効が無理なら、リンクが同窓で開くため、最低限別窓で開くようにしたいです。
タグでa hrefのtargetを指定してもNGでした。
0468nobodyさん
2009/06/05(金) 17:00:12ID:???【配布先URL】 現在配布先は閉鎖しているようです
【. 置き場所 .】 ttp://www.kent-web.com/pubc/book/test/uploader/uploader.cgi
pass 3210
【ヘルプ内容】 このメールフォームcgiに日本語が含まれない場合の送信を防ぐ
機能を付けたいのですが、どうしても自分では無理です。
どうかよろしくお願いします。
0469468
2009/06/05(金) 17:12:47ID:???0470nobodyさん
2009/06/05(金) 17:21:31ID:???0471470
2009/06/05(金) 17:35:10ID:???やり易い
0472468
2009/06/05(金) 19:39:42ID:???<textarea name="message" cols="20" rows="5" ></textarea>
<br>
<input name="submit" type="submit" value=" 送 信 " id="sousin"/>
</form>
htmにはこのように記述しています
>>470
自分でカスタマイズするうちにおかしくいじってしまったのかもしれません、
どこの部分を閉じていないかもわかっていないのですがご指摘ありがとうございます
0473468
2009/06/05(金) 19:43:34ID:???ここを参考にして
if ($in{'comment'} !~ /(\x82[\x9F-\xF2])|(\x83[\x40-\x96])/) {
&error("日本語を書いてください。");
}
を付け加えようとしたのですが、日本語の文を投稿してもエラーになってしまいました。
根本的な所がわかっていないようです
0474470
2009/06/05(金) 20:06:16ID:???$in{'comment'}を$in{'message'}にすればいい。あと、荒らしに対してエラー文で"日本語を書いてください。"ってヒント与えるのはいただけない
if ($in{'message'}!~/(?:[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC]|[\xA1-\xDF]){2}/){ &error("Busy now!"); }
0475nobodyさん
2009/06/05(金) 22:01:44ID:???回答ありがとうございます。
早速150行目に上記の文を書き加えると、思った通りの動作をしてくれました。
一日中考えて調べてわからなかったので本当に感謝です。
神様（∩´∀｀）∩
0476475
2009/06/08(月) 19:03:02ID:???近所の書店には自分に合いそうなものがありません。
御薦めの本を知っている方いますか？
スレ違いすみません
0477nobodyさん
2009/06/08(月) 21:02:02ID:???0479nobodyさん
2009/06/13(土) 16:33:54ID:FybrAREw【配布先URL】 http://www.kent-web.com/
【ヘルプ内容】
sub add {
&header;
print <<"HTML";
<html>
<body>
<form method="post" action="./petit.cgi">
名前：<input type="text" name="sname" size="20" maxlength="8"><br>
<input type="submit" value="投稿する">
</form>
</body>
</html>
HTML
exit;
}
こんなサブルーチンを作る。
petit.cgi?mode=add
で呼び出したフォームから、書き込みが出来るようにしたい。
投稿内容がメチャクチャ多くなる予定なので、別ページでフォームを作りたいのです。
0480nobodyさん
2009/06/13(土) 17:07:25ID:???プログラムにする必要すらなく、そのHTMLソースを丸ごとHTMLとして保存して設置すれば、とりあえず投稿はできるはず。
あとはCGIのほうからフォームを書き出してる箇所を削ってリンクでも置いておけばいい。
0481nobodyさん
2009/06/13(土) 17:35:09ID:???これをやって思い出したのですが、投稿項目を凄く(少なくとも30個以上)にしたいのです。
たとえば、初期状態だと
・お名前
・Eメール
・タイトル
・コメント
・URL
ですよね。
たとえば、これに新しく
・出身地
という項目を追加するとして、フォームを書きます。
name属性をsyussinとします。
これをスクリプトのどの辺にスカラー変数として追加したら出来るのか？がわからないのです。
どうやらログファイルに追加はできたようなのですが、掲示板上には表示がされていません。。。
0483nobodyさん
2009/06/13(土) 18:20:46ID:FybrAREwオリジナルでは364行目の
($no,$reno,$date,$name,$mail,$sub,$comment,$url,$host,$pw,$color)
を、〜$color,$syussin)
と追加。
397行目の
print "<blockquote><font color=\"$color\">$comment</font></blockquote>\n";
を、〜$comment,$syussin</font></blockquote>\n";
と追加。
517行目の
unshift(@new,"$no<><>$date<>$in{'name'}<>$in{'email'}<>$in{'sub'}<>$in{'comment'}<>$in{'url'}<>$host<>$ango<>$in{'color'}<>$in{'icon'}<>\n");
を、〜$in{'comment'}<>$in{'syussin'}<>〜
と追加しています。
私の頭以外ではどこが抜けているのでしょうか？
0484nobodyさん
2009/06/13(土) 18:23:37ID:???すみません、あくまでも例えでして。
アンケートではなくて、レスのできる掲示板で作る必要があるのです。
昔はとあるゲストブックで項目を追加したりしていたので、簡単にできるかな？と思ったのですが、難しいですね。
0485nobodyさん
2009/06/13(土) 18:31:26ID:???考え方はそれで合ってるし、実際いま俺がやってみてもそれで普通に表示されてる。
本当にログファイルに追加できてる？
「どうやら」とかじゃなくてちゃんと確かめた？
0486nobodyさん
2009/06/13(土) 19:02:09ID:???たびたびすみません。
ログファイルを覗くと、出身地に入れたはずの「地球」が残っているので、
ログへの書き込みはできていると判断しています。
しかし、コメントのすぐ右に表示されるはずの「地球」の文字はないです。
http://www1.axfc.net/uploader/Sc/so/8786.zip
せっかくなので、うｐってみました。
どこを間違えているのでしょうか？
0487nobodyさん
2009/06/13(土) 19:19:11ID:???0488nobodyさん
2009/06/13(土) 19:31:38ID:???一回吊ってから目的のスクリプト作成にむけてがんばります！
ありがとうございました！
0489nobodyさん
2009/06/18(木) 03:54:24ID:O7fG+jDb【配布先URL】 http://idol.nm.land.to/
【ヘルプ内容】 アップロードフォームの編集&削除パスをクッキーで記憶させたい
どうぞよろしくお願いします<m(__)m>
0491489
2009/06/18(木) 14:13:06ID:???0492nobodyさん
2009/06/18(木) 15:28:25ID:???0493489
2009/06/18(木) 16:05:19ID:???分かる方いらっしゃいましたらどうぞよろしくお願いします<m(__)m>
0494nobodyさん
2009/06/18(木) 16:21:56ID:???0495nobodyさん
2009/06/18(木) 17:11:51ID:???setcookie("pass", $_POST['pass'], time()+60*60*24*30 );
setcookie("downpass", $_POST['downpass'], time()+60*60*24*30 );
0497ぶぅ子 ◆0cRRT9dSGg
2009/08/16(日) 01:42:29ID:M5z+7f3F【スクリプト改造依頼スレ】（丸投げ）part7再々で投稿したら、
こちらへ誘導されたので投稿します。
よろしくお願いします。
【 CGI&PHP名 】 余裕派掲示板ver2.62
【 配布先URL 】 http://cgipon.specters.net/
【 ヘルプ内容 】 WAP2.0対応にしたいです。
お世話になっているお店のサイトの掲示板で運用されているのですが、
配布されている状態のままだと、auの携帯からの表示、投稿が出来ません。
実際にサイトを作成した人は消息不明で困っている店主さんから相談を受けました。
現状はgoogleなどで検索をし、
USER_AGENTの記述を変更すれば良いのかと認識していたのですが、
やっぱりこれだけでは足りないのでしょうか？
例えば[yoyuuha.cgi]を開き、
$mob{car} = 'UP.BROWSER';
の部分を
$mob{car} =~ m/^KDDI/
に変更という具合に。
本を読んだり、ネット検索などをしていますが自分の理解が追いつかない状態です。
すみませんがよろしくお願いします。
0498nobodyさん
2009/08/16(日) 02:24:46ID:???流石に他人のためにパケ代使って確認する気にはなれないぜ？
0499nobodyさん
2009/08/16(日) 02:34:24ID:???というかできないならできないってちゃんと言った方が良いんじゃないのか？
今後ことあるごとに頼まれるパターンだぞそれ。その度にここ来るのかよ。
0500ぶぅ子 ◆0cRRT9dSGg
2009/08/16(日) 22:44:37ID:M5z+7f3F>498
失礼しました。肝心の結果ですが、497に書いた内容を試した所、
auの携帯（W63K）では既に投稿されている内容の閲覧だけは
出来るようになってます。
でも、他キャリアの携帯でアクセスした時のように
投稿フォームやボタンなどの表示は無く、ただテキスト表示のみです。
>499
相談を受けた段階では、出来るor出来ないの即答はしませんでした。
本やネットで調べて出来そうなら試してみます、という返答のみです。
今回の相談内容だと有料でプロの方にお願いするような内容となるのでしょうか？
他のスクリプトへ変更するように提案した方が良いのかなぁ。
0501nobodyさん
2009/08/17(月) 07:01:39ID:???プロに依頼するレベルかどうかはともかく、あんたが出来ないんだから
まずはその事を伝えるべきだろう。
他の物に変えるか、金払って対応するかどうかを決めるのはその店主とやらの仕事。
0502nobodyさん
2009/09/18(金) 21:50:14ID:???get-flash-videos -Google Code
http://code.google.com/p/get-flash-videos/
数々の動画サイトからコマンドラインで動画を取得するツールなのですが、
ニコニコ動画にてダウンロードするファイルが恐らくswfだった場合、下記エラーメッセージが表示されダウンロードに失敗します。
--------------------------
Using method 'nicovideo' for http://www.nicovideo.jp/watch/nm7382869
Error: No ID found
Couldn't extract Flash movie URL. This site may need specific support adding,or fixing.
--------------------------
Perlが大好きで勉強しつつ、swf対応にしようと書き換えているのですが上手く行きませんorz
どなたかswf対応に書き換えた後のdiff結果を頂けないでしょうか…
よろしくお願い致します。
0504nobodyさん
2009/09/19(土) 00:47:27ID:???0508nobodyさん
2009/09/27(日) 13:11:10ID:???もう見てないかもしれんし, 板違いかもしれんけど, ソース見るついでに
弄ったら一応落ちてきたので, せっかくだから貼っておきます.
indent の空白が全角になるかもしれんから, 適当に手パッチした方が無難かも.
1番目のは smXXX 以外を弾く仕様になってたので, nmXXX も許すようにしただけ.
2番目のは問答無用で suffix が flv になるのようなので, 動画形式に合わせた
suffix にするようにした. なくても nmXXX は落ちてくる.
3番目のは取得したデータが動画かどうかチェックするルーチンが swf に
対応してないようなので対応させた. 先頭 3bytes が "CWS" らしいが,
いい加減に調べただけなので, なんかあっても知らんがな.
0509508
2009/09/27(日) 13:13:22ID:???+++ get_flash_videos-1.15 2009-09-27 13:12:42.000000000 +0900
@@ -2010,7 +2010,7 @@ use URI::Escape;
sub find_video {
my ($self, $browser, $embed_url) = @_;
- my $id = ($embed_url =~ /(sm\d+)/)[0];
+ my $id = ($embed_url =~ /([sn]m\d+)/)[0];
die "No ID found\n" unless $id;
my $base = "http://ext.nicovideo.jp/thumb_watch/$id";
@@ -2029,7 +2029,9 @@ sub find_video {
$browser->get($base . "/$playkey");
my $url = uri_unescape(($browser->content =~ /url=([^&]+)/)[0]);
- return $url, title_to_filename($title);
+ $url =~ m{/smile\?(.)=} or die;
+ my $type = { qw( v flv m mp4 s swf ) }->{$1} or die;
+ return $url, title_to_filename($title, $type);
}
1;
@@ -3318,6 +3320,9 @@ sub check_magic {
# Other QuickTime
} elsif(substr($data, 4, 4) eq 'moov' || substr($data, 4, 4) eq 'mdat') {
return 1;
+ # SWF
+ } elsif(substr($data, 0, 3) eq 'CWS') {
+ return 1;
}
return 0;
0510502
2009/09/27(日) 17:37:37ID:???ありがとうございます！
実は毎日見てたよこのスレ…
ずっと色々試してたけど上手く行かなかった…
助かりました。本当にありがとう！
0511nobodyさん
2009/09/30(水) 22:50:07ID:???【配布先URL】 http://www.din.or.jp/~raelian/ReadMeNicky.html
【 ヘルプ内容 】
コメントに、スパム フィルターがついているみたいなんですが、
オフにしたいのですけど、どうしたらいいでしょうか？
一人で日記に使うので、誰か他の人が書き込むことはないので。
よろしくお願いします。
0512nobodyさん
2009/10/07(水) 09:41:18ID:???スパムフィルタっつーか「日本語が入ってないとスパム扱い」の処理なら入ってるけどそれのこと？
だったら2717行目をコメントアウト。
0513nobodyさん
2009/10/09(金) 07:07:29ID:???0514nobodyさん
2009/10/09(金) 11:24:14ID:???0515CUCYMNzIrxbzJeUL
2009/10/22(木) 23:25:26ID:???■ このスレッドは過去ログ倉庫に格納されています