innreport feature request ...

Fabien Tassin fta at oleane.net
Sat Oct 2 10:44:25 UTC 1999


According to The Hermit Hacker:
> 
> Okay, I give up...where is this code??
> 
> %grep num bin/innreport | grep text
> %grep num bin/innreport_inn.pm | grep text

      # group                                                                   
      if ($left =~ /(\S+) group (\S+) (\d+)$/o) {
        my ($server, $group, $num) = ($1, $2, $3);
!       if ($num != 0) {
          $nnrpd_group{$group} += $num;
          my ($hierarchy) = $group =~ /^([^\.]+).*$/o;
          $nnrpd_hierarchy{$hierarchy} += $num;
        }                                                                       
        return 1;
      }                                                                         

vs 

      # group                                                                   
      if ($left =~ /(\S+) group (\S+) (\d+)$/o) {
        my ($cust, $group, $num) = ($1, $2, $3);
!       if ($num) {
          $nnrpd_group{$group} += $num;
          my ($hierarchy) = $group =~ /^([^\.]+).*$/o;
          $nnrpd_hierarchy{$hierarchy} += $num;
        }                                                                       
        return 1;
      }                                                                         

-- 
Fabien Tassin -+- fta at oleane.net


More information about the inn-workers mailing list