先日公開した、小さくてシンプルなアップローダー「ssuploader」。

- [を] 小さくてシンプルなアップローダーCGIを新しくしたので公開します[2008-07-24-3]


いくつか問題点を修正したのでお知らせします。
Version 1.1 として coderepos へアップしました。
言ってみれば、自己添削ですね。

- ssuploader.cgi
http://coderepos.org/share/browser/lang/perl/misc/ssuploader.cgi
http://coderepos.org/share/changeset/17548

(1) "-T" スイッチに対応：
セキュアじゃなかったので修正 (ref. [2006-05-27-3])。

if (basename($fh) =~ m{^(^[\x00-\x19\x7e-\xff\\/]+)$}) {
    my $fn = $1;

(2) IEからのアップに対応：
File::Basename の使い方が甘く、IEからだと失敗していた。

fileparse_set_fstype("MSDOS");

を追加して対応。

(3) 長過ぎるファイルに対応：無理矢理短くする。

$fn =~ s/^(.{100}).+$/$1/;

(4) その他：
- タイポ修正：reloadurl → reload_url
- 使ってない変数を削除：$timestamp
- 変数名の些細な変更。


追記080814: タイポ指摘感謝！(sspuloader → ssuploader)