quark mail 调整大小
来源:互联网 发布:淘宝app图标素材 编辑:程序博客网 时间:2024/05/29 07:16
#!/usr/bin/perl -w
use strict;
use MIME::Base64;
# set environment
my $domain = shift or die "usage: $0 domain\n";
die "error: illegal domain\n" if ( $domain =~ /.*@.*/ );
# get domain head, filter
my $domain_list = "";
my @domain_tmp = split( /\./, $domain );
my $domain_head = $domain_tmp[0];
for ( my $i = 0; $i < @domain_tmp; $i++ ) {
$domain_list .= "dc=$domain_tmp[$i],";
}
$domain_list =~ s/\,$//g;
my $check_cmd
= "/quark/ldap/bin/ldapsearch -D \"cn=root,dc=cn\" -w s7e3c0r4e2t0 -LLL -b \"$domain_list\" sn apopPassword";
my @check_info = `$check_cmd`;
if ( $#check_info >= 0 ) {
my ( $in, $out ) = ( 0, 0 );
foreach my $line (@check_info) {
chomp($line);
my ( $uname, $upass ) = ( "", "" );
my @tmp;
if ( $line =~ m/dn: / ) {
$in = 1;
}
if ( $in == 1 ) {
$out = 0;
if ( $line =~ m/sn: / ) {
@tmp = split( / +/, $line );
$uname = $tmp[1];
}
if ( $line =~ m/apopPassword: / ) {
@tmp = split( / +/, $line );
$upass = $tmp[1];
$upass = decode_base64($upass);
}
if ( $line =~ /^\s*$/ ) {
( $in, $out ) = ( 0, 1 );
}
}
if ( $in == 1 ) {
if ( $uname ne "" ) {
print "User:$uname ";
}
if ( $upass ne "" ) {
print "Pass:$upass\n";
}
}
if ( $out == 0 ) {
( $uname, $upass ) = ( "", "" );
}
}
}
1;
- quark mail 调整大小
- Quark:A Big MCU.....
- IFrame自动调整大小
- 控件拖动、调整大小
- IFrame 自动调整大小
- LVM调整分区大小
- 二维数组调整大小
- API调整纸张大小
- 如何调整图像大小
- 调整c盘大小
- 调整窗口大小
- 限制窗口调整大小
- Android模拟器大小调整
- 调整JVM大小
- JFace Dialog 调整大小
- Myeclipse调整虚拟内存大小
- 调整max_allowed_packet的大小
- 调整Linux磁盘分区大小
- aop (使用properties配置文件配置xml)(发表文章的时候要注意包与文件)
- Android字符串进阶:字体属性及测量(FontMetrics)
- uva-465-Overflow
- 将整数转换成字符串,在C51中你如何做?
- JAVA成员变量的访问权限
- quark mail 调整大小
- 常用AWK命令
- SED命令使用
- aop (spring 事物对于unchecked可以回滚,但是对于checked例外不回滚)
- 常用正则字符
- APP推广上乘干货:捕鱼达人创始人陈昊芝分享
- .NET编程和SQL——SQL与CLR-UDT集成
- 邮件队列检查
- aop (spring 事物对于unchecked可以回滚,但是对于checked例外不回滚)(续)