KENT-WEB サポートコーナー 過去ログ [ 0220 ]

記事No： 5498
投稿日： 2009/02/23(Mon) 15:59:11
タイトル： ClipBoard v1.95のファイル名ですが
ID情報： goten
投稿者： はく
URL： http://maka.web2.jp/dl66/cl.cgi

いつもこちらのスクリプトを使わせて頂きとても感謝しています。
過去ログを検索しましたら同じような質問がありましたので、実行してみましたがバージョンが違うせいかできませんでしたのでスレを建てさせて頂きましたm(_ _)m

ClipBoard v1.95で、ファイル名が自動的に1.mp3などに変換されるのですが、これを元のファイル名のままUPできるように変更できないでしょうか？

記事No： 5499
投稿日： 2009/02/23(Mon) 21:14:29
タイトル： Re: ClipBoard v1.95のファイル名ですが
ID情報： Fuyuki
投稿者： BAL
URL： http://f43.aaa.livedoor.jp/~sumure/

> いつもこちらのスクリプトを使わせて頂きとても感謝しています。
> 過去ログを検索しましたら同じような質問がありましたので、実行してみましたがバージョンが違うせいかできませんでしたのでスレを建てさせて頂きましたm(_ _)m
>
> ClipBoard v1.95で、ファイル名が自動的に1.mp3などに変換されるのですが、これを元のファイル名のままUPできるように変更できないでしょうか？


v1.97での説明です。
以下の追加修正を行ってください。

#-------------------------------------------------
# 記事表示
#-------------------------------------------------
-- 途中省略 --

