adding client-side stream push method; working on the ingestor

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@745 9efc2488-bf62-4759-914b-345cdb29e865

diff --git a/src/perlmods/OpenSRF/AppSession.pm b/src/perlmods/OpenSRF/AppSession.pm
index 72ff06c..027a688 100644 (file)
--- a/src/perlmods/OpenSRF/AppSession.pm
+++ b/src/perlmods/OpenSRF/AppSession.pm
@@ -936,6 +936,12 @@ sub status {
        $self->session->send( 'STATUS',$msg, $self->threadTrace );
 }
 
+sub stream_push {
+       my $self = shift;
+       my $msg = shift;
+       $self->respond( $msg );
+}
+
 sub respond {
        my $self = shift;
        my $msg = shift;