Hello
I'm trying to sort out quotas for my users, however, I'm having real problems working with perl.
What my script should do is to get the user's quota and usage using repquota -a. Then grep and awk the lines in order to get the correct digit.
here is code at the moment:
Code:
#!/usr/bin/perl
print ("Content-type: text/html\n\n");
$user=christine;
# get quota
system("/usr/sbin/repquota -a > /tmp/quota");
system("grep -Eir $user /tmp/quota > /tmp/quota2");
system("awk '{print \$4}' /tmp/quota2 > /tmp/quota3");
# get usage
system("awk '{ print \$3 }' /tmp/quota2 > /tmp/quota4");
$quota=system("grep -Eir '[[:digit:]]' /tmp/quota4");
$usage=system("grep -Eir '[[:digit:]]' /tmp/quota3");
# change to mb
$quotamb=int($quota / 1024);
$usagemb=int($usage / 1024);
print ("<p>Your username is: $user</p>");
print ("<p>Your quota is: $quotamb MB</p>");
print ("<p>Your usage is: $usagemb MB</p>");
#rm /tmp/quota
The output is here:
http://hamishnet.homelinux.com/cgi-bin/qtest.pl
As you can see, it doesn't work, and I'm having touble finidng out why.
1. it seems to print the the variables $quota and $usage at the very top. I don't really understand why.
2. the script doesn't seem to divide the $quota and $usage variables by 1024. It just puts the $quotamb and $usagemb to 0.
So my question is: (a) what am I doing wrong, and (b) how can I get it working like I want?
Thanks in advance for all your help.
hamish
