diskinfo script

diskinfo script

[Bill Davidsen]

[-- Attachment #1: Type: text/plain, Size: 753 bytes --]

I was playing around doing some prototyping for a more extensive disk 
info reporter which will be written in perl, and it came to me that this 
script might be useful to someone, so I'll attach it here. The perl 
version will generate HTML, and CSV for configuration databases, show 
mount points, etc. This was an hour or so, mainly playing with the 
report format. Obviously you need to make it executable.

I want it because I'm frequently asked to look at strange machines, and 
I want to see what used and how. I could do it all in script, but only 
to prove I can. ;-)

*Enjoy!*

-- 
Bill Davidsen <davidsen@tmr.com>
  "Woe unto the statesman who makes war without a reason that will still
  be valid when the war is over..." Otto von Bismark 



[-- Attachment #2: diskinfo --]
[-- Type: text/plain, Size: 1412 bytes --]

#!/bin/bash
#   diskinfo 1.10 2008-04-29 13:58:39-04 davidsen Testing
#
# display disk info

# option parsing
verbose=0
partitions=false
debug=false

while getopts "pvd" opt; do
  case "$opt" in
  "p") partitions=true;;
  "v") let verbose+=1;;
  "d") debug=true;;
  "?") exit 2;;
  esac
done
if [ $verbose -gt 0 ]; then
	echo -e 'diskinfo v1.10 Testing  2008-04-29 13:58:39-04 davidsen@tmr.com\n' >&2
fi

Gig_sect=$[2*1024*1024]

# this does the output
function do_blkdev
{
	local drive id modelfile
	id="$1"
	drive=$2

	# size in MB or GB as makes sense
	size=$(cat ${drive}/size)
	if [ $size -lt $Gig_sect ]; then
		MB=$(echo "scale=1;$size/2048"|bc)
		UNIT="MB"
	else
		MB=$(echo "scale=1;$size/(2*1024^2)"|bc)
		UNIT="GB"
	fi
	modelfile="${drive}/device/model"
	if [ -f "$modelfile" ]; then
		model=$(cat "${modelfile}")
	else
		if [ -d ${drive}/holders ]; then
			model=$(ls ${drive}/holders)
			[ -n "$model" ] && model="  ($(echo $model))"
		else
			model="undefined"
		fi
	fi
	printf "%-8s %6s %-2s %s\n" "$id" $MB $UNIT "$model"
}

# identify devices
eval DISKS=\${${OPTIND}:-hd? sd?}

# process the block devices
cd /sys/block
for disk in ${DISKS}
do
	if [ -d "${disk}" ]; then
		do_blkdev "$disk" "$disk"
		if $partitions; then
			for ptn in ${disk}/${disk}[1-9]*; do
				if [ -d "$ptn" ]; then
					do_blkdev "  ${ptn##*/}" $ptn
				else
					echo "  no partition table"
				fi
			done
		fi
	fi
done

Re: diskinfo script

[Bill Davidsen]

[-- Attachment #1: Type: text/plain, Size: 1285 bytes --]

Bill Davidsen wrote:
> I was playing around doing some prototyping for a more extensive disk 
> info reporter which will be written in perl, and it came to me that 
> this script might be useful to someone, so I'll attach it here. The 
> perl version will generate HTML, and CSV for configuration databases, 
> show mount points, etc. This was an hour or so, mainly playing with 
> the report format. Obviously you need to make it executable.
>
> I want it because I'm frequently asked to look at strange machines, 
> and I want to see what used and how. I could do it all in script, but 
> only to prove I can. ;-)
>
> *Enjoy!*
>
After some immediate feedback, I did an update on this to include some 
patches and requested features. So here is the last version I'll put 
here, with built-in help, examples, the option to use "GiB" instead of 
"GB" if you care, and now should run on sh as well as bash. It currently 
doesn't run on ksh, I have to look for my ksh book and see how to fix 
the problem.

If there is ever a version after this I'll just put it on a website, I 
was dropping this to do something better.

-- 
Bill Davidsen <davidsen@tmr.com>
  "Woe unto the statesman who makes war without a reason that will still
  be valid when the war is over..." Otto von Bismark 



