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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
#!@@PERL@@ @@PERLOPTS@@
# alert-winpopup - send an alert via a Windows pop-up
# $Id: alert-winpopup.pl,v 1.5 2002/05/28 15:54:50 remstats Exp $
# from remstats @@VERSION@@
# Copyright (c) 1999, 2000, 2001, 2002 Thomas Erskine <@@AUTHOR@@>
# All rights reserved.
# - - - Configuration - - -
use strict;
# What is this program called, for error-messages and file-names
$main::program = 'alert-smbmessage';
# Where is the smbclient program?
my $smbclient = &oneof('/usr/bin/smbclient', '/usr/local/bin/smbclient',
'/usr/local/samba/bin/smbclient');
# Where is the default configuration dir
$main::config_dir = '@@CONFIGDIR@@';
# - - - Version History - - -
(undef, $main::version) = split(' ', '$Revision: 1.5 $');
# - - - Setup - - -
use Getopt::Std;
my %opt;
getopts('d:f:hs:', \%opt);
if (defined $opt{'h'}) { &usage; } # no return
if (defined $opt{'d'}) { $main::debug = $opt{'d'}; } else { $main::debug = 0; }
if (defined $main::opt_f) { $main::config_dir = $main::opt_f; }
if (defined $opt{'s'}) { $smbclient = $opt{'s'}; }
unless (defined $smbclient) { &abort("can't find smbclient"); }
unless ($#ARGV == 0) { &usage; }
my $towho = shift @ARGV;
# Read the template
my @temp = <STDIN>;
my $template = join('', @temp);
# - - - Mainline - - -
# Send it. This is easy.
my $cmd = $smbclient .' -M '. $towho .' >/dev/null 2>&1';
open (PIPE, "|$cmd") or &abort("can't open pipe to $cmd: $!");
print PIPE $template or &abort("can't write to pipe to $cmd: $!");
close (PIPE) or &abort("can't close pipe to $cmd: $!");
exit 0;
#------------------------------------------------------------ usage ---
sub usage {
print STDERR <<"EOD_USAGE";
$main::program version $main::version from remstats @@VERSION@@
usage: $main::program [options] addr
Where options are:
-d ddd set debugging output to level 'ddd'
-f fff set config-dir to 'fff' [$main::config_dir]
-h show this help
-s sss use 'sss' for smbclient program
EOD_USAGE
exit 0;
}
#---------------------------------------------------------- abort ---
sub abort {
my $msg = join('', @_);
print STDERR "ABORT: $msg\n";
exit 1;
}
#---------------------------------------------------------------- error ---
sub error {
print STDERR 'ERROR: ', @_, "\n";
}
#---------------------------------------------------------- oneof ---
# Looks for a file in the list, and returns the first one it finds
sub oneof {
my @files = @_;
my $file;
local ($_);
foreach (@files) {
if ( -f $_ or -l $_) {
$file = $_;
last;
}
}
$file;
}
|
