| #!/usr/bin/env perl | |
| require 'qpid_proton.pm'; | |
| my $messenger = qpid::proton::Messenger->new(); | |
| $messenger->set_outgoing_window(10); | |
| my $message = qpid::proton::Message->new(); | |
| my $address = $ARGV[0]; | |
| $address = "0.0.0.0" if !defined $address; | |
| $message->set_address($address); | |
| # how do we set properties and body? | |
| $messenger->start(); | |
| my $tracker = $messenger->put($message); | |
| print "Put: $message\n"; | |
| $messenger->send(); | |
| print "Status: ", $messenger->status($tracker), "\n"; | |
| $messenger->stop(); |