|
Packit |
57988d |
##########################################################################
|
|
Packit |
57988d |
# $Id$
|
|
Packit |
57988d |
##########################################################################
|
|
Packit |
57988d |
# $Log: samba,v $
|
|
Packit |
57988d |
# Revision 1.31 2008/05/06 22:29:58 mike
|
|
Packit |
57988d |
# A few more filters -mgt
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.30 2008/03/24 23:31:26 kirk
|
|
Packit |
57988d |
# added copyright/license notice to each script
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.29 2007/05/18 15:20:44 bjorn
|
|
Packit |
57988d |
# Additional filtering, by Michał Panasiewicz.
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.28 2007/05/16 16:37:55 bjorn
|
|
Packit |
57988d |
# Correction on wrong password regexp, by Michał Panasiewicz.
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.27 2007/05/15 04:23:49 bjorn
|
|
Packit |
57988d |
# Additional filtering, by Michał Panasiewicz.
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.26 2007/05/14 04:11:43 bjorn
|
|
Packit |
57988d |
# Additional filtering, by Michał Panasiewicz.
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.25 2007/04/15 19:15:44 bjorn
|
|
Packit |
57988d |
# Improved no-service and added opened-files, by Roman Rybalko.
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.24 2006/04/20 00:17:33 bjorn
|
|
Packit |
57988d |
# Additional samba filtering (connections refused, files created) by Ivana
|
|
Packit |
57988d |
# Varekova.
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.23 2005/11/22 18:37:56 bjorn
|
|
Packit |
57988d |
# Detecting invalid SID, by Ivana Varekova.
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.22 2005/02/24 17:08:05 kirk
|
|
Packit |
57988d |
# Applying consolidated patches from Mike Tremaine
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.8 2005/02/21 04:07:36 mgt
|
|
Packit |
57988d |
# Removed ignore for connect -mgt
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.7 2005/02/21 03:28:44 mgt
|
|
Packit |
57988d |
# Added patch from Anssi Kolehmained for host connections -mgt
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.6 2005/02/16 00:43:28 mgt
|
|
Packit |
57988d |
# Added #vi tag to everything, updated ignore.conf with comments, added emerge and netopia to the tree from Laurent -mgt
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.5 2004/10/06 21:39:34 mgt
|
|
Packit |
57988d |
# Patches from Pawel and Kenneth -mgt
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.4 2004/07/29 19:33:29 mgt
|
|
Packit |
57988d |
# Chmod and removed perl call -mgt
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.3 2004/07/10 01:54:35 mgt
|
|
Packit |
57988d |
# sync with kirk -mgt
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.19 2004/06/23 15:01:17 kirk
|
|
Packit |
57988d |
# - Added more patches from blues@ds.pg.gda.pl
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.18 2004/02/03 02:45:26 kirk
|
|
Packit |
57988d |
# Tons of patches, and new 'oidentd' and 'shaperd' filters from
|
|
Packit |
57988d |
# Pawe? Go?aszewski" <blues@ds.pg.gda.pl>
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
##########################################################################
|
|
Packit |
57988d |
|
|
Packit |
57988d |
#######################################################
|
|
Packit |
57988d |
## Copyright (c) 2008 Kirk Bauer
|
|
Packit |
57988d |
## Covered under the included MIT/X-Consortium License:
|
|
Packit |
57988d |
## http://www.opensource.org/licenses/mit-license.php
|
|
Packit |
57988d |
## All modifications and contributions by other persons to
|
|
Packit |
57988d |
## this script are assumed to have been donated to the
|
|
Packit |
57988d |
## Logwatch project and thus assume the above copyright
|
|
Packit |
57988d |
## and licensing terms. If you want to make contributions
|
|
Packit |
57988d |
## under your own copyright or a different license this
|
|
Packit |
57988d |
## must be explicitly stated in the contribution an the
|
|
Packit |
57988d |
## Logwatch project reserves the right to not accept such
|
|
Packit |
57988d |
## contributions. If you have made significant
|
|
Packit |
57988d |
## contributions to this script and want to claim
|
|
Packit |
57988d |
## copyright please contact logwatch-devel@lists.sourceforge.net.
|
|
Packit |
57988d |
#########################################################
|
|
Packit |
57988d |
|
|
Packit |
57988d |
$Debug = $ENV{'LOGWATCH_DEBUG'};
|
|
Packit |
57988d |
$Detail = $ENV{'LOGWATCH_DETAIL_LEVEL'} || 0;
|
|
Packit |
57988d |
$SocketReadError = 0;
|
|
Packit |
57988d |
$SocketWriteError = 0;
|
|
Packit |
57988d |
$DbOpenFail = 0;
|
|
Packit |
57988d |
$DbCorrupt = 0;
|
|
Packit |
57988d |
$GetDomainMasterStatusFail = 0;
|
|
Packit |
57988d |
%SIDnotvalid;
|
|
Packit |
57988d |
%RefConnect;
|
|
Packit |
57988d |
%CrFile;
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if ( $Debug >= 5 ) {
|
|
Packit |
57988d |
print STDERR "\n\nDEBUG: Inside Samba Filter \n\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
while (defined($ThisLine = <STDIN>)) {
|
|
Packit |
57988d |
chomp($ThisLine);
|
|
Packit |
57988d |
if (
|
|
Packit |
57988d |
($ThisLine =~ /smbd\/server\.c:open_sockets_smbd\(\d+\) Reloading services after SIGHUP/) or
|
|
Packit |
57988d |
($ThisLine =~ /lib\/util_sock\.c:get_peer_addr\(\d+\) getpeername failed\. Error was (Transport endpoint|Socket) is not connected/) or
|
|
Packit |
57988d |
($ThisLine =~ /add_domain_logon_names/) or
|
|
Packit |
57988d |
($ThisLine =~ /become_domain_master/) or
|
|
Packit |
57988d |
($ThisLine =~ /become_local_master/) or
|
|
Packit |
57988d |
($ThisLine =~ /become_logon_server/) or
|
|
Packit |
57988d |
($ThisLine =~ /cli_connect\(783\) Error connecting to [^ ]+ \(Operation already in progress\)$/) or
|
|
Packit |
57988d |
($ThisLine =~ /closed connection to/) or
|
|
Packit |
57988d |
($ThisLine =~ /Connection reset by peer/) or
|
|
Packit |
57988d |
($ThisLine =~ /Connection timed out/) or
|
|
Packit |
57988d |
($ThisLine =~ /current master browser/) or
|
|
Packit |
57988d |
($ThisLine =~ /Currently not implemented/) or
|
|
Packit |
57988d |
($ThisLine =~ /debug_message/) or
|
|
Packit |
57988d |
($ThisLine =~ /get_socket_addr\(\d+\) getpeername failed. Error was Transport endpoint is not connected$/) or
|
|
Packit |
57988d |
($ThisLine =~ /Got SIGHUP dumping debug info.$/) or
|
|
Packit |
57988d |
($ThisLine =~ /Got SIGTERM: going down/) or
|
|
Packit |
57988d |
($ThisLine =~ /matchname/i) or
|
|
Packit |
57988d |
($ThisLine =~ /Multiple .+ responses received for a query/) or
|
|
Packit |
57988d |
($ThisLine =~ /nmbd\/nmbd_incomingdgrams\.c:process_local_master_announce\(\d+\)$/) or
|
|
Packit |
57988d |
($ThisLine =~ /nmbd_incomingrequests\.c:process_name_refresh_request\([0-9]+\)$/) or
|
|
Packit |
57988d |
($ThisLine =~ /nmbd_namelistdb\.c:standard_success_release\(\d+\) standard_success_release: Name release for name/) or
|
|
Packit |
57988d |
($ThisLine =~ /No route to host/) or
|
|
Packit |
57988d |
($ThisLine =~ /Operation not permitted/) or
|
|
Packit |
57988d |
($ThisLine =~ /oplock[_ ]break/) or
|
|
Packit |
57988d |
($ThisLine =~ /process_local_message: unknown UDP message command code \(.+\) - ignoring./) or
|
|
Packit |
57988d |
($ThisLine =~ /process_name_refresh_request\(184\) Error - should be sent to WINS server$/) or
|
|
Packit |
57988d |
($ThisLine =~ /Record does not exist/) or
|
|
Packit |
57988d |
($ThisLine =~ /response packet id \d+ received with no matching record/) or
|
|
Packit |
57988d |
($ThisLine =~ /Failed to resend packet id \d+ to IP/) or
|
|
Packit |
57988d |
($ThisLine =~ /smbd\/process\.c:process_smb\(\d+\)$/) or
|
|
Packit |
57988d |
($ThisLine =~ /smbmount/) or
|
|
Packit |
57988d |
($ThisLine =~ /start_async_dns/) or
|
|
Packit |
57988d |
($ThisLine =~ /timeout connecting to/) or
|
|
Packit |
57988d |
($ThisLine =~ /version .+ started/) or
|
|
Packit |
57988d |
($ThisLine =~ /lib\/account_pol\.c:account_policy_get\(204\) account_policy_get: tdb_fetch_uint32 failed for field \d+ \(.*\), returning 0/ ) or
|
|
Packit |
57988d |
($ThisLine =~ /lib\/access\.c:check_access\(\d+\)$/) or
|
|
Packit |
57988d |
($ThisLine =~ /lib\/access\.c:check_access\(\d+\) Allowed connection from/) or
|
|
Packit |
57988d |
($ThisLine =~ /smbd\/close\.c:close_normal_file\(\d+\) .+ closed file/) or
|
|
Packit |
57988d |
($ThisLine =~ /smbd\/open\.c:open_file\(\d+\) .+ opened file/) or
|
|
Packit |
57988d |
($ThisLine =~ /smbd\/process.c:timeout_processing\(\d+\) Closing idle connection/) or
|
|
Packit |
57988d |
($ThisLine =~ /nmbd\/nmbd_browsesync\.c:sync_with_dmb\(\d+\) sync_with_dmb: Initiating sync with domain master browser/) or
|
|
Packit |
57988d |
($ThisLine =~ /param\/loadparm\.c:do_section\(\d+\) Processing section/) or
|
|
Packit |
57988d |
($ThisLine =~ /lib\/interface\.c:add_interface\(\d+\) added interface/) or
|
|
Packit |
57988d |
($ThisLine =~ /smbd\/reply\.c:reply_tcon_and_X\(\d+\) Serving .+ as a Dfs root/) or
|
|
Packit |
57988d |
($ThisLine =~ /smbd\/reply\.c:reply_special\(\d+\) netbios connect: name1=.+ /) or
|
|
Packit |
57988d |
($ThisLine =~ /nmbd\/nmbd_browsesync\.c:announce_local_master_browser_to_domain_master_browser\(\d+\) announce_local_master_browser_to_domain_master_browser: We are both a domain and a local master browser for workgroup .+ /) or
|
|
Packit |
57988d |
($ThisLine =~ /auth\/auth\.c:check_ntlm_password\(\d+\) check_ntlm_password: authentication for user \[.+\] -> \[.+\] -> \[.+\] succeeded/) or
|
|
Packit |
57988d |
($ThisLine =~ /rpc_server\/srv_samr_nt\.c:_samr_lookup_domain\(d+\) Returning domain sid for domain ([^ ]) -> ([^ ])/) or
|
|
Packit |
57988d |
($ThisLine =~ /===============================================================/)
|
|
Packit |
57988d |
) {
|
|
Packit |
57988d |
#Don't care about these...
|
|
Packit |
57988d |
} elsif ( ($Host, undef, $Service, undef, $User) = ( $ThisLine =~ /([^ ]+ \([^ ]+\)) (signed |)connect to service ([^ ]+) (initially |)as user ([^ ]+)/) ) {
|
|
Packit |
57988d |
$CurrentHost=$Host;
|
|
Packit |
57988d |
$Connect{$Service}{$User}{$Host}++;
|
|
Packit |
57988d |
} elsif ( ($Host,$NoService) = ( $ThisLine =~ /([^ ]+ \([^ ]+\)) couldn't find service (\S+)/ ) ) {
|
|
Packit |
57988d |
$NoServ{$Host}{$NoService}++;
|
|
Packit |
57988d |
} elsif ($ThisLine =~ s/Denied connection from\s+\((\S+)\)([ *]+|)$/$1/) {
|
|
Packit |
57988d |
$Denied{$ThisLine}++;
|
|
Packit |
57988d |
} elsif ($ThisLine =~ s/ Connection denied from\s+(\S+)$/$1/) {
|
|
Packit |
57988d |
$Denied{$ThisLine}++;
|
|
Packit |
57988d |
} elsif ( ($Where,$Ip,$Browser) = ($ThisLine =~ /(.*) Denied connection from \(([^ ]+)\) Doing a node status request to the domain master browser at IP ([^ ]+) failed. Cannot get workgroup name./ ) ) {
|
|
Packit |
57988d |
$Temp = "$Where ($Ip)";
|
|
Packit |
57988d |
$Denied{$Temp}++;
|
|
Packit |
57988d |
$CantGetGroup{$Browser}++;
|
|
Packit |
57988d |
} elsif (
|
|
Packit |
57988d |
($Where,$Ip,$Name,$Group,$Subnet) = ($ThisLine =~ /(.*) Denied connection from \(([^ ]+)\) [ *]+Samba name server ([^ ]+) is now a local master browser for workgroup ([^ ]+) on subnet ([^ ]+)/ ) or
|
|
Packit |
57988d |
($Where,$Ip,$Name,$Group,$Subnet) = ($ThisLine =~ /(.*) Denied connection from \(([^ ]+)\) [ *]+Samba name server ([^ ]+) has stopped being a local master browser for workgroup ([^ ]+) on subnet ([^ ]+)/ )
|
|
Packit |
57988d |
) {
|
|
Packit |
57988d |
$Temp = "$Where ($Ip)";
|
|
Packit |
57988d |
$Denied{$Temp}++;
|
|
Packit |
57988d |
$BeLocalMaster{$Subnet}{$Group}{$Name}++;
|
|
Packit |
57988d |
} elsif (($User) = $ThisLine =~ /rejected invalid user ([^ ]+)/ ) {
|
|
Packit |
57988d |
$InvalidUser{$User}++;
|
|
Packit |
57988d |
} elsif (($User) = $ThisLine =~ /Authentication for user ([^ ]+) -> ([^ ]+) FAILED with error NT_STATUS_WRONG_PASSWORD/ ) {
|
|
Packit |
57988d |
$WrongPassword{$User}++;
|
|
Packit |
57988d |
} elsif (($User) = $ThisLine =~ /Couldn't find user '([^ ]+)'/) {
|
|
Packit |
57988d |
$NotFoundUser{$User}++;
|
|
Packit |
57988d |
} elsif (($User) = $ThisLine =~ /pdb_smbpasswd\.c:build_sam_account\(\d+\) build_sam_account: smbpasswd database is corrupt! username ([^ ]+) not in unix passwd database!/ ) {
|
|
Packit |
57988d |
$NotFoundUser{$User}++;
|
|
Packit |
57988d |
$DbOpenFail++;
|
|
Packit |
57988d |
$DbCorrupt++;
|
|
Packit |
57988d |
} elsif (($User) = $ThisLine =~ /Rejecting user '([^ ]+)'/) {
|
|
Packit |
57988d |
$RejectedUser{$User}++;
|
|
Packit |
57988d |
} elsif ( ( $ThisLine =~ /lib\/util_sock.c:read_data\(436\)/ ) ) {
|
|
Packit |
57988d |
# This is due to a nasty bug in samba which causes it to drop connections :-(
|
|
Packit |
57988d |
$SocketReadError++;
|
|
Packit |
57988d |
} elsif (
|
|
Packit |
57988d |
( $ThisLine =~ /lib\/util_sock.c:write_socket\(\d+\) write_socket: Error writing \d bytes to socket/ ) or
|
|
Packit |
57988d |
( $ThisLine =~ /lib\/util_sock.c:write_socket_data\(\d+\) write_socket_data: write failure./ ) or
|
|
Packit |
57988d |
( $ThisLine =~ /lib\/util_sock.c:send_smb\(\d+\) Error writing \d+ bytes to client. / )
|
|
Packit |
57988d |
) {
|
|
Packit |
57988d |
# Something more generic should be here
|
|
Packit |
57988d |
$SocketWriteError++;
|
|
Packit |
57988d |
} elsif (
|
|
Packit |
57988d |
( $ThisLine =~ /unable to open passdb database.$/ ) or
|
|
Packit |
57988d |
( $ThisLine =~ / get_sampwd_entries: Unable to open passdb.$/ )
|
|
Packit |
57988d |
) {
|
|
Packit |
57988d |
$DbOpenFail++;
|
|
Packit |
57988d |
} elsif ( ($Name,$Group,$Subnet) = ( $ThisLine =~ /pdb_smbpasswd.c:pdb_getsampwnam\(\d+\) unable to open passdb database\. [ *]+Samba name server ([^ ]+) is now a local master browser for workgroup ([^ ]+) on subnet ([^ ]+) / )) {
|
|
Packit |
57988d |
$Temp = "$Where ($Ip)";
|
|
Packit |
57988d |
$DbOpenFail++;
|
|
Packit |
57988d |
$BeLocalMaster{$Subnet}{$Group}{$Name}++;
|
|
Packit |
57988d |
} elsif ( ($Server,$Ip,$Group) = ($ThisLine =~ /Server ([^ ]+) at IP ([^ ]+) is announcing itself as a local master browser for workgroup ([^ ]+) and we think we are master. Forcing election.$/ ) ) {
|
|
Packit |
57988d |
$Temp = $Server . "(" . $Ip . ")";
|
|
Packit |
57988d |
$ForceElection{$Group}{$Temp}++;
|
|
Packit |
57988d |
} elsif ( (undef,$Command,$Server,$Ip,undef) = ($ThisLine =~ /([^ ]+): unicast name ([^ ]+) request received for name ([^ ]+) from IP ([^ ]+) on subnet (.*)\./ ) ) { $Temp = "$Command on subnet $Subnet : $Server ($Ip)";
|
|
Packit |
57988d |
$Temp = "$Command on subnet $Subnet : $Server ($Ip)";
|
|
Packit |
57988d |
$UnicastRegister{$Temp}++;
|
|
Packit |
57988d |
} elsif ( ($Group,$Subnet) = ($ThisLine =~ /standard_fail_register: Failed to register\/refresh name ([^ ]+) on subnet ([^ ]+)$/ ) ) {
|
|
Packit |
57988d |
$FailedRegister{$Subnet}{$Group}++;
|
|
Packit |
57988d |
} elsif ( ($Ip,$Group,undef) = ($ThisLine =~ /register_name_response: server at IP ([^ ]+) rejected our name registration of ([^ ]+) with error code ([^ ]+)\.$/ ) ) {
|
|
Packit |
57988d |
$RejectRegister{$Group}{$Ip}++;
|
|
Packit |
57988d |
} elsif ( ($Ip) = ($ThisLine =~ /get_domain_master_name_node_status_fail: Doing a node status request to the domain master browser at IP ([^ ]+) failed\. Cannot get workgroup name\.$/ ) ) {
|
|
Packit |
57988d |
$CantGetGroup{$Ip}++;
|
|
Packit |
57988d |
} elsif ( ($Signal,undef,$Version) = ($ThisLine =~ /INTERNAL ERROR: Signal ([^ ]+) in pid ([^ ]+) \(([^ ]+)\) Please read the file BUGS.txt in the distribution$/ ) ) {
|
|
Packit |
57988d |
$Temp = "Version $Version with signal $Signal";
|
|
Packit |
57988d |
$Crash{$Temp}++;
|
|
Packit |
57988d |
} elsif ( ($Error) = ($ThisLine =~ /util.c:smb_panic\(\d+\) (PANIC: internal error)$/ ) ) {
|
|
Packit |
57988d |
$Crash{$Error}++;
|
|
Packit |
57988d |
} elsif ( ( $ThisLine =~ /get_domain_master_name_node_status_fail\(([^ ]+)\)/ ) ) {
|
|
Packit |
57988d |
$GetDomainMasterStatusFail++;
|
|
Packit |
57988d |
} elsif ( ($User) = ($ThisLine =~ /pass_check_smb\(552\) Account for user '([^ ]+)' was disabled.$/) ) {
|
|
Packit |
57988d |
$AccountDisabled{$User}++;
|
|
Packit |
57988d |
} elsif ( ($Version) = ($ThisLine =~ /Discarding invalid wins\.dat file \[(.*)\]$/) ) {
|
|
Packit |
57988d |
$DiscardWins{$Version}++;
|
|
Packit |
57988d |
} elsif ( ($user,$ip,$dir) = ($ThisLine =~ /smbd\/service.c:make_connection\([0-9]+\) ([a-zA-Z]+) \(([\d.]+)\) Can't change directory to ([a-zA-Z_\/]+) \(Permission denied\)$/)) {
|
|
Packit |
57988d |
$PermissionDenied{$user}{$ip}{$dir}++;
|
|
Packit |
57988d |
} elsif ( ($user) = ($ThisLine =~ /smbd\/service.c:make_connection\([0-9]+\) make_connection: ([a-zA-Z_-]+) logged in as admin user \(root privileges\)$/)) {
|
|
Packit |
57988d |
$RootLoggedIn{$user}++;
|
|
Packit |
57988d |
} elsif ( ($file,$function) = ($ThisLine =~ /([a-zA-Z_\/():\.0-9-]+) ([a-zA-Z0-9_-]+): Not yet implemented.$/)) {
|
|
Packit |
57988d |
$NotImplemented{$file}{$function}++;
|
|
Packit |
57988d |
} elsif ( ($User,$Ip,$Directory,$Reason) = ($ThisLine =~ /service.c:make_connection\([0-9]+\) ([^ ]+) \(([^ ]+)\) Can't change directory to ([^ ]+) \((.*)\)/)) {
|
|
Packit |
57988d |
$Temp = "Netbios name $User on $Ip";
|
|
Packit |
57988d |
$CantChangeDir{$Directory}{$Reason}{$Temp}++;
|
|
Packit |
57988d |
} elsif ( ($Signal) = ($ThisLine =~ /open_sockets\([0-9]+\) Reloading services after ([^ ]+)/)) {
|
|
Packit |
57988d |
$ReloadAfter{$Signal}++;
|
|
Packit |
57988d |
} elsif ( ($Signal) = ($ThisLine =~ /open_sockets\([0-9]+\) Got ([^ ]+)/)) {
|
|
Packit |
57988d |
$ReloadAfter{$Signal}++;
|
|
Packit |
57988d |
} elsif ( ($Share,$Reason) = ($ThisLine =~ /cups_printername_ok\([0-9]+\) (Unable to get printer status for [^ ]+) - ([^ ]+)/)) {
|
|
Packit |
57988d |
$PrinterStatus{$Share}{$Reason}++;
|
|
Packit |
57988d |
} elsif ( ($Share,$Reason) = ($ThisLine =~ /cups_queue_get\([0-9]+\) (Unable to get jobs for [^ ]+) - ([^ ]+)/)) {
|
|
Packit |
57988d |
$PrinterStatus{$Share}{$Reason}++;
|
|
Packit |
57988d |
} elsif ( $ThisLine =~ m/main\([0-9]+\) ERROR: Failed when creating subnet lists. Exiting./) {
|
|
Packit |
57988d |
$SubnetFail{"Failed when creating subnet lists"}++;
|
|
Packit |
57988d |
} elsif ( $ThisLine =~ m/create_subnets\([0-9]+\) create_subnets: No local interfaces !/) {
|
|
Packit |
57988d |
$SubnetFail{"No local interfaces"}++;
|
|
Packit |
57988d |
} elsif ( $ThisLine =~ m/reload_interfaces: No subnets to listen to. Shutting down.../) {
|
|
Packit |
57988d |
$SubnetFail{"No subnets to listen to. Shutting down."}++;
|
|
Packit |
57988d |
} elsif ( $ThisLine =~ s/process_get_backup_list_request\([0-9]+\) process_get_backup_list_request: (.*)/$1/) {
|
|
Packit |
57988d |
$GetBacupList{$ThisLine}++;
|
|
Packit |
57988d |
} elsif ( ($Error) = ($ThisLine =~ /brl_init\([0-9]+\) (Failed to open byte range locking database)$/)) {
|
|
Packit |
57988d |
$LockDbError{$Error}++;
|
|
Packit |
57988d |
} elsif ( ($Error) = ($ThisLine =~ /locking_init\([0-9]+\) ERROR: (Failed to initialise locking database)$/)) {
|
|
Packit |
57988d |
$LockDbError{$Error}++;
|
|
Packit |
57988d |
} elsif ( ($SID,$dsid) = ($ThisLine =~ /User administrator has Primary Group SID ([^ ]+), which conflicts with the domain sid ([^ ]+). Failing operation.$/)) {
|
|
Packit |
57988d |
$SIDnotvalid{"$SID,$dsid"}++;
|
|
Packit |
57988d |
} elsif ( ($Addr) = ($ThisLine =~ /libsmb\/cliconnect.c:cli_connect\([0-9]+\) Error connecting to ([0-9.]*) \(Connection refused\)/)) {
|
|
Packit |
57988d |
$RefConnect{$Addr}++;
|
|
Packit |
57988d |
} elsif ( ($Name) = ($ThisLine =~ /passdb\/pdb_smbpasswd.c:startsmbfilepwent\([0-9]+\) startsmbfilepwent_internal: file ([^ ]*) did not exist. File successfully created./)) {
|
|
Packit |
57988d |
$CrFile{$Name}++;
|
|
Packit |
57988d |
} elsif ( ($user,$file,$read,$write) = ($ThisLine =~ /(\S+) opened file (\S+) read=(\w+) write=(\w+)/)) {
|
|
Packit |
57988d |
$OpenFile{$CurrentHost}{$user}{$file}{($read=~/Y/?"R":"").($write=~/Y/?"W":"")}++;
|
|
Packit |
57988d |
} elsif ( ($Location,$Reason) = ($ThisLine =~ /tdb_log\([0-9]+\) tdb\(([^ ]+)\): tdb_reopen: (open failed \([^ ]+\))/)) {
|
|
Packit |
57988d |
$LockDbError{"$Location - $Reason"}++;
|
|
Packit |
57988d |
} else {
|
|
Packit |
57988d |
# Report any unmatched entries...
|
|
Packit |
57988d |
$OtherList{$ThisLine}++;
|
|
Packit |
57988d |
|
|
Packit |
57988d |
#TODO:
|
|
Packit |
57988d |
#smbd/oplock.c:process_local_message(418) process_local_message: unknown UDP message command code (424d) - ignoring.
|
|
Packit |
57988d |
#smbd/process.c:switch_message(662) Non-SMB packet of length 156. Terminating server
|
|
Packit |
57988d |
#smbd/process.c:switch_message(662) Non-SMB packet of length 133. Terminating server
|
|
Packit |
57988d |
#libsmb/nmblib.c:send_udp(756) Packet send failed to 153.19.207.127(138) ERRNO=Invalid argument
|
|
Packit |
57988d |
#lib/util_sock.c:read_data(436) read_data: read failure for 4. Error = Brak drogi do systemu
|
|
Packit |
57988d |
#lib/util_sock.c:get_peer_addr(1229) getpeername failed. Error was Drugi koniec nie jest po³±czony
|
|
Packit |
57988d |
#lib/util_sock.c:open_socket_out(911) error connecting to 192.168.0.101:445 (Po³±czenie odrzucone)
|
|
Packit |
57988d |
#lib/util_sock.c:read_data(534) read_data: read failure for 4 bytes to client 192.168.0.51. Error = Przekroczony czas oczekiwania na po³±czenie
|
|
Packit |
57988d |
#lib/util_sock.c:write_data(562) write_data: write failure in writing to client 0.0.0.0. Error Po³±czenie zerwane przez drug± stronê
|
|
Packit |
57988d |
#libsmb/cliconnect.c:cli_start_connection(1445) session request to P1 failed (Called name not present)
|
|
Packit |
57988d |
#printing/printing.c:start_background_queue(1419)
|
|
Packit |
57988d |
#printing/printing.c:start_background_queue(1419) Reloading services after SIGHUP
|
|
Packit |
57988d |
#rpc_server/srv_spoolss_nt.c:spoolss_connect_to_client(2551) spoolss_connect_to_client: connection to [P1] failed!
|
|
Packit |
57988d |
#smbd/sesssetup.c:setup_new_vc_session(799) setup_new_vc_session: New VC == 0, if NT4.x compatible we would close all old resources
|
|
Packit |
57988d |
#smbd/utmp.c:sys_utmp_update(419) utmp_update: uname:/var/run/utmp wname:/var/log/wtmp
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
#########################################
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %Crash) {
|
|
Packit |
57988d |
print "\nWARNING!!!!!!\n";
|
|
Packit |
57988d |
print "Server crashed:\n";
|
|
Packit |
57988d |
foreach $Dead (sort {$a cmp $b} keys %Crash) {
|
|
Packit |
57988d |
print " $Dead : $Crash{$Dead} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %SubnetFail) {
|
|
Packit |
57988d |
print "\nWARNING!!!!!!\n";
|
|
Packit |
57988d |
print "Errors when creating subnets:\n";
|
|
Packit |
57988d |
foreach $Error (sort {$a cmp $b} keys %SubnetFail) {
|
|
Packit |
57988d |
print " $Error : $SubnetFail{$Error} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %ReloadAfter) {
|
|
Packit |
57988d |
print "\nReloaded services after signal:\n";
|
|
Packit |
57988d |
foreach $Signal (sort {$a cmp $b} keys %ReloadAfter) {
|
|
Packit |
57988d |
print " $Signal : $ReloadAfter{$Signal} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %DiscardWins) {
|
|
Packit |
57988d |
print "\nDiscarded invalid wins.dat file with version:\n";
|
|
Packit |
57988d |
foreach $Version (sort {$a cmp $b} keys %DiscardWins) {
|
|
Packit |
57988d |
print " $Version : $DiscardWins{$Version} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (($Detail >= 5) and (keys %Connect)) {
|
|
Packit |
57988d |
print "\nOpened Sessions:\n";
|
|
Packit |
57988d |
foreach $Serv (sort {$a cmp $b} keys %Connect) {
|
|
Packit |
57988d |
print " Service $Serv as user:\n";
|
|
Packit |
57988d |
foreach $Us (sort {$a cmp $b} keys %{$Connect{$Serv}}) {
|
|
Packit |
57988d |
print " $Us " . (" " x (10 - length ($Us))) . "from host";
|
|
Packit |
57988d |
$size = keys %{$Connect{$Serv}{$Us}};
|
|
Packit |
57988d |
if ($size >= 2) {
|
|
Packit |
57988d |
print ":\n";
|
|
Packit |
57988d |
foreach $Ho (sort {$a cmp $b} keys %{$Connect{$Serv}{$Us}}) {
|
|
Packit |
57988d |
print " $Ho : $Connect{$Serv}{$Us}{$Ho} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
} else {
|
|
Packit |
57988d |
foreach $Ho (sort {$a cmp $b} keys %{$Connect{$Serv}{$Us}}) {
|
|
Packit |
57988d |
print " $Ho " . (" " x (25 - length($Ho))) . ":
|
|
Packit |
57988d |
$Connect{$Serv}{$Us}{$Ho} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (($Detail >= 5) and (keys %OpenFile)) {
|
|
Packit |
57988d |
print "\nOpened Files:\n";
|
|
Packit |
57988d |
foreach $Host (sort {$a cmp $b} keys %OpenFile) {
|
|
Packit |
57988d |
print " Host $Host:\n";
|
|
Packit |
57988d |
foreach $User (sort {$a cmp $b} keys %{$OpenFile{$Host}}) {
|
|
Packit |
57988d |
foreach $File (sort {$a cmp $b} keys %{$OpenFile{$Host}{$User}}) {
|
|
Packit |
57988d |
print " File \"$File\"";
|
|
Packit |
57988d |
foreach $Mode (sort {$a cmp $b} keys %{$OpenFile{$Host}{$User}{$File}}) {
|
|
Packit |
57988d |
print " $Mode: $OpenFile{$Host}{$User}{$File}{$Mode} Time(s)";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
print "\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %Denied) {
|
|
Packit |
57988d |
print "\nConnections Denied:\n";
|
|
Packit |
57988d |
foreach $Line (sort {$a cmp $b} keys %Denied) {
|
|
Packit |
57988d |
print " $Line : $Denied{$Line} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %RefConnect) {
|
|
Packit |
57988d |
print "\nConnections Refused\n";
|
|
Packit |
57988d |
foreach $Line (keys %RefConnect) {
|
|
Packit |
57988d |
print " Connection refused by $Line : $RefConnect{$Line} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %CrFile) {
|
|
Packit |
57988d |
print "\nCreated files\n";
|
|
Packit |
57988d |
foreach $Line (keys %CrFile) {
|
|
Packit |
57988d |
print " file $Line did not exist. File succesfully created: $CrFile{$Line} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (($Detail >= 5) and (keys %PermissionDenied)) {
|
|
Packit |
57988d |
print "\nPermission denied:\n";
|
|
Packit |
57988d |
foreach $user (sort {$a cmp $b} keys %PermissionDenied) {
|
|
Packit |
57988d |
foreach $ip (sort {$a cmp $b} keys %{$PermissionDenied{$user}}) {
|
|
Packit |
57988d |
foreach $dir (sort {$a cmp $b} keys %{$PermissionDenied{$user}{$ip}}) {
|
|
Packit |
57988d |
print " Permission denied (user $user from $ip) directory $dir: $PermissionDenied{$user}{$ip}{$dir} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %PrinterStatus) {
|
|
Packit |
57988d |
print "\nPrinter Errors:\n";
|
|
Packit |
57988d |
foreach $Share (sort {$a cmp $b} keys %PrinterStatus) {
|
|
Packit |
57988d |
print " $Share:\n";
|
|
Packit |
57988d |
foreach $Reason (sort {$a cmp $b} keys %{$PrinterStatus{$Share}}) {
|
|
Packit |
57988d |
print " $Reason : $PrinterStatus{$Share}{$Reason} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (($Detail >= 5) and (keys %RootLoggedIn)) {
|
|
Packit |
57988d |
print "\nAdmin logins (root privileges):\n";
|
|
Packit |
57988d |
foreach $user (sort {$a cmp $b} keys %RootLoggedIn) {
|
|
Packit |
57988d |
print " User $user: $RootLoggedIn{$user} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (($Detail >= 9) and (keys %NotImplemented)) {
|
|
Packit |
57988d |
print "\nNot implemented functions:\n";
|
|
Packit |
57988d |
foreach $file (sort {$a cmp $b} keys %NotImplemented) {
|
|
Packit |
57988d |
foreach $func (sort {$a cmp $b} keys %{$NotImplemented{$file}}) {
|
|
Packit |
57988d |
print " Function $func in $file: $NotImplemented{$file}{$func} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %ForceElection) {
|
|
Packit |
57988d |
print "\nForced Election:\n";
|
|
Packit |
57988d |
foreach $Group (sort {$a cmp $b} keys %ForceElection) {
|
|
Packit |
57988d |
print " In workgroup $Group when announced server was:\n";
|
|
Packit |
57988d |
foreach $Host (sort {$a cmp $b} keys %{$ForceElection{$Group}}) {
|
|
Packit |
57988d |
print " $Host : $ForceElection{$Group}{$Host} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %BeLocalMaster) {
|
|
Packit |
57988d |
print "\nChanged Local Master Browser:\n";
|
|
Packit |
57988d |
foreach $Subnet (sort {$a cmp $b} keys %BeLocalMaster) {
|
|
Packit |
57988d |
print " On subnet $Subnet:\n";
|
|
Packit |
57988d |
foreach $Group (sort {$a cmp $b} keys %{$BeLocalMaster{$Subnet}}) {
|
|
Packit |
57988d |
print " For workgroup $Group:\n";
|
|
Packit |
57988d |
foreach $Name (sort {$a cmp $b} keys %{$BeLocalMaster{$Subnet}{$Group}}) {
|
|
Packit |
57988d |
print " $Name : $BeLocalMaster{$Subnet}{$Group}{$Name} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %CantGetGroup) {
|
|
Packit |
57988d |
print "\nCannot get workgroup name from domain name browser:\n";
|
|
Packit |
57988d |
foreach $Ip (sort {$a cmp $b} keys %CantGetGroup) {
|
|
Packit |
57988d |
print " $Ip : $CantGetGroup{$Ip} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if ($GetDomainMasterStatusFail > 0) {
|
|
Packit |
57988d |
print "\nFailed to get Domain Master node name: $GetDomainMasterStatusFail Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %GetBacupList) {
|
|
Packit |
57988d |
print "\nBackup list requests:\n";
|
|
Packit |
57988d |
foreach $Request (sort {$a cmp $b} keys %GetBacupList) {
|
|
Packit |
57988d |
print " $Request : $GetBacupList{$Request} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (($Detail >= 5) and (keys %NoServ)) {
|
|
Packit |
57988d |
print "\nCouldn't find services:\n";
|
|
Packit |
57988d |
foreach $Host (sort {$a cmp $b} keys %NoServ) {
|
|
Packit |
57988d |
print " Host: $Host\n";
|
|
Packit |
57988d |
foreach $ThisOne (sort {$a cmp $b} keys %{$NoServ{$Host}}) {
|
|
Packit |
57988d |
print " $ThisOne : $NoServ{$Host}{$ThisOne} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (($Detail >= 5) and (keys %UnicastRegister)) {
|
|
Packit |
57988d |
print "\nUnicast name requests:\n";
|
|
Packit |
57988d |
foreach $ThisOne (sort {$a cmp $b} keys %UnicastRegister) {
|
|
Packit |
57988d |
print " $ThisOne : $UnicastRegister{$ThisOne} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %FailedRegister) {
|
|
Packit |
57988d |
print "\nFailed to register/refresh:\n";
|
|
Packit |
57988d |
foreach $Subnet (sort {$a cmp $b} keys %FailedRegister) {
|
|
Packit |
57988d |
print " On subnet $Subnet:\n";
|
|
Packit |
57988d |
foreach $Group (sort {$a cmp $b} keys %{$FailedRegister{$Subnet}}) {
|
|
Packit |
57988d |
print " $Group : $FailedRegister{$Subnet}{$Group} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %RejectRegister) {
|
|
Packit |
57988d |
print "\nRejected our name registration:\n";
|
|
Packit |
57988d |
foreach $Group (sort {$a cmp $b} keys %RejectRegister) {
|
|
Packit |
57988d |
print " Name $Group at IP:\n";
|
|
Packit |
57988d |
foreach $Ip (sort {$a cmp $b} keys %{$RejectRegister{$Group}}) {
|
|
Packit |
57988d |
print " $Ip : $RejectRegister{$Group}{$Ip} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if ($DbOpenFail > 0) {
|
|
Packit |
57988d |
print "\nFailed to open passwd database: $DbOpenFail Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if ($DbCorrupt > 0) {
|
|
Packit |
57988d |
print "smbpasswd database corrupt: $DbOpenFail Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %InvalidUser) {
|
|
Packit |
57988d |
print "\nInvalid Users:\n";
|
|
Packit |
57988d |
foreach $Line (sort {$a cmp $b} keys %InvalidUser) {
|
|
Packit |
57988d |
print " $Line : $InvalidUser{$Line} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %WrongPassword) {
|
|
Packit |
57988d |
print "\nWrong Passwords:\n";
|
|
Packit |
57988d |
foreach $Line (sort {$a cmp $b} keys %WrongPassword) {
|
|
Packit |
57988d |
print " $Line : $WrongPassword{$Line} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %NotFoundUser) {
|
|
Packit |
57988d |
print "\nUsers not found in UNIX Database:\n";
|
|
Packit |
57988d |
foreach $Line (sort {$a cmp $b} keys %NotFoundUser) {
|
|
Packit |
57988d |
print " $Line : $NotFoundUser{$Line} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %RejectedUser) {
|
|
Packit |
57988d |
print "\nRejected Users:\n";
|
|
Packit |
57988d |
foreach $Line (sort {$a cmp $b} keys %RejectedUser) {
|
|
Packit |
57988d |
print " $Line : $RejectedUser{$Line} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %AccountDisabled) {
|
|
Packit |
57988d |
print "\nAccounts disabled:\n";
|
|
Packit |
57988d |
foreach $User (sort {$a cmp $b} keys %AccountDisabled) {
|
|
Packit |
57988d |
print " $User : $AccountDisabled{$User} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %CantChangeDir) {
|
|
Packit |
57988d |
print "\nCan't change directory while browsing:\n";
|
|
Packit |
57988d |
foreach $Directory (sort {$a cmp $b} keys %CantChangeDir) {
|
|
Packit |
57988d |
print " $Directory:\n";
|
|
Packit |
57988d |
foreach $Reason (sort {$a cmp $b} keys %{$CantChangeDir{$Directory}}) {
|
|
Packit |
57988d |
print " $Reason:\n";
|
|
Packit |
57988d |
foreach $Entry (sort {$a cmp $b} keys %{$CantChangeDir{$Directory}{$Reason}}) {
|
|
Packit |
57988d |
print " $Entry : $CantChangeDir{$Directory}{$Reason}{$Entry} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if ($SocketReadError > 0) {
|
|
Packit |
57988d |
print "\nSocket Read Error (Samba bug): $SocketReadError Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %LockDbError) {
|
|
Packit |
57988d |
print "\nLocking Database error:\n";
|
|
Packit |
57988d |
foreach $Error (sort {$a cmp $b} keys %LockDbError) {
|
|
Packit |
57988d |
print " $Error : $LockDbError{$Error} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (keys %SIDnotvalid) {
|
|
Packit |
57988d |
print ("\nSID is not valid for the domain\n");
|
|
Packit |
57988d |
foreach $SIDLog (keys %SIDnotvalid) {
|
|
Packit |
57988d |
($SID,$dsid) = split(",",$SIDLog);
|
|
Packit |
57988d |
print " User administrator Primary Group SID ($SID) conflicts with the domain sid ($dsid): $SIDnotvalid{$SIDLog} Time(s) \n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
|
|
Packit |
57988d |
if (($Detail >= 10) and keys %OtherList) {
|
|
Packit |
57988d |
print "\n**Unmatched Entries**\n";
|
|
Packit |
57988d |
foreach $Line (sort {$a cmp $b} keys %OtherList) {
|
|
Packit |
57988d |
print "$Line : $OtherList{$Line} Time(s)\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
exit(0);
|
|
Packit |
57988d |
|
|
Packit |
57988d |
# vi: shiftwidth=3 tabstop=3 syntax=perl et
|
|
Packit |
57988d |
# Local Variables:
|
|
Packit |
57988d |
# mode: perl
|
|
Packit |
57988d |
# perl-indent-level: 3
|
|
Packit |
57988d |
# indent-tabs-mode: nil
|
|
Packit |
57988d |
# End:
|