# *******************************************************

# This function converts time designations such as

# 1d or 12h into seconds. Supported are Xd, Xh, Xm, Xs.

#

# @param $1 - The time designations

# @return init

#

function str2seconds () {

local item=$1

local digit=$(echo $item | perl -n -e 'print $1 if ($_ =~ m/^(\d+)((?:d|h|m|s))$/g);')

local unit=$(echo $item | perl -n -e 'print $2 if ($_ =~ m/^(\d+)((?:d|h|m|s))$/g);')

local sec

case $unit in

        d) sec=$((${digit}*86400)) ;;

        h) sec=$((${digit}*3600))  ;;

        m) sec=$((${digit}*60))    ;;

        s) sec=${digit}            ;;

esac

echo $sec

}