view release on metacpan or  search on metacpan

bin/mktelrc  view on Meta::CPAN

#!/bin/bash

read -p "Enter username (default = $USER): " user
read -s -p "Enter Password (default = \$ENV{ROUTER_PASSWORD}): " pass
echo
if [ "x$user" = "x" ]; then
   user=$USER
fi
if [ "x$pass" = "x" ]; then
   pass="\$ENV{ROUTER_PASSWORD}"
fi

SYSTEM=$(uname -s)

case $SYSTEM in
    Darwin)
        TMPFILE=$(mktemp -t mktelrc.XXXXXX)
        ;;
    *)
        TMPFILE=$(mktemp --tmpdir mktelrc.XXXXXX)
        ;;
esac

cat <<EOF>$TMPFILE
\$telrc = {
          'profile' => {
                'default' => {
                        'user' => "$user",
                        'password' => "$pass",
                }
          }
};
EOF

LOCATION=$HOME/.telrc2

if [[ -x $XDG_CONFIG_HOME ]]; then
    LOCATION=$XDG_CONFIG_HOME/telrc
elif [[ -x $HOME/.config ]]; then
    LOCATION=$HOME/.config/telrc
fi

mv -i $TMPFILE $LOCATION
chmod 400 $LOCATION