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


記事No: 4750
投稿日: 2008/10/26(Sun) 22:12:18
タイトル動画を貼りつけるには・・
ID情報: aztec
投稿者: aztec
URLhttp://mumu.webhop.net/cgi-bin/joyful.cgi

JOYFUL NOTE v2.72を使わせて頂いています。
過去ログを見たんですが
掲示板に動画をアップする方法をご教授下さい。

過去ログの
------------------------
joyful.cgi 654行目付近
「# ファイル形式を認識」

同じく810行目付近
#-------------------------------------------------
# 留意事項
#-------------------------------------------------

以上2箇所に追加の記述をして見てください。
-----------------------------------------------

654行目と810行目付近と言うのが存在して無いようなんですが。

宜しくお願い致します。


記事No: 4752
投稿日: 2008/10/27(Mon) 23:28:05
タイトルRe: 動画を貼りつけるには・・
ID情報: Fuyuki
投稿者: BAL
URLhttp://f43.aaa.livedoor.jp/~sumure/

> JOYFUL NOTE v2.72を使わせて頂いています。
> 過去ログを見たんですが
> 掲示板に動画をアップする方法をご教授下さい。
>
> 過去ログの
> ------------------------
> joyful.cgi 654行目付近
> 「# ファイル形式を認識」
>
> 同じく810行目付近
> #-------------------------------------------------
> # 留意事項
> #-------------------------------------------------
>
> 以上2箇所に追加の記述をして見てください。
> -----------------------------------------------
>
> 654行目と810行目付近と言うのが存在して無いようなんですが。
>
> 宜しくお願い致します。


v2.72の場合は以下の箇所になります。
留意事項の変更はlibディレクトリ内のhowto.plになります。

●regist.cgi

#-------------------------------------------------
# 画像アップロード
#-------------------------------------------------
sub upload {
local($no) = @_;
local($macbin,$fname,$flg,$upfile,$imgfile,$tail,$W,$W2,$H,$H2);

# 画像処理
foreach (@in) {
if (/(.*)Content-type:(.*)/i) { $tail = $2; }
if (/(.*)filename="([^"]*)"/i) { $fname = $2; }
if (/application\/x-macbinary/i) { $macbin = 1; }
}
$tail =~ s/\r//g;
$tail =~ s/\n//g;

# ファイル形式を認識
if ($tail =~ /image\/gif/i && $gif) { $tail = ".gif"; $flg = 1; }
if ($tail =~ /image\/p?jpeg/i && $jpeg) { $tail = ".jpg"; $flg = 1; }
if ($tail =~ /image\/x-png/i && $png) { $tail = ".png"; $flg = 1; }
if ($tail =~ /text\/plain/i && $text) { $tail = ".txt"; $flg = 1; }
if ($tail =~ /lha/i && $lha) { $tail = ".lzh"; $flg = 1; }
if ($tail =~ /zip/i && $zip) { $tail = ".zip"; $flg = 1; }
if ($tail =~ /pdf/i && $pdf) { $tail = ".pdf"; $flg = 1; }
if ($tail =~ /audio\/.*mid/i && $midi) { $tail = ".mid"; $flg = 1; }
if ($tail =~ /msword/i && $word) { $tail = ".doc"; $flg = 1; }
if ($tail =~ /ms-excel/i && $excel) { $tail = ".xls"; $flg = 1; }
if ($tail =~ /ms-powerpoint/i && $ppt) { $tail = ".ppt"; $flg = 1; }
if ($tail =~ /audio\/.*realaudio/i && $ram) { $tail = ".ram"; $flg = 1; }
if ($tail =~ /application\/.*realmedia/i && $rm) { $tail = ".rm"; $flg = 1; }
if ($tail =~ /video\/.*mpeg/i && $mpeg) { $tail = ".mpg"; $flg = 1; }
if ($tail =~ /audio\/.*mpeg/i && $mp3) { $tail = ".mp3"; $flg = 1; }

if (!$flg) {
if ($fname =~ /\.gif$/i && $gif) { $tail = ".gif"; $flg = 1; }
if ($fname =~ /\.jpe?g$/i && $jpeg) { $tail = ".jpg"; $flg = 1; }
if ($fname =~ /\.png$/i && $png) { $tail = ".png"; $flg = 1; }
if ($fname =~ /\.lzh$/i && $lha) { $tail = ".lzh"; $flg = 1; }
if ($fname =~ /\.txt$/i && $text) { $tail = ".txt"; $flg = 1; }
if ($fname =~ /\.zip$/i && $zip) { $tail = ".zip"; $flg = 1; }
if ($fname =~ /\.pdf$/i && $pdf) { $tail = ".pdf"; $flg = 1; }
if ($fname =~ /\.mid$/i && $midi) { $tail = ".mid"; $flg = 1; }
if ($fname =~ /\.doc$/i && $word) { $tail = ".doc"; $flg = 1; }
if ($fname =~ /\.xls$/i && $excel) { $tail = ".xls"; $flg = 1; }
if ($fname =~ /\.ppt$/i && $ppt) { $tail = ".ppt"; $flg = 1; }
if ($fname =~ /\.ram$/i && $ram) { $tail = ".ram"; $flg = 1; }
if ($fname =~ /\.rm$/i && $rm) { $tail = ".rm"; $flg = 1; }
if ($fname =~ /\.mpe?g$/i && $mpeg) { $tail = ".mpg"; $flg = 1; }
if ($fname =~ /\.mp3$/i && $mp3) { $tail = ".mp3"; $flg = 1; }
}


