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; 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 *= 1024 if ($2 eq "K" or $2 eq "k");
$nb *= 1048576 if ($2 eq "M" or $2 eq "m"); $nb *= 1048576 if ($2 eq "M" or $2 eq "m");
$nb *= 1073741824 if ($2 eq "G" or $2 eq "g"); $nb *= 1073741824 if ($2 eq "G" or $2 eq "g");
@ -1460,7 +1461,7 @@ PS: Ce message est g
Les roots ACU"; Les roots ACU";
# create the message # create the message
require Email::Sender::Simple qw(sendmail); require "Email::Sender::Simple";
my $mail = Email::MIME->create( my $mail = Email::MIME->create(
header_str => [ header_str => [
@ -1476,7 +1477,7 @@ Les roots ACU";
}, },
body_str => $body, body_str => $body,
); );
sendmail($mail); Email::Sender::Simple::sendmail($mail);
} }
} }
@ -1502,7 +1503,7 @@ Cordialement,
Les roots ACU"; Les roots ACU";
# create the message # create the message
require Email::Sender::Simple qw(sendmail); require "Email::Sender::Simple";
my $mail = Email::MIME->create( my $mail = Email::MIME->create(
header_str => [ header_str => [
@ -1518,7 +1519,7 @@ Les roots ACU";
}, },
body_str => $body, body_str => $body,
); );
sendmail($mail); Email::Sender::Simple::sendmail($mail);
} }
} }
@ -1674,7 +1675,7 @@ PS: Ce message est g
Les roots ACU"; Les roots ACU";
# create the message # create the message
require Email::Sender::Simple qw(sendmail); require "Email::Sender::Simple";
my $mail = Email::MIME->create( my $mail = Email::MIME->create(
header_str => [ header_str => [
@ -1690,7 +1691,7 @@ Les roots ACU";
}, },
body_str => $body, body_str => $body,
); );
sendmail($mail); Email::Sender::Simple::sendmail($mail);
}; };
cmd_ssh_keys_without_passphrase_generic(\&$process); cmd_ssh_keys_without_passphrase_generic(\&$process);
@ -1739,7 +1740,7 @@ PS: Ce message est g
-- --
Les roots ACU"; Les roots ACU";
require Email::Sender::Simple qw(sendmail); require "Email::Sender::Simple";
my $mail = Email::MIME->create( my $mail = Email::MIME->create(
header_str => [ header_str => [
@ -1755,7 +1756,7 @@ Les roots ACU";
}, },
body_str => $body, body_str => $body,
); );
sendmail($mail); Email::Sender::Simple::sendmail($mail);
}; };
cmd_ssh_keys_without_passphrase_generic(\&$process); cmd_ssh_keys_without_passphrase_generic(\&$process);