twitter app written in bash

tweet.sh

#!/usr/bin/env bash
#
# Original: from https://github.com/ryuichiueda/TomoTool
# ===============================================================
# The MIT License
#
# Copyright (C) 2013-2015 Ryuichi Ueda
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
# THE SOFTWARE.
# ===============================================================
#
# See also:
#   https://dev.twitter.com/oauth/overview/authentication-by-api-family
#   https://dev.twitter.com/oauth/overview
#   https://dev.twitter.com/oauth/overview/creating-signatures
#
# If you hope to see detailed logs, set an environment variable "DEBUG" to 1 or something.

work_dir="$(pwd)"
tools_dir="$(cd "$(dirname "$0")" && pwd)"

tmp="/tmp/$$"

URL_REDIRECTORS="$(cat << FIN
1drv.ms
amzn.to
bit.ly
boog.io
bugzil.la
g.co
gigaz.in
go.ascii.jp
goo.gl
fb.me
is.gd
kuku.lu
macaf.ee
nico.ms
nico.sc
num.to
ow.ly
p.tl
prt.nu
r10.to
s.nikkei.com
sdrv.ms
t.asahi.com
t.co
tiny.cc
tinyurl.com
urx.nu
ustre.am
wolfr.am
y2u.be
youtu.be
FIN
)"

log() {
  [ "$DEBUG" = '' ] && return 0
  echo "$*" 1>&2
}

exist_command() {
  type "$1" > /dev/null 2>&1
}

load_keys() {
  if [ "$CONSUMER_KEY" = '' -a \
       -f "$work_dir/tweet.client.key" ]
  then
    log 'Using client key at the current directory.'
    source "$work_dir/tweet.client.key"
  fi

  if [ "$CONSUMER_KEY" = '' -a \
       -f ~/.tweet.client.key ]
  then
    log 'Using client key at the home directory.'
    source ~/.tweet.client.key
  fi

  if [ "$CONSUMER_KEY" = '' -a \
       -f "$tools_dir/tweet.client.key" ]
  then
    log 'Using client key at the tools directory.'
    source "$tools_dir/tweet.client.key"
  fi

  export MY_SCREEN_NAME
  export MY_LANGUAGE
  export CONSUMER_KEY
  export CONSUMER_SECRET
  export ACCESS_TOKEN
  export ACCESS_TOKEN_SECRET
}

case $(uname) in
  Darwin|*BSD|CYGWIN*)
    esed="sed -E"
    ;;
  *)
    esed="sed -r"
    ;;
esac


ensure_available() {
  local fatal_error=0

  load_keys

  if [ "$MY_SCREEN_NAME" = '' ]
  then
    echo 'FATAL ERROR: You need to specify your screen name via an environment variable "MY_SCREEN_NAME".' 1>&2
    fatal_error=1
  fi

  if [ "$MY_LANGUAGE" = '' ]
  then
    echo 'FATAL ERROR: You need to specify your language (like "en") via an environment variable "MY_LANGUAGE".' 1>&2
    fatal_error=1
  fi

  if [ "$CONSUMER_KEY" = '' ]
  then
    echo 'FATAL ERROR: You need to specify a consumer key via an environment variable "CONSUMER_KEY".' 1>&2
    fatal_error=1
  fi

  if [ "$CONSUMER_SECRET" = '' ]
  then
    echo 'FATAL ERROR: You need to specify a consumer secret via an environment variable "CONSUMER_SECRET".' 1>&2
    fatal_error=1
  fi

  if [ "$ACCESS_TOKEN" = '' ]
  then
    echo 'FATAL ERROR: You need to specify an access token via an environment variable "ACCESS_TOKEN".' 1>&2
    fatal_error=1
  fi

  if [ "$ACCESS_TOKEN_SECRET" = '' ]
  then
    echo 'FATAL ERROR: You need to specify an access token secret via an environment variable "ACCESS_TOKEN_SECRET".' 1>&2
    fatal_error=1
  fi

  if ! exist_command nkf
  then
    echo 'FATAL ERROR: A required command "nkf" is missing.' 1>&2
    fatal_error=1
  fi

  if ! exist_command curl
  then
    echo 'FATAL ERROR: A required command "curl" is missing.' 1>&2
    fatal_error=1
  fi

  if ! exist_command openssl
  then
    echo 'FATAL ERROR: A required command "openssl" is missing.' 1>&2
    fatal_error=1
  fi

  if ! exist_command jq
  then
    echo 'FATAL ERROR: A required command "jq" is missing.' 1>&2
    fatal_error=1
  fi

  [ $fatal_error = 1 ] && exit 1
}


#================================================================
# sub commands

help() {
  local command="$1"
  shift

  case "$command" in
    '' )
      cat << FIN
