Re: Problem with samba.monitor

[Dietmar Goldbeck]

On Tue, Sep 17, 2002 at 11:49:16AM +0200, Dennis Bieling wrote:
> Hi!
> 
> Is anyone of you using the samba.monitor for mon?
> I have some problems in making it work.
> Everytime mon runs, it produces an mail.alert with just telling me the 
> name of the host and the service but nothing about the problem.
> There is no warning about the service not running or anything else.
> This happens regardless if the samba service is running or not.
> Anyone out there who can help me ?
> 

After some tests, i decided to rewrite the monitor
for more recent versions of smbclient.

I attach my version. You should try it on your system 
probably with the -d flag from the command line. 
I use the following
smbclient_auth.cf:

user=guest
password=

  Ciao
      Dietmar

-- 
 Alles Gute / best wishes  
     Dietmar Goldbeck         E-Mail: [EMAIL PROTECTED]
Reporter (to Mahatma Gandhi): Mr Gandhi, what do you think of Western
Civilization?  Gandhi: I think it would be a good idea.

#!/usr/bin/perl -w
#
# Use: try to connect anonymously to a Samba server, and
# wait for the right output.
#
# For use with "mon".
#

use  Getopt::Std;
use strict;
use vars qw( %failures $failures $host $member $details
             $error
             $opt_A $CREDFILE
             $opt_d $DEBUG);

getopts ("dA:");

$DEBUG = $opt_d || 0;
$CREDFILE = $opt_A || "/etc/mon/smbclient_auth.cf";

%failures = ();

foreach $host (@ARGV) {
    ($error, $details) = Samba_test ($host);
    if($error) {
        $failures{$host} = $details;
    }
}
 
my($member);
if ((keys(%failures))==0) {
    # we are happy
    exit 0;
} else {
    # summary:
    print join (" ", sort keys(%failures)), "\n";
    # all details:
    foreach $member (sort keys(%failures)) {
        print "$member: ", $failures{$member};
    }
    exit 1;
}


sub  Samba_test {
    my ($Server_name) = shift (@_);
    
    print STDERR "checking Server $Server_name\n" 
        unless ! $DEBUG;

    my $serviceList = `smbclient -A $CREDFILE -L $Server_name 2>&1`;
    my $exit_value  = $? >> 8;
    print STDERR "smbclient exit_value = $exit_value\nsmbclient output: 
\n$serviceList" 
        unless ! $DEBUG;
    if($exit_value) {
        return(1, $serviceList);
    }
    # check smbclient output
    if($serviceList !~ /Domain=\[.*\]\s+OS=\[.*\]\s+Server=\[.*\]/ ||
       $serviceList !~ /Sharename/ ||
       $serviceList !~ /Workgroup/ ||
       $serviceList !~ /Server/) {
        return(1, "smbclient output error:\n" . $serviceList);
    } 
    return (0, undef);
}