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


記事No: 13025
投稿日: 2014/06/19(Thu) 19:42:08
タイトルアップロードの記載
ID情報: kackey62
投稿者: kackey62
URLhttp://chobi.net/[サーバー元URL]

アップロードで以下のように記述して、http://chobi.net/index.php
のパブリックhtmlとTOPにファイルを置きました。
しかし、表示されませんでした。
二つのお願いがあります。
動画ファイルなどのアップロードなどもしたく、このように記述しました。
いいのだろうかご意見をください。
また、このサイトの表示ができるようにしたいです。
KENTさんどうか、お助けください。


init.cgiはこちら




# モジュール取込/変数初期化
use strict;
my %cf;
#┌─────────────────────────────────
#│ UP-LOADER : init.cgi - 2014/04/05
#│ copyright (c) KentWeb
#│ http://www.kent-web.com/
#└─────────────────────────────────
$cf{version} = 'UP-LOADER v2.7';
#┌─────────────────────────────────
#│ [注意事項]
#│ 1. このプログラムはフリーソフトです。このプログラムを使用した
#│ いかなる損害に対して作者は一切の責任を負いません。
#│ 2. 設置に関する質問はサポート掲示板にお願いいたします。
#│ 直接メールによる質問は一切お受けいたしておりません。
#└─────────────────────────────────

#===========================================================
# ■ 基本設定
#===========================================================

# 管理用パスワード
$cf{password} = '0123';

# アップロードを許可するファイル(0=no 1=yes)
$cf{ok_text} = 1; # TEXT
$cf{ok_gif} = 1; # GIF
$cf{ok_jpeg} = 1; # JPEG
$cf{ok_excel} = 1; # EXCEL
$cf{ok_word} = 1; # WORD
$cf{ok_ppt} = 1; # POWER POINT
$cf{ok_zip} = 1; # ZIP
$cf{ok_pdf} = 1; # PDF
$cf{ok_mp3} = 1; # mp3
$cf{ok_mp4} = 1; # mp4
$cf{ok_wav} = 1; # wav
$cf{ok_wma} = 1; # wma
$cf{ok_wma} = 1; # wmv
# 1回当りの最大投稿サイズ (Bytes)
# [参考] 5242880 = 5MB
$cf{maxdata} = 5242880;

# 本体プログラムURL【URLパス】
$cf{upload_cgi} = './upload.cgi';

# 管理プログラムURL【URLパス】
$cf{admin_cgi} = './admin.cgi';

# ログファイル【サーバパス】
$cf{logfile} = './data/log.cgi';

# DLログファイル【サーバパス】
$cf{dlfile} = './data/dllog.cgi';

# カウントファイル【サーバパス】
$cf{cntfile} = './data/count.dat';

# アップロードディレクトリ【サーバパス】
$cf{upldir} = "./";

# アップロードディレクトリ【URLパス】
$cf{uplurl} = "./test";

# テンプレートディレクトリ【サーバパス】
$cf{tmpldir} = './tmpl';

# DLログ保存最大数(これを超えると自動削除)
$cf{dllog_max} = 300;

# コメント部の最大入力文字数(全角換算で)
$cf{max_com} = 20;

# 記録最大数
# → これを超えると古い順に削除
$cf{log_max} = 10

# 1ページあたりの記事表示件数
$cf{pg_max} = 10;

# MIMEタイプの表示最大文字数
$cf{mime_max} = 35;

# 戻り先URL【URLパス】
$cf{homepage} = "../index.html";

# アイコン画像【URLパス】
# → 順に [ノーマル] [ロック][削除]
$cf{ico_down} = "./icon/down.gif";
$cf{ico_lock} = "./icon/lock.gif";
$cf{ico_del} = "./icon/del.gif";

# アクセス制限:アップロード時のみ(半角スペースで区切る、アスタリスク可)
# → 拒否ホスト名を記述(後方一致)【例】*.anonymizer.com
$cf{deny_host} = '';
# → 拒否IPアドレスを記述(前方一致)【例】210.12.345.*
$cf{deny_addr} = '';

# ホスト取得方法
# 0 : gethostbyaddr関数を使わない
# 1 : gethostbyaddr関数を使う
$cf{gethostbyaddr} = 0;

#===========================================================
# ■ 設定完了
#===========================================================

# 設定値を返す
sub init {
return %cf;
}

#-----------------------------------------------------------
# フォームデコード
#-----------------------------------------------------------
sub parse_form {
my $cgi = shift;

my %in;
foreach ( $cgi->param() ) {
my $val = $cgi->param($_);

# 無害化
if ($_ ne 'upfile') {
$val =~ s/&/&/g;
$val =~ s/"/"/g;
$val =~ s/</&lt;/g;
$val =~ s/>/&gt;/g;
$val =~ s/'/&#39;/g;
$val =~ s/[\r\n]//g;
}
$in{$_} = $val;
}
return %in;
}

#-----------------------------------------------------------
# 乱数発生
#-----------------------------------------------------------
sub make_rand {
# 使用文字
my @wd = (0 .. 9, 'a' .. 'z', 'A' .. 'Z', '_');

# 乱数発生
my $rand;
for (1 .. 20) { $rand .= $wd[rand(@wd)]; }

# 結果を返す
return $rand;
}


1;


記事No: 13029
投稿日: 2014/06/22(Sun) 09:05:05
タイトルRe: アップロードの記載
ID情報: kent
投稿者: KENT

> アップロードで以下のように記述して、http://chobi.net/index.php
> のパブリックhtmlとTOPにファイルを置きました。
> しかし、表示されませんでした。
> 二つのお願いがあります。
> 動画ファイルなどのアップロードなどもしたく、このように記述しました。
> いいのだろうかご意見をください。

「設定ファイル」に取り扱いファイル種類を勝手に追加しても、プログラム本体に改造を施さないと動作しないと思います。

動画については、ご要望ということで今後のバージョンアップで認識しておきます。


[検索ページ] [掲示板]