&My::Web::footer call is deprecated now, use just: exit;

[www.jankratochvil.net.git] / project / captive / CVS.pm

diff --git a/project/captive/CVS.pm b/project/captive/CVS.pm
index e3c40af..57cd168 100755 (executable)
--- a/project/captive/CVS.pm
+++ b/project/captive/CVS.pm
@@ -53,11 +53,10 @@ make
 
 <h2>Download</h2>
 
-<table border="0" width="100%"><tr><td align="center">
-       <table border="1"><tr><th>Distribution</th>
-               <th>Installation Case #1<br />Filesystem and installer<br />(recommended)</th>
-               <th>Installation Case #2<br />Manual installation<br />(filesystem, expert user)</th>
-               <th>Installation Case #3<br />Command-line client<br />(no filesystem access)</th></tr>
+<table border="1" class="margin-center"><tr><th>Distribution</th>
+       <th>Installation Case #1<br />Filesystem and installer<br />(recommended)</th>
+       <th>Installation Case #2<br />Manual installation<br />(filesystem, expert user)</th>
+       <th>Installation Case #3<br />Command-line client<br />(no filesystem access)</th></tr>
 HERE
 my %pkg=(
                1=>[qw(captive captive-lufs captive-install lufs gnome-vfs-httpcaptive ntfsprogs ntfsprogs-gnomevfs)],
@@ -94,11 +93,10 @@ my($file_base,$text,%args)=@_;
 my $ntfsprogs_after=sub ($) {
        my($format)=@_;
                return if $case!=1;
-               return '<table width="100%" border="0"><tr><td align="center"><table width="80%" border="0"><tr><td>'
-                                               .'<hr />requirement: '
-                                               .a_href('http://linux-ntfs.sourceforge.net/downloads.html#downloads','ntfsprogs')
-                                               .' '.$format.' &ge; 1.8.0'
-                                       .'</td></tr></table>'
+               return '<table width="80%" border="0" class="margin-center"><tr><td>'
+                                       .'<hr />requirement: '
+                                       .a_href('http://linux-ntfs.sourceforge.net/downloads.html#downloads','ntfsprogs')
+                                       .' '.$format.' &ge; 1.8.0'
                                .'</td></tr></table>';
        };
 
@@ -119,10 +117,10 @@ my @dist=(
 
 for my $dist (@dist) {
        print '<tr id="'.$dist->{"id"}.'">';
-               print "<td>".$dist->{"name"}."</td>";
+               print '<td align="center">'.$dist->{"name"}."</td>";
                for my $casel (1,2,3) {
                        $case=$casel;
-                       print "<td>";
+                       print '<td align="center">';
                        print join("<br />",map({ my $pkg=$_;
                                my($file,$text)=&{$dist->{"out"}}($pkg,@{$version{$pkg}});
                                (!defined $text ? ($file) || () : (&$a_href_arch("dist/$file",$text)));
@@ -139,10 +137,9 @@ HERE
 my $build_static_basename=(map("$_-".$version{$_}.".tar.gz","build-captive-static"))[0];
 print a_href "dist/$build_static_basename",$build_static_basename;
 print <<"HERE";
-                       </td>
-               </tr>
-       </table>
-</td></tr></table>
+               </td>
+       </tr>
+</table>
 
 @{[ vskip "3ex" ]}
 
@@ -173,6 +170,6 @@ print <<"HERE";
 HERE
 
 
-My::Web->footer();
+exit;
 }
 1;