#!/bin/sh

#

# event_command url handling script for mcabber

# by

#  * Alexander Clouter <alex@digriz.org.uk>

#  * Jamie Lentin <jamie@lentin.co.uk>

# 

# For tinyurl'ing (sending tinyurl's of URL's sent to you

# resent as a headline to yourself) you set your *own*

# jabber id for 'me' and it's probably best leaving

# 'tinyurltrigger' unless you know what you are doing.

#

# For pastebin support (dumping the URL as an HTML anchor

# into a local file that could be exported by a webserver

# or as a file a web-browser can open) tinker with the

# pastebin lines.

#

# If you want to disable a one of the facilities, just

# comment out the pair of variables you do not want.

#

#set -x

## configuration

# tinyurl'ifier

me=jim@jabber.li

tinyurltrigger=24

# pastebin support

pastebin_file=~/bitbucket/stuff/pastebin.html

pastebin_line_count=10

# Don't do 'owt unless recieving a message

[ x$1 != xMSG ] && exit 0

[ x$2 != xIN ] && exit 0

jid=$3

# do nothing if it's from self

[ "$jid" = "$me" ] && exit 0

# If receiving a message, scan for links

url=$(cat "$4" | awk 'BEGIN { RS="( |\n|\t)+"; FS="�"; } /(https?|ftp):\/\// { print $1 }')

if [ -n "$url" ]; then

  date=$(/bin/date)

  if [ -n "$me" -a ${#url} -ge $tinyurltrigger ]; then

    tinyurl=`wget -q -O - http://tinyurl.com/api-create.php?url="$url"`

    echo "say_to -q -h $me <= $jid $url" > ~/.mcabber/mcabber.fifo

    echo "say_to -q -h $me $tinyurl" > ~/.mcabber/mcabber.fifo

  fi

  if [ -n "$pastebin_file" ]; then

    if [ ! -f "$pastebin_file" ]; then

      touch "$pastebin_file"

    fi

    sed -i -e :a -e '$q;N;11,$D;ba' "$pastebin_file"

    printf '%s (%s): <a href="%s">%s</a><br/>\n' "$date" "$jid" "$url" "$url" >> $pastebin_file

  fi

fi

[ -n "$4" ] && rm "$4"

exit 0