add CTY-3304

[spider.git] / cmd / blank.pl

diff --git a/cmd/blank.pl b/cmd/blank.pl
index 7107f2dd34c8dfec95c8389e608e3b7f87eca0ee..4a91b70fdc6374aa0cbd77fbc9b245b94748cf8f 100644 (file)
--- a/cmd/blank.pl
+++ b/cmd/blank.pl
@@ -3,12 +3,32 @@
 #
 # Copyright (c) 1998 Dirk Koopman G1TLH
 #
-# $Id$
 #
+#
+
+sub this {};
+
+sub that {};
+
+sub another {}
 
-my ($self, $line) = @_;
-my ($lines) = $line =~ /^\s*(\d+)/;
-$lines ||= 1;
-my @out;
-push @out, ' ' for (1..$lines);
-return (1, @out);
+sub handle
+{
+               my ($self, $line) = @_;
+               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, $data for (1..$lines);
+               return (1, @out);
+}