X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fwidth.pl;fp=cmd%2Fset%2Fwidth.pl;h=27620c2cb4fc0fc1ac06a7eb91d875d8fbdfdbba;hb=2e3638e69f84390b8e911093aa71a7c9382dfc0f;hp=0000000000000000000000000000000000000000;hpb=f5938b5fe66c95b9973bcca267afb3f87cfb20f4;p=spider.git

diff --git a/cmd/set/width.pl b/cmd/set/width.pl
new file mode 100644
index 00000000..27620c2c
--- /dev/null
+++ b/cmd/set/width.pl
@@ -0,0 +1,13 @@
+#
+# 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);
+$self->user->width($l);
+return (1, $self->msg('pagewidth', $l));