diff options
author | ivan <ivan> | 2008-03-02 04:11:51 +0000 |
---|---|---|
committer | ivan <ivan> | 2008-03-02 04:11:51 +0000 |
commit | c648976f0b7975f2328ebd7ba8c711fad0ca4195 (patch) | |
tree | f3d176ec300a46c253ba25a988b897bce02fe174 /rt/html/NoAuth/css/dhandler | |
parent | 5e05724a635a22776f1b973f5d7e77989da4e048 (diff) | |
parent | 8103c1fc1b2c27a6855feadf26f91b980a54bc52 (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/dhandler | 30 |
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> |