Usage:
  ./tweet.sh [command] [...arguments]

Available commands:
  fetch(get, show)
                 : fetches a JSON string of a tweet.
  search         : searches tweets.
  watch-mentions(watch)
                 : watches mentions, retweets, DMs, etc.
  type           : detects the type of the given input.
  body           : extracts the body of a tweet.
  owner          : extracts the owner of a tweet.
  showme         : reports the raw information of yourself.
  whoami         : reports the screen name of yourself.
  language(lang) : reports the selected language of yourself.

  post(tweet, tw): posts a new tweet.
  reply          : replies to a tweet.
  upload         : upload a media file.
  delete(del, remove, rm)
                 : deletes a tweet.
  favorite(fav)  : marks a tweet as a favorite.
  unfavorite(unfav)
                 : removes favorited flag of a tweet.
  retweet(rt)    : retweets a tweet.
  unretweet(unrt): deletes the retweet of a tweet.
  follow         : follows a user.
  unfollow       : unfollows a user.

  fetch-direct-messages(fetch-dm, get-direct-messages, get-dm)
                 : fetches recent DMs.
  direct-message(dm)
                 : sends a DM.

  resolve        : resolves a shortened URL like "https://t.co/xxxx"
  resolve-all    : resolves all shortened URLs in the given input.

For more details, see also: "./tweet.sh help [command]"
FIN
      ;;

    fetch|get|show )
      cat << FIN
Usage:
  ./tweet.sh fetch 012345
  ./tweet.sh fetch https://twitter.com/username/status/012345
  ./tweet.sh get 012345
  ./tweet.sh show 012345
FIN
      ;;
    search )
      cat << FIN
Usage:
  ./tweet.sh search -q "queries" -c 10
  ./tweet.sh search -q "Bash OR Shell Script" -s 0123456
  ./tweet.sh search -q "queries" -h "echo 'found!'; cat"
  ./tweet.sh search -q "Bash OR Shell Script" -w |
    while read -r tweet; do echo "found!: \${tweet}"; done
FIN
      ;;
    watch|watch-mentions )
      cat << FIN
Usage:
  ./tweet.sh watch-mentions -k keyword1,keyword2 |
    while read -r event; do ... done
  ./tweet.sh watch-mentions -k keyword1,keyword2
                            -m "echo 'MENTION'; cat"
                            -r "echo 'RT'; cat"
                            -q "echo 'QT'; cat"
                            -f "echo 'FOLLOWED'; cat"
                            -d "echo 'DM'; cat"
                            -s "echo 'SEARCH-RESULT'; cat"
FIN
      ;;
    type )
      cat << FIN
Usage:
  echo "\$tweet_json" | ./tweet.sh type -k keyword1,keyword2
FIN
      ;;
    body )
      cat << FIN
Usage:
  ./tweet.sh body 012345
  ./tweet.sh body https://twitter.com/username/status/012345
  echo "\$tweet_json" | ./tweet.sh body
FIN
      ;;
    owner )
      cat << FIN
Usage:
  ./tweet.sh owner 012345
  ./tweet.sh owner https://twitter.com/username/status/012345
  echo "\$tweet_json" | ./tweet.sh owner
FIN
      ;;
    showme )
      cat << FIN
Usage:
  ./tweet.sh showme
FIN
      ;;
    whoami )
      cat << FIN
Usage:
  ./tweet.sh whoami
FIN
      ;;
    lang|language )
      cat << FIN
Usage:
  ./tweet.sh lang
  ./tweet.sh language
FIN
      ;;

    post|tweet|tw )
      cat << FIN
Usage:
  ./tweet.sh post A tweet from command line
  ./tweet.sh post 何らかのつぶやき
  ./tweet.sh tweet Hello
  ./tweet.sh tw Hi
FIN
      ;;
    reply )
      cat << FIN
Usage:
  ./tweet.sh reply 012345 a reply
  ./tweet.sh reply https://twitter.com/username/status/012345 a reply
FIN
      ;;
    upload )
      cat << FIN
Usage:
  ./tweet.sh upload /path/to/file.png
FIN
      ;;
    del|delete|rm|remove )
      cat << FIN
Usage:
  ./tweet.sh del 012345
  ./tweet.sh delete https://twitter.com/username/status/012345
  ./tweet.sh rm 012345
  ./tweet.sh remove https://twitter.com/username/status/012345
FIN
      ;;
    fav|favorite )
      cat << FIN
Usage:
  ./tweet.sh fav 012345
  ./tweet.sh fav https://twitter.com/username/status/012345
  ./tweet.sh favorite 012345
  ./tweet.sh favorite https://twitter.com/username/status/012345
FIN
      ;;
    unfav|unfavorite )
      cat << FIN
