Date: Thursday January 3, 2002 @ 22:35
Author: matt
Update of /home/cvs/AxKitB2B/lib/AxKitB2B/Server/Component
In directory ted:/home/matt/Perl/AxKitB2B/lib/AxKitB2B/Server/Component
Modified Files:
Listener.pm Transformer.pm
Log Message:
More hacking on getting a pipeline setup
Index: Listener.pm
===================================================================
RCS file: /home/cvs/AxKitB2B/lib/AxKitB2B/Server/Component/Listener.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Listener.pm 2002/01/03 17:30:17 1.1
+++ Listener.pm 2002/01/03 22:35:03 1.2
@@ -1,8 +1,33 @@
-# $Id: Listener.pm,v 1.1 2002/01/03 17:30:17 matt Exp $
+# $Id: Listener.pm,v 1.2 2002/01/03 22:35:03 matt Exp $
package AxKitB2B::Server::Component::Listener;
use strict;
+use vars qw(@ISA);
+use AxKitB2B::Server::Component;
+@ISA = qw(AxKitB2B::Server::Component);
+
+sub new {
+ my $class = shift;
+ my ($details) = @_;
+ bless {
+ id => $details->{id},
+ resource => $details->{resource},
+ 'next' => undef,
+ }, $class;
+}
+
+sub add_next {
+ my $self = shift;
+ $self->{'next'} = shift; # we never "add" - a listener can only have 1 "next"
+}
+
+sub run {
+ my $self = shift;
+ my ($responder) = @_;
+ # feck. how do we do this then, eh?...
+
+}
1;
__END__
Index: Transformer.pm
===================================================================
RCS file: /home/cvs/AxKitB2B/lib/AxKitB2B/Server/Component/Transformer.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- Transformer.pm 2002/01/03 17:30:17 1.1
+++ Transformer.pm 2002/01/03 22:35:03 1.2
@@ -1,7 +1,25 @@
-# $Id: Transformer.pm,v 1.1 2002/01/03 17:30:17 matt Exp $
+# $Id: Transformer.pm,v 1.2 2002/01/03 22:35:03 matt Exp $
package AxKitB2B::Server::Component::Transformer;
use strict;
+
+use vars qw(@ISA);
+use AxKitB2B::Server::Component;
+@ISA = qw(AxKitB2B::Server::Component);
+
+sub new {
+ my $class = shift;
+ my ($details) = @_;
+
+ use Data::Dumper; $Data::Dumper::Indent=1; warn("Trans: ", Dumper($details),
+"\n");
+ bless {
+ }, $class;
+}
+
+sub add_next {
+ my $self = shift;
+ $self->{'next'} = shift; # we never "add" - a listener can only have 1 "next"
+}
1;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
