|
Last change
on this file since 648 was
18,
checked in by sebas, 17 years ago
|
|
la patch para agregar las carpetas en una casilla de mail a la creacion en
AlternC.
|
|
File size:
957 bytes
|
| Line | |
|---|
| 1 | --- mail_add-original 2007-05-12 18:09:35.000000000 -0300 |
|---|
| 2 | +++ mail_add 2007-05-12 21:40:03.000000000 -0300 |
|---|
| 3 | @@ -27,18 +27,24 @@ $( = $); |
|---|
| 4 | |
|---|
| 5 | my $PTH="/var/alternc/mail/".substr($mailname,0,1)."/".$mailname; |
|---|
| 6 | |
|---|
| 7 | +mkdir($PTH); |
|---|
| 8 | +chown(33, $uid, $PTH); |
|---|
| 9 | + |
|---|
| 10 | my @todo=( |
|---|
| 11 | - $PTH, |
|---|
| 12 | $PTH."/Maildir", |
|---|
| 13 | - $PTH."/Maildir/cur", |
|---|
| 14 | - $PTH."/Maildir/new", |
|---|
| 15 | - $PTH."/Maildir/tmp", |
|---|
| 16 | + $PTH."/Maildir/.Drafts", |
|---|
| 17 | + $PTH."/Maildir/.Sent", |
|---|
| 18 | + $PTH."/Maildir/.Trash", |
|---|
| 19 | ); |
|---|
| 20 | |
|---|
| 21 | foreach(@todo) { |
|---|
| 22 | - mkdir($_); |
|---|
| 23 | - chown(33, $uid, $_); |
|---|
| 24 | + system("/usr/bin/maildirmake '$_'"); |
|---|
| 25 | + system("/bin/chown -R 33:'$uid' '$PTH'"); |
|---|
| 26 | + system("/bin/chmod -R 0750 '$PTH'"); |
|---|
| 27 | } |
|---|
| 28 | |
|---|
| 29 | +system("/bin/cp /var/alternc/skel/mail/courierimapsubscribed '/var/alternc/mail/".substr($mailname,0,1)."/".$mailname."/Maildir'"); |
|---|
| 30 | +system("/bin/chown -R 33:'$uid' '/var/alternc/mail/".substr($mailname,0,1)."/".$mailname."/Maildir/courierimapsubscribed'"); |
|---|
| 31 | + |
|---|
| 32 | 0; |
|---|
| 33 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