Usage:
  ./tweet.sh unfav 012345
  ./tweet.sh unfav https://twitter.com/username/status/012345
  ./tweet.sh unfavorite 012345
  ./tweet.sh unfavorite https://twitter.com/username/status/012345
FIN
      ;;
    rt|retweet )
      cat << FIN
Usage:
  ./tweet.sh rt 012345
  ./tweet.sh rt https://twitter.com/username/status/012345
  ./tweet.sh retweet 012345
  ./tweet.sh retweet https://twitter.com/username/status/012345
FIN
      ;;
    unrt|unretweet )
      cat << FIN
Usage:
  ./tweet.sh unrt 012345
  ./tweet.sh unrt https://twitter.com/username/status/012345
  ./tweet.sh unretweet 012345
  ./tweet.sh unretweet https://twitter.com/username/status/012345
FIN
      ;;
    follow )
      cat << FIN
Usage:
  ./tweet.sh follow username
  ./tweet.sh follow @username
  ./tweet.sh follow https://twitter.com/username/status/012345
FIN
      ;;
    unfollow )
      cat << FIN
Usage:
  ./tweet.sh unfollow username
  ./tweet.sh unfollow @username
  ./tweet.sh unfollow https://twitter.com/username/status/012345
FIN
      ;;

    fetch-dm|fetch-direct-messages|get-dm|get-direct-messages )
      cat << FIN
Usage:
  ./tweet.sh fetch-dm -c 10
  ./tweet.sh fetch-direct-messages -c 100 -s 0123456
  ./tweet.sh get-dm -c 10
  ./tweet.sh get-direct-messages -c 10 -s 0123456
FIN
      ;;
    dm|direct-message )
      cat << FIN
Usage:
  ./tweet.sh dm frinedname Good morning.
  ./tweet.sh direct-message frinedname "How are you?"
FIN
      ;;
    resolve )
      cat << FIN
Usage:
  ./tweet.sh resolve https://t.co/xxxx
FIN
      ;;
    resolve-all )
      cat << FIN
Usage:
  cat ./tweet-body.txt | ./tweet.sh resolve-all
FIN
      ;;
  esac
}

check_errors() {
  if echo "$1" | grep '^\[' > /dev/null
  then
    return 0
  fi
  if [ "$(echo "$1" | jq -r '.errors | length')" = '0' ]
  then
    return 0
  else
    return 1
  fi
}


fetch() {
  ensure_available

  local target="$1"
  shift

  local id="$(echo "$target" | extract_tweet_id)"
  local params="$(cat << FIN
id $id
FIN
  )"
  local result="$(echo "$params" |
                    call_api GET https://api.twitter.com/1.1/statuses/show.json)"
  echo "$result"
  check_errors "$result"
}

fetch_with_my_retweet() {
  ensure_available

  local target="$1"
  shift

  local id="$(echo "$target" | extract_tweet_id)"
  local params="$(cat << FIN
id $id
include_my_retweet true
FIN
  )"
  local result="$(echo "$params" |
                    call_api GET https://api.twitter.com/1.1/statuses/show.json)"
  echo "$result"
  check_errors "$result"
}

search() {
  ensure_available
  local locale='en'
  local count=10
  local since_id=''
  local handler=''
  local watch=0

  local OPTIND OPTARG OPT
  while getopts q:l:c:s:h:w OPT
  do
    case $OPT in
      q )
        query="$OPTARG"
        ;;
      c )
        count="$OPTARG"
        ;;
      s )
        since_id="$(echo "$OPTARG" | extract_tweet_id)"
        [ "$since_id" != '' ] && since_id="since_id $since_id"
        ;;
      h )
        handler="$OPTARG"
        ;;
      w )
        watch=1
        ;;
    esac
  done

  [ "$MY_LANGUAGE" = 'ja' ] && locale='ja'

  if [ "$handler" = '' -a $watch = 0 ]
  then
    local params="$(cat << FIN
q $query
lang $MY_LANGUAGE
locale $locale
result_type recent
count $count
$since_id
FIN
    )"
    local result="$(echo "$params" |
                      call_api GET https://api.twitter.com/1.1/search/tweets.json)"
    echo "$result"
    check_errors "$result"
  else
    watch_search_results "$query" "$handler"
  fi
}

watch_search_results() {
  local query="$1"
  local handler="$2"
  local user_screen_name="$(self_screen_name)"
  local params
  if [ "$query" = '' ]
  then
    echo "Tracking sample tweets..." 1>&2
    echo '' |
      call_api GET https://stream.twitter.com/1.1/statuses/sample.json |
      handle_search_results "$user_screen_name" "$handler"
  else
    echo "Tracking tweets with the query: $query..." 1>&2
    params="$(cat << FIN
track $query
FIN
    )"
    echo "$params" |
      call_api POST https://stream.twitter.com/1.1/statuses/filter.json |
      handle_search_results "$user_screen_name" "$handler"
  fi
}

