#!/bin/sh

private=1
lang=text
author=$USER
expire=
reply=
title=

OPTIND=1
while getopts "pl:a:e:r:t:" opt; do
    case "$opt" in
    p)
        private=0
        ;;
    l)
        lang="$OPTARG"
        ;;
    a)
        author="$OPTARG"
        ;;
    e)
        expire="$OPTARG"
        ;;
    r)
        reply="$OPTARG"
        ;;
    t)
        title="$OPTARG"
        ;;
    esac
done

shift $((OPTIND-1))

ARGS="-d 'name=$author' -d 'lang=$lang' -d 'private=$private'"

[ -n "$expire" ] && ARGS="$ARGS -d 'expire=$expire'"
[ -n "$reply" ] && ARGS="$ARGS -d 'reply=$reply'"
[ -n "$title" ] && ARGS="$ARGS -d 'title=$title'"

if [ -e "$1" ]; then
    ARGS="$ARGS --data-urlencode 'text@$1'"
    shift
else
    ARGS="$ARGS --data-urlencode text@-"
fi

eval exec curl http://paste.godclan.hu/api/create $ARGS