1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
| my ($user, $Emailaddress, $active, $admin, $meeting_req, $quota_overr,
$warnlvl, $softlvl, $hardlvl, $store_size);
open(DETAILS, "zarafa-admin --details $recept_user |") or die "probléme ouverture fichier";
while (<DETAILS>){
if(m/^Fullname/){
$user = $_;
$user =~ s/^\w+:\t*//;
}
if(m/^Emailaddress/){
$Emailaddress = $_;
$Emailaddress =~ s/^\w+:\t*//;
}
if(m/^Active/){
$active = $_;
$active =~ s/^\w+:\t*//;
}
if(m/^Administrator/){
$admin = $_;
$admin =~ s/^\w+:\t*//;
}
if(m/^Auto-accept meeting/){
$meeting_req = $_;
$meeting_req =~ s/^\w+:\t*//;
}
if(m/^Quota overrides/){
$quota_overr = $_;
$quota_overr =~ s/^\w+:\t*//;
}
if(m/^Warning level/){
$warnlvl = $_;
$warnlvl =~ s/^\w+:\t*//;
}
if(m/^Soft level/){
$softlvl = $_;
$softlvl =~ s/^\w+:\t*//;
}
if(m/^Hard level/){
$hardlvl = $_;
$hardlvl =~ s/^\w+:\t*//;
}
if(m/^Current store size/){
$store_size = $_;
$store_size =~ s/^\w+:\t*//;
}
}
close(DETAILS); |