NAME
Net::NetSend - Perl extension for sending Windows Popup Messages
SYNOPSIS
use Net::NetSend qw(:all);
my $target_netbios_name = "pc04";
my $source_netbios_name = "mypc";
my $target_ip = "192.168.0.1";
my $message = "Hello World!";
my $debug = 0;
my $success = sendMsg($target_netbios_name, $source_netbios_name, $target_ip, $message, $debug);
print ($success ? "Delivery successfull\n" : "Error in delivery! \n$@\n");DESCRIPTION
This module implements a client interface to the Windows Messenger Service, enabling a perl5 application to talk to windows machines. This is roughly a pure perl implementation of the "net send" command on windows.
EXPORT
None by default. :all exports just sendMsg()
NOTES
This module is still under development. So far, sending messages was just tested from Windows XP and Linux to Windows XP. However, it should work on any other operating system as well. Drop me a note if you encounter errors, giving the exact circumstances of the failure.
Maximum Message size is 4021 bytes - it is a limitation of windows, not of my module. For Windows 98 / 98 SE / Me / 2000 the limit may be different.
CHANGES
new in 0.02
new in 0.04
*
check restriction of 4021 chars maximum message length
*
Warnings AF_INET / SOCK_STREAM eliminated
*
check MBM END packet return codes
*
extra function for error checking in SMB return packets
*
sendMsg now returns success/error code
new in 0.05
*
abort if session request fails
*
set $@ if error occurs
*
change some global vars to local ones
new in 0.06
*
comment cleanup
*
add flexible debug messages
new in 0.07
*
useless "no strict" outcommented
*
fixed a bug that happened when splitting messages containing newlines
*
added documentation
new in 0.08
*
added contact information
*
bugfix for error handling $@
*
module renamed to Net::NetSend
*
argument count check
*
4022 bytes -> 4021 chars
new in 0.10
*
POD documentation
AUTHOR
Florian Greb, <greb@cpan.org>
COPYRIGHT
Copyright (c) 2004 Florian Greb. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
6 POD Errors
The following errors were encountered while parsing the POD:
- Around line 560:
You can't have =items (as at line 564) unless the first thing after the =over is an =item
- Around line 587:
You can't have =items (as at line 591) unless the first thing after the =over is an =item
- Around line 606:
You can't have =items (as at line 610) unless the first thing after the =over is an =item
- Around line 621:
You can't have =items (as at line 625) unless the first thing after the =over is an =item
- Around line 640:
You can't have =items (as at line 644) unless the first thing after the =over is an =item
- Around line 667:
You can't have =items (as at line 671) unless the first thing after the =over is an =item