#!/usr/pkg/bin/bash
exec 2>&1
printf "%s\r\n\r\n" "Content-type: text/html"
echo '<PRE>'
# terminate 'er
echo Script disabled, sorry.
echo Hasta la vista, baby.
exit 0
# done
ip=$REMOTE_ADDR
browser="$HTTP_USER_AGENT"
echo $browser | grep -iq windows && echo Hmm... Windows... maybe...
if [ "$ip" ]; then
 echo Looking up NetBIOS name...
 nmblookup -A $ip > /tmp/$ip.$$.tmp
else
 echo Could not determine your IP...
 echo You must be pretty smart, so no way you\'re Sal.
 exit 0
fi
if [ ! -f /tmp/$ip.$$.tmp ]; then
 echo Got nothing back from NetBIOS lookup query
 echo You might be behind a firewall... can\'t tell if you\'re Sal or not.
 exit 0
fi
name="`grep '<00>' /tmp/$ip.$$.tmp | \
 grep -v '<GROUP>' | cut -d '<' -f 1 | \
 awk '{print $1,$2,$3,$4,$5,$6}'`"
if [ "$name" ]; then
 echo Your computer\'s name is: $name
else
 echo Could not determine NetBIOS name
 echo Maybe behind a firewall... can\'t tell if you\'re Sal or not.
 exit 0
fi
name="`echo $name | tr -cd 'A-Za-z0-9 ._-'`"
echo Attempting resource listing of $name...
smbclient -N -L "$name" -I $ip >> /tmp/$ip.$$.tmp
for disk in `awk '$2 ~ "^[Dd][Ii][Ss][Kk]$" {print $1}' /tmp/$ip.$$.tmp`; do
 disk="`echo $disk | tr -cd 'A-Za-z0-9_$'`"
 echo Attempting directory listing of $disk...
 smbclient '\\'"$name"'\'"$disk" -I $ip -N -c "dir" >> /tmp/$ip.$$.tmp
done
cat /tmp/$ip.$$.tmp
if ! grep -iq sal /tmp/$ip.$$.tmp && ! grep -iq wise /tmp/$ip.$$.tmp; then
 echo I don\'t think you\'re Sal. But I\'m not sure.
else
 echo I think you might be Sal. But I\'m not sure.
fi
echo 'Source code is <A HREF="/www/src/who.sh">here</A>.'