#!/usr/bin/perl
#
# by Steve Poirier - steve@inet-technologies.com
# to use with RT2 / MySQL

use DBI;
use CGI qw(:all);
use Text::Template;


# definition of variables
$db="inet_stat";
$host="localhost";
$user="inet";
$password="allo";

print header;

$actualon = param('actualon');
$mainton = param('mainton');


my $dbh   = DBI->connect ("DBI:mysql:database=$db:host=$host",
                          $user,
                          $password) 
                          or die "Can't connect to database: $DBI::errstr\n";

my $sth = $dbh->prepare( "
              select id,description,received,expected from problems where status=0;");
$sth->execute( );

@row = $sth->fetchrow_array( );
	$id = $row[0];
	$description = $row[1];
	$received = $row[2];
	$expected = $row[3];

if ($id eq "") {
$actual = "<b>aucun problèmes n'est reporté présentement.</b><br><br>"

}
else {
$actual = $actual."<b>Identification:</b> NST-#$id<br>";
$actual = $actual."<b>Date de création:</b> $received<br>";
$actual = $actual."<b>Temps estimé:</b> $expected<br>";
$actual = $actual."<b>Description:</b> $description<br><br>";

while ( my @row = $sth->fetchrow_array( ) )  {
	$id = $row[0];
	$description = $row[1];
	$received = $row[2];
	$expected = $row[3];
$actual = $actual."<b>Identification:</b> NST-#$id<br>";
$actual = $actual."<b>Date de création:</b> $received<br>";
$actual = $actual."<b>Description:</b> $description<br>";
$actual = $actual."<b>Temps estimé:</b> $expected<br><br>";

}
}

if ($actualon ne "") {
$actual = $actual."<b>Archive:</b><br><br>";
my $sth = $dbh->prepare( "
              select id,description,received,expected,resolved from problems where status=1;");
$sth->execute( );  
while ( my @row = $sth->fetchrow_array( ) )  {
        $id = $row[0];
        $description = $row[1];
        $received = $row[2];
        $expected = $row[3];
	$resolved = $row[4];
$actual = $actual."<b>Identification:</b> NST-#$id (résolu)<br>";
$actual = $actual."<b>Date de création:</b> $received<br>";
$actual = $actual."<b>Date de résolution::</b> $resolved<br>";
$actual = $actual."<b>Description:</b> $description<br><br>";
}
}

my $sth = $dbh->prepare( "
              select id,description,received,expected from maint where completed=0;");
$sth->execute( );

@row = $sth->fetchrow_array( );
	$id = $row[0];
	$description = $row[1];
	$received = $row[2];
	$expected = $row[3];

if ($id eq "") {
$scheduled = "<b>aucune maintenance de prévu à présent.</b><br><br>"

}
else {
$scheduled = $scheduled."<b>Identification:</b> MAT-#$id<br>";
$scheduled = $scheduled."<b>Date prévue:</b> $received<br>";
$scheduled = $scheduled."<b>Temps estimé:</b> $expected<br>";
$scheduled = $scheduled."<b>Description:</b> $description<br><br>";

while ( my @row = $sth->fetchrow_array( ) )  {
	$id = $row[0];
	$description = $row[1];
	$received = $row[2];
	$expected = $row[3];
$scheduled = $scheduled."<b>Identification:</b> MAT-#$id<br>";
$scheduled = $scheduled."<b>Date prévue:</b> $received<br>";
$scheduled = $scheduled."<b>Temps estimé:</b> $expected<br>";
$scheduled = $scheduled."<b>Description:</b> $description<br><br>";

}
}

if ($mainton ne "") {
$scheduled = $scheduled."<b>Archive:</b><br><br>";
my $sth = $dbh->prepare( "
              select id,description,received,expected from maint where completed=1;");
$sth->execute( );  
while ( my @row = $sth->fetchrow_array( ) )  {
        $id = $row[0];
        $description = $row[1];
        $received = $row[2];
        $expected = $row[3];
	$resolved = $row[4];
$scheduled = $scheduled."<b>Identification:</b> MAT-#$id (résolu)<br>";
$scheduled = $scheduled."<b>Date:</b> $received<br>";
$scheduled = $scheduled."<b>Temps estimé:</b> $expected<br>";
$scheduled = $scheduled."<b>Description:</b> $description<br><br>";

}
}


%vars = (actual => $actual,
                scheduled => $scheduled,
                type => $type,
        );                
    &template('netstatus.html');


exit;

sub template {      # Send a template with a specified file name
    local($tmpl,@tmpl_fields) = @_;
#    $tmpl = "/usr/local/apache/www/www2/cgi-bin/netstatus/$tmpl";
	 $tmpl = "$tmpl";
#    my $template =new Text::Template(TYPE=>'FILE',SOURCE=>$tmpl);
    my $template =new Text::Template(TYPE=>'FILE',SOURCE=>$tmpl,DELIMITERS=>['##-','-##']);
    $template -> fill_in (OUTPUT =>\*STDOUT, HASH=>\%vars);
    #system("/bin/echo >/www/funio-demo.com/test.txt \"$template\"");
}