handle_search_results() {
  local user_screen_name="$1"
  local handler="$2"

  local separator='--------------------------------------------------------------'

  local owner
  while read -r line
  do
    if [ "$line" = 'Exceeded connection limit for user' ]
    then
      echo "$line" 1>&2
      exit 1
    fi

    # Ignore self tweet
    owner="$(echo "$line" | extract_owner)"
    [ "$owner" = "$user_screen_name" \
      -o "$owner" = 'null' \
      -o "$owner" = '' ] && continue

    log "$separator"
    log "TWEET DETECTED: Matched to the given query"

    if [ "$handler" = '' ]
    then
      echo "$line"
    else
      echo "$line" |
        (cd "$work_dir"; eval "$handler")
    fi
  done
}

watch_mentions() {
  ensure_available

  local extra_keywords=''
  local OPTIND OPTARG OPT
  while getopts k:m:r:q:f:d:s: OPT
  do
    case $OPT in
      k )
        extra_keywords="$OPTARG"
        ;;
    esac
  done

  local user_screen_name="$(self_screen_name)"
  local tracking_keywords="$user_screen_name"
  [ "$extra_keywords" != '' ] && tracking_keywords="$tracking_keywords,$extra_keywords"

  echo "Tracking mentions for $tracking_keywords..." 1>&2

  local params="$(cat << FIN
replies all
track $tracking_keywords
FIN
  )"
  echo "$params" |
    call_api GET https://userstream.twitter.com/1.1/user.json |
    handle_mentions "$user_screen_name" "$@"
}

handle_mentions() {
  local user_screen_name=$1
  shift

  local keywords=''
  local mention_handler=''
  local retweet_handler=''
  local quoted_handler=''
  local followed_handler=''
  local dm_handler=''
  local search_handler=''

  local OPTIND OPTARG OPT
  while getopts k:m:r:q:f:d:s: OPT
  do
    case $OPT in
      k )
        keywords="$OPTARG"
        ;;
      m )
        mention_handler="$OPTARG"
        ;;
      r )
        retweet_handler="$OPTARG"
        ;;
      q )
        quoted_handler="$OPTARG"
        ;;
      f )
        followed_handler="$OPTARG"
        ;;
      d )
        dm_handler="$OPTARG"
        ;;
      s )
        search_handler="$OPTARG"
        ;;
    esac
  done

  local type
  while read -r line
  do
    type="$(echo "$line" |
              detect_type -k "$keywords")"
    [ $? != 0 ] && continue;

    log "Detected: $type"

    case "$type" in
      event-follow )
        if [ "$followed_handler" != '' ]
        then
          echo "$line" |
            (cd "$work_dir"; eval "$followed_handler")
        else
          echo "$line"
        fi
        continue
        ;;

      direct-message )
        if [ "$dm_handler" != '' ]
        then
          echo "$line" |
            jq -r -c .direct_message
            (cd "$work_dir"; eval "$dm_handler")
        else
          echo "$line"
        fi
        continue
        ;;

      quotation )
        if [ "$quoted_handler" != '' ]
        then
          echo "$line" |
            (cd "$work_dir"; eval "$quoted_handler")
        else
          echo "$line"
        fi
        continue
        ;;

      retweet )
        if [ "$retweet_handler" != '' ]
        then
          echo "$line" |
            (cd "$work_dir"; eval "$retweet_handler")
        else
          echo "$line"
        fi
        continue
        ;;

      mention )
        if [ "$mention_handler" != '' ]
        then
          echo "$line" |
            (cd "$work_dir"; eval "$mention_handler")
        else
          echo "$line"
        fi
        continue
        ;;

      search-result )
        if [ "$search_handler" != '' ]
        then
          echo "$line" |
            (cd "$work_dir"; eval "$search_handler")
        else
          echo "$line"
        fi
        continue
        ;;
    esac
  done
}

