/[mdap]/dump.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /dump.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4 - (hide annotations)
Sun Apr 22 14:41:37 2007 UTC (16 years, 11 months ago) by dpavlin
File MIME type: text/plain
File size: 410 byte(s)
better delimiter at beginning of packet
1 dpavlin 1 #!/usr/bin/perl
2    
3     use strict;
4     use lib '../blib/lib','../blib/arch';
5     use IO::Socket::Multicast;
6    
7     use constant GROUP => '224.0.0.103';
8     use constant PORT => '3235';
9    
10     my $sock = IO::Socket::Multicast->new(LocalPort=>PORT,ReuseAddr=>1);
11     $sock->mcast_add(GROUP) || die "Couldn't set group: $!\n";
12    
13     while (1) {
14     my $data;
15     next unless $sock->recv($data,1024);
16 dpavlin 4 print "#" x 30, "\n", $data, "\n", "-" x 30, "\n";
17 dpavlin 1 }

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26