Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: Intercepting UDP broadcasts

by monktim (Friar)
on Jan 30, 2004 at 17:11 UTC ( #325309=note: print w/replies, xml ) Need Help??


in reply to Intercepting UDP broadcasts

I get bootp requests with this code.

Update I don't know if the additional parameters had anything to do with it. I thought restarting the network printer was sending the msgs but apparently that isn't the case. I just got lucky and caught a few boots.

FYI: This is perl, v5.8.0 built for MSWin32-x86-multi-thread
Binary build 806 provided by ActiveState Corp.http://www.ActiveState.com
Built 00:45:44 Mar 31 2003
Running on Windows 2000 Workstation.
@ISA = qw(IO::Socket);
$VERSION = "1.26";

Update2: Abigail-II your code works stright up on my machine. I just got to test it now.

use strict; use warnings; use IO::Socket::INET; my $port = getservbyname 'bootps', 'udp'; my $socket = IO::Socket::INET -> new (LocalPort => $port, Broadcast => 1, Proto => 'udp', ReuseAddr => 1, Type => SOCK_DGRAM) or die "Failed to bind to socket: $@"; my $mess; $socket -> recv ($mess, 1024); if (defined $mess) { print "Saw a bootp request.\n$mess\n"; } else { print "No bootp request.\n"; }

Replies are listed 'Best First'.
Re: Re: Intercepting UDP broadcasts
by coreolyn (Parson) on Jan 30, 2004 at 17:28 UTC

    So in other words the type parameter isn't set by the protocol by default... ooo.. bad doc, baaaad doc. *cackle*

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://325309]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (4)
As of 2022-08-12 06:56 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?