detect_type() {
  local keywords_matcher=''

  local OPTIND OPTARG OPT
  while getopts k: OPT
  do
    case $OPT in
      k )
        keywords_matcher="$(echo "$OPTARG" | \
                              sed -e 's/,/|/g' \
                                  -e 's/ +/.*/g')"
        ;;
    esac
  done

  local input="$(cat)"

  if [ "$input" = 'Exceeded connection limit for user' ]
  then
    return 1
  fi

  # Events
  case "$(echo "$input" | jq -r .event)" in
    null )
      : # do nothing for tweets at here
      ;;
    follow )
      local screen_name="$(echo "$input" | \
                             jq -r .source.screen_name | \
                             tr -d '\n')"
      if [ "$screen_name" != "$MY_SCREEN_NAME" ]
      then
        echo "event-follow"
        return 0
      fi
      return 1
      ;;
    * ) # ignore other unknown events
      return 1
      ;;
  esac

  # DM
  local sender="$(echo "$input" | jq -r .sender_screen_name)"
  [ "$sender" = '' ] && sender="$(echo "$input" | jq -r .direct_message.sender_screen_name)"
  if [ "$sender" != '' \
       -a "$sender" != 'null' \
       -a "$sender" != "$MY_SCREEN_NAME" ]
  then
    echo "direct-message"
    return 0
  fi

  # Ignore self tweet or non-tweet object
  local owner="$(echo "$input" | extract_owner)"
  if [ "$owner" = "$MY_SCREEN_NAME" \
       -o "$owner" = 'null'  \
       -o "$owner" = '' ]
  then
    return 1
  fi

  # Detect quotation at first, because quotation can be
  # deteted as retweet or a simple mention unexpectedly.
  # NOTE: An RT of a QT can have both quoted_status and retweeted_status.
  #       We must ignore such case, because it is actually an RT not a QT.
  if [ "$(echo "$input" | \
            jq -r .quoted_status.user.screen_name | \
            tr -d '\n')" = "$MY_SCREEN_NAME" \
       -a \
       "$(echo "$input" | \
            jq -r .retweeted_status.user.screen_name | \
            tr -d '\n')" != "$MY_SCREEN_NAME" ]
  then
    echo "quotation"
    return 0
  fi

  local tweet_body="$(echo "$input" | body)"

  # Detect retweet before reqply, because "RT: @(screenname)"
  # can be deteted as a simple mention unexpectedly.
  if echo "$tweet_body" | grep "RT @$MY_SCREEN_NAME:" > /dev/null
  then
    echo "retweet"
    return 0
  fi
  if echo "$tweet_body" | egrep "^RT @[^:]+:" > /dev/null
  then
    # don't handle RT of RT
    return 1
  fi

  if echo "$tweet_body" | grep "@$MY_SCREEN_NAME" > /dev/null
  then
    echo "mention"
    return 0
  fi

  if echo "$tweet_body" | egrep -i "$keywords_matcher" > /dev/null
  then
    echo "search-result"
    return 0
  fi

  return 1
}

body() {
  local target="$1"
  if [ "$target" != '' ]
  then
    local id="$(echo "$target" | extract_tweet_id)"
    fetch "$id" | body
  else
    jq -r .text | unicode_unescape
  fi
}

owner_screen_name() {
  local target="$1"
  local screen_name
  if [ "$target" != '' ]
  then
    local id="$(echo "$target" | extract_tweet_id)"
    screen_name="$(fetch "$id" | extract_owner)"
  else
    screen_name="$(extract_owner)"
  fi
  if [ "$screen_name" = '' -o "$screen_name" = 'null' ]
  then
    echo ''
  else
    echo "@$screen_name"
  fi
}

# implementation of showme
my_information() {
  ensure_available
  echo '' |
    call_api GET https://api.twitter.com/1.1/account/verify_credentials.json
}

# implementation of whoami
self_screen_name() {
  my_information |
    jq -r .screen_name |
    tr -d '\n'
}

# implementation of language
self_language() {
  local lang="$(my_information |
    jq -r .lang |
    tr -d '\n')"
  if [ "$lang" = 'null' -o "$lang" = '' ]
  then
    echo "en"
  else
    echo "$lang"
  fi
}


post() {
  ensure_available

  local media_params=''

  local OPTIND OPTARG OPT
  while getopts m: OPT
  do
    case $OPT in
      m )
        media_params="media_ids=$OPTARG"
        shift 2
        ;;
    esac
  done

  local params="$(cat << FIN
status $*
$media_params
FIN
  )"
  local result="$(echo "$params" |
                    call_api POST https://api.twitter.com/1.1/statuses/update.json)"

  echo "$result"
  check_errors "$result"
}

reply() {
  ensure_available

  local media_params=''

  local OPTIND OPTARG OPT
  while getopts m: OPT
  do
    case $OPT in
      m )
        media_params="media_ids=$OPTARG"
        shift 2
        ;;
    esac
  done

  local target="$1"
  shift

  local id="$(echo "$target" | extract_tweet_id)"

  local params="$(cat << FIN
status $*
in_reply_to_status_id $id
$media_params
FIN
  )"
  local result="$(echo "$params" |
                    call_api POST https://api.twitter.com/1.1/statuses/update.json)"
  echo "$result"
  check_errors "$result"
}

upload() {
  ensure_available

  local target="$1"

  local result="$(echo '' |
                    call_api POST https://upload.twitter.com/1.1/media/upload.json media="$target")"
  echo "$result"
  check_errors "$result"
}

