Tu peux la coder, c'est pas bien dur
- Code: Tout sélectionner
#!/usr/bin/perl -w
#/etc/e-smith/web/functions/smbstatus
#inclusion des modules
use strict;
no strict 'refs';
use CGI':all';
use CGI::Carp qw(fatalsToBrowser);
my $q = new CGI;
$q->default_dtd('-//W3C//DTD XHTML 1.0 Transitional//EN');
print $q->header ('text/html');
print $q->start_html (
-TITLE => "smbstatus",
-CLASS => "main",
-STYLE => {
-verbatim => '@import url("/server-common/css/sme_main.css");',
src => '/server-common/css/sme_core.css'});
print $q->h1 ("smbstatus");
foreach (`smbstatus`)
{
print $q->p($_);
}
esmith::cgi::genFooter ($q);
(attention, code écrit from scratch et NON testé
!! )
Bon, évidemment, ca demande un peu plus de mise en page (un tableau tout con ou mettre les infos), mais l'idée est la. Si j'ai du temps, j'en ferai ptete meme un contrib tellement c'est simple !!!!