/[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 101 by dpavlin, Mon Jul 14 10:52:13 2003 UTC revision 104 by dpavlin, Mon Jul 14 10:55:35 2003 UTC
# Line 293  print STDERR "reading ./import_xml/$type Line 293  print STDERR "reading ./import_xml/$type
293    
294          # output current progress indicator          # output current progress indicator
295          my $last_p = 0;          my $last_p = 0;
 print STDERR "## show_progress: $show_progress ##\n"; # XXX  
296          sub progress {          sub progress {
297                  return if (! $show_progress);                  return if (! $show_progress);
298                  my $current = shift;                  my $current = shift;
# Line 307  print STDERR "## show_progress: $show_pr Line 306  print STDERR "## show_progress: $show_pr
306    
307          my $fake_dir = 1;          my $fake_dir = 1;
308          sub fakeprogress {          sub fakeprogress {
309                    return if (! $show_progress);
310                  my $current = shift @_;                  my $current = shift @_;
311    
312                  my @ind = ('-','\\','|','/','-','\\','|','/', '-');                  my @ind = ('-','\\','|','/','-','\\','|','/', '-');

Legend:
Removed from v.101  
changed lines
  Added in v.104

  ViewVC Help
Powered by ViewVC 1.1.26