mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
26 lines
500 B
Perl
26 lines
500 B
Perl
#
|
|
# Print n blank lines
|
|
#
|
|
# Copyright (c) 1998 Dirk Koopman G1TLH
|
|
#
|
|
# $Id$
|
|
#
|
|
|
|
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);
|