delete() {
  ensure_available

  local target="$1"
  shift

  local id="$(echo "$target" | extract_tweet_id)"
  if [ "$id" = '' ]
  then
    echo "not deletable target: \"$target\"" 1>&2
    return 1
  fi

  local result="$(echo '' |
                    call_api POST "https://api.twitter.com/1.1/statuses/destroy/$id.json")"
  echo "$result"
  check_errors "$result"
}

favorite() {
  ensure_available

  local target="$1"
  local id="$(echo "$target" | extract_tweet_id)"
  if [ "$id" = '' ]
  then
    echo "not favoritable target: \"$target\"" 1>&2
    return 1
  fi

  local params="$(cat << FIN
id $id
FIN
  )"
  local result="$(echo "$params" |
                    call_api POST https://api.twitter.com/1.1/favorites/create.json)"
  echo "$result"
  check_errors "$result"
}

unfavorite() {
  ensure_available

  local target="$1"
  local id="$(echo "$target" | extract_tweet_id)"
  if [ "$id" = '' ]
  then
    echo "not unfavoritable target: \"$target\"" 1>&2
    return 1
  fi

  local params="$(cat << FIN
id $id
FIN
  )"
  local result="$(echo "$params" |
                    call_api POST https://api.twitter.com/1.1/favorites/destroy.json)"
  echo "$result"
  check_errors "$result"
}

retweet() {
  ensure_available

  local target="$1"
  shift

  local id="$(echo "$target" | extract_tweet_id)"
  if [ "$id" = '' ]
  then
    echo "not retweetable target: \"$target\"" 1>&2
    return 1
  fi

  local result="$(echo '' |
                    call_api POST "https://api.twitter.com/1.1/statuses/retweet/$id.json")"
  echo "$result"
  check_errors "$result"
}

unretweet() {
  ensure_available

  local target="$1"
  shift

  local id="$(echo "$target" | extract_tweet_id)"
  if [ "$id" = '' ]
  then
    echo "not unretweetable target: \"$target\"" 1>&2
    return 1
  fi

  local retweet_id="$(fetch_with_my_retweet "$id" | jq -r .current_user_retweet.id_str)"
  delete "$retweet_id"
}

follow() {
  ensure_available

  local target="$1"
  local screen_name

  if echo "$target" | egrep '^https?:' >/dev/null 2>&1
  then
    target="$(owner_screen_name "$target")"
  fi
  screen_name="$(echo "$target" | sed 's/^@//')"

  if [ "$screen_name" = '' ]
  then
    echo "not followable target: \"$target\"" 1>&2
    return 1
  fi

  local params="$(cat << FIN
screen_name $screen_name
follow true
FIN
  )"
  local result="$(echo "$params" |
                    call_api POST https://api.twitter.com/1.1/friendships/create.json)"
  echo "$result"
  check_errors "$result"
}

unfollow() {
  ensure_available

  local target="$1"
  local screen_name

  if echo "$target" | egrep '^https?:' >/dev/null 2>&1
  then
    target="$(owner_screen_name "$target")"
  fi
  screen_name="$(echo "$target" | sed 's/^@//')"

  if [ "$screen_name" = '' ]
  then
    echo "not unfollowable target: \"$target\"" 1>&2
    return 1
  fi

  local params="$(cat << FIN
screen_name $screen_name
FIN
  )"
  local result="$(echo "$params" |
                    call_api POST https://api.twitter.com/1.1/friendships/destroy.json)"
  echo "$result"
  check_errors "$result"
}


fetch_direct_messages() {
  ensure_available
  local count=10
  local since_id=''

  local OPTIND OPTARG OPT
  while getopts c:s: OPT
  do
    case $OPT in
      c )
        count="$OPTARG"
        ;;
      s )
        since_id="$(echo "$OPTARG" | extract_tweet_id)"
        [ "$since_id" != '' ] && since_id="since_id $since_id"
        ;;
    esac
  done

  local params="$(cat << FIN
count $count
$since_id
FIN
  )"
  local result="$(echo "$params" |
                    call_api GET https://api.twitter.com/1.1/direct_messages.json)"
  echo "$result"
  check_errors "$result"
}

direct_message() {
  ensure_available

  local target="$1"
  shift

  target="$(echo "$target" | sed 's/^@//')"

  local params="$(cat << FIN
screen_name $target
text $*
FIN
  )"
  local result="$(echo "$params" |
                    call_api POST https://api.twitter.com/1.1/direct_messages/new.json)"
  echo "$result"
  check_errors "$result"
}



#================================================================
# utilities to operate text

