New installer
Features: +when update, disabled plugins stay disabled +if new install, choice to disable some plugins
This commit is contained in:
72
plugins.d/perl.sh
Executable file
72
plugins.d/perl.sh
Executable file
@@ -0,0 +1,72 @@
|
||||
#!/usr/bin/env bash
|
||||
|
||||
# Display info on updated pakages
|
||||
display_info=true
|
||||
|
||||
# Also add module for prevent to update it.
|
||||
declare -a do_not_update=('')
|
||||
|
||||
|
||||
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::cpanoutdate"
|
||||
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
|
||||
echo "$module installed"
|
||||
install_ok=true
|
||||
fi
|
||||
|
||||
if [ "$install_ok" == "true" ]; then
|
||||
echo "$module installed"
|
||||
|
||||
# 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)")
|
||||
read -p "$a" choice
|
||||
|
||||
if [ "$choice" == "y" ]; 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"
|
||||
echo "$i" | awk '{print $1}' | xargs -p -n 1 cpan -i
|
||||
echo -e "\033[0m"
|
||||
#echo ""
|
||||
fi
|
||||
done
|
||||
else
|
||||
echo "Bye"
|
||||
exit
|
||||
fi
|
||||
fi
|
||||
Reference in New Issue
Block a user