source: trunk/alternc/patches/patch_mail_add-maildir @ 704

Last change on this file since 704 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.