Last change
on this file since 60 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
|
Rev | Line | |
---|
[18] | 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.