merge quagga-plugin with http://git.acinonyx.ath.cx/?p=olsr-quagga.git
[olsrd.git] / lib / quagga / test / foo.pl
1 #!/usr/bin/perl
2
3 use IO::Socket;
4
5 $command = 11; # 11 = redistribute_add , 13 = redistribute_default_add
6
7 $proto = 2; # connected 
8
9 $remote = IO::Socket::INET->new (Proto => "tcp",
10                                  PeerAddr => "127.0.0.1",
11                                  PeerPort => "2600",
12                                  );
13 $remote->autoflush (1);
14 #print $remote pack ("nc", 3, 13);
15 print $remote pack ("nc",3,1);
16 print $remote pack ("ncc", 4,$command,2);
17 print $remote pack ("ncccccNcNcNN", 25, 7, 10, 16, 11, 25, 0xc0a80206, 0, 0, 1, 5, 1);
18 print <$remote>;
19 close $remote