Changeset 17548

Timestamp:

08/12/08 23:20:47 (5 months ago)

Author:

yto

Message:

ssuploader ver.1.1

Files:

• lang/perl/misc/ssuploader.cgi (modified) (6 diffs)

lang/perl/misc/ssuploader.cgi

@@ -1 @@
-#!/usr/bin/perl
-# Small Simple Uploader
-# since 2008-07-24 by yto (たつを)
-# (old version: http://nais.to/~yto/tools/ssupload/ [obsolete])
+#!/usr/bin/perl -T
+# Small Simple Uploader (ssuploader) by yto (たつを)
+# Version 1.1: http://chalow.net/2008-08-12-1.html
+# Version 1.0: http://chalow.net/2008-07-24-3.html
+# Version 0.0: http://nais.to/~yto/tools/ssupload/ [obsolete]
 use strict;
 use warnings;
@@ -13 +14 @@
 binmode STDOUT, ":utf8";
 
-# 準備： mkdir $outputdir; chmod 777 $outputdir
-my $outputdir = "up";
+# 準備: mkdir up; chmod 777 up
+my $up_dir = "up";
 
 my $q = new CGI;
@@ -22 +23 @@
 my $mode = $q->param('mode') || "";
 
-my $fn = basename($fh);
-my $outputfn = "$outputdir/$fn";
-my $timestamp = strftime "%y-%m-%d %H:%M:%S", localtime;
 my $message;
-
-if ($mode eq "up") {
+if ($mode eq "up" or $mode eq "delete") {
     if ($fh eq "") {
         $message = "ファイルを指定してください。";
-    } elsif ($fn =~ /[\x00-\x19\x7e-\xff]|\.\./) {
-        $message = "ファイル名に日本語文字などの被対応文字が混じっています。";
-    } elsif (-f $outputfn) {
-        $message = "同名のファイルが存在するので、一度削除してからアップしてください。";
     } else {
-        open(F, ">", $outputfn) or die; # memo: perl -T
-        flock(F, 2);
-        while (<$fh>) {
-            print F $_;
+        fileparse_set_fstype("MSDOS");
+        if (basename($fh) =~ m{^([^\x00-\x19\x7e-\xff\\/]+)$}) {
+            my $fn = $1;
+            $fn =~ s/^(.{100}).+$/$1/;
+            my $path = "$up_dir/$fn";
+            if (-f $path) {
+                if ($mode eq "delete") {
+                    unlink $path;
+                } else {
+                    $message = "同名のファイルが存在するので、"
+                        ."一度削除してからアップしてください。";
+                }
+            } elsif ($mode eq "up") {
+                open(my $upfh, ">", $path) or die;
+                flock($upfh, 2);
+                while (<$fh>) {
+                    print $upfh $_;
+                }
+                close $upfh;
+            }
+        } else {
+            $message = "ファイル名に日本語文字などの"
+                ."被対応文字が混じっています。";
         }
-        close F;
     }
-} elsif ($mode eq "delete") {
-    unlink $outputfn;
 }
 
@@ -54 +63 @@
     mtime => (stat $_)[9],
     timestamp => strftime("%y-%m-%d %H:%M:%S", localtime((stat $_)[9])),
-    }}<$outputdir/*>;
+    }}<$up_dir/*>;
 
 my $template = join("", <DATA>);
@@ -84 +93 @@
 </form>
 
-<div><a href="<TMPL_VAR name=reloadurl>">表示の更新</a></div>
+<div><a href="<TMPL_VAR name=reload_url>">表示の更新</a></div>
 
 <div style="margin:10px">
@@ -105 +114 @@
 </div>
 
-<div><a href="<TMPL_VAR name=reloadurl>">表示の更新</a></div>
+<div><a href="<TMPL_VAR name=reload_url>">表示の更新</a></div>
 </body>
 </html>