/[cricket]/parse_maillog.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /parse_maillog.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1.1.1 by dpavlin, Mon May 13 06:35:28 2002 UTC revision 1.3 by dpavlin, Mon May 13 06:44:05 2002 UTC
# Line 7  Line 7 
7    
8  use strict;  use strict;
9    
10  my $log="/var/adm/syslog.dated/current/mail.log";  my $log="/var/log/mail.log";
11    
12  # edit this to your configuration!  # edit this to your configuration!
13    
14  my $domain='@pliva.hr';  my $domain='@pliva.hr';
15  my $delta="/var/tmp/";  my $delta="/var/tmp/";
16    
17  my $debug=1;  my $debug=0;
18    
19    $log = $ARGV[0] if ($ARGV[0] && -r $ARGV[0]);
20    
21  # counters  # counters
22  my ($mail_int, $mail_ext) = (0,0,0,0);  my ($mail_int, $mail_ext) = (0,0,0,0);
23  # size  # size
24  my ($size_int, $size_ext) = (0,0,0,0);  my ($size_int, $size_ext) = (0,0,0,0);
25    
26  open(LOG,$log) || die "can't open log";  open(LOG,$log) || die "can't open log: $!";
27    
28  my $tmp_log=$log;  my $tmp_log=$log;
29  $tmp_log=~s/\W/_/g;  $tmp_log=~s/\W/_/g;
30  $delta.=$tmp_log.".offset";  $delta.=$tmp_log.".offset";
31    
32  if (-e $delta) {  if (-e $delta) {
33          open(D,$delta) || die "can't open delta file '$delta' for log '$log'";          open(D,$delta) || die "can't open delta file '$delta' for log '$log': $!";
34          my $offset=<D>;          my $offset=<D>;
35          chomp $offset;          chomp $offset;
36          close(D);          close(D);
# Line 58  while(<LOG>) { Line 60  while(<LOG>) {
60    
61  print STDERR "processed $lines lines...\n" if ($debug);  print STDERR "processed $lines lines...\n" if ($debug);
62    
63  open(D,"> $delta") || die "can't open delta file '$delta' for log '$log'";  open(D,"> $delta") || die "can't open delta file '$delta' for log '$log': $!";
64  print D tell(LOG);  print D tell(LOG);
65  close(D);  close(D);
66    
Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.26