#!/bin/sh
appdir=$1

function isTerminalRunning() {
  return=`osascript<<EOF
    tell application "System Events" 
      set TermRunning to (exists process "Terminal")
    end tell
    if TermRunning then
      return "1"
    else
      return "0"
    end if
EOF`
  return $return
}


function isPineRunning() {
  return=`osascript<<EOF
    if the window "Pine" of the application "Terminal" exists then	
      return "1"
    else
      return "0"
    end if
EOF`
  return $return
}


function launchPine() {
  osascript<<EOF
 set pine to ("clear; '$appdir/Contents/Resources/pine' -mailcap-search-path='$appdir/Contents/Resources/mailcap' -url-viewers='/usr/bin/open _URL_'; exit")
    tell application "Terminal"
      activate
      do script pine $1
      tell window frontmost
        set name to "Pine"
        set title displays shell path to false
        set title displays file name to false
        set title displays custom title to true
        set custom title to "Pine"
      end tell
    end tell
EOF
  return
}

# main()

isTerminalRunning
if [ $? -ne 1 ]; then
  # Terminal isn't running.
    launchPine "in the front window"
else
  # Terminal is running. Is Pine?
    isPineRunning
    if [ $? -ne 1 ]; then
    # Pine isn't running.
	launchPine
    else
	osascript <<EOF
	tell application "Terminal"
	activate
	set frontmost of window "Pine" to true
	end tell
EOF
    fi
fi