summaryrefslogtreecommitdiff
path: root/rt/html/NoAuth/css/dhandler
diff options
context:
space:
mode:
authorivan <ivan>2008-03-02 04:11:51 +0000
committerivan <ivan>2008-03-02 04:11:51 +0000
commitc648976f0b7975f2328ebd7ba8c711fad0ca4195 (patch)
treef3d176ec300a46c253ba25a988b897bce02fe174 /rt/html/NoAuth/css/dhandler
parent5e05724a635a22776f1b973f5d7e77989da4e048 (diff)
parent8103c1fc1b2c27a6855feadf26f91b980a54bc52 (diff)
This commit was generated by cvs2svn to compensate for changes in r6255,
which included commits to RCS files with non-trunk default branches.
Diffstat (limited to 'rt/html/NoAuth/css/dhandler')
-rw-r--r--rt/html/NoAuth/css/dhandler30
1 files changed, 30 insertions, 0 deletions
diff --git a/rt/html/NoAuth/css/dhandler b/rt/html/NoAuth/css/dhandler
new file mode 100644
index 000000000..4c8ba3405
--- /dev/null
+++ b/rt/html/NoAuth/css/dhandler
@@ -0,0 +1,30 @@
+<%ONCE>
+my $squisher;
+</%ONCE>
+<%INIT>
+my $arg = $m->dhandler_arg;
+my $path;
+if ( $arg =~ m{^(.*)-squished(\.[^\.]+)$} ) {
+ $path = $m->current_comp->dir_path .'/'. $1 . $2;
+}
+else {
+ return $m->decline;
+}
+
+$squisher = new RT::CSS::Squish unless $squisher;
+$squisher->{'mason'} = $m;
+
+$m->out( $squisher->concatenate( $path ) );
+
+package RT::CSS::Squish;
+use CSS::Squish '0.06';
+use base qw(CSS::Squish);
+sub file_handle {
+ my $self = shift;
+ my $file = shift;
+ my $content = $self->{'mason'}->scomp($file);
+ open my $fh, '<', \$content or die "$!";
+ return $fh;
+}
+
+</%INIT>