一个简单的auth perl程序
来源:互联网 发布:js div显示隐藏 编辑:程序博客网 时间:2024/04/30 15:46
my @in_ip_yd=qw(....);
my @out_ip_yd=(....);
sub sync_auth_yd
{my ($in_ip,$out_ip) = @_;
my @in_ip = @$in_ip;
my @out_ip = @$out_ip;
foreach $var (@out_ip)
{
my(undef,undef,$tmp,$out_suffix)= split /\./,$var;
foreach $j (@in_ip)
{
my(undef,undef,undef,$in_suffix)= split /\./,$j;
if($in_suffix == $out_suffix)
{
if(! -e $in_suffix)
{
mkdir $in_suffix or die "cannot make $in_suffix directory:$!\n";
}
open $template,"<","auth_config.cnf.template";
open $cnf,">","$in_suffix/auth_config.cnf";
while(<$template>)
{
s/\$outip/$var/;
s/\$inip/$j/;
s/\$cliinip/$j/;
s/\$mport/10400/;
s/\$idc/1/;
s/\$port/4828/;
if($in_suffix == 97)
{
s/max_connection = 30000/max_connection = 20000/;
s/max_wait_list = 22000/max_wait_list = 19000/;
}
print $cnf $_;
}
close $template;
close $cnf;
#$tmp=`rsync -z $in_suffix/auth_config.cnf $j::gwconf/redis.rc --port=7874`;
unlink "$in_suffix/auth_config.cnf";
rmdir $in_suffix
}
}
}
}
sync_auth_yd(\@in_ip_yd,\@out_ip_yd);
0 0
- 一个简单的auth perl程序
- 一个简单的auth shell程序
- 一个简单的perl程序
- 开发运行一个简单的perl程序
- 一个简单的gw perl程序
- 一个perl多进程的简单程序框架
- perl一个简单mysql操作的小程序
- 简单程序Perl C++的效率比较
- 用PERL实现一个简单的NIDS
- 一个简单的Perl多线程脚本
- 关于PERL的一个小程序
- 一个base auth认证的实例
- 一个小白对auth的理解
- 简单的一个程序
- 一个简单的程序
- 一个简单的程序
- perl 问题解决:一个有多个perl安装程序的机器环境上运行程序的问题
- 一个简单的用Perl实现的Exploit实例
- Javascript 初学者应知的 24 条最佳实践
- OpenCV: OpenCV中IplImage图像格式
- 剑指offer-8 旋转数组的最小数字
- 调试打断点无效解决方法
- CAPropertyAnimation additive
- 一个简单的auth perl程序
- Eclipse中如何查看andriod apk真机运行的日志
- Scala 表达式编程实践
- cvCreateMemStorage函数
- 如何成为羽毛球高手?你距离一个真正的羽毛球高手还有多远?
- iOS开发的22个奇谲巧技
- android.os.Build的一些使用方法
- CADisplayLink以及和NSTimer的区别
- 图像配准