--- trunk/all2xml.pl	2004/12/08 18:23:25	599
+++ trunk/all2xml.pl	2004/12/31 03:35:43	618
@@ -667,15 +667,30 @@
 
 	$config=XMLin("./import_xml/$type.xml", ForceArray => [ $type2tag{$type_base}, 'config', 'format' ], ForceContent => 1 );
 
+	# helper for progress bar
+	sub fmt_time {
+		my $t = shift || 0;
+		my $out = "";
+
+		my ($ss,$mm,$hh) = gmtime($t);
+		$out .= "${hh}h" if ($hh);
+		$out .= sprintf("%02d:%02d", $mm,$ss);
+		$out .= "  " if ($hh == 0);
+		return $out;
+	}
+
 	# output current progress indicator
 	my $last_p = 0;
+	my $start_t = time();
 	sub progress {
 		return if (! $show_progress);
 		my $current = shift;
 		my $total = shift || 1;
 		my $p = int($current * 100 / $total);
 		if ($p != $last_p) {
-			printf STDERR ("%5d / %5d [%-51s] %-2d %% \r",$current,$total,"=" x ($p/2).">", $p );
+			my $rate = ($current / (time() - $start_t || 1));
+			my $eta = ($total-$current) / ($rate || 1);
+			printf STDERR ("%5d [%-38s] %-5d %0.1f/s %s\r",$current,"=" x ($p/3)."$p%>", $total, $rate, fmt_time($eta));
 			$last_p = $p;
 		}
 	}