+line9k image

[www.jankratochvil.net.git] / project / line9k / Index.html.pl

diff --git a/project/line9k/Index.html.pl b/project/line9k/Index.html.pl
index dc8beec..b16bbb7 100755 (executable)
--- a/project/line9k/Index.html.pl
+++ b/project/line9k/Index.html.pl
@@ -27,8 +27,8 @@ use warnings;
 
 BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
 use My::Web;
-use My::Project;
-use project::line9k::ListItem;
+Wuse 'My::Project';
+Wuse 'project::line9k::ListItem';
 
 
 My::Project->init_project(
@@ -36,13 +36,17 @@ My::Project->init_project(
                "ListItem"=>\@project::line9k::ListItem::ListItem,
                );
 
-print <<'HERE';
+
+print <<"HERE";
 <p>Scheme for battery charger. Review/fixes by the courtesy of <a href="http://www.pavouk.org/">Pavouk</a>.
 Connect serial port (such as <code>/dev/ttyS0</code>) to <code>RS232</code> pins,
 your original mobile phone charge to <code>AC</code> pins. <code>PS/2</code> keyboard
 fork of <code>+5V</code>/<code>GND</code> pins are required to power this hardware switch.</p>
+
+@{[ centerimg "charger.jpeg","AC Switch Photo" ]}
+@{[ vskip "3ex" ]}
+@{[ centerimg "line9k","AC Switch Scheme" ]}
 HERE
 
-print '<table border="0"><tr><td align="center">'.My::Web::img("line9k","AC Switch Scheme").'</td></tr></table>'."\n";
 
 My::Web->footer();