Changeset 963

Timestamp:

08/18/08 04:09:46 (3 months ago)

Author:

breese

Message:

modified export-ts to properly copy static files if they are present. added support for a --static parameter to indicate where static files are stored

Files:

• trunk/tools/export-ts/export-ts (modified) (7 diffs)

trunk/tools/export-ts/export-ts

@@ -18 +18 @@
-sub usage {
-    return qq{--blog=<blog_id> --name=<TS name> [--version=<TS version>]
-
+ [--static=<dir>]
-}
-
@@ -34 +34 @@
-                    the resulting plugin. (optional)
-
+        --static    The path to the directory containing your mt-static
+                    files for this template set. It must be a relative 
+                    path from your mt-static folder.
+
-        --id        The ID of the resulting template set. (optional)
-
@@ -42 +46 @@
-}
-
-
+, $STATIC
-$TS_NAME    = 'My Template Set';
-
+1
-
-sub options {
@@ -50 +54 @@
-        'blog=i'    => \$BLOG_ID,
-        'name=s'    => \$TS_NAME,
+        'static=s'  => \$STATIC,
-        'id=s'      => \$TS_ID,
-        'key=s'     => \$TS_KEY,
@@ -62 +67 @@
-use File::Path;
-use MT::Util qw( dirify );
+use MT;
+use File::Copy::Recursive qw(dircopy);
-
-sub main {
@@ -70 +77 @@
-    $TS_ID  ||= dirify($TS_NAME);
-    $TS_KEY ||= dirify($TS_NAME);
+    $STATIC ||= File::Spec->catdir( 'plugins', $TS_KEY );
-
-    $BASE_DIR = $TS_KEY . "-" . $TS_VERSION;
-    mkpath( File::Spec->catdir( $BASE_DIR, 'plugins', $TS_KEY, 'templates' ) );
-
-
-
+
+
+
+
+
+
+
+
+
+
+
-    my @tmpls;
-    my $yaml = YAML::Tiny->new;
@@ -184 +200 @@
-}
-
+sub _static_file_path {
+    my ($ctx) = @_;
+    my $cfg = $ctx->{cfg};
+    my $path = $cfg->StaticFilePath;
+    if (!$path) {
+        $path = $ctx->{mt_dir};
+        $path .= '/' unless $path =~ m!/$!;
+        $path .= 'mt-static/';
+    }
+    $path .= '/' unless $path =~ m!/$!;
+    return $path;
+}
+
-__PACKAGE__->main() unless caller;
-