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

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

revision 56 by dpavlin, Wed Jun 25 12:09:27 2003 UTC revision 57 by dpavlin, Fri Jul 4 15:05:23 2003 UTC
# Line 33  getopts('d:m:qs', \%opts); Line 33  getopts('d:m:qs', \%opts);
33    
34  my $path;       # this is name of database  my $path;       # this is name of database
35    
36  Text::Iconv->raise_error(1);     # Conversion errors raise exceptions  Text::Iconv->raise_error(0);     # Conversion errors don't raise exceptions
37    
38  # this is encoding of all files on disk, including import_xml/*.xml file and  # this is encoding of all files on disk, including import_xml/*.xml file and
39  # filter/*.pm files! It will be used to store strings in perl internally!  # filter/*.pm files! It will be used to store strings in perl internally!
# Line 247  print STDERR "reading ./import_xml/$type Line 247  print STDERR "reading ./import_xml/$type
247          sub progress {          sub progress {
248                  #return if (! $opts{q});        # FIXME                  #return if (! $opts{q});        # FIXME
249                  my $current = shift;                  my $current = shift;
250                  my $total = shift;                  my $total = shift || 1;
251                  my $p = int($current * 100 / $total);                  my $p = int($current * 100 / $total);
252                  if ($p != $last_p) {                  if ($p != $last_p) {
253                          printf STDERR ("%5d / %5d [%-51s] %-2d %% \r",$current,$total,"=" x ($p/2).">", $p );                          printf STDERR ("%5d / %5d [%-51s] %-2d %% \r",$current,$total,"=" x ($p/2).">", $p );

Legend:
Removed from v.56  
changed lines
  Added in v.57

  ViewVC Help
Powered by ViewVC 1.1.26