X-Git-Url: http://ftp.carnet.hr/carnet-debian/scm?a=blobdiff_plain;f=src%2Fagentlessd%2Fscripts%2Fmain.exp;h=e8daae53ee01e5ff62c4252081662f1e18af58ac;hb=3f728675941dc69d4e544d3a880a56240a6e394a;hp=f8ac1f9962705a0f220fa84623852d032f44119a;hpb=301048b51990573e58a30dc4a5bb4ec285cad554;p=ossec-hids.git

diff --git a/src/agentlessd/scripts/main.exp b/src/agentlessd/scripts/main.exp
index f8ac1f9..e8daae5 100755
--- a/src/agentlessd/scripts/main.exp
+++ b/src/agentlessd/scripts/main.exp
@@ -1,24 +1,21 @@
 #!/usr/bin/env expect
 
-# @(#) $Id$
 # Agentless monitoring
 #
 # Copyright (C) 2009 Trend Micro Inc.
 # All rights reserved.
-# 
+#
 # This program is a free software; you can redistribute it
 # and/or modify it under the terms of the GNU General Public
 # License (version 2) as published by the FSF - Free Software
 # Foundation.
 
-
 if {$argc <= 1} {
     send_user "\nERROR: ssh_integrity_check <hostname> <arguments>\n";
     exit 1;
 }
 
-
-# NOTE: this script must be called from within /var/ossec for it to work.
+# NOTE: this script must be called from within /var/ossec for it to work
 set passlist "agentless/.passlist"
 set sshsrc "agentless/ssh.exp"
 set susrc "agentless/su.exp"
@@ -30,31 +27,29 @@ set pass "x"
 set use_su " "
 set use_sudo " "
 set addpass "x"
-set timeout 20 
-
+set timeout 20
 
-# Doing script test
+# Do script test
 if {[string compare $hostname "test"] == 0} {
     if {[string compare $args "test"] == 0} {
         exit 0;
     }
 }
 
-# Checking if the hostname (first argument) is an option.
+# Check if the hostname (first argument) is an option
 if {[string compare $hostname "use_su"] == 0} {
     set use_su "su;"
     set hostname [lindex $argv 1]
     set args [lrange $argv 2 end]
 }
-# Checking if the hostname (first argument) is an option.
+# Check if the hostname (first argument) is an option
 if {[string compare $hostname "use_sudo"] == 0} {
     set use_sudo "sudo sh;"
     set hostname [lindex $argv 1]
     set args [lrange $argv 2 end]
 }
 
-
-# Reading the password list.
+# Read the password list
 if [catch {
     set in [open "$passlist" r]
 } loc_error] {
@@ -66,7 +61,7 @@ while {[gets $in line] != -1} {
         set me [string first "|" $line]
         set me2 [string last "|" $line]
         set length [string length $line]
-        
+
         if {$me == -1} {
             continue;
         }
@@ -76,10 +71,10 @@ while {[gets $in line] != -1} {
         if {$me == $me2} {
             continue;
         }
-        
+
         set me [expr $me-1]
         set me2 [expr $me2-1]
-        
+
         set host_list [string range $line 0 $me]
         set me [expr $me+2]
         set pass_list [string range $line $me $me2]