关于lvs的一个脚本

这个脚本老早之前完成的，还是在刚开始学perl的时候

lvs添加realserver的时候，一大堆的命令，记不住，索性写一脚本方便操作

后面的pringlog 以及usage函数是这样写的

sub printlog {
    my $messages = shift;
    open(SYSLOG,">>/var/log/messages") || die "$!\n";
    print SYSLOG "$messages";
    close SYSLOG;
}

sub usage {
    print <<EOT;
No arguments!
Usage: $0 <-add|-del> <ipadd> [weight] 
Options
-add 
    this options means you will add a host to lvs pool
-del 
    this options means you will del a host from lvs pool
weight 
    the weight for lvs host 
EOT
}

本文转自dongfang_09859 51CTO博客，原文链接：http://blog.51cto.com/hellosa/487015，如需转载请自行联系原作者