1 В избранное 0 Ответвления 0

OSCHINA-MIRROR/fy138-perl_dnspod_ddns

Присоединиться к Gitlife
Откройте для себя и примите участие в публичных проектах с открытым исходным кодом с участием более 10 миллионов разработчиков. Приватные репозитории также полностью бесплатны :)
Присоединиться бесплатно
Клонировать/Скачать
require.pl 1004 Байты
Копировать Редактировать Web IDE Исходные данные Просмотреть построчно История
F.Y Отправлено 17.01.2015 15:49 1e807bd
#!/bin/bash
cpanm="/bin/cpanm";
if [ ! -f $cpanm ];then
# wget http://xrl.us/cpanm -O $cpanm;
wget -O $cpanm --no-check-certificate https://raw.githubusercontent.com/miyagawa/cpanminus/master/cpanm
fi
if [ ! -x $cpanm ];then
chmod +x $cpanm
fi
echo "must install openssl-devel";
apt-get -y install libssl-dev
yum -y install openssl-devel
#! -*-perl-*-
eval 'exec perl -x -wS $0 ${1+"$@"}'
if 0;
use strict;
my @packages=(
'Moo',
'Smart::Comments',
'JSON',
'HTTP::Tiny',
'Net::SSLeay',
'IO::Socket::SSL',
'File::Slurp',
'App::Daemon',
'Proc::Fork'
);
print "You must be root to run this program\n" and exit 1 unless ($> == 0);
foreach my $module ( @packages ) {
unless (eval { require $module }) {
print "Need to install [ $module ] module. I'll do that for you now:\n";
my $ret = system("/bin/cpanm --mirror http://mirrors.163.com/cpan --mirror-only -n $module");
print $ret;
print "if intstall perl module has error ,please try: cpanm -f <module>\n"
}
}

Опубликовать ( 0 )

Вы можете оставить комментарий после Вход в систему

1
https://api.gitlife.ru/oschina-mirror/fy138-perl_dnspod_ddns.git
git@api.gitlife.ru:oschina-mirror/fy138-perl_dnspod_ddns.git
oschina-mirror
fy138-perl_dnspod_ddns
fy138-perl_dnspod_ddns
master