/[Search-Estraier]/trunk/scripts/estcp.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 /trunk/scripts/estcp.pl

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

revision 85 by dpavlin, Tue Jan 17 15:00:50 2006 UTC revision 88 by dpavlin, Sat Jan 21 18:25:09 2006 UTC
# Line 32  my $to_n = new Search::Estraier::Node( Line 32  my $to_n = new Search::Estraier::Node(
32  );  );
33    
34  unless(eval{ $to_n->name }) {  unless(eval{ $to_n->name }) {
35          if ($to =~ m#^(http://.+)/node/(\w+)$#) {          if ($to =~ m#^(http://.+)/node/([^/]+)$#) {
36                  my ($url,$name) = ($1,$2);                  my ($url,$name) = ($1,$2);
37                  print "Creating '$name' on $url\n";                  print "Creating '$name' on $url\n";
38                  $to_n->shuttle_url( $url . '/master?action=nodeadd',                  $to_n->shuttle_url( $url . '/master?action=nodeadd',
# Line 76  while($more) { Line 76  while($more) {
76    
77                  $i++;                  $i++;
78          }          }
79          warn "$prev\n";          warn "$prev\n" if ($debug);
80    
81          my $rate = ( $i / (time() - $t) );          my $rate = ( $i / (time() - $t) );
82          printf("%d records, %1.2f%% [%1.2f rec/s] estimated finish: %s\n",          printf("%d records, %1.2f%% [%1.2f rec/s] estimated finish: %s\n",
Legend:
Removed from v.85  
changed lines
  Added in v.88
  ViewVC Help
Powered by ViewVC 1.1.26