X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fwidth.pl;fp=cmd%2Fset%2Fwidth.pl;h=5575fe3be3099a861e766455259be8c2b96e91f7;hb=942a06f9a573659489eb4a9185b73c4296cd31fd;hp=0000000000000000000000000000000000000000;hpb=bf70ca01121eabfc655ce899ebd14b1d31d1047f;p=spider.git

diff --git a/cmd/set/width.pl b/cmd/set/width.pl
new file mode 100644
index 00000000..5575fe3b
--- /dev/null
+++ b/cmd/set/width.pl
@@ -0,0 +1,12 @@
+#
+# set the page width for this invocation of the client
+#
+# Copyright (c) 2021 - Dirk Koopman G1TLH
+#
+#
+#
+my $self = shift;
+my $l = shift;
+$l = 80 if $l < 80;
+$self->width($l);
+return (1, $self->msg('pagewidth', $l));