#!/bin/sh

# oracheckpw - Search for Oracle passwords

if [ $# -lt 2 ]
then
	print "Usage: $0 user password [search_pwd]"
	print "(search DBA_USERS for search_pwd, or password same as uname)"
	exit
fi

print "set pages 0 lin 32767 feedback off verify off heading off
	connect $1/$2
	select username from dba_users order by 1;" |
sqlplus -silent /nolog |
awk -v pw=$3 '

  !index($0, "Connected") {

	if(pw)
		command = "print \"set pages 0 lin 32767 feedback off " \
			"verify off heading off\nconnect " $1 "/" pw \
			"\nquit\" | sqlplus -silent /nolog 2>&1"
	else
		command = "print \"set pages 0 lin 32767 feedback off " \
			"verify off heading off\nconnect " $1 "/" $1 \
			"\nquit\" | sqlplus -silent /nolog 2>&1"

	while(command | getline x)
		if(index(x,"Connected")) print $1

	close(command)
}'