print <<"END";
<h1>System Administration</h1>
<table width="450" valign="top" border="0">
   <tr>
    </td>
        <td width="400" valign="top" align="left">
END
        if ($action eq 'df' ) {
                my ($headers_ar, $df_result_ar) = &MySystem::get_df;
                # print out the table headers
                print "<table><tr>\n";
                         foreach my $t_head ( @$headers_ar ) {
                                print "<th>$t_head</th>\n";
                         }
                        # end table header
                        print "</tr>\n";
                        foreach my $hold_ar (@$df_result_ar) {
                         print "<tr>";
                          foreach (@$hold_ar) {
                                print "<td>$_</td>";
                          }
                         print "</tr>";
                        }
                # end table
                print "</table>\n";

        }

print <<"END";
        </td>
   </tr>
</table>
END