url_encode() {
  # process per line, because nkf -MQ automatically splits
  # the output string to 72 characters per a line.
  while read -r line
  do
    echo "$line" |
      # convert to MIME quoted printable
      #  W8 => input encoding is UTF-8
      #  MQ => quoted printable
      nkf -W8MQ |
      sed 's/=$//' |
      tr '=' '%' |
      # reunify broken linkes to a line
      paste -s -d '\0' - |
      sed -e 's/%7E/~/g' \
          -e 's/%5F/_/g' \
          -e 's/%2D/-/g' \
          -e 's/%2E/./g'
  done
}

# usage:
#   $ cat params
#   param1 aaa
#   param2 b b b
#   $ cat params | to_encoded_list
#   param1=aaa&param2=b%20b%20b
#   $ cat params | to_encoded_list ','
#   param1=aaa,param2=b%20b%20b
to_encoded_list() {
  local delimiter="$1"
  [ "$delimiter" = '' ] && delimiter='\&'
  local transformed="$( \
    # sort params by their name
    sort -k 1 -t ' ' |
    # remove blank lines
    grep -v '^\s*$' |
    # "name a b c" => "name%20a%20b%20c"
    url_encode |
    # "name%20a%20b%20c" => "name=a%20b%20c"
    sed 's/%20/=/' |
    # connect lines with the delimiter
    paste -s -d "$delimiter" - |
    # remove last line break
    tr -d '\n')"
  echo "$transformed"
  log "to_encoded_list: $transformed"
}

extract_tweet_id() {
  resolve_original_url |
    $esed -e 's;https://[^/]+/([^/]+|i/web)/status/;;' \
          -e 's;^([0-9]+)[^0-9].*$;\1;'
}

extract_owner() {
  jq -r .user.screen_name
}

unicode_unescape() {
  sed 's/\\u\(....\)/\&#x\1;/g' |
    nkf --numchar-input
}

URL_REDIRECTORS_MATCHER="^https?://($(echo "$URL_REDIRECTORS" | $esed 's/\./\\./g' | paste -s -d '|' - | $esed 's/^ *| *$//g'))/"

resolve_original_url() {
  while read -r url
  do
    if echo "$url" | egrep -i "$URL_REDIRECTORS_MATCHER" 2>&1 >/dev/null
    then
      curl --silent --head "$url" | egrep -i "^Location:" | $esed "s/^[^:]+: *//"
    else
      echo $url
    fi
  done
}

resolve_all_urls() {
  input="$(cat)"
  url_resolvers="$(echo "$input" |
    egrep -o -i 'https?://[a-z0-9/\.]+' |
    sort |
    uniq |
    while read url
    do
      resolved="$(./tweetbot.sh/tweet.sh/tweet.sh resolve "$url" |
                    $esed -e 's/([$&])/\\\1/g' |
                    tr -d '\r\n')"
      if [ "$url" != "$resolved" ]
      then
        echo -n " -e s;$url;$resolved;g"
      fi
    done)"
  if [ "$url_resolvers" != '' ]
  then
    echo -n "$input" | $esed $url_resolvers
  else
    echo -n "$input"
  fi
}


#================================================================
# utilities to generate API requests with OAuth authentication

# usage:
# echo 'status つぶやき' | call_api POST https://api.twitter.com/1.1/statuses/update.json
call_api() {
  local method=$1
  local url=$2
  local file=$3

  local params=''
  if [ -p /dev/stdin ]
  then
    params="$(cat)"
  fi

  local oauth="$(echo "$params" | generate_oauth_header "$method" "$url")"
  local headers="Authorization: OAuth $oauth"
  params="$(echo "$params" | to_encoded_list)"

  log "METHOD : $method"
  log "URL    : $url"
  log "HEADERS: $headers"
  log "PARAMS : $params"

  local file_params=''
  if [ "$file" != '' ]
  then
    local file_param_name="$(echo "$file" | $esed 's/=.+$//')"
    local file_path="$(echo "$file" | $esed 's/^[^=]+=//')"
    file_params="--form $file_param_name=@$file_path"
    log "FILE   : $file_path (as $file_param_name)"
  fi

  local debug_params=''
  if [ "$DEBUG" != '' ]
  then
    # this is a bad way I know, but I don't know how to output only headers to the stderr...
    debug_params='--dump-header /dev/stderr  --verbose'
  fi

  local curl_params
  if [ "$method" = 'POST' ]
  then
    local main_params=''
    if [ "$file_params" = '' ]
    then
      # --data parameter requries any input even if it is blank.
      if [ "$params" = '' ]
      then
        params='""'
      fi
      main_params="--data \"$params\""
    elif [ "$params" != '' ]
    then
      # on the other hand, --form parameter doesn't accept blank input.
      main_params="--form \"$params\""
    fi
    curl_params="--header \"$headers\" \
         --silent \
         $main_params \
         $file_params \
         $debug_params \
         $url"
  else
    curl_params="--get \
         --header \"$headers\" \
         --data \"$params\" \
         --silent \
         --http1.1 \
         $debug_params \
         $url"
  fi
  curl_params="$(echo "$curl_params" | tr -d '\n' | $esed 's/  +/ /g')"
  log "curl $curl_params"
  # Command line string for logging couldn't be executed directly because
  # quotation marks in the command line will be passed to curl as is.
  # To avoid sending of needless quotation marks, the command line must be
  # executed via "eval".
  eval "curl $curl_params"
}

