chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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>
</%doc><%perl>
+no warnings qw(exec);
+
use CommodsWeb;
my $printable= printable($m);
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 $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$/) {
$printable =~ m/^[a-z]+/;
push @htargs, '-t',$&;
if ($printable =~ m/2$/) {