106 lines
2.3 KiB
Bash
Executable File
106 lines
2.3 KiB
Bash
Executable File
#!/usr/bin/env bash
|
|
|
|
# Perl plugin for KYMSU
|
|
# https://github.com/welcoMattic/kymsu
|
|
|
|
###############################################################################################
|
|
#
|
|
# Settings:
|
|
|
|
# Display info on updated pakages
|
|
display_info=true
|
|
|
|
# No distract mode (no user interaction)
|
|
[[ $@ =~ "-nodistract" || $@ =~ "-n" ]] && no_distract=true || no_distract=false
|
|
|
|
# Also add module for prevent to update it.
|
|
declare -a do_not_update=('')
|
|
|
|
italic="\033[3m"
|
|
underline="\033[4m"
|
|
ita_under="\033[3;4m"
|
|
bgd="\033[1;4;31m"
|
|
red="\033[1;31m"
|
|
bold="\033[1m"
|
|
bold_ita="\033[1;3m"
|
|
box="\033[1;41m"
|
|
redbold="\033[1;31m"
|
|
redbox="\033[1;41m"
|
|
reset="\033[0m"
|
|
|
|
echo -e "${bold}🐪 Perl ${reset}"
|
|
echo
|
|
|
|
perl_app=$(which perl)
|
|
perl_v=$(perl -v | sed -n '2p')
|
|
|
|
echo -e "\033[4mPerl:\033[0m $perl_app"
|
|
echo -e "\033[4mVersion:\033[0m $perl_v"
|
|
echo ""
|
|
|
|
module="App::cpanoutdated"
|
|
if ! perl -M$module -e 1 2>/dev/null; then
|
|
echo -e "\033[4mRequierement:\033[0m module $module is not installed"
|
|
|
|
a=$(echo -e "Do you wanna run \033[1mcpan -i "$module"\033[0m ? (y/n)")
|
|
read -p "$a" choice
|
|
if [ "$choice" == "y" ]; then
|
|
cpan -i $module
|
|
install_ok=true
|
|
else
|
|
echo "Bye"
|
|
exit
|
|
fi
|
|
|
|
else
|
|
install_ok=true
|
|
fi
|
|
|
|
|
|
curl -Is http://www.google.com | head -1 | grep 200 1>/dev/null
|
|
if [[ $? -eq 1 ]]; then
|
|
echo -e "\n${red}No Internet connection !${reset}"
|
|
echo -e "Exit !"
|
|
exit 1
|
|
fi
|
|
|
|
if [ "$install_ok" == "true" ]; then
|
|
|
|
# install with cpan
|
|
# % cpan-outdated | xargs cpan -i
|
|
|
|
# install with cpanm
|
|
# % cpan-outdated | cpanm
|
|
# % cpan-outdated -p | cpanm
|
|
|
|
outdated=$(cpan-outdated -p)
|
|
nb=$(echo $outdated | wc -w)
|
|
|
|
a=$(echo -e "Do you wanna update\033[1m "$nb" outdated\033[0m modules ? (y/n/a)")
|
|
read -p "$a" choice
|
|
|
|
if [ "$choice" == "y" ] || [ "$choice" == "Y" ] || [ "$choice" == "a" ] || [ "$choice" == "A" ]; then
|
|
|
|
for i in $outdated
|
|
do
|
|
FOUND=`echo ${do_not_update[*]} | grep "$i"`
|
|
if [ "${FOUND}" = "" ]; then
|
|
echo ""
|
|
if [ "$display_info" = true ]; then
|
|
cpan -D "$i"
|
|
fi
|
|
echo -e "\033[1m"
|
|
if [ "$choice" == "y" ] || [ "$choice" == "Y" ]; then
|
|
echo "$i" | awk '{print $1}' | xargs -p -n 1 cpan -i
|
|
elif [ "$choice" == "a" ] || [ "$choice" == "A" ]; then
|
|
echo "$i" | awk '{print $1}' | xargs -n 1 cpan -i
|
|
fi
|
|
echo -e "\033[0m"
|
|
#echo ""
|
|
fi
|
|
done
|
|
else
|
|
echo "Bye"
|
|
exit
|
|
fi
|
|
fi |