/[webpac]/trunk/all2xml.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/all2xml.pl

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

revision 623 by dpavlin, Sat Jan 1 19:09:53 2005 UTC revision 632 by dpavlin, Sun Jan 16 18:35:24 2005 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl -w  #!/usr/bin/perl -w
2    
3  use strict;  use strict;
4  use IsisDB;  use Biblio::Isis;
5  use Getopt::Std;  use Getopt::Std;
6  use Data::Dumper;  use Data::Dumper;
7  use XML::Simple;  use XML::Simple;
# Line 687  print STDERR "reading ./import_xml/$type Line 687  print STDERR "reading ./import_xml/$type
687                  my $current = shift;                  my $current = shift;
688                  my $total = shift || 1;                  my $total = shift || 1;
689                  my $p = int($current * 100 / $total);                  my $p = int($current * 100 / $total);
690                  if ($p != $last_p) {                  if ($p < $last_p || $current == 1) {
691                            $start_t = time();
692                            $last_p = 0;
693                    } elsif ($p != $last_p) {
694                          my $rate = ($current / (time() - $start_t || 1));                          my $rate = ($current / (time() - $start_t || 1));
695                          my $eta = ($total-$current) / ($rate || 1);                          my $eta = ($total-$current) / ($rate || 1);
696                          printf STDERR ("%5d [%-38s] %-5d %0.1f/s %s\r",$current,"=" x ($p/3)."$p%>", $total, $rate, fmt_time($eta));                          printf STDERR ("%5d [%-38s] %-5d %0.1f/s %s\r",$current,"=" x ($p/3)."$p%>", $total, $rate, fmt_time($eta));
# Line 696  print STDERR "reading ./import_xml/$type Line 699  print STDERR "reading ./import_xml/$type
699          }          }
700    
701          my $fake_dir = 1;          my $fake_dir = 1;
702            my $fake_pos = 0;
703            my $last_fake_t = time();
704          sub fakeprogress {          sub fakeprogress {
705                  return if (! $show_progress);                  return if (! $show_progress);
706                  my $current = shift @_;                  my $current = shift @_;
707    
708                  my @ind = ('-','\\','|','/','-','\\','|','/', '-');                  my @ind = ('-','\\','|','/','-','\\','|','/');
709    
710                  $last_p += $fake_dir;                  if ($current < $fake_pos) {
711                  $fake_dir = -$fake_dir if ($last_p > 1000 || $last_p < 0);                          $start_t = time();
712                  if ($last_p % 10 == 0) {                          $last_fake_t = 0;
713                          printf STDERR ("%5d / %5s [%-51s]\r",$current,"?"," " x ($last_p/20).$ind[($last_p/20) % $#ind]);                          $fake_dir = 1;
714                            $fake_pos = 0;
715                    }
716    
717                    if (time()-$last_fake_t >= 1) {
718                            $last_fake_t = time();
719                            $fake_pos += $fake_dir;
720                            $fake_dir = -$fake_dir if ($fake_pos > 38);
721                    }
722    
723                    if ($current % 10 == 0) {
724                            my $rate = ($current / (time() - $start_t || 1));
725                            printf STDERR ("%5d [%-38s] %0.1f/s\r",$current, " " x $fake_pos .$ind[($current / 10) % 8], $rate);
726                  }                  }
727          }          }
728    
# Line 720  print STDERR "using: $type...\n"; Line 737  print STDERR "using: $type...\n";
737                  my $isis_db = $cfg -> val($database, 'isis_db') || die "$database doesn't have 'isis_db' defined!";                  my $isis_db = $cfg -> val($database, 'isis_db') || die "$database doesn't have 'isis_db' defined!";
738    
739                  $import2cp = Text::Iconv->new($config->{isis_codepage},$codepage);                  $import2cp = Text::Iconv->new($config->{isis_codepage},$codepage);
740                  my $db = new IsisDB( isisdb => $isis_db );                  my $db = new Biblio::Isis( isisdb => $isis_db );
741    
742                  my $max_rowid = $db->{'maxmfn'} || die "can't find maxmfn";                  my $max_rowid = $db->count || die "can't find maxmfn";
743    
744                  print STDERR "Reading database: $isis_db [$max_rowid rows]\n";                  print STDERR "Reading database: $isis_db [$max_rowid rows]\n";
745    

Legend:
Removed from v.623  
changed lines
  Added in v.632

  ViewVC Help
Powered by ViewVC 1.1.26