Cacher is the code snippet organizer for pro developers

msg () {
	if [ $# -lt 2 ]
	then
		echo "Usage: msg USERID MESSAGE"
		return
	fi
	u="$1"
	shift
	m="$*"
	if [[ `os` = 'Darwin' ]]
	then
		m=`php -r "echo urlencode('$m');"`
		echo Encoded Msg": $m"
		m=`echo $m| sed -e "s#\+# #g"`
		echo "Translated String: $m"
	fi
	curlicue -vv -f $HOME/.fftoken/"$u".token -- http://api.fanfou.com/statuses/update.xml -d "status=$m"
}

#!/bin/sh

umask 077

base="$HOME/.fftoken"
mkdir -p $base
api_host='api.fanfou.com'

access_token_url="http://fanfou.com/oauth/access_token"

consumer_tmp=$(mktemp -t curlicue_consumer.XXXXXX)
request_token_tmp=$(mktemp -t curlicue_request_token.XXXXXX)
access_token_tmp=$(mktemp -t curlicue_access_token.XXXXXX)

read -p 'Consumer key: ' key
read -p 'Consumer secret: ' secret

read -p "Fanfou loginname(ID/Mobile Number/Email): " name
stty -echo
read -p "Fanfou Password: " password ; echo
stty echo

output_file="$base/$name.token"
echo "oauth_consumer_key=$(curlicue -u "$key")&oauth_consumer_secret=$(
    curlicue -u "$secret")" > $consumer_tmp

curlicue -f $consumer_tmp -p "x_auth_username=$name&x_auth_password=$password&x_auth_mode=client_auth" $access_token_url > $access_token_tmp
paste -d '&' $consumer_tmp $access_token_tmp > "$output_file"
echo
echo "OK! Now you can run: curlicue -f $output_file [-- CURL_OPTS] URL"

#!/bin/sh

# Curlicue - an OAuth wrapper for curl
#
# Copyright © 2010 Decklin Foster <decklin@red-bean.com>
# Please see README for usage information and LICENSE for license.

# Because HTTP responses from the OAuth "dance" will be percent-encoded,
# and we want to round-trip this data, we require that credentials files
# are also percent-encoded. Therefore, no decoding is done here. $1 is
# the name of another function that processes each pair (as two args).

load_cred_file() {
    foreach_query_pair parse_cred "$(cat "$1" 2>/dev/null)"
}

foreach_query_pair() {
    local IFS='&'
    for i in $2; do
        $1 "${i%%=*}" "${i#*=}"
    done
}

# This list is tiring, but we can't just let random files set any old
# variable. The ones that don't start with oauth_ are extensions from
# one provider or another.

parse_cred() {
    case "$1" in
        oauth_consumer_key) oauth_consumer_key="$2";;
        oauth_consumer_secret) oauth_consumer_secret="$2";;
        oauth_token) oauth_token="$2";;
        oauth_token_secret) oauth_token_secret="$2";;
        user_id) user_id="$2";;
        screen_name) screen_name="$2";;
        application_name) application_name="$2";;
    esac
}

# This is incredibly inefficient if printf is not a builtin. I'm not
# sure if there's a good way to do it without passing the buck.

url_encode() {
    string="$1"
    while [ "$string" ]; do
case "$string" in
            [A-Za-z0-9._~-]*) printf '%c' "$string";;
            *) printf '%%%X' "'$string";;
        esac
string="${string#?}"
    done
echo
}

#special for utf-8 Chinese
chinese_status()
{
    echo $*
    return
    line="$*"
    if [ `echo "$line" |grep -Po '%26status%3D'` ];then
	olds=`echo $line | grep -oP "(?<=status%3D).*$"`
	news=`echo $olds |sed -e "s#%252b#%2520#g" `
	result=`echo $line | sed -e "s#$olds#$news#" 2>/dev/null`
	echo "$result"
    else
	echo "$line"
    fi
}

quote_vals() {
    sed 's/=\(.*\)/="\1"/'
}

echo_pair() {
    echo "$1=$2"
}

join_params() {
    paste -s -d '&' - | sed "s/&/$1/g"
}

# The first four values come from this script, so they need to be
# percent-encoded. (Never mind that e.g. "1.0" is obviously fine... some
# day it might be "3.0~beta2".) The others are read in from form-encoded
# files or parameters, so they should *not* be encoded again.

mk_params() {
    for i in \
        oauth_version="$(url_encode "1.0")" \
        oauth_signature_method="$(url_encode "HMAC-SHA1")" \
        oauth_timestamp="$(url_encode "$oauth_timestamp")" \
        oauth_nonce="$(url_encode "$oauth_nonce")" \
        oauth_consumer_key="$oauth_consumer_key" \
        ${oauth_token:+oauth_token="$oauth_token"} \
        $(foreach_query_pair echo_pair "$extra_params") \
        $(foreach_query_pair echo_pair "$1")
    do
echo "$i"
    done | sort
}

# This is bad; it leaks the secret on the command line. The right thing
# would be to use -passin, but it doesn't seem to affect -hmac.

hmac_sha1() {
    printf '%s' "$2" | openssl dgst -sha1 -hmac "$1" -binary | openssl base64
}

# Here's where we start.

method=GET
oauth_timestamp="$(date +%s)"
oauth_nonce="$(openssl rand -base64 12)"

while getopts 'e:f:p:vu:' OPTION; do
case $OPTION in
        e) eval "echo \"$OPTARG\""; exit 0;;
        f) load_cred_file "$OPTARG"; loaded=1;;
        p) extra_params="$OPTARG";;
        u) echo "$(url_encode "$OPTARG")"; exit 0;;
        v) verbose=1;;
        *) echo "Unknown option: $OPTION"; exit 2;;
    esac
done
shift $(($OPTIND-1))

# The remaining args in $@ go directly to curl. Fools that we are, we
# attempt to parse them here. Only one URL is supported.

for i; do
case "$prev" in
        -d|--data) url_params="$i";;
        -X) method="$i";;
    esac
case "$i" in
        -d|--data|-F) method=POST;;
        http*\?*) url="${i%%\?*}"; url_params="${i#*\?}";;
        http*) url="$i";;
    esac
prev="$i"
done

if [ -z "$loaded" ]; then
cropped_url="${url#*://}"
    host="${cropped_url%%/*}"
    load_cred_file "$HOME/.curlicue/$host"
fi

if [ -z "$oauth_consumer_key" ]; then
echo "Couldn't load a consumer key! Exiting." 1>&2
    exit 1
fi

# This is where the magic happens.
url_params=`echo "$url_params" |sed -e "s# #%20#g" -e"s#\+#%2b#g"`

params="$(mk_params "$url_params" | join_params '&')"
base_string="$method&$(url_encode "$url")&$(url_encode "$params")"
base_string=`chinese_status $base_string`
signing_key="$oauth_consumer_secret&$oauth_token_secret"
oauth_signature="$(hmac_sha1 "$signing_key" "$base_string")"
sig_params="oauth_signature=$(url_encode "$oauth_signature")"
auth_header="$(mk_params "$sig_params" | quote_vals | join_params ', ')"

if [ "$verbose" ]; then
echo "Base string: $base_string" 1>&2
    echo "Authorization: OAuth $auth_header" 1>&2
fi

curl -s -H "Authorization: OAuth $auth_header" "$@"