[-- Attachment #2: diskinfo --]
[-- Type: text/plain, Size: 2838 bytes --]

#!/bin/bash
#   diskinfo 1.12 2008-04-29 16:07:41-04 davidsen Stable
# tabs=4
#
# display disk info

# this usage function needs to be defined before it's used
Usage() {
	exec 1>&2
	echo -e "\n\n\nDiskInfo usage\n"
	echo -e "    diskinfo [ options ] [ drives ]\n"
	echo "With no arguments diskinfo lists the sizes of devices with"
	echo "names of the format /dev/hd? and /dev/sd?. Options allow"
	echo "display of the size of partitions, and their use by raid"
	echo "(md) arrays, or lvm (dm) devices."
	echo ""
	echo "Options"
	echo " -v  verbose - at the moment just displays version information"
	echo "     rather than more information about the devices."
	echo " -p  partitions - shows information about partitions on the"
	echo "     devices listed, their size and usage."
	echo " -d  debug - does nothing in the released version, just a handy"
	echo "     thing to have if you try to enhance this script."
	echo " -e  european disk size notation, \"MiB\" instead of \"MB,\" etc"
	echo ""
	echo "To specify a subset of drives or drives with alternate names,"
	echo "the drive names may be put on the command line in wildcard"
	echo "notation."
	echo -e "\nENTER to see examples: \c"
	read ans
	echo -e "\n\n"
	echo "Examples:"
	echo "  diskinfo hd[ab] sdb"
	echo "  diskinfo -p sd?"
	echo "  diskinfo -p md1p_*"
	echo -e "\n\n"

	exit 2
}

# option parsing
verbose=0
partitions=false
debug=false
# MB and GB unit notation - someone asked for this
Unit_MB="MB"
Unit_GB="GB"

while getopts "pvde" opt; do
  case "$opt" in
  "p") partitions=true;;
  "v") let verbose+=1;;
  "d") debug=true;;
  "e") # European unit notation
       Unit_MB="MiB"; Unit_GB="GiB";;
  "?") Usage;;
  esac
done
if [ $verbose -gt 0 ]; then
	echo -e 'diskinfo v1.12 Stable  2008-04-29 16:07:41-04 davidsen@tmr.com\n' >&2
fi

# A gigabyte in sectors
Gig_sect=$((2*1024*1024))

# this does the output
do_blkdev() {
	local drive id modelfile
	id="$1"
	drive=$2

	# size in MB or GB as makes sense
	size=$(cat ${drive}/size)
	if [ $size -lt $Gig_sect ]; then
		MB=$(echo "scale=1;$size/2048"|bc)
		UNIT=$Unit_MB
	else
		MB=$(echo "scale=1;$size/(2*1024^2)"|bc)
		UNIT=$Unit_GB
	fi
	modelfile="${drive}/device/model"
	if [ -f "$modelfile" ]; then
		model=$(cat "${modelfile}")
	else
		if [ -d ${drive}/holders ]; then
			model=$(ls ${drive}/holders)
			[ -n "$model" ] && model="  ($(echo $model))"
		else
			model="undefined"
		fi
	fi
	printf "%-8s %6s %-2s %s\n" "$id" $MB $UNIT "$model"
}

# identify devices
eval DISKS=\${${OPTIND}:-hd? sd?}

# process the block devices
cd /sys/block
for disk in ${DISKS}
do
	if [ -d "${disk}" ]; then
		do_blkdev "$disk" "$disk"
		if $partitions; then
			for ptn in ${disk}/${disk}[1-9]*; do
				if [ -d "$ptn" ]; then
					do_blkdev "  ${ptn##*/}" $ptn
				else
					echo "  no partition table"
				fi
			done
		fi
	fi
done

Re: diskinfo script

[David Greaves]

Bill Davidsen wrote:
> Bill Davidsen wrote:
>> I was playing around doing some prototyping for a more extensive disk
>> info reporter which will be written in perl, and it came to me that
>> this script might be useful to someone, so I'll attach it here. The
>> perl version will generate HTML, and CSV for configuration databases,
>> show mount points, etc. This was an hour or so, mainly playing with
>> the report format. Obviously you need to make it executable.
>>
>> I want it because I'm frequently asked to look at strange machines,
>> and I want to see what used and how. I could do it all in script, but
>> only to prove I can. ;-)
>>
>> *Enjoy!*
>>
> After some immediate feedback, I did an update on this to include some
> patches and requested features. So here is the last version I'll put
> here, with built-in help, examples, the option to use "GiB" instead of
> "GB" if you care, and now should run on sh as well as bash. It currently
> doesn't run on ksh, I have to look for my ksh book and see how to fix
> the problem.
> 
> If there is ever a version after this I'll just put it on a website, I
> was dropping this to do something better.
> 

The wiki?

David