Linux Update Patch For Expect User Removal Script

Hey There,

Today we have the "Linux Additions" patch to follow up on yesterday's post on removing old users network wide.

Note that this patch was created with "diff -c," so I've been sure to specify both the file I want to patch and the patch file in my arguments to "patch" (whereas I didn't need to in our post on easily patching multiple files). The exact command line to create the patch was:

host # diff -c eraser eraser.new > eraser.patch

All you'll need to do to update yesterday's script to include today's modifications is put the patch file (tagged on to the end of this post) in the same directory as the original script (or wherever you want, assuming you know how this all works and my explaining it is trivial ;) and name it something like "eraser.patch" - Then do the following:

host # ls
. .. eraser eraser.patch
host # cp eraser eraser.bak <--- Just in case something goes wrong, I'm always for making backups :)

As I noted before, you'll want to be specific in your arguments to "patch" when you run this, or be careful of "patch"'s default behaviour and don't choose to do a reverse patching, like this (BTW, even though my new script "eraser.new" is listed in the patch file, you don't actually need to have it for all of this to work):

host # patch -p0 -i eraser.patch
Hmm... Looks like a new-style context diff to me...
The text leading up to this was:
--------------------------
|*** eraser Sat Mar 29 18:57:29 2008
|--- eraser.new Sat Mar 29 18:57:50 2008
--------------------------
Patching file eraser using Plan A...
Reversed (or previously applied) patch detected! Assume -R? [y]
^C

Instead, patch it like this, so you can do it hands off:

host # patch -p0 eraser eraser.patch
Hmm... Looks like a new-style context diff to me...
The text leading up to this was:
--------------------------
|*** eraser Sat Mar 29 18:57:29 2008
|--- eraser.new Sat Mar 29 18:57:50 2008
--------------------------
Patching file eraser using Plan A...
Hunk #1 succeeded at 3.
Hunk #2 succeeded at 36.
Hunk #3 succeeded at 72.
Hunk #4 succeeded at 145.
Hunk #5 succeeded at 235.
Hunk #6 succeeded at 267.
done

And "diff -c" will show that your "eraser" Expect script is now different than the original that you copied off before:

host # diff -c eraser eraser.bak
*** eraser Sat Mar 29 19:02:21 2008
--- eraser.bak Sat Mar 29 18:57:50 2008
***************
...

And, of course, you can just check your "eraser" file and see the changes. If you need to back out the patch, simply do the "reverse patch" operation, like so:

host # patch -R -p0 eraser eraser.patch
Hmm... Looks like a new-style context diff to me...
The text leading up to this was:
--------------------------
|*** eraser Sat Mar 29 18:57:29 2008
|--- eraser.new Sat Mar 29 18:57:50 2008
--------------------------
Patching file eraser using Plan A...
Hunk #1 succeeded at 3.
Hunk #2 succeeded at 36.
Hunk #3 succeeded at 70.
Hunk #4 succeeded at 130.
Hunk #5 succeeded at 186.
Hunk #6 succeeded at 217.
done

And then do a cursory check to make sure the unpatched file matches the original that you copied off before:

host # diff -c eraser eraser.bak <--- You'll get no output if the files are the same. That's good :)

Enjoy and have a restful Sunday :)





This work is licensed under a
Creative Commons Attribution-Noncommercial-Share Alike 3.0 United States License

*** eraser        Sat Mar 29 18:57:29 2008
--- eraser.new  Sat Mar 29 18:57:50 2008
***************
*** 3,9 ****
  log_user 0

  #########################################################################
! # eraser - root out ex-employees across network
  # 2008 - Mike Golvach - eggi@comcast.net
  # <a rel="license" href="http://creativecommons.org/licenses/by-nc-sa/3.0/us/">Creative Commons Attribution-Noncommercial-Share Alike 3.0 United States License</a>
  #
--- 3,9 ----
  log_user 0

  #########################################################################
! # eraser - root out ex-employees across network - with Linux procs added
  # 2008 - Mike Golvach - eggi@comcast.net
  # <a rel="license" href="http://creativecommons.org/licenses/by-nc-sa/3.0/us/">Creative Commons Attribution-Noncommercial-Share Alike 3.0 United States License</a>
  #
***************
*** 36,41 ****
--- 36,43 ----
    puts " sun1 sun2"
    puts "HP Hosts:"
    puts " hp1 hp2"
+   puts "LINUX Hosts:"
+   puts " linux1 linux2"
    puts "#############################################################################"
    puts "FLAGS:"
    puts " -h: Show this message."
***************
*** 70,75 ****
--- 72,90 ----
   expect "word: " {send "$qpass\r"}
  }

+ proc linux_login {name tprompt login lpass} {
+  send_user "$name\n"
+
+  set timeout 3
+  set hostname $name
+  set prompt $tprompt
+  set qlogin $login
+  set qpass $lpass
+
+  expect "ogin: " {send "$qlogin\r"}
+  expect "word: " {send "$qpass\r"}
+ }
+
  proc hp_login {tprompt login lpass} {

   set timeout 12
***************
*** 130,135 ****
--- 145,184 ----
   }
   return "$hostname $insidepwd $insidealias"
  }
+
+ proc linux_q {tprompt login lpass userlogin host} {
+  set timeout 5
+  set log $login
+  set opass $lpass
+  set prompt $tprompt
+  set ulogin $userlogin
+  set hostname $host
+  set insidealias none
+  set insidepwd none
+
+  send_user "Scanning $hostname...  "
+
+         expect -re $tprompt {send "grep $ulogin /etc/passwd\r"}
+  expect -re $tprompt
+         send "echo $?\r"
+         expect -re "\r\n(.*)\r\n"
+         set returnval $expect_out(1,string)
+         if { $returnval == 0 }  {
+   set insidepwd 1
+         }
+         expect -re $tprompt {send "grep $ulogin /etc/mail/aliases\r"}
+  expect -re $tprompt
+         send "echo $?\r"
+         expect -re "\r\n(.*)\r\n"
+         set returnval $expect_out(1,string)
+         if { $returnval == 0 }  {
+   set insidealias 1
+         }
+         expect -re $tprompt {
+   send "exit\r"
+  }
+  return "$hostname $insidepwd $insidealias"
+ }

  proc sco_q {tprompt login lpass userlogin host} {
   set timeout 5
***************
*** 186,191 ****
--- 235,241 ----
  set sun [list sun1 sun2]
  set sco [list sco1 sco2]
  set hp [list hp1 hp2]
+ set linux [list linux1 linux2]

  set userlogin [lindex $argv 0]
  set login [lindex $argv 1]
***************
*** 217,222 ****
--- 267,278 ----
   spawn telnet $host
   hp_login $tprompt $login $lpass
   lappend finalists [sunhp_q $tprompt $login $lpass $userlogin $host]
+ }
+
+ foreach host $linux {
+  spawn telnet $host
+  linux_login $tprompt $login $lpass
+  lappend finalists [linux_q $tprompt $login $lpass $userlogin $host]
  }

  foreach host $sco {

, Mike

linux unix internet technology