/[webpac2]/trunk/lib/WebPAC/Common.pm
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 /trunk/lib/WebPAC/Common.pm

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

revision 762 by dpavlin, Wed Sep 6 18:08:04 2006 UTC revision 763 by dpavlin, Wed Oct 25 20:53:14 2006 UTC
# Line 15  WebPAC::Common - internal methods called Line 15  WebPAC::Common - internal methods called
15    
16  =head1 VERSION  =head1 VERSION
17    
18  Version 0.03  Version 0.04
19    
20  =cut  =cut
21    
22  our $VERSION = '0.03';  our $VERSION = '0.04';
23    
24  =head1 SYNOPSYS  =head1 SYNOPSYS
25    
# Line 43  sub progress_bar { Line 43  sub progress_bar {
43    
44          my $log = $self->_get_logger();          my $log = $self->_get_logger();
45    
46            $self->{last_pcnt_t} ||= time();
47    
48          $log->logconfess("no current value!") if (! $curr);          $log->logconfess("no current value!") if (! $curr);
49          $log->logconfess("no maximum value!") if (! $max);          $log->logconfess("no maximum value!") if (! $max);
50    
# Line 62  sub progress_bar { Line 64  sub progress_bar {
64                  $self->{'start_t'} = time();                  $self->{'start_t'} = time();
65          }          }
66    
67          if ($p != $self->{'last_pcnt'}) {          my $t = time();
68    
69            if ($p != $self->{'last_pcnt'} || ( $t - $self->{last_pcnt_t} ) > 2 ) {
70    
                 my $t = time();  
71                  my $rate = ($curr / ($t - $self->{'start_t'} || 1));                  my $rate = ($curr / ($t - $self->{'start_t'} || 1));
72                  my $eta = ($max-$curr) / ($rate || 1);                  my $eta = ($max-$curr) / ($rate || 1);
73                  printf STDERR ("%5d [%-38s] %-5d %0.1f/s %s\r",$curr,"=" x ($p/3)."$p%>", $max, $rate, $self->fmt_time($eta));                  printf STDERR ("%5d [%-38s] %-5d %0.1f/s %s\r",$curr,"=" x ($p/3)."$p%>", $max, $rate, $self->fmt_time($eta));
74                  $self->{'last_pcnt'} = $p;                  $self->{'last_pcnt'} = $p;
75                  $self->{'last_curr'} = $curr;                  $self->{'last_curr'} = $curr;
76                    $self->{last_pcnt_t} = $t;
77          }          }
78          print STDERR "\n" if ($p == 100);          print STDERR "\n" if ($p == 100);
79  }  }
Legend:
Removed from v.762  
changed lines
  Added in v.763
  ViewVC Help
Powered by ViewVC 1.1.26