Stick up your best shell scripts

Originally posted by dahamsta
[EDIT: Ah, because of the domain. Tool. Never mind.]

You can lose the multiple mkdir's, it accepts multiple directories.

mkdir -p /home/$user/$domain/web /home/$user/$domain/cgi-bin /home/$user/$domain/logs

HTH,
adam

#!/usr/bin/perl -w

use strict;

my (%users, @in);

while (<DATA>) {
  chomp;
  $users{$_} = 0;
}

for (;;) {
  @in = split/ /,`users`;
  foreach my $n (keys %users) { 
    if ( !$users{$n} && map {/^$n$/} @in ) {
      $users{$n} = 1;
      print scalar localtime, " $n has logged in \n";
    }
    if ( $users{$n} && ! map {/^$n$/} @in ) {
      $users{$n} = 0;
      print scalar localtime, " $n has logged out \n";
    }
  }
  sleep 2;
}

__DATA__
hostyle

add
other
users
here

Originally posted by niallb
Multiple logins would make it break, but it's only an extra line or two to get around that.

# @in = split/ /,`users`;
@in = sort keys %{ {map {$_, 1} split/ /,`users`} };

#!/bin/bash

# this scripts was pwned by nadir 11/05/2004 - [email]nadir@zion.nuigalway.ie[/email] : for the fluxbox wm.
#
# It requires an entry like this in your fluxbox menu, 
# [submenu] (Proc) {PID--Proc-State--Parent-Nice-Priority-%mem}
# [include] (~/.fluxbox/proc)
# [end]
#
# ok this is a simple script to gather relevant processes from the /proc stat files - and allow you to kill a process. Id like to do this in c, and have like a full, system monitor, maybe if there are likeminded prople in the fluxbox community who think this is a good idea, please let me know, Id like to contribute.
# its a bit spammy and not terribly efficient even though i tried to keep it as small as possible, but i do find it usefull, I hope someone else out there find some use for it too :).
#also i havn't really bugtested this much, so dont blame me if your computer fubars

#kotoba


#please set the refresh rate here in seconds, note it will slow stuff down if you set this too low.

refresh=50

x=0
while [ $x -lt 1 ]
do

sleep $refresh

proclist=$(ls /proc |grep [/0-9])
totalmem=$(cat /proc/meminfo |cut -d ":" -f 2 |sed -e 's/^[ \t]*//' -e 's/kB/ /g' -e q1)
procs=($proclist)

