blob: 4beb86185eda6f928d3f937981b29b348b3a332b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
# test divert-reply with raw ip
# create a divert-reply out rule on the remote machine
# client sends a proto 254 packet from the remote machine
# server receives the proto 254 packet at the local machine
use strict;
use warnings;
use Socket;
our %args = (
socktype => Socket::SOCK_RAW,
protocol => 254,
client => { func => \&write_datagram, noin => 1, },
server => { func => \&read_datagram, noout => 1, },
divert => "reply",
);
|
