postfixadmin-svn Mailing List for PostfixAdmin (Page 99)

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Revision: 530
          http://postfixadmin.svn.sourceforge.net/postfixadmin/?rev=530&view=rev
Author:   GingerDog
Date:     2009-01-18 12:05:14 +0000 (Sun, 18 Jan 2009)

Log Message:
-----------
quota_usage.pl: copying in from trunk

Added Paths:
-----------
    branches/postfixadmin-2.3beta/ADDITIONS/quota_usage.pl

Copied: branches/postfixadmin-2.3beta/ADDITIONS/quota_usage.pl (from rev 529, trunk/ADDITIONS/quota_usage.pl)
===================================================================

--- branches/postfixadmin-2.3beta/ADDITIONS/quota_usage.pl	                        (rev 0)
+++ branches/postfixadmin-2.3beta/ADDITIONS/quota_usage.pl	2009-01-18 12:05:14 UTC (rev 530)
@@ -0,0 +1,140 @@
+#!/usr/bin/perl
+# vim:ts=4:sw=4:et
+#
+# Contributed to Postfixadmin by Jose Nilton <jni...@gm...> 
+#
+# See also : http://www.russelldare.net/media/perl/dirsizeSource.pdf
+# License: GPL v2.
+
+# Usage:
+# perl quota_usage.pl --list or  
+# perl quota_usage.pl --addmysql for add mysql database postfix 
+#
+# Requires: perl perl-DBD-mysql perl-DBD (may be named differently depending on your platform).
+#           and the 'du' binary in $ENV{'PATH'} (see below).
+#
+# You will need to modify the postfix DATABASE to add a quota_usage column. 
+# Mysql:
+# 	ALTER TABLE mailbox ADD quota_usage INT(11) NOT NULL DEFAULT '0' AFTER modified, 
+# 	ADD quota_usage_date DATE NOT NULL DEFAULT '0000-00-00' AFTER quota_usage;
+# PostgreSQL:
+# 	ALTER TABLE mailbox ADD COLUMN quota_usage INTEGER NOT NULL DEFAULT 0;
+# 	ALTER TABLE mailbox ADD COLUMN quota_usage_date DATE NOT NULL DEFAULT current_date;
+#
+
+use strict;
+use warnings;
+use File::Path;
+use DBI;
+use Getopt::Long;
+
+##EDIT## 
+my $db_host 	= 'localhost';
+my $db_database = 'postfix';
+my $db_user 	= 'postfix';
+my $db_password = '123456';
+my $root_path 	= '/home/vmail';
+# Pg or mysql
+my $db_type     = 'Pg'; 
+##END EDIT##
+
+$ENV{'PATH'} = "/sbin:/bin:/usr/sbin:/usr/bin";
+my($domain_dir, $full_domain_dir, $user_dir, $usage, $email, $sql, $dbh);
+
+GetOptions ('list' => \&list_quota_usage, 'addmysql' => \&insert_to_db);
+
+sub list_quota_usage {
+    opendir(DOMAINDIR, $root_path) or die ("Unable to access directory '$root_path' ($!)");
+
+    foreach $domain_dir (sort readdir DOMAINDIR) {
+        next if $domain_dir =~ /^\./;                # skip dotted dirs
+            $full_domain_dir = "$root_path/$domain_dir"; #print "$full_domain_dir\n";
+
+        opendir(USERDIR, $full_domain_dir) or die ("Unable to access directory '$full_domain_dir' ($!)");
+        foreach $user_dir (sort readdir USERDIR) {
+            next if $user_dir =~ /^\./; # skip dotted dirs
+                $email = "$user_dir\@$domain_dir";
+
+            my $i = `du -0 --summarize $full_domain_dir/$user_dir`;
+            ($usage) = split(" ", $i);
+
+            if ($usage < 100) {
+                $usage = 0;
+            } elsif ($usage < 1000) {
+                $usage = 1;
+            } else {
+                $usage = $usage + 500;
+                $usage = int $usage / 1000;
+            }
+
+            list_out();
+        }
+    }
+    close(DOMAINDIR);
+    close(USERDIR);
+}
+
+
+sub insert_to_db {
+    opendir(DOMAINDIR, $root_path) or die ("Unable to access directory '$root_path' ($!)");
+
+    $dbh = DBI->connect("DBI:$db_type:database=$db_database;host=$db_host", $db_user, $db_password) or die ("cannot connect the database");
+    execSql("UPDATE mailbox set quota_usage = 0");
+
+
+    foreach $domain_dir (sort readdir DOMAINDIR) {
+        next if $domain_dir =~ /^\./; # skip dotted dirs
+            $full_domain_dir = "$root_path/$domain_dir"; #print "$full_domain_dir\n";
+
+        opendir(USERDIR, $full_domain_dir) or die ("Unable to access directory '$full_domain_dir' ($!)");
+        foreach $user_dir (sort readdir USERDIR) {
+            next if $user_dir =~ /^\./; # skip dotted dirs
+                $email = "$user_dir\@$domain_dir";
+
+            my $i = `du -0 --summarize $full_domain_dir/$user_dir`;
+            ($usage) = split(" ", $i);
+
+            if ($usage < 100) {
+                $usage = 0;
+            } elsif ($usage < 1000) {
+                $usage = 1;
+            } else {
+                $usage = $usage + 500;
+                $usage = int $usage / 1000;
+            }
+
+            execSql("UPDATE mailbox set quota_usage = $usage, quota_usage_date = CAST(NOW() AS DATE) WHERE username = '$email'");
+#list_out(); #Debug
+        }
+
+    }
+
+    close(DOMAINDIR);
+    close(USERDIR);
+
+}
+
+
+sub execSql {
+    my $sql = shift;
+    my $ex;
+    $ex = $dbh->do($sql) or die ("error when running $sql");
+}
+
+sub list_out {
+format STDOUT_TOP =
+Report of Quota Used
+--------------------------
+EMAIL                                         QUOTA USED
+------------------------------------------------------------------
+.
+
+
+format = 
+@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<              @<<<<<<<<<<
+$email,                                                "$usage\bMB"                         
+.
+
+    write;
+}
+


