postfix でメールデータ使用量を確認する

2012/08/03 admin コレ調べた, 0

postfixでクォータ情報を書き出すスクリプトが、日本語でなかったのでメモ程度に(maildirsizeを利用するため、postfixではなくても動くと思います)。

条件

maildirsizeファイルが生成されていること。

スクリプト

今回はperlです(似たプログラムがあっただけです)。

quota.pl

引数にアカウント名を入れて、コマンドを実行します。

応用

ユーザ一覧をテキストファイルで用意し、それを引数にして30%以上使用しているユーザ一覧を作成します。

作成するファイルは3つ。

• quota.pl (先ほどのものをベースにちょっとだけ改造)
• username.txt (アカウントの一覧)
• quota.sh (quota.plをループして一覧にするためのシェルスクリプト)

quota.pl

		

		
			

			
Perl
			

			
#!/usr/bin/perl
use strict;
use warnings;

# 引数
my $username=$ARGV[0];
exit if (!defined $username);

# 開くファイルを指定
my $home = "/home/spool";
my $file=$home . "/" . $username . "/maildirsize";

#my $file="/home/spool/user.name\@domain.com/maildirsize";

# ファイルを開く
open(FILE, "< $file") or die "OK $file does not exist.";
my @lines=<FILE>;
close(FILE);

# どの行が何のデータかを指定
my $quota = $lines[0];
$quota = substr($quota, 0, -2);

my $line=my $size=my $msgs=0;
my $rate;
do {
 $line++;
 (my $msgsize, my $msgcount) = split(" ", $lines[$line]);
 $size+=$msgsize; $msgs+=$msgcount;

# 使用率を計算
 $rate = $size/$quota;

} while ($line < $#lines); if ($rate > 0.3) {
 # 使用率を計算
 #$rate = $size/$quota;
 # 表示
 print "user: $username size: $size quota: $quota rate: $rate msgs: $msgs\n";
} else {
 print "";
}
			

				

					

				

					
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
				
						
#!/usr/bin/perl
use strict;
use warnings;
 
# 引数
my $username=$ARGV[0];
exit if (!defined $username);
 
# 開くファイルを指定
my $home = "/home/spool";
my $file=$home . "/" . $username . "/maildirsize";
 
#my $file="/home/spool/user.name\@domain.com/maildirsize";
 
# ファイルを開く
open(FILE, "< $file") or die "OK $file does not exist.";
my @lines=<FILE>;
close(FILE);
 
# どの行が何のデータかを指定
my $quota = $lines[0];
$quota = substr($quota, 0, -2);
 
my $line=my $size=my $msgs=0;
my $rate;
do {
 $line++;
 (my $msgsize, my $msgcount) = split(" ", $lines[$line]);
 $size+=$msgsize; $msgs+=$msgcount;
 
# 使用率を計算
 $rate = $size/$quota;
 
} while ($line < $#lines); if ($rate > 0.3) {
 # 使用率を計算
 #$rate = $size/$quota;
 # 表示
 print "user: $username size: $size quota: $quota rate: $rate msgs: $msgs\n";
} else {
 print "";
}
					
				
			
		


username.txt
aaaa@xxx.com
bbbb@xxx.com
cccc@xxx.com
dddd@xxx.com
eeee@xxx.com

※メールアドレスがアカウント名のため、@xxx.comになっています。
quota.sh


		

		
			

			
Perl
			

			
while read line
do
 perl quota.pl $line;
done < ./username.txt
			

				

					

				

					
1
2
3
4
				
						
while read line
do
 perl quota.pl $line;
done < ./username.txt
					
				
			
		


quota.shを実行します


		

		
			

			
Perl
			

			
sh quota.sh
			

				

					

				

					
1
				
						
sh quota.sh
					
				
			
		


結果


		

		
			

			
Perl
			

			
user: aaaa@xxx.com size: 51275793 quota: 1048576000 rate: 0.3489004068374634 msgs: 2184
user: bbbb@xxx.com size: 23674050 quota: 1048576000 rate: 0.4225773334503174 msgs: 3145
user: cccc@xxx.com size: 20873492 quota: 1048576000 rate: 0.6199065132141113 msgs: 919
user: dddd@xxx.com size: 34607792 quota: 1048576000 rate: 0.3330045623779297 msgs: 3774
user: eeee@xxx.com size: 47967183 quota: 1048576000 rate: 0.8457450704574585 msgs: 2797
			

				

					

				

					
1
2
3
4
5
				
						
user: aaaa@xxx.com size: 51275793 quota: 1048576000 rate: 0.3489004068374634 msgs: 2184
user: bbbb@xxx.com size: 23674050 quota: 1048576000 rate: 0.4225773334503174 msgs: 3145
user: cccc@xxx.com size: 20873492 quota: 1048576000 rate: 0.6199065132141113 msgs: 919
user: dddd@xxx.com size: 34607792 quota: 1048576000 rate: 0.3330045623779297 msgs: 3774
user: eeee@xxx.com size: 47967183 quota: 1048576000 rate: 0.8457450704574585 msgs: 2797
					
				
			
		


参考

Check Disk Quota Usage By Parsing Maildirsize (KutuKupret)

ほぼここのスクリプトそのまま使用していますが、ほんの一部修正が必要でした。
						

		

			Wordでメイリオや小塚フォントを使用すると、通常よりも行間が大きく空く
			暗号化PDFの暗号解除方法
		
		



	
	
	

									

				
コメントを残す コメントをキャンセル
									

																			
メールアドレスが公開されることはありません。 * が付いている欄は必須項目です
							
名前 * 
メールアドレス * 
ウェブサイト 
												





						
次のHTML タグと属性が使えます:  <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code class="" title="" data-url=""> <del datetime=""> <em> <i> <q cite=""> <strike> <strong> <img localsrc="" alt=""> <pre class="" title="" data-url=""> <span class="" title="" data-url=""> 
						

							
							

						
						
 新しいコメントをメールで通知
 新しい投稿をメールで受け取る