Preliminary checkin of (mostly useless) Net::SAM perl module.

Net::SAM::StreamSession is currently unimplemented.
Net::Sam::[Datagram|Raw]Session block when they shouldn't and are buggy.

apps/sam/perl/Net/SAM/DatagramSession.pm

@@ -0,0 +1,48 @@
+#!/usr/bin/perl
+
+package Net::SAM::DatagramSession;
+
+use Net::SAM;
+
+@ISA = ("Net::SAM");
+
+sub new {
+    my ($class) = shift;
+    my ($dest , $direction, $options) = shift; 
+
+    my $self = $class->SUPER::new(@_);
+
+    $self->SUPER::send("SESSION CREATE STYLE=DATAGRAM DESTINATION=$dest DIRECTION=$direction $options\n");
+
+    undef ${*$self}->{RESULT};
+
+    while ( ! ${*$self}->{RESULT} ) {
+	$self->readprocess() || return undef;
+	   
+    }
+
+    if ( ${*$self}->{RESULT} == "OK" ) {
+	return $self;
+    } else {
+	return undef; # sorry.
+    }
+}
+
+sub send {
+    my $self = shift;
+    my $destination = shift;
+    my $message = shift;
+    my $size = length($message);
+    $self->SUPER::send("DATAGRAM SEND DESTINATION=$destination SIZE=$size\n$message");
+}
+
+sub receive {
+    my $self = shift;
+
+    # Shift one off the fifo array. Returns undef if none wait. 
+    return shift @{ $self->{incomingdatagram} };
+}
+
+
+
+1;

apps/sam/perl/Net/SAM/RawSession.pm

@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+
+package Net::SAM::RawSession;
+
+use Net::SAM;
+
+@ISA = ("Net::SAM");
+
+sub new {
+    my ($class) = shift;
+    my ($dest , $direction, $options) = shift; 
+
+    my $self = $class->SUPER::new(@_);
+
+    $self->send("SESSION CREATE STYLE=RAW DESTINATION=$dest DIRECTION=$direction $options\n");
+
+    undef $self->{result};
+    while ( ! $self->{RESULT} ) {
+	$self->readprocess();
+    }
+
+    if ( $self->{RESULT} == "OK" ) {
+	return $self;
+    } else {
+	return 0; # sorry.
+    }
+}
+
+sub send {
+    my $self = shift;
+    my $destination = shift;
+    my $message = shift;
+    my $samsock = $self->{samsock};
+    my $size = length($message);
+    print $samsock "RAW SEND DESTINATION=$destination SIZE=$size\n$message";
+}
+
+sub receive {
+    my $self = shift;
+
+    # Shift one off the fifo array. Returns undef if none wait. 
+    return shift @{ $self->{incomingraw} };
+}
+
+1;

apps/sam/perl/Net/SAM/StreamSession.pm

@@ -0,0 +1,3 @@
+#!/usr/bin/perl
+
+1;