X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fblank.pl;h=fb559a92ca75c9068bdddc749e797d35eeff5df3;hb=46ac39b6f5ae340d6ce5ab930f712e1f3a367b57;hp=7107f2dd34c8dfec95c8389e608e3b7f87eca0ee;hpb=1cc51a6696899a05d1b9ca40dab497cfdc39294b;p=spider.git

diff --git a/cmd/blank.pl b/cmd/blank.pl
index 7107f2dd..fb559a92 100644
--- a/cmd/blank.pl
+++ b/cmd/blank.pl
@@ -7,8 +7,19 @@
 #
 
 my ($self, $line) = @_;
-my ($lines) = $line =~ /^\s*(\d+)/;
-$lines ||= 1;
+my $lines = 1;
+my $data = ' ';
+my @f = split /\s+/, $line;
+if (@f && $f[0] !~ /^\d+$/) {
+	$data = shift @f;
+	$data = $data x int(($self->width-1) / length($data));
+	$data .= substr $data, 0, int(($self->width-1) % length($data))
+}
+if (@f && $f[0] =~ /^\d+$/) {
+	$lines = shift @f;
+	$lines = 9 if $lines < 9;
+	$lines = 1 if $lines < 1;
+}
 my @out;
-push @out, ' ' for (1..$lines);
+push @out, $data for (1..$lines);
 return (1, @out);