#!/bin/sh

arg=$1
shift

prefix=$(cat config.status | grep @prefix@ | awk -F, '{print $3}')
if [ -z "$prefix" ] ; then
    prefix=$(cat config.status | grep '"prefix"' | awk -F\" '{print $4}')
fi

if [ -z "$prefix" ] ; then
    prefix="/usr/local/freeswitch"
fi

if [ "$arg" = "gcore" ] ; then
	user=$1
	shift
	fspid=`cat $prefix/log/freeswitch.pid`
	echo "pulling gcore $fspid"
	gcore -o core $fspid
else
    user=$arg
fi


core=`ls -1t core.* | head -1 2> /dev/null`

if [ -z "$core" ] ; then
	core=`ls -1 core 2> /dev/null`
fi

if [ -z "$core" ] ; then
	core=`ls -1 freeswitch.core 2> /dev/null`
fi

if [ -z "$core" ] ; then
	echo "You must be in the current directory with a core file from FreeSWITCH!"
	exit 255
fi

if [ -z "which gdb" ] ; then
  echo "Unable to locate gdb, is it installed?"
  exit 255
fi

echo "core is $core"

line="--------------------------------------------------------------------------------"

mypwd=`pwd`
tmpdir=/tmp/fscore_pb.tmp
post_file=$mypwd/fscore_pb.post


if [ -z $user ] ; then
	user=$SUDO_USER
fi

if [ -z $user ] ; then
	user=$USER
fi

if [ -z $user ] ; then
	user="anon"
fi


echo "Gathering Data Please Wait........."

echo -n "paste=Send&remember=0&poster=$user&format=none&code2=" > $post_file

echo "LSB RELEASE:" >> $post_file
echo $line >> $post_file
lsb_release -a >> $post_file

echo "CPU INFO:" >> $post_file
echo $line >> $post_file
cat /proc/cpuinfo >> $post_file

echo "SVN INFO:" >> $post_file
echo $line >> $post_file
echo -n "Revision: " >> $post_file
svnversion . >> $post_file
svn stat | grep -v \? >> $post_file

echo "GDB BACKTRACE:" >> $post_file
echo $line >> $post_file

gdb $prefix/bin/freeswitch `echo $core | tail -n1` \
        --eval-command="echo \n\n" \
        --eval-command="set pagination off" \
        --eval-command="echo Stack Trace\n" \
        --eval-command="echo $line\n" \
        --eval-command="bt" \
        --eval-command="echo \n\n\n\n Stack Trace (full)\n" \
        --eval-command="echo $line\n" \
        --eval-command="bt full" \
        --eval-command="echo \n\n\n\n Stack Trace (all threads)\n" \
        --eval-command="echo $line\n" \
        --eval-command="thread apply all bt" \
        --eval-command="echo \n\n\n\n Stack Trace (all threads) (full)\n" \
        --eval-command="echo $line\n" \
        --eval-command="thread apply all bt full" \
        --eval-command="quit" 1>> $post_file 2>/dev/null

rm -fr $tmpdir 
mkdir -p $tmpdir
cd $tmpdir



wget --output-file=/dev/null --http-user=pastebin --http-password=freeswitch http://pastebin.freeswitch.org --post-file=$post_file

pb=`ls [0-9]*`

mv $post_file $tmpdir
echo "Finished."
echo "Please report http://pastebin.freeswitch.org/$pb to the developers."