epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Fix quota use in lpt

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-10-30 08:41:47 +01:00
parent 24c6ed57e0
commit e009942a7c
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
utils/lpt
View file

@ -1270,9 +1270,10 @@ sub cmd_account_quota_set($@)
}
my $nb;
if ($value =~ '([0-9]+)([MKGTmkgt]?)$')
if ($value =~ '([0-9]+)([MKGTmkgt]?)')
{
my $nb = $1;
$nb = $1;
$nb *= 1024 if ($2 eq "K" or $2 eq "k");
$nb *= 1048576 if ($2 eq "M" or $2 eq "m");
$nb *= 1073741824 if ($2 eq "G" or $2 eq "g");
@ -1460,7 +1461,7 @@ PS: Ce message est g
Les roots ACU";
# create the message
require Email::Sender::Simple qw(sendmail);
require "Email::Sender::Simple";
my $mail = Email::MIME->create(
header_str => [
@ -1476,7 +1477,7 @@ Les roots ACU";
},
body_str => $body,
);
sendmail($mail);
Email::Sender::Simple::sendmail($mail);
}
}
@ -1502,7 +1503,7 @@ Cordialement,
Les roots ACU";
# create the message
require Email::Sender::Simple qw(sendmail);
require "Email::Sender::Simple";
my $mail = Email::MIME->create(
header_str => [
@ -1518,7 +1519,7 @@ Les roots ACU";
},
body_str => $body,
);
sendmail($mail);
Email::Sender::Simple::sendmail($mail);
}
}
@ -1674,7 +1675,7 @@ PS: Ce message est g
Les roots ACU";
# create the message
require Email::Sender::Simple qw(sendmail);
require "Email::Sender::Simple";
my $mail = Email::MIME->create(
header_str => [
@ -1690,7 +1691,7 @@ Les roots ACU";
},
body_str => $body,
);
sendmail($mail);
Email::Sender::Simple::sendmail($mail);
};
cmd_ssh_keys_without_passphrase_generic(\&$process);
@ -1739,7 +1740,7 @@ PS: Ce message est g
--
Les roots ACU";
require Email::Sender::Simple qw(sendmail);
require "Email::Sender::Simple";
my $mail = Email::MIME->create(
header_str => [
@ -1755,7 +1756,7 @@ Les roots ACU";
},
body_str => $body,
);
sendmail($mail);
Email::Sender::Simple::sendmail($mail);
};
cmd_ssh_keys_without_passphrase_generic(\&$process);