source: apps/sam/perl/samcat.pl @ 07e79ce

Last change on this file since 07e79ce was 1cf7dac, checked in by zzz <zzz@…>, 17 years ago

test

  • Property mode set to 100644
File size: 384 bytes
Line 
1#!/usr/bin/perl
2
3use Net::SAM::RawSession;
4use Net::SAM::DatagramSession;
5
6$sam=Net::SAM::DatagramSession->new($ARGV[0], "BOTH", "tunnels.depthInbound=0");
7print "Connected? " . $sam->connected() . "\n";
8
9$me = $sam->lookup("ME");
10print "Sending to $me.\n";
11$sam->send($me,"fooquux");
12
13$sam->readprocess();
14($source, $message) = @{ $sam->receive() };
15print "$source -- $message"; 
16
17
18
Note: See TracBrowser for help on using the repository browser.