noprocs=${#procs[@]}
num_elms=$(echo "$noprocs - 1" |bc) 
lastchild="2"

for ((a=1; a <= $num_elms ; a++))
do

if [ -d /proc/${procs[a]} ];
then procstat=$(echo /proc/${procs[a]}/stat) && procstatus=$(echo /proc/${procs[a]}/status);
else procstat="/proc/self/stat" && procstatus="/proc/self/stat";
fi

memstatus[a]=$(cat $procstatus |grep VmRSS |cut -d ":" -f 2 |sed -e 's/^[ \t]*//' -e 's/kB/ /g')  

if [ ${memstatus[a]} ];
then procmem[a]=${memstatus[a]};
else procmem[a]="1";
fi



rawstats[a]="$(cat $procstat | awk '{ print $1, $2, $3, $4, $18, $21 }' |sed -e 's/(/ /g' -e 's/)/ /g')"

child=$(echo ${rawstats[a]} |cut -d " " -f 4)
name=$(echo ${rawstats[a]} | awk '{ print $2 }')
mempercentage[a]=$(echo "scale = 10; ${procmem[a]} / $totalmem *100" |bc |cut -b 1-4)

if [ $child -ne 1 ] || [ $name != "cat" ];
then processinfo[a]="[exec] (${rawstats[a]} ${mempercentage[a]}) {killall -9 $name} \\n";
fi

done
echo -e \\n ${processinfo[@]} > ~/.fluxbox/proctemp 
cat ~/.fluxbox/proctemp |column -t > ~/.fluxbox/proc
done

Syth wrote:

I use this little script when I'm root and modifying system files:

#! /bin/bash

CURRTIME=$(date '+%Y-%m-%d-%H:%M')

FILE=$1

DIRECTORY=$(pwd)

CHANGEDFILES_PATH="${HOME}/changedfiles"

cp $FILE ${FILE}_${CURRTIME}
echo >> ${CHANGEDFILES_PATH}
echo ${CURRTIME} >> ${CHANGEDFILES_PATH}
echo "${DIRECTORY}/${FILE}" >> ${CHANGEDFILES_PATH}

echo "Please enter a description:"
cat >> ${CHANGEDFILES_PATH}

Call it by passing a file. You must be in the directory of that file. It'll copy that file appending the current time and date to the end. It'll ask for a description which it stores in ~/changedfiles along with the file and time.

The advantage of storing the filenames in ~/changedfiles is that it makes it easy to go back over it to see what you had to change to get XYZ to work.

vinks wrote:

i dont think anyone has really shown newbies how to do for loops in a shell script so here is a little script that is handy for connecting to machines sequentially and running a command

#!/bin/sh
LIST=`seq 104 128`
CMD="ps aux | grep cfservd"

for i in $LIST;
do
        echo node$i
        ssh node$i $CMD
done

for ((a=1; a <= $num_elms ; a++))

for (;;) {
  @in = split/ /,`users`;

#!/bin/bash

dd if=/dev/cdrom bs=1 skip=32808 count=32 > /tmp/title
DVDTITLE=`cat /tmp/title | awk '{print $1}' `

mplayer dvd://  -frames 1 -nosound -vo null  > /tmp/mpr

TITLENUM=`cat /tmp/mpr | grep "titles" | awk '{print $3}'`
echo "DVD Label: $DVDTITLE Titles: $TITLENUM"
mkdir $DVDTITLE
for i in `seq 1 $TITLENUM`;
do
	rm -f divx2pass.log frameno.avi
	mencoder -ovc xvid  -xvidencopts pass=1:bitrate=1100 -nosound -vf pullup,pp=md dvd://$i -o /dev/null
	mencoder -ovc xvid -xvidencopts pass=2:bitrate=1100 -nosound -vf pullup,pp=md dvd://$i -o "/tmp/tmp.avi"
	mplayer -vo null -aid 128 -ao pcm:file="/tmp/tmp.wav" dvd://$i
	oggenc -q 3 "/tmp/tmp.wav" "/tmp/tmp.ogg"
	ogmmerge -o "./$DVDTITLE/Title $i.ogm" /tmp/tmp.avi /tmp/tmp.ogg
done

#!/usr/bin/perl

use Net::Telnet;
use Net::Ping;

$remote_host = 'some.remote.site';
$local_host = 'router.local.address';
$log_file = '/var/log/router_mon';

$remote_ping = Net::Ping->new();

$rebooted = 0;

if(!$remote_ping->ping($remote_host)){

while (!$remote_ping->ping($remote_host))
{
   $local_ping = Net::Ping->new();
   exit 0 if !$local_ping->ping($local_host);
   $t = new Net::Telnet();
   $t->open($local_host);
   $t->print('admin');
   $t->waitfor('/Password:/');
   $t->print('my_password');
   $t->waitfor('/Belkin>/');
   $t->print('reboot');
   $t->close();
   while (!$local_ping->ping($local_host))
   {
       sleep(20);
   }
   $local_ping->close();
   $t->close;

   $rebooted++;

}
$remote_ping->close();

}

$t = new Net::Telnet();
$t->open($local_host);
$t->print('admin');
$t->waitfor('/Password:/');
$t->print('my_password');
$t->waitfor('/Belkin>/');
$t->print('ifconfig ppp0');
$t->waitfor('/has_ip=/');
$t->waitfor('/ip=/');
($ip_addr, $match) = $t->waitfor('/,/');
$t->print('exit');
$t->close;

open (FH, "+< $log_file") or die;

while ( $line= <FH> ) {$ip_old = $line;}

chomp $ip_old;

if(!($ip_old eq $ip_addr)){
   print FH "$ip_addr\n";

   ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

   $to='my_email_address@gmail.com';
   $from= 'my_email_address@gmail.com';
   $subject = sprintf("new server ip %s",$ip_addr);
   $body = sprintf("system rebooted %u times at %u:%u on the %u/%u/%u, ip address obtained was: %s.",$rebooted,$hour,$min,$mday,$mon,$year+1900,$ip_addr);

   open(MAIL, '|/usr/sbin/sendmail -t');

   print MAIL "To: $to\n";
   print MAIL "From: $from\n";
   print MAIL "Subject: $subject\n";
   print MAIL "Content-type: text/plain\n\n";
   print MAIL "$body \n\n";

   close(MAIL);
}

close FH;

#!/bin/sh

I=0
SPIN="[=          ]"
echo -n "DEBUG: Test running ${SPIN}"

while [ $I -lt 60 ]
do
    tput cub 13

    case $SPIN in
            "[=          ]") SPIN="[ =         ]";;
            "[ =         ]") SPIN="[  =        ]";;
            "[  =        ]") SPIN="[   =       ]";;
            "[   =       ]") SPIN="[    =      ]";;
            "[    =      ]") SPIN="[     =     ]";;
            "[     =     ]") SPIN="[      =    ]";;
            "[      =    ]") SPIN="[       =   ]";;
            "[       =   ]") SPIN="[        =  ]";;
            "[        =  ]") SPIN="[         = ]";;
            "[         = ]") SPIN="[          =]";;
            "[          =]") SPIN="[=          ]";;
    esac

    echo -n "${SPIN}"
    sleep 1
        
    I=`expr $I + 1`
done

tput cub 13
echo "[===DONE!===]"