backport mojo console.pl width/scolling changes

[spider.git] / cmd / set / width.pl

diff --git a/cmd/set/width.pl b/cmd/set/width.pl
new file mode 100644 (file)
index 0000000..27620c2
--- /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));