ispman/bin ispman.createMailbox, 1.6, 1.7 ispman.deleteMailbox, 1.6, 1.7 ispman.getMailboxQuota, 1.5, 1.6 ispman.listMailboxes, 1.5, 1.6 ispman.setMailboxQuota, 1.5, 1.6

Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv18012/bin

Modified Files:
	ispman.createMailbox ispman.deleteMailbox 
	ispman.getMailboxQuota ispman.listMailboxes 
	ispman.setMailboxQuota 
Log Message:
perltidy

Index: ispman.setMailboxQuota
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.setMailboxQuota,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- ispman.setMailboxQuota	7 Sep 2006 21:00:50 -0000	1.5
+++ ispman.setMailboxQuota	7 Sep 2006 21:08:12 -0000	1.6
@@ -4,8 +4,8 @@
     unshift @INC,
       ( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
     use Getopt::Std;
-    getopt('h',  \%opts);
-    unless ($opts{'h'}) {
+    getopt( 'h', \%opts );
+    unless ( $opts{'h'} ) {
         $0 =~ s/.*\///;
         print "Usage: $0 -h imap_server mailbox quota\n";
         exit;

Index: ispman.deleteMailbox
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.deleteMailbox,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- ispman.deleteMailbox	7 Sep 2006 21:00:50 -0000	1.6
+++ ispman.deleteMailbox	7 Sep 2006 21:08:12 -0000	1.7
@@ -5,10 +5,11 @@
     unshift @INC,
       ( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
     use Getopt::Std;
-    getopt('h',  \%opts);
-    unless ($opts{'h'}) {
+    getopt( 'h', \%opts );
+    unless ( $opts{'h'} ) {
         $0 =~ s/.*\///;
-        print "Usage: $0 -h imap_server mailbox [mailbox] [mailbox] .. [mailbox]\n";
+        print
+          "Usage: $0 -h imap_server mailbox [mailbox] [mailbox] .. [mailbox]\n";
         exit;
     }
 }
@@ -16,10 +17,10 @@
 require "mailbox_actions.lib";
 
 my @mailboxes = @ARGV;
-my $err = 0;
+my $err       = 0;
 
 for (@mailboxes) {
-    $err += delete_mailbox($opts{'h'}, email2uid($_));
+    $err += delete_mailbox( $opts{'h'}, email2uid($_) );
 }
 
 exit $err;

Index: ispman.getMailboxQuota
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.getMailboxQuota,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- ispman.getMailboxQuota	7 Sep 2006 21:00:50 -0000	1.5
+++ ispman.getMailboxQuota	7 Sep 2006 21:08:12 -0000	1.6
@@ -6,10 +6,11 @@
     unshift @INC,
       ( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
     use Getopt::Std;
-    getopt('h',  \%opts);
-    unless ($opts{'h'}) {
+    getopt( 'h', \%opts );
+    unless ( $opts{'h'} ) {
         $0 =~ s/.*\///;
-        print "Usage: $0 -h imap_server mailbox [mailbox] [mailbox] .. [mailbox]\n";
+        print
+          "Usage: $0 -h imap_server mailbox [mailbox] [mailbox] .. [mailbox]\n";
         exit;
     }
 }
@@ -18,8 +19,8 @@
 my @mailboxes = @ARGV;
 
 for (@mailboxes) {
-    my @q = get_quota($opts{'h'},email2uid($_));
-    print join(",",@q)."\n" ;
+    my @q = get_quota( $opts{'h'}, email2uid($_) );
+    print join( ",", @q ) . "\n";
 }
 
 exit;

Index: ispman.createMailbox
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.createMailbox,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- ispman.createMailbox	7 Sep 2006 21:00:50 -0000	1.6
+++ ispman.createMailbox	7 Sep 2006 21:08:12 -0000	1.7
@@ -5,10 +5,11 @@
     unshift @INC,
       ( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
     use Getopt::Std;
-    getopt('h',  \%opts);
-    unless ($opts{'h'}) {
+    getopt( 'h', \%opts );
+    unless ( $opts{'h'} ) {
         $0 =~ s/.*\///;
-        print "Usage: $0 -h imap_server mailbox [mailbox] [mailbox] ... [mailbox]\n";
+        print
+          "Usage: $0 -h imap_server mailbox [mailbox] [mailbox] ... [mailbox]\n";
         print "Example: $FindBin::Script -h localhost user_domain_tld\n";
         print "Example: $FindBin::Script -h localhost user\@domain.tld\n";
         exit;
@@ -17,12 +18,11 @@
 
 require "mailbox_actions.lib";
 
-
 my @mailboxes = @ARGV;
-my $err = 0;
+my $err       = 0;
 
 for (@mailboxes) {
-    $err += create_mailbox($opts{'h'}, email2uid($_));
+    $err += create_mailbox( $opts{'h'}, email2uid($_) );
 }
 
 exit $err;

Index: ispman.listMailboxes
===================================================================
RCS file: /cvsroot/ispman/ispman/bin/ispman.listMailboxes,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- ispman.listMailboxes	7 Sep 2006 21:00:50 -0000	1.5
+++ ispman.listMailboxes	7 Sep 2006 21:08:12 -0000	1.6
@@ -4,8 +4,8 @@
     unshift @INC,
       ( $FindBin::Bin, "$FindBin::Bin/../lib", "$FindBin::Bin/../conf" );
     use Getopt::Std;
-    getopt('h',  \%opts);
-    unless ($opts{'h'}) {
+    getopt( 'h', \%opts );
+    unless ( $opts{'h'} ) {
         $0 =~ s/.*\///;
         print "Usage: $0 -h imap_server [filter]\n";
         print "Example: $FindBin::Script -h localhost\n";
@@ -15,12 +15,11 @@
 
 }
 
-
 require "mailbox_actions.lib";
 
 my $filter = $ARGV[0] || '*';
 
-for (list_mailboxes($opts{'h'},$filter)) {
+for ( list_mailboxes( $opts{'h'}, $filter ) ) {
     print "$_\n";
 }
 exit;


-------------------------------------------------------------------------
Using Tomcat but need to do more? Need to support web services, security?
Get stuff done quickly with pre-integrated technology to make your job easier
Download IBM WebSphere Application Server v.1.0.1 based on Apache Geronimo
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=120709&bid=263057&dat=121642