#!/usr/local/bin/perl# #@(#) smb-wall.pl Description:#@(#) A perl script which allows you to announce whatever you choose to#@(#) every PC client currently connected to a Samba Server...#@(#) ...using "smbclient -M" message to winpopup service.#@(#) Default usage is to message every connected PC.#@(#) Alternate usage is to message every pc on the argument list.#@(#)  Hacked up by Keith Farrar <farrar@parc.xerox.com>## Cleanup and corrections by# Michal Jaegermann <michal@ellpspace.math.ualberta.ca># Message to send can be now also fed (quietly) from stdin; a pipe will do.#=============================================================================$smbstatus = "/usr/local/bin/smbstatus";$smbshout = "/usr/local/bin/smbclient -M";if (@ARGV) {    @clients = @ARGV;    undef @ARGV;}else {  # no clients specified explicitly    open(PCLIST, "$smbstatus |") || die "$smbstatus failed!.\n$!\n";    while(<PCLIST>) {	last if /^Locked files:/;	split(' ', $_, 6);        # do not accept this line if less then six fields        next unless $_[5];        # if you have A LOT of clients you may speed things up by        # checking pid - no need to look further if this pid was already        # seen;  left as an exercise :-)        $client = $_[4];	next unless $client =~ /^\w+\./;       # expect 'dot' in a client name	next if grep($_ eq $client, @clients); # we want this name once	push(@clients, $client);    }    close(PCLIST);}if (-t) {    print <<'EOT';Enter message for Samba clients of this host(terminated with single '.' or end of file):EOT    while (<>) {	last if /^\.$/;	push(@message, $_);    }}else { # keep quiet and read message from stdin    @message = <>;}foreach(@clients) {##    print "To $_:\n";    if (open(SENDMSG,"|$smbshout $_")) {	print SENDMSG @message;	close(SENDMSG);    }    else {	warn "Cannot notify $_ with $smbshout:\n$!\n";    }}exit 0;