blob: 9303658ce14ba06f2ed038fcd2e1ef63f4218f97 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
#!/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;
|