記事No: 4758
投稿日: 2008/10/28(Tue) 17:11:44
タイトルRe^2: 動画を貼りつけるには・・
ID情報: aztec
投稿者: aztec
URLhttp://mumu.webhop.net/cgi-bin/joyful.cgi

> > JOYFUL NOTE v2.72を使わせて頂いています。
> > 過去ログを見たんですが
> > 掲示板に動画をアップする方法をご教授下さい。
> >
> > 過去ログの
> > ------------------------
> > joyful.cgi 654行目付近
> > 「# ファイル形式を認識」
> >
> > 同じく810行目付近
> > #-------------------------------------------------
> > # 留意事項
> > #-------------------------------------------------
> >
> > 以上2箇所に追加の記述をして見てください。
> > -----------------------------------------------
> >
> > 654行目と810行目付近と言うのが存在して無いようなんですが。
> >
> > 宜しくお願い致します。
>
>
> v2.72の場合は以下の箇所になります。
> 留意事項の変更はlibディレクトリ内のhowto.plになります。
>
> ●regist.cgi
>
> #-------------------------------------------------
> # 画像アップロード
> #-------------------------------------------------
> sub upload {
> local($no) = @_;
> local($macbin,$fname,$flg,$upfile,$imgfile,$tail,$W,$W2,$H,$H2);
>
> # 画像処理
> foreach (@in) {
> if (/(.*)Content-type:(.*)/i) { $tail = $2; }
> if (/(.*)filename="([^"]*)"/i) { $fname = $2; }
> if (/application\/x-macbinary/i) { $macbin = 1; }
> }
> $tail =~ s/\r//g;
> $tail =~ s/\n//g;
>
> # ファイル形式を認識
> if ($tail =~ /image\/gif/i && $gif) { $tail = ".gif"; $flg = 1; }
> if ($tail =~ /image\/p?jpeg/i && $jpeg) { $tail = ".jpg"; $flg = 1; }
> if ($tail =~ /image\/x-png/i && $png) { $tail = ".png"; $flg = 1; }
> if ($tail =~ /text\/plain/i && $text) { $tail = ".txt"; $flg = 1; }
> if ($tail =~ /lha/i && $lha) { $tail = ".lzh"; $flg = 1; }
> if ($tail =~ /zip/i && $zip) { $tail = ".zip"; $flg = 1; }
> if ($tail =~ /pdf/i && $pdf) { $tail = ".pdf"; $flg = 1; }
> if ($tail =~ /audio\/.*mid/i && $midi) { $tail = ".mid"; $flg = 1; }
> if ($tail =~ /msword/i && $word) { $tail = ".doc"; $flg = 1; }
> if ($tail =~ /ms-excel/i && $excel) { $tail = ".xls"; $flg = 1; }
> if ($tail =~ /ms-powerpoint/i && $ppt) { $tail = ".ppt"; $flg = 1; }
> if ($tail =~ /audio\/.*realaudio/i && $ram) { $tail = ".ram"; $flg = 1; }
> if ($tail =~ /application\/.*realmedia/i && $rm) { $tail = ".rm"; $flg = 1; }
> if ($tail =~ /video\/.*mpeg/i && $mpeg) { $tail = ".mpg"; $flg = 1; }
> if ($tail =~ /audio\/.*mpeg/i && $mp3) { $tail = ".mp3"; $flg = 1; }
>
> if (!$flg) {
> if ($fname =~ /\.gif$/i && $gif) { $tail = ".gif"; $flg = 1; }
> if ($fname =~ /\.jpe?g$/i && $jpeg) { $tail = ".jpg"; $flg = 1; }
> if ($fname =~ /\.png$/i && $png) { $tail = ".png"; $flg = 1; }
> if ($fname =~ /\.lzh$/i && $lha) { $tail = ".lzh"; $flg = 1; }
> if ($fname =~ /\.txt$/i && $text) { $tail = ".txt"; $flg = 1; }
> if ($fname =~ /\.zip$/i && $zip) { $tail = ".zip"; $flg = 1; }
> if ($fname =~ /\.pdf$/i && $pdf) { $tail = ".pdf"; $flg = 1; }
> if ($fname =~ /\.mid$/i && $midi) { $tail = ".mid"; $flg = 1; }
> if ($fname =~ /\.doc$/i && $word) { $tail = ".doc"; $flg = 1; }
> if ($fname =~ /\.xls$/i && $excel) { $tail = ".xls"; $flg = 1; }
> if ($fname =~ /\.ppt$/i && $ppt) { $tail = ".ppt"; $flg = 1; }
> if ($fname =~ /\.ram$/i && $ram) { $tail = ".ram"; $flg = 1; }
> if ($fname =~ /\.rm$/i && $rm) { $tail = ".rm"; $flg = 1; }
> if ($fname =~ /\.mpe?g$/i && $mpeg) { $tail = ".mpg"; $flg = 1; }
> if ($fname =~ /\.mp3$/i && $mp3) { $tail = ".mp3"; $flg = 1; }
> }
>
レスポンスありがとうございます。

少し弄ってみたのですが
アップロードは出来たのですが
ダウンロードが出来ないみたいです。

少しcgiについて勉強して
再度挑戦してみたいと思います。
>


[検索ページ]