Merge branch 'readme' into 'main'

[ypp-sc-tools.main.git] / yarrg / web / autohandler

diff --git a/yarrg/web/autohandler b/yarrg/web/autohandler
index f69ef55a53d92529c3a68f29d673e4238504d2ed..64e31fc9a66c93dc0ec7d4d362e96064fc576e4b 100644 (file)
--- a/yarrg/web/autohandler
+++ b/yarrg/web/autohandler
@@ -35,6 +35,8 @@
 
 </%doc><%perl>
 
+no warnings qw(exec);
+
 use CommodsWeb;
 
 my $printable= printable($m);
@@ -42,7 +44,8 @@ if ($printable =~ m/^pdf|^ps/) {
        my $output;
        my $got= $m->call_self(\$output);
        if ($got) {
-               my @htargs= qw(htmldoc --continuous --gray --size 210x279mm);
+               my @htargs= qw(htmldoc --continuous --gray --size 210x279mm
+                               --left 1cm --right 1cm);
                $printable =~ m/^[a-z]+/;
                push @htargs, '-t',$&;
                if ($printable =~ m/2$/) {