Changeset 984

Timestamp:

08/26/08 23:05:30 (3 months ago)

Author:

mpaschal

Message:

Break out and niceify theme downloading routine
Specify name and type when we have to make a template, since those are required

Files:

• branches/StyleCatcher-2.1-dev/plugins/StyleCatcher/lib/StyleCatcher/CMS.pm (modified) (3 diffs)

branches/StyleCatcher-2.1-dev/plugins/StyleCatcher/lib/StyleCatcher/CMS.pm

@@ -141 +141 @@
-}
-
+sub download_theme {
+    my $app = shift;
+    my ($url) = @_;
+
+    my $static_path = $app->static_file_path;
+    my $themeroot   = File::Spec->catdir($static_path, 'support', 'themes');
+    my $ua          = $app->new_ua();
+    my $filemgr     = file_mgr()
+        or return;
+
+    # Break up the css url in to a couple useful pieces
+    my @url = split( /\//, $url );
+
+    my $theme_url = join(q{/}, @url[0..-2]) . '/';
+    my ($basename, $extension) = split( /\./, $url[-1] );
+    if ($basename eq 'screen' || $basename eq 'style') {
+        $basename = $url[-2];
+    }
+
+    # Pick up the stylesheet
+    my $stylesheet_res = $ua->get($url);
+
+    # Parse out image filenames in the css and then write out the css file
+    # and thumbnails to our theme folder
+    my $stylesheet = $stylesheet_res->content;
+    $stylesheet =~ s!/\*.*?\*/!!gs;    # strip all comments first
+    my @images = $stylesheet =~ m{
+        \b url\( \s*                     # opening url() reference
+        ( [\w\.-]+\.(?:gif|jpe?g|png) )  # a filename ending in an image extension
+        \s* \)                           # close of url() reference
+    }xmsgi;
+
+    my $theme_path = File::Spec->catdir($themeroot, $basename);
+    if (!$filemgr->mkpath($theme_path)) {
+        my $error = $app->translate("Could not create [_1] folder - Check that your 'themes' folder is webserver-writable.",
+            $basename);
+        return $app->json_error($error);
+    }
+
+    $filemgr->put_data( $stylesheet_res->content,
+        File::Spec->catfile($theme_path, $basename . '.css') );
+
+    # Pick up the images we parsed earlier and write them to the theme folder
+    my @thumbs = ("thumbnail.gif", "thumbnail-large.gif");
+    IMAGE: for my $rel_url (@thumbs, @images) {
+        # Is this safe to get?
+        my $full_url = URI->new_abs($rel_url, $theme_url);
+        next IMAGE if !$full_url;
+        next IMAGE if  $full_url->as_string() !~ m{ \A \Q$theme_url\E }xms;
+
+        my $res = $ua->get($full_url->as_string());
+
+        # Skip images that don't download; we were accidentally doing so already.
+        next IMAGE if !$res->is_success();
+
+        my $canon_rel_url = URI->new($rel_url)->rel($theme_url);
+        my @image_path = split /\//, $canon_rel_url->as_string();
+        my $image_filename = File::Spec->catfile($theme_path, @image_path);
+        $filemgr->put_data($res->content, $image_filename, 'upload')
+          or return $app->json_error( $filemgr->errstr );
+    }
+
+    return $basename;
+}
+
-# does the work after user selects a particular theme to apply to a blog
-sub apply {
@@ -162 +227 @@
-    }
-
-    my $themeroot =
-      File::Spec->catdir( $static_path, 'support', 'themes' );
-    my $webthemeroot = $app->static_path . 'support/themes/';
-    my $mtthemeroot  = $app->static_path . 'themes/';
-    my $mtthemebase  = $app->static_path . 'themes-base/';
-
-    # Break up the css url in to a couple useful pieces
-    my @url = split( /\//, $url );
-
-    # if this isn't a local url, then we have to grab some files from
-    # yonder...
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
-    my $url2 = $mtthemebase . "blog.css";
-
@@ -402 +384 @@
-        $tmpl = new MT::Template;
-        $tmpl->blog_id($blog_id);
+        $tmpl->name('Stylesheet');
+        $tmpl->type('index');
-        $tmpl->identifier('styles');
-        $tmpl->outfile("styles.css");