wilde: utils/admin kolab-mailboxinfo.pl,1.2,1.3

cvs at kolab.org cvs at kolab.org
Wed Jan 30 16:22:34 CET 2008


Author: wilde

Update of /kolabrepository/utils/admin
In directory doto:/tmp/cvs-serv22105

Modified Files:
	kolab-mailboxinfo.pl 
Log Message:
Fixed (added) quoting in kolab-mailboxinfo cyradm command output.


Index: kolab-mailboxinfo.pl
===================================================================
RCS file: /kolabrepository/utils/admin/kolab-mailboxinfo.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- kolab-mailboxinfo.pl	30 Jan 2008 14:50:00 -0000	1.2
+++ kolab-mailboxinfo.pl	30 Jan 2008 15:22:32 -0000	1.3
@@ -30,7 +30,7 @@
     my %rights = $cyrus->listacl(${mailbox});
     foreach my $user (sort keys %rights) {
         if($opt_c == 1) {
-            print "sam ${mailbox} $user $rights{$user}\n";
+            print "sam \"${mailbox}\" $user $rights{$user}\n";
         } else {
             print "${mailbox}: acl $user: $rights{$user}\n";
         }
@@ -42,7 +42,7 @@
         $attrib =~ s/^[^}]*}//;
         if(not $attrib =~ /^\/vendor\/cmu\//) {
             if($opt_c == 1) {
-                print "mboxcfg ${mailbox} $attrib $info{$key}\n";
+                print "mboxcfg \"${mailbox}\" $attrib $info{$key}\n";
             } else {
                 print "${mailbox}: annotation $attrib: $info{$key}\n";
             }





More information about the commits mailing list