# 添付ファイルが存在する場合
if ($tail eq ".gif" || $tail eq ".jpg" || $tail eq ".png" || $tail eq ".mp3") { $tail = $no . $tail; } ## ★修正
if (-e "$ImgDir$tail") { ## ★修正
if ($tail =~ /.*(\.gif|\.jpg|\.png)$/i ) { ## ★追加
if (!$PostMode && $ImageCheck && $chk != 1) {
print "<p><img src=\"$ImgUrl$IconSoon\"><p>\n";
} else {
if ($w && $h) { $wh="width=$w height=$h"; }
else { $wh=""; }
print "<p><a href=\"$ImgUrl$tail\" target='_blank'><img src=\"$ImgUrl$tail\" border=0 $ipt $wh></a>\n"; ## ★修正
}
} else {
print "<p><a href=\"$ImgUrl$tail\"><img src=\"$ImgUrl$IconClip\" border=0 alt='Download:$tail'></a><b>$tail</b>\n"; ## ★修正

#-------------------------------------------------
# 書きこみ処理
#-------------------------------------------------
-- 途中省略 --

# 最大記事数処理
while ($max <= @lines) {
$del = pop(@lines);
local($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tail)
= split(/<>/, $del);
if (-e "$ImgDir$tail") { unlink("$ImgDir$tail"); } ## ★修正

#-------------------------------------------------
# 画像アップロード
#-------------------------------------------------
-- 途中省略 --

# 添付データを書き込み
if ($fname =~ /.+[\/\\](.+\..+)$/ ) {$tail2=$1;} ## ★追加
$imgfile = "$ImgDir$tail2"; ## ★修正
if (-f $imgfile) { &error("同名のファイルが存在します。ファイルの名前を変えてから再度投稿して下さい。"); } ## ★追加
if (!open(OUT,"> $imgfile")) {
if ($clip_err) { &error("画像のアップロードに失敗しました"); }
}
binmode(OUT);
binmode(STDOUT);
print OUT $upfile;
close(OUT);

chmod(0666,$imgfile);

# 画像サイズ取得
if ($tail eq ".jpg") { ($W, $H) = &j_size($imgfile); }
elsif ($tail eq ".gif") { ($W, $H) = &g_size($imgfile); }
elsif ($tail eq ".png") { ($W, $H) = &p_size($imgfile); }
$tail = $tail2; ## ★追加

#-------------------------------------------------
# 管理モード
#-------------------------------------------------
-- 途中省略 --
# 削除情報をマッチング
@new=();
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
$flag=0;
($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tail) = split(/<>/);
foreach $del (@del) {
if ($no == $del) {
$flag=1;
if (-e "$ImgDir$tail") ## ★修正
{ unlink("$ImgDir$tail"); } ## ★修正

-- 途中省略 --

open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
$img_flag=0;
($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tail,$w,$h,$tim,$chk) = split(/<>/);

if ($eml) { $nam="<a href=\"mailto:$eml\">$nam</a>"; }
$com =~ s/<br>//ig;
$com =~ s/</&lt;/g;
$com =~ s/>/&gt;/g;
if (length($com) > 60) {
$com = substr($com,0,60);
$com .= "..";
}

if ($tail eq ".gif" || $tail eq ".jpg" || $tail eq ".png") {$tail = $no . $tail; } ## ★修正
if (-e "$ImgDir$tail") { ## ★修正
if ($tail =~ /.*(\.gif|\.jpg|\.png)$/i ) { ## ★追加

$img_flag = 1;
$File = "画像";
} else { $File = "File"; }
$clip = "<a href=\"$ImgUrl$tail\" target='_blank'>$File</a>"; ## ★修正
$size = -s "$ImgDir$tail"; ## ★修正
$all += $size;

#-------------------------------------------------
# ユーザ記事削除
#-------------------------------------------------
sub usrdel {
local($flag,$no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tail,$pwd,$upfile,$match,@new);

# 入力チェック
if ($in{'no'} eq '' || $in{'pwd'} eq '') {
&error("削除Noまたは削除キーが入力モレです");
}

# ロック処理
if ($lockkey) { &lock; }

$flag=0;
@new=();
open(IN,"$logfile") || &error("Open Error : $logfile");
while (<IN>) {
($no,$dat,$nam,$eml,$sub,$com,$url,$hos,$pw,$tail) = split(/<>/);
if ($in{'no'} == $no) {
$flag=1;
$pwd=$pw;
$upfile="$tail"; ## ★修正
next;

記事No： 5501
投稿日： 2009/02/24(Tue) 01:02:31
タイトル： Re^2: ClipBoard v1.95のファイル名ですが
ID情報： goten
投稿者： はく

ＢＡＬ様

改造にも関わらず早々教えて頂きありがとうございます！
お手数おかけし、申し訳ありませんでした。　心より感謝
致します。

記事No： 5502
投稿日： 2009/02/24(Tue) 10:45:46
タイトル： Re^2: ClipBoard v1.95のファイル名ですが
ID情報： goten
投稿者： はく
URL： http://maka.web2.jp/dl66/cl.cgi

すみません。。
修正しましたところ、エラー表示になってしまいます。
こちらのミスと思い念のため1.97に変更し、３回修正
してみましたがやはりエラーになりました。

サポート外の質問ですので、これ以上サポートできない
場合は放置して下さい。　もし簡単に問題点がおわかり
になるようでしたら宜しくお願い致します。m(_ _)m

記事No： 5504
投稿日： 2009/02/24(Tue) 14:34:20
タイトル： Re^3: ClipBoard v1.95のファイル名ですが
ID情報： Fuyuki
投稿者： BAL
URL： http://f43.aaa.livedoor.jp/~sumure/

> すみません。。
> 修正しましたところ、エラー表示になってしまいます。
> こちらのミスと思い念のため1.97に変更し、３回修正
> してみましたがやはりエラーになりました。
>
> サポート外の質問ですので、これ以上サポートできない
> 場合は放置して下さい。　もし簡単に問題点がおわかり
> になるようでしたら宜しくお願い致します。m(_ _)m

No.5499の記事に不具合がありましたので修正しておきました。
上下が入れ替わってる箇所がありますのでその通りに修正を行ってください。

記事No： 5505
投稿日： 2009/02/24(Tue) 16:23:01
タイトル： Re^4: ClipBoard v1.95のファイル名ですが
ID情報： goten
投稿者： はく
URL： http://maka.web2.jp/dl66/cl.cgi

ありがとうございます！（Ｔ＾Ｔ）クゥー

ご指示通り下記のように変更してみましたが、やはり
ページエラーになってしまいます。。
http://maka.web2.jp/clip.txt←変更したものをテキストとして
UPしてみました。

こちらのミスかもしれませんが、何度修正しても同じ結果ですの
で。。。　　何度もお手数おかけして大変申し訳ありません。

記事No： 5506
投稿日： 2009/02/24(Tue) 17:09:35
タイトル： Re^5: ClipBoard v1.95のファイル名ですが
ID情報： Fuyuki
投稿者： BAL
URL： http://f43.aaa.livedoor.jp/~sumure/

# 添付ファイルが存在する場合
if ($tail eq ".gif" || $tail eq ".jpg" || $tail eq ".png") { $tail = $no . $tail; }## ★修正
if (-e "$ImgDir$tail") { ## ★修正
if ($tail =~ /.*(\.gif|\.jpg|\.png)$/i ) { ## ★追加
if (!$PostMode && $ImageCheck && $chk != 1) {
print "<p><img src=\"$ImgUrl$IconSoon\"><p>\n";
} else {
if ($w && $h) { $wh="width=$w height=$h"; }
else { $wh=""; }
print "<p><a href=\"$ImgUrl$tail\" target='_blank'><img src=\"$ImgUrl$tail\" border=0 $ipt $wh></a>\n"; ## ★修正
}
} else {
print "<p><a href=\"$ImgUrl$tail\"><img src=\"$ImgUrl$IconClip\" border=0 alt='Download:$tail'></a> <b>$tail</b>\n"; ## ★修正 この箇所に改行が入っていましたので元記事を修正しました。

コピー＆ペーストした箇所の各行頭に全角スペースが入っています。
間隔を空ける時はTabキーを使ってください。


記事No： 5507
投稿日： 2009/02/24(Tue) 17:28:16
タイトル： Re^6: ClipBoard v1.95のファイル名ですが
ID情報： goten
投稿者： はく
URL： http://maka.web2.jp/dl66/cl.cgi

ＢＡＬ様

何度もお手数おかけし大変申し訳ありませんでした。
おかげで無事修正できましたぁあああああああああ！

心より御礼申し上げます。

[検索ページ]