adding FilePump

lib/WebGUI/Macro/FilePump.pm

@@ -0,0 +1,103 @@
+package WebGUI::Macro::FilePump;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2009 Plain Black Corporation.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use strict;
+use WebGUI::FilePump::Bundle;
+
+=head1 NAME
+
+Package WebGUI::Macro::Build
+
+=head1 DESCRIPTION
+
+Macro to access FilePump bundle information.
+
+=head2 process( $session, $bundleName, $type )
+
+Deliver the bundle files.  If in admin mode, give raw links to the files.
+If not in admin mode, give links to the bundled, minified files.
+
+=over 4
+
+=item *
+
+A session variable
+
+=item *
+
+$bundleName, the name of a File Pump bundle.
+
+=item *
+
+$type, the type of files from the Bundle that you are accessing.  Either JS or javascript, or CSS or css.
+
+=back
+
+=cut
+
+
+#-------------------------------------------------------------------
+sub process {
+	my $session    = shift;
+	my $bundleName = shift;
+	my $type       = shift;
+    $type          = lc $type;
+	my $output     = "";
+
+    my $bundleId = WebGUI::FilePump::Bundle->getAllIds($session, {
+        constraints => [ { 'bundleName = ?' => [$bundleName]}, ], 
+        limit       => 1,
+    });
+    return '' unless $bundleId and $bundleId->[0];
+
+    my $bundle = WebGUI::FilePump::Bundle->new($session, $bundleId);
+    return '' unless $bundle;
+
+    if (! $session->var->isAdminOn) {
+        my $dir = $bundle->getPathClassDir;
+        if ($type eq 'js' || $type eq 'javascript') {
+            my $file = $dir->file($bundle->bundleUrl . '.js');
+            return sprintf qq|<script type="type/javascript" src="%s">\n|, $file->stringify;
+        }
+        elsif ($type eq 'css') {
+            my $file = $dir->file($bundle->bundleUrl . '.css');
+            return sprintf qq|<link rel="stylesheet" type="type/css" href="%s">\n|, $file->stringify;
+        }
+        else {
+            return '';
+        }
+    }
+    else {
+        my $template;
+        my $files;
+        if ($type eq 'js' || $type eq 'javascript') {
+            $template = qq|<script type="type/javascript" src="%s">\n|;
+            $files    = $bundle->get('jsFiles');
+        }
+        elsif ($type eq 'css') {
+            $template = qq|<link rel="stylesheet" type="type/css" href="%s">\n|;
+            $files    = $bundle->get('cssFiles');
+        }
+        else {
+            return '';
+        }
+        foreach my $file (@{ $files }) {
+            $output .= sprintf $template, $file->{uri};
+        }
+        return $output;
+    }
+	return '';
+}
+
+1;
+
+#vim:ft=perl