+# Argument check --------------------------------------------
+
+rel="$1"
+tag="` check_versiontag "$rel" `" || exit 1
+pkg_dir="${mod}-${rel}"
+
+if [ "$__utf8" ] ; then
+ pkg_dir="${pkg_dir}_utf8"
+fi
+
+# Export the module -----------------------------------------
+
+test ! -d "$pkg_dir" || err "There's already a directory: $pkg_dir"
+
+if [ -z "$__checkout" ]
+then cmd="export"
+else cmd="checkout"
+fi
+
+echo cvs -z3 -d "$CVSROOT" -q "$cmd" -r "$tag" -d "$pkg_dir" "$mod"
+ cvs -z3 -d "$CVSROOT" -q "$cmd" -r "$tag" -d "$pkg_dir" "$mod"
+
+test -d "$pkg_dir" || err "There isn't a directory: $pkg_dir"
+
+# Remove '.cvsignore' if exists -----------------------------
+test -z "$__noremove" && {
+ echo find "$pkg_dir" -type f -name '.cvsignore' "| xargs rm -f"
+ find "$pkg_dir" -type f -name '.cvsignore' | xargs rm -f
+}
+
+# Conversion ------------------------------------------------
+
+if [ "$__utf8" ] ; then
+ echo "Converting EUC-JP => UTF-8 ..."
+ find "$pkg_dir" -type f \( -name "*.txt" -or -name "*.php" -or -name "*.lng" -or -name "*.dat" -or -name "*.ref" \) |
+ while read line; do
+ case "$line" in
+ "$pkg_dir"/zh-CN.lng.php ) ;; # UTF-8 already, Do nothing
+ * ) convert "$line" ;;
+ esac
+ done
+
+ # Replace 'EUC-JP' => 'UTF-8'
+ ( cd "$pkg_dir" &&
+ convert_EUCJP2UTF8 lib/init.php skin/pukiwiki.skin*.php
+ )
+
+ # Filename encoded 'encoded-EUC-JP' to 'encoded-UTF-8'
+ echo "Renaming encoded-EUC-JP => encoded-UTF-8 ..."
+ ( cd "$pkg_dir" &&
+ for dir in wiki wiki.en cache; do
+ ( cd "$dir" &&
+ ls *.txt *.ref *.rel 2>/dev/null | while read line; do
+ target="`$encls "$line" 2>/dev/null`" || exit 1
+ if [ "x$line" != "x$target" ] ; then
+ echo " " mv "$dir/$line" "$dir/$target"
+ mv "$line" "$target" || exit 1
+ fi
+ done
+ ) || exit 1
+ done
+ ) || err "stop."
+fi
+
+# chmod -----------------------------------------------------
+
+chmod_pkg "$pkg_dir"
+
+# Create a package ------------------------------------------
+
+test ! -z "$__nopkg" && exit 0