Projet

Général

Profil

Révision 17f78427

ID17f784270ae966ee9a13e9f5104a5b8f925b639e
Parent ef851f0c
Enfant d4320aea, 5b2396a9

Ajouté par Lars Kruse il y a plus de 7 ans

Whitespace cleanup

  • remove trailing whitespace
  • remove empty lines at the end of files

Voir les différences:

plugins/qpsmtpd/qpsmtpd_mailstats
61 61 

  		




  62
  62
  
    

  		




  63
  63
  
    
sub do_stats {


  		




  64
  
  
    
    my $start_at = shift; 


  		




  
  64
  
    
    my $start_at = shift;


  		




  65
  65
  
    
    my $fh;


  		




  66
  66
  
    
    my $stop_at = (stat $LOGFILE)[7];


  		




  67
  67
  
    
    $start_at = 0 if $stop_at < $start_at;


  		




  68
  
  
    
	


  		




  
  68
  
    

  		




  69
  69
  
    
	my %counts = ();


  		




  70
  
  
    
	


  		




  
  70
  
    

  		




  71
  71
  
    
	open $fh, $LOGFILE or die "$!: $LOGFILE";


  		




  72
  
  
    
	


  		




  
  72
  
    

  		




  73
  73
  
    
	seek $fh, $start_at, 0 if $start_at > 0;


  		




  74
  74
  
    

  		




  75
  75
  
    
	my $where;


  		




  ......




  82
  82
  
    
        }


  		




  83
  83
  
    
    }


  		




  84
  84
  
    
	close $fh;


  		




  85
  
  
    
	


  		




  
  85
  
    

  		




  86
  86
  
    
	save_state($stop_at);


  		




  87
  87
  
    

  		




  88
  88
  
    
	foreach my $rc (sort {$a<=>$b} keys %REJECT_CODES) {


  		




  ......




  108
  108
  
    

  		




  109
  109
  
    
    my $type;


  		




  110
  110
  
    
    foreach $k (sort {$a<=>$b} keys %REJECT_CODES) {


  		




  111
  
  
    
        print 


  		




  
  111
  
    
        print


  		




  112
  112
  
    
"r$k.label $REJECT_CODES{$k}


  		




  113
  113
  
    
r$k.type ABSOLUTE


  		




  114
  114
  
    
r$k.min 0


  		












Formats disponibles :  Unified diff