/[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 by dpavlin, Mon May 13 06:35:28 2002 UTC revision 1.2 by dpavlin, Mon May 13 06:40:10 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  # counters  # counters
20  my ($mail_int, $mail_ext) = (0,0,0,0);  my ($mail_int, $mail_ext) = (0,0,0,0);
21  # size  # size
22  my ($size_int, $size_ext) = (0,0,0,0);  my ($size_int, $size_ext) = (0,0,0,0);
23    
24  open(LOG,$log) || die "can't open log";  open(LOG,$log) || die "can't open log: $!";
25    
26  my $tmp_log=$log;  my $tmp_log=$log;
27  $tmp_log=~s/\W/_/g;  $tmp_log=~s/\W/_/g;
28  $delta.=$tmp_log.".offset";  $delta.=$tmp_log.".offset";
29    
30  if (-e $delta) {  if (-e $delta) {
31          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': $!";
32          my $offset=<D>;          my $offset=<D>;
33          chomp $offset;          chomp $offset;
34          close(D);          close(D);
# Line 58  while(<LOG>) { Line 58  while(<LOG>) {
58    
59  print STDERR "processed $lines lines...\n" if ($debug);  print STDERR "processed $lines lines...\n" if ($debug);
60    
61  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': $!";
62  print D tell(LOG);  print D tell(LOG);
63  close(D);  close(D);
64    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26