[SVN] [27] XSP demo

[ma...@sergeant.org]

Revision: 27
Author:   matt
Date:     2006-08-02 19:02:27 +0000 (Wed, 02 Aug 2006)

Log Message:
-----------
XSP demo

Added Paths:
-----------
    trunk/plugins/demo/serve_xsp

Added: trunk/plugins/demo/serve_xsp
===================================================================
--- trunk/plugins/demo/serve_xsp	2006-08-01 20:52:12 UTC (rev 26)
+++ trunk/plugins/demo/serve_xsp	2006-08-02 19:02:27 UTC (rev 27)
@@ -0,0 +1,30 @@
+#!/usr/bin/perl -w
+
+sub init {
+    my $self = shift;
+    
+    $self->register_config('XSP_Match', sub { $self->matchfiles(@_) });
+}
+
+sub matchfiles {
+    my ($self, $conf) = (shift, shift);
+    
+    my $key = $self->plugin_name . '::matchfiles';
+    @_ and $conf->notes($key, shift);
+    $conf->notes($key);
+}
+
+sub hook_xmlresponse {
+    my ($self, $input) = @_;
+    
+    $self->log(LOGDEBUG, "XSP Transform");
+    
+    my $match = $self->matchfiles($self->config);
+    
+    $self->log(LOGDEBUG, "Does ", $self->client->headers_in->filename, " match $match?");
+    return DECLINED unless $self->client->headers_in->filename =~ /$match/;
+    
+    my $out = $input->transform(XSP());
+    
+    return OK, $out;
+}
\ No newline at end of file