diff --git a/build/tests/CustomSystemUpdater/work/aftercls.sh b/build/tests/CustomSystemUpdater/work/aftercls.sh
new file mode 100755
index 00000000..a7459117
--- /dev/null
+++ b/build/tests/CustomSystemUpdater/work/aftercls.sh
@@ -0,0 +1,29 @@
+#!/bin/sh
+#! bash -f
+#----------------------------------------------------------------------------
+# Project:  TwlSDK - tools
+# File:     aftercls.sh
+#
+# Copyright 2007 Nintendo.  All rights reserved.
+#
+# These coded instructions, statements, and computer programs contain
+# proprietary information of Nintendo of America Inc. and/or Nintendo
+# Company Ltd., and are protected by Federal copyright law.  They may
+# not be disclosed to third parties or copied or duplicated in any form,
+# in whole or in part, without the prior written consent of Nintendo.
+#
+# $Date::            $
+# $Rev$
+# $Author$
+#----------------------------------------------------------------------------
+
+
+
+if [ $# -lt 1 ];
+then
+	echo "input target dir name"
+	exit
+fi
+
+./tocsu.sh $1
+ruby toaqua.rb $1
diff --git a/build/tests/CustomSystemUpdater/work/toaqua.rb b/build/tests/CustomSystemUpdater/work/toaqua.rb
new file mode 100755
index 00000000..caeb94a1
--- /dev/null
+++ b/build/tests/CustomSystemUpdater/work/toaqua.rb
@@ -0,0 +1,69 @@
+#----------------------------------------------------------------------------
+# Project:  TwlSDK - tools
+# File:     toaqua.sh
+#
+# Copyright 2007 Nintendo.  All rights reserved.
+#
+# These coded instructions, statements, and computer programs contain
+# proprietary information of Nintendo of America Inc. and/or Nintendo
+# Company Ltd., and are protected by Federal copyright law.  They may
+# not be disclosed to third parties or copied or duplicated in any form,
+# in whole or in part, without the prior written consent of Nintendo.
+#
+# $Date::            $
+# $Rev$
+# $Author$
+#----------------------------------------------------------------------------
+require "find"
+require "fileutils"
+
+REGION_DIR = {
+    "u" => ["aus"],
+    "e" => ["usa"],
+    "j" => ["jp"],
+    "p" => ["euro"],
+    "a" => ["aus", "usa", "jp", "euro"],
+}
+
+def proc(target_dir, output_dir)
+    Find.find(target_dir){ |path|
+        next unless File.file?(path) && (/[a-z0-9A-Z]{4}-v[0-9]+\.tad\.out/ =~ path) != nil
+#        p path
+        src = path
+
+        # ディレクトリ内のtadファイルの.tadより前を取り出す
+        dest = ""
+        Find.find(File.split(src)[0]){|tad|
+            next unless (/.*\.tad\z/ =~ tad) != nil
+            #p tad
+            dest = File.split(tad)[1]
+        }
+        # リージョンを判別してコピー
+        regions = REGION_DIR[File.split(src)[1][3..3]]
+        for region in regions do
+            system("cp #{src} #{[output_dir, region, dest].join("/")}")
+        end
+    }
+    
+end
+
+# こっからメイン
+
+if ARGV.size < 1
+    $stdout.printf("Usage:#{__FILE__} target_clsed_dir output_dir")
+    exit -1
+end
+src = ARGV[0]
+out = "#{src}_foraqua"
+system("mkdir #{out}")
+system("cp -rf #{src}/aus #{out}")
+system("cp -rf #{src}/usa #{out}")
+system("cp -rf #{src}/euro #{out}")
+system("cp -rf #{src}/jp #{out}")
+#system("mkdir #{out}/aus")
+#system("mkdir #{out}/usa")
+#system("mkdir #{out}/euro")
+#system("mkdir #{out}/jp")
+
+proc(src, out)
+