qcloud_api.sh

qcloud_api.sh

# Before you can use the tool,
# you need to install following software.
# curl  openssl  gawk

if [ "$mode_qcloud_api" ];then
        return
fi
export mode_qcloud_api=1

function urlencode(){
    local encoded_str=`echo "$*" | awk 'BEGIN {
        split ("1 2 3 4 5 6 7 8 9 A B C D E F", hextab, " ")
        hextab [0] = 0
        for (i=1; i<=255; ++i) {
            ord [ sprintf ("%c", i) "" ] = i + 0
        }
    }
    {
        encoded = ""
        for (i=1; i<=length($0); ++i) {
            c = substr ($0, i, 1)
            if ( c ~ /[a-zA-Z0-9.-]/ ) {
                encoded = encoded c             # safe character
            } else if ( c == " " ) {
                encoded = encoded "+"   # special handling
            } else {
                # unsafe character, encode it as a two-digit hex-number
                lo = ord [c] % 16
                hi = int (ord [c] / 16);
                encoded = encoded "%" hextab [hi] hextab [lo]
            }
        }
        print encoded
    }' 2>/dev/null`
    echo $encoded_str
}

function array(){
        local array_name=$1
        local array='echo ${'$array_name'[@]}'
        eval $array
}

function _strkey(){
        local str=$1
        local key=$2
        local strkey=`echo -n "$str" | openssl sha1 -hmac "$key" -binary | base64`
        echo $strkey
}