Property changes on: branches/postfixadmin-2.3beta/ADDITIONS/quota_usage.pl
___________________________________________________________________
Added: svn:mergeinfo
   + 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.




2007	Jan	Feb	Mar	Apr	May	Jun	Jul	Aug	Sep (13)	Oct (63)	Nov (79)	Dec (34)
2008	Jan (15)	Feb (8)	Mar (8)	Apr (44)	May (18)	Jun (20)	Jul (35)	Aug (21)	Sep (8)	Oct (9)	Nov (21)	Dec (14)
2009	Jan (53)	Feb (13)	Mar (36)	Apr (40)	May (22)	Jun (10)	Jul (18)	Aug (18)	Sep (7)	Oct (26)	Nov (32)	Dec (13)
2010	Jan (6)	Feb (7)	Mar (12)	Apr (2)	May (12)	Jun (8)	Jul (9)	Aug (12)	Sep (12)	Oct (7)	Nov (9)	Dec (42)
2011	Jan (10)	Feb (35)	Mar (43)	Apr (39)	May (8)	Jun (8)	Jul (83)	Aug (20)	Sep (20)	Oct (63)	Nov (33)	Dec (20)
2012	Jan (28)	Feb (3)	Mar (1)	Apr (37)	May (16)	Jun (7)	Jul (3)	Aug	Sep	Oct (3)	Nov (1)	Dec (4)
2013	Jan (6)	Feb (16)	Mar (9)	Apr (11)	May (9)	Jun (30)	Jul (17)	Aug (6)	Sep (2)	Oct (30)	Nov (41)	Dec (26)
2014	Jan (16)	Feb (20)	Mar (5)	Apr (4)	May (14)	Jun (4)	Jul (1)	Aug	Sep (8)	Oct (18)	Nov (26)	Dec
2015	Jan (4)	Feb (9)	Mar (12)	Apr (26)	May (3)	Jun (3)	Jul (2)	Aug	Sep (15)	Oct (13)	Nov	Dec (1)
2016	Jan (1)	Feb (5)	Mar (4)	Apr (3)	May (19)	Jun	Jul	Aug (3)	Sep (16)	Oct (4)	Nov (5)	Dec (5)
2017	Jan (1)	Feb (8)	Mar	Apr (7)	May (3)	Jun (16)	Jul (13)	Aug (16)	Sep (6)	Oct (4)	Nov (10)	Dec (7)
2018	Jan (16)	Feb (17)	Mar (11)	Apr (13)	May (20)	Jun (3)	Jul (10)	Aug	Sep (3)	Oct (1)	Nov (6)	Dec (18)
2019	Jan (18)	Feb (31)	Mar (4)	Apr (4)	May (1)	Jun (8)	Jul (7)	Aug (10)	Sep (23)	Oct (6)	Nov (3)	Dec (5)
2020	Jan (10)	Feb (18)	Mar (34)	Apr (19)	May (6)	Jun (9)	Jul	Aug (10)	Sep (16)	Oct (6)	Nov (3)	Dec (11)
2021	Jan (118)	Feb (22)	Mar (13)	Apr (12)	May (48)	Jun (21)	Jul (17)	Aug (12)	Sep (19)	Oct (25)	Nov (16)	Dec (7)
2022	Jan (6)	Feb (7)	Mar (14)	Apr (4)	May	Jun (16)	Jul (18)	Aug (5)	Sep (12)	Oct (8)	Nov (10)	Dec (13)
2023	Jan	Feb (3)	Mar (2)	Apr (1)	May (2)	Jun (6)	Jul (3)	Aug (3)	Sep (3)	Oct (2)	Nov (7)	Dec (13)
2024	Jan (8)	Feb (6)	Mar (5)	Apr (10)	May (8)	Jun (6)	Jul (2)	Aug (1)	Sep (2)	Oct (4)	Nov (15)	Dec (10)
2025	Jan (3)	Feb (12)	Mar (3)	Apr (7)	May (18)	Jun (10)	Jul (10)	Aug	Sep	Oct	Nov	Dec

postfixadmin-svn Mailing List for PostfixAdmin (Page 99)

postfixadmin-svn — Postfix Admin SVN commit messages - READ ONLY!