| Revision 24250,
769 bytes
checked in by broder, 15 years ago
(diff) |
|
New Moira snapshot from subversion.
Sorry for the large diff - looks like all of the keywords changed in
the SVN import process.
|
| Line | |
|---|
| 1 | #!/bin/csh -f |
|---|
| 2 | # |
|---|
| 3 | # This script sets the quota for a uid on a filesystem. |
|---|
| 4 | |
|---|
| 5 | set dev=$1 |
|---|
| 6 | |
|---|
| 7 | # Checking for /etc/enforce_quota is transitional code and should be |
|---|
| 8 | # removed when the Moira database has an accurate understanding of what |
|---|
| 9 | # everyone's quotas are. |
|---|
| 10 | if ( -f /etc/enforce_quota ) then |
|---|
| 11 | while (1) |
|---|
| 12 | # set args = $< will NOT work. $< will be treated as a single word |
|---|
| 13 | set args = `echo $<` |
|---|
| 14 | |
|---|
| 15 | if (${#args} != 2) break |
|---|
| 16 | |
|---|
| 17 | set uid = $args[1] |
|---|
| 18 | set quota = $args[2] |
|---|
| 19 | |
|---|
| 20 | setquota $dev $uid $quota |
|---|
| 21 | end |
|---|
| 22 | endif |
|---|
| 23 | |
|---|
| 24 | exit 0 |
|---|
| 25 | |
|---|
| 26 | # |
|---|
| 27 | # $Source: /afs/.athena.mit.edu/astaff/project/moiradev/repository/moira/gen/install_quotas,v $ |
|---|
| 28 | # $Header: /afs/.athena.mit.edu/astaff/project/moiradev/repository/moira/gen/install_quotas,v 1.4 1998-01-07 17:13:18 danw Exp $ |
|---|
| 29 | # |
|---|
Note: See
TracBrowser
for help on using the repository browser.