function para_sort(){
        local para_array=($@)
        local i=0
        local tmp_file='./.tmp_para.txt'

        rm -rf $tmp_file

        if [ $# -gt 0 ];then
                while [ $i -le ${#para_array[@]} ]
                do
                        local paraid=${para_array[$i]}
                        let i=$i+1
                        local paravs=${para_array[$i]}
                        let i=$i+1
                        echo "$paraid $paravs" >>$tmp_file
                done
        fi

        local sort_para=(`cat $tmp_file | gawk '{aa[$1]=$2}END{len=asorti(aa,bb);for(i=1;i<=len;i++){print bb[i]"\t"aa[bb[i]]}}'`)
        rm -rf $tmp_file
        echo ${sort_para[@]}
}

function para_join(){
        local sort_para=($@)
        local i=0
        local parastr=""

        while [ $i -lt $# ];do
                parastr=$parastr"${sort_para[$i]}="
                let i=$i+1
                parastr=${parastr}"${sort_para[$i]}&"
                let i=$i+1
        done
        echo ${parastr%&}
}

function signstr(){
        local url=$1
        local para_str=(`array $2`)
        local key=$3
        local i=0

        while [ $i -lt ${#para_str[@]} ]
        do
                para_str[$i]=`echo ${para_str[$i]} | sed 's/_/./'`
                let i=$i+2
        done

        para_str=(`para_sort ${para_str[@]}`)

        local para_join=`para_join ${para_str[@]}`

        local srcstr="GET$url?$para_join";

        _strkey $srcstr $key

}

function _check_variable(){
        if [ -z "$URL" ] || [ -z "$ID" ] || [ -z "$KEY" ] || [ -z "$ZONE" ] || [ -z "$OUTFILE" ]
        then
                echo '
#####Instances interface###########################
# Use this interface to set the global variable   #
# Example:                                        #
URL="cvm.api.qcloud.com/v2/index.php"
ID="self id"
KEY="self key"
ZONE="sh"
OUTFILE="./json.txt"
###################################################
                '
                exit
        fi
}

function qcloud_api(){
        _check_variable
        [ $# -lt 1 ] && {
                echo "parameter error"
                exit
        }

        local url=$URL
        local id=$ID
        local key=$KEY
        local zone=$ZONE
        local action=$1 ; shift
        local private_para=($(echo $@))

        let local private_count=${#private_para[@]}%2

        [ $private_count -eq 1 ] && {
                echo "parameter error"
                exit
        }

        local para_array=('Nonce' $RANDOM 'Timestamp' `date +%s` 'Region' "$zone")
        para_array=(${para_array[@]} "Action" "$action" "SecretId" "$id" ${private_para[@]})

        local sigstr=`signstr $url "para_array" $key`
        para_array=(${para_array[@]} "Signature" $sigstr)

        local i=1
        while [ $i -lt ${#para_array[@]} ]
        do
                para_array[$i]=`urlencode ${para_array[$i]}`
                let i=$i+2
        done

        para_array=(`para_sort ${para_array[@]}`)
        local parastr=`para_join ${para_array[@]}`

        local req="https://$url?$parastr"
        echo $req

        curl -s $req -o $OUTFILE

        if [ $? -ne 0 ];then
                echo "Curl command exec failed!"
                return 1;
        fi
}

function _res_check(){
        local file="$OUTFILE"

        local res=`awk -F ',' '{for(i=1;i<=NF;i++){if($i~/"code":.*/){split($i,code,":");print code[2];break}}}' $file`
        if [ "$res" == "0" ];then
                echo "Request successful."
        else
                echo "Request failed."
        fi
}

function parse_host(){
        local file="$OUTFILE"

        local all_json=$(awk -F ',' '{for(i=1;i<=NF;i++){if($i~/instanceName/){printf $i"->"};if($i~/Ip/){printf $i"->"};if($i~/instanceId/){printf $i"\n"}}}' $file)
        local all_jsons=()

        for i in ${all_json[@]}
        do
                all_jsons=(${all_jsons[@]} $i)
        done

        all_jsons[0]=$(echo ${all_jsons[0]} | sed 's/instanceSet"://')
        local hostinfo=""
        local instance_name=""
        local lan_ip=""
        local wan_ip=""
        local instance_id=""
        local i=0

        for ((i=0;i<${#all_jsons[@]};i++))
        do
                hostinfo=$(echo ${all_jsons[$i]} | sed -r 's/"|\{|\}|\[|\]//g')
                instance_name=$(echo $hostinfo | awk -F '->' '{print $1}' | awk -F ':' '{print $2}')
                lan_ip=$(echo $hostinfo | awk -F '->' '{print $2}' | awk -F ':' '{print $2}')
                wan_ip=$(echo $hostinfo | awk -F '->' '{print $3}' | awk -F ':' '{print $2}')
                instance_id=$(echo $hostinfo | awk -F '->' '{print $4}' | awk -F ':' '{print $2}')
                echo "$instance_name $lan_ip $wan_ip $instance_id"
        done
}


#function instancesd start/stop/restart instance
function instancesd(){
        [ $# -eq 0 ] && {
                echo "parameter error"
                exit
        }
        local flag=$1 ; shift
        local instanceids=($(echo $@))
        local instanceid=""
        local para_list=()
        local num=1

        for instanceid in ${instanceids[@]}
        do
                para_list=(${para_list[@]} "instanceIds.${num}" $instanceid)
                let num=$num+1
        done

        case $flag in
                "start")   flag="StartInstances" ;;
                "stop")    flag="StopInstances"  ;;
                "restart") flag="RestartInstances" ;;
                *)         echo "Invalid option" && exit ;;
        esac

        qcloud_api $flag ${para_list[@]}
        _res_check
}

#Ex: instance_rename $instanceid $instance_name
function instance_rename(){
        [ $# -ne 2 ] && {
                echo "parameter error"
                exit
        }
        local instanceid=$1
        local instance_name=$2

        qcloud_api "ModifyInstanceAttributes" "instanceId" $instanceid "instanceName" $instance_name
        _res_check
}

#Ex: instances_rename --same $instance_name $instance_id1 $instance_id2 $instance_id3 ......
#    instances_rename $name1 $id1 $name2 $id2 $name3 $id3 ........
function instances_rename(){
        [ $# -eq 0 ] && ( echo "Para error" ; exit )
        local flag=$1 ; shift
        local instances_info=($(echo $@))
        local i=1
        local instance_name=""
        local cp=0

        if [ $flag == "--same" ];
        then
                instance_name=${instances_info[0]}
                unset instances_info[0]
                for((i=1;i<=${#instances_info[@]};i++))
                do
                        instance_rename ${instances_info[$i]} $instance_name
                done
        else
                instances_info=($flag ${instances_info[@]})
                let cp=${#instances_info[@]}%2
                if [ $cp -eq 1 ];then
                        echo "Parameter must be an even number"
                        exit
                fi

                for((i=0;i<${#instances_info[@]};i++))
                do
                        instance_name=${instances_info[$i]}
                        let i=$i+1
                        instance_rename ${instances_info[$i]} $instance_name
                done
        fi
}

#Ex: instance_modify_project $instance_projectid ${instanceids[@]}
function instance_modify_project(){
        [ $# -lt 2 ] && {
                echo "parameter error"
                exit
        }
        local instance_projectid=$1 ; shift
        local instanceids=($(echo $@))
        local instanceid=""

        for instanceid in ${instanceids[@]}
        do
                qcloud_api "ModifyInstanceProject" "instanceId" $instanceid "projectId" $instance_projectid
        done
}

#Ex: instance_reset $instanceid $password
function instance_reset(){
        [ $# -lt 2 ] && {
                echo "parameter error"
                exit
        }
        local instanceid=$1
        local password=$2
        local img=${3:-0}

        qcloud_api "ResetInstances" "instanceId" $instanceid "password" $password imageId $img
        _res_check
}