# usage:
#   $ cat params
#   param1 aaa
#   param2 b b b
#   $ cat params | generate_oauth_header POST https://api.twitter.com/1.1/statuses/update.json
#   oauth_consumer_key=xxxxxxxxxxxxxx,oauth_nonce=xxxxxxxxxxxxxxxxx,oauth_signature_method=HMAC-SHA1,oauth_timestamp=xxxxxxxxx,oauth_token=xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx,oauth_version=1.0,oauth_signature=xxxxxxxxxxxxxxxxxx
generate_oauth_header() {
  local method=$1
  local url=$2

  local common_params="$(common_params)"

  local signature=$(cat - <(echo "$common_params") | generate_signature "$method" "$url")
  local header=$(cat <(echo "$common_params") <(echo "oauth_signature $signature") |
    to_encoded_list ',' |
    tr -d '\n')

  echo -n "$header"
  log "HEADER: $header"
}

# usage:
#   $ cat params
#   param1 aaa
#   param2 b b b
#   $ cat params | generate_signature POST https://api.twitter.com/1.1/statuses/update.json
#   xxxxxxxxxxxxxxxxxxxxxxx
generate_signature() {
  local method=$1
  local url=$2

  local signature_key="${CONSUMER_SECRET}&${ACCESS_TOKEN_SECRET}"

  local encoded_url="$(echo "$url" | url_encode)"
  local signature_source="${method}&${encoded_url}&$( \
    to_encoded_list |
    url_encode |
    # Remove last extra line-break
    tr -d '\n')"
  log "SIGNATURE SOURCE: $signature_source"

  # generate signature
  local signature=$(echo -n "$signature_source" |
    openssl sha1 -hmac $signature_key -binary |
    openssl base64 |
    tr -d '\n')

  echo -n "$signature"
  log "SIGNATURE: $signature"
}

common_params() {
  cat << FIN
oauth_consumer_key $CONSUMER_KEY
oauth_nonce $(date +%s%N)
oauth_signature_method HMAC-SHA1
oauth_timestamp $(date +%s)
oauth_token $ACCESS_TOKEN
oauth_version 1.0
FIN
}


#================================================================

# Orphan processes can be left after Ctrl-C or something,
# because there can be detached. We manually find them and kill all.
kill_descendants() {
  local target_pid=$1
  local children=$(ps --no-heading --ppid $target_pid -o pid)
  for child in $children
  do
    kill_descendants $child
  done
  if [ $target_pid != $$ ]
  then
    kill $target_pid 2>&1 > /dev/null
  fi
}

if [ "$(basename "$0")" = "tweet.sh" ]
then
  command="$1"
  shift

  self_pid=$$
  trap 'kill_descendants $self_pid; exit 0' HUP INT QUIT KILL TERM

  case "$command" in
    fetch|get|show )
      fetch "$@"
      ;;
    search )
      search "$@"
      ;;
    watch|watch-mentions )
      watch_mentions "$@"
      ;;
    type )
      detect_type "$@"
      ;;
    body )
      body "$@"
      ;;
    owner )
      owner_screen_name "$@"
      ;;
    showme )
      my_information
      ;;
    whoami )
      self_screen_name
      ;;
    lang|language )
      self_language
      ;;

    post|tweet|tw )
      post "$@"
      ;;
    reply )
      reply "$@"
      ;;
    upload )
      upload "$@"
      ;;
    del|delete|rm|remove )
      delete "$@"
      ;;
    fav|favorite )
      favorite "$@"
      ;;
    unfav|unfavorite )
      unfavorite "$@"
      ;;
    rt|retweet )
      retweet "$@"
      ;;
    unrt|unretweet )
      unretweet "$@"
      ;;
    follow )
      follow "$@"
      ;;
    unfollow )
      unfollow "$@"
      ;;

    fetch-dm|fetch-direct-messages|get-dm|get-direct-messages )
      fetch_direct_messages "$@"
      ;;
    dm|direct-message )
      direct_message "$@"
      ;;

    resolve )
      echo "$1" | resolve_original_url
      ;;

    resolve-all )
      resolve_all_urls
      ;;

    help|* )
      help "$@"
      ;;
  esac
fi