annonimous has asked for the wisdom of the Perl Monks concerning the following question:
1.- With or without subroutine ( i tried to send directly the mechanize module in the data part), the nginx is showing that im opening the webserver index.html with the original address (10.10.0.7)use warnings; use strict; use Net::RawIP; use WWW::Mechanize; my $source = '10.10.0.253'; my $target = '10.10.0.253'; my $url = 'http://10.10.0.253'; sub browser { my $mech = WWW::Mechanize->new(); $mech->get($url); } my $packet = Net::RawIP->new; $packet->set({ ip => { saddr => $source, daddr => $target, }, tcp => { source => 8311, dest => 80, psh => 0, syn => 1, data => browser, }, }); $packet->send;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Doubts about Mechanize and Net::RawIP
by Corion (Patriarch) on Mar 08, 2015 at 08:21 UTC | |
by annonimous (Novice) on Mar 08, 2015 at 19:29 UTC | |
by Corion (Patriarch) on Mar 08, 2015 at 19:49 UTC | |
by annonimous (Novice) on Mar 08, 2015 at